ΠŸΠΎΠΌΠΎΡ‰ΡŒ Π² написании студСнчСских Ρ€Π°Π±ΠΎΡ‚
АнтистрСссовый сСрвис

ОписаниС ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΡ‹Ρ… ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€ ΠΈ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ (листинг ΠΊΠΎΠ΄Π°)

Π Π΅Ρ„Π΅Ρ€Π°Ρ‚: ОписаниС ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΡ‹Ρ… ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€ ΠΈ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ (листинг ΠΊΠΎΠ΄Π°)
Π Π΅Ρ„Π΅Ρ€Π°Ρ‚ΠŸΠΎΠΌΠΎΡ‰ΡŒ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈΠ£Π·Π½Π°Ρ‚ΡŒ ΡΡ‚ΠΎΠΈΠΌΠΎΡΡ‚ΡŒΠΌΠΎΠ΅ΠΉ Ρ€Π°Π±ΠΎΡ‚Ρ‹

Procedure TForm2. sButton3Click (Sender: TObject); //Кнопка «Π¨Ρ‚Ρ€Π°Ρ„Ρ‹». Form2. sButton1.Enabled:=true; //ИзмСнСниС состояния ΠΊΠ½ΠΎΠΏΠΊΠΈ. Procedure TForm2. sButton7Click (Sender: TObject); //Кнопка «Π’Ρ‹Ρ…ΠΎΠ΄». Procedure TForm1. sButton2Click (Sender: TObject); //Кнопка «Π’Ρ‹Ρ…ΠΎΠ΄». ΠŸΡ€ΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½ΠΎ Π² ΠŸΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ А. SEdit1. Text:=''; //ΠžΡ‡ΠΈΡΡ‚ΠΊΠ° поля Π²Π²ΠΎΠ΄Π° пароля. Form2. Show; //Показ Ρ„ΠΎΡ€ΠΌΡ‹ Π½Π°Π²ΠΈΠ³Π°Ρ†ΠΈΠΈ… Π§ΠΈΡ‚Π°Ρ‚ΡŒ Π΅Ρ‰Ρ‘ >

ОписаниС ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌΡ‹Ρ… ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€ ΠΈ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ (листинг ΠΊΠΎΠ΄Π°) (Ρ€Π΅Ρ„Π΅Ρ€Π°Ρ‚, курсовая, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½Ρ‚Ρ€ΠΎΠ»ΡŒΠ½Π°Ρ)

Unit 1 //Π€ΠΎΡ€ΠΌΠ° Π°Π²Ρ‚ΠΎΡ€ΠΈΠ·Π°Ρ†ΠΈΠΈ.

procedure TForm1. sButton1Click (Sender: TObject); //Кнопка «Π’Ρ…ΠΎΠ΄ Π² ΡΠΈΡΡ‚Π΅ΠΌΡƒ управлСния» .

var login, password, strl, strp, otkl, otkp: string;//Π’Π²ΠΎΠ΄ постоянных ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Ρ….

begin.

login:='Администратор'; //ΠŸΡ€ΠΈΡΠ²ΠΎΠ΅Π½ΠΈΠ΅ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹ΠΌ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ.

password:='1991admIN';

strl:='Π‘ΠΎΡ‚Ρ€ΡƒΠ΄Π½ΠΈΠΊ';

strp:='1991STridIK';

otkl:='ΠžΡ‚Π΄Π΅Π» ΠΊΠ°Π΄Ρ€ΠΎΠ²';

otkp:='1991OTDelKad';

If (ComboBox1.Text=login) and (sEdit1.Text=password) //Условия ΠΏΡ€ΠΎΠ²Π΅Ρ€ΠΊΠΈ подлинности пароля.

Then.

begin.

Form1.Hide; //Π‘ΠΊΡ€Ρ‹Ρ‚ΠΈΠ΅ Ρ„ΠΎΡ€ΠΌΡ‹ Π²Ρ…ΠΎΠ΄Π°.

Form2.Show; //Показ Ρ„ΠΎΡ€ΠΌΡ‹ Π½Π°Π²ΠΈΠ³Π°Ρ†ΠΈΠΈ.

Form2.sButton1.Enabled:=true; //ИзмСнСниС состояния ΠΊΠ½ΠΎΠΏΠΊΠΈ.

Form2.sButton2.Enabled:=true;

Form2.sButton3.Enabled:=true;

Form2.sButton4.Enabled:=true;

Form2.sButton5.Enabled:=true;

Form2.sButton9.Enabled:=true;

end.

Else.

If (ComboBox1.Text=strl) and (sEdit1.Text=strp).

Then.

begin.

Form2.Show;

Form2.sButton1.Enabled:=true;

Form2.sButton2.Enabled:=true;

Form2.sButton3.Enabled:=true;

Form2.sButton4.Enabled:=true;

Form2.sButton5.Enabled:=false;

Form2.sButton9.Enabled:=true;

end.

Else.

If (ComboBox1.Text=otkl) and (sEdit1.Text=otkp).

Then.

begin.

Form2.Show;

Form2.sButton1.Enabled:=false;

Form2.sButton2.Enabled:=false;

Form2.sButton3.Enabled:=false;

Form2.sButton4.Enabled:=false;

Form2.sButton5.Enabled:=true;

Form2.sButton9.Enabled:=true;

end.

Else.

begin.

MessageBox (Handle, PChar ('НСвСрноС имя ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Ρ ΠΈΠ»ΠΈ ΠΏΠ°Ρ€ΠΎΠ»ΡŒ. ΠŸΠΎΠΆΠ°Π»ΡƒΠΉΡΡ‚Π° ΠΏΠΎΠ²Ρ‚ΠΎΡ€ΠΈΡ‚Π΅ Π²Π²ΠΎΠ΄!'), PChar ('Ошибка Π°Π²Ρ‚ΠΎΡ€ΠΈΠ·Π°Ρ†ΠΈΠΈ'), MB_ICONINFORMATION+ MB_OK+MB_DEFBUTTON2); //Окно с ΡΠΎΠΎΠ±Ρ‰Π΅Π½ΠΈΠ΅ΠΌ ΠΎΠ± ΠΎΡˆΠΈΠ±ΠΊΠ΅.

end.

end;

procedure TForm1. sButton2Click (Sender: TObject); //Кнопка «Π’Ρ‹Ρ…ΠΎΠ΄» .

begin.

Form0.Showmodal;

end;

procedure TForm1. FormShow (Sender: TObject); //ΠžΠΏΠ΅Ρ€Π°Ρ†ΠΈΠΈ выполняСмыС ΠΏΡ€ΠΈ ΠΏΠΎΠΊΠ°Π·Π΅ Ρ„ΠΎΡ€ΠΌΡ‹.

begin.

sEdit1.Text:=''; //ΠžΡ‡ΠΈΡΡ‚ΠΊΠ° поля Π²Π²ΠΎΠ΄Π° пароля.

end;

end.

Unit 2//Π€ΠΎΡ€ΠΌΠ° Π½Π°Π²ΠΈΠ³Π°Ρ†ΠΈΠΈ.

procedure TForm2. sButton6Click (Sender: TObject); //Кнопка «Π‘ΠΌΠ΅Π½Π° ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»Ρ» .

begin.

Form2.Hide;

Form1.Show;

Form1.sEdit1.Text:='';

end;

procedure TForm2. sButton7Click (Sender: TObject); //Кнопка «Π’Ρ‹Ρ…ΠΎΠ΄» .

begin.

Form0.ShowModal;

end;

procedure TForm2. N2Click (Sender: TObject); //Π‘Ρ‚Ρ€ΠΎΠΊΠ° мСню «Πž ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ΅» .

begin.

XFormF.ShowModal;

end;

procedure TForm2. AltF41Click (Sender: TObject); //Π—Π°ΠΊΡ€Ρ‹Ρ‚ΠΈΠ΅ Ρ„ΠΎΡ€ΠΌΡ‹ ΠΏΡ€ΠΈ ΠΏΠΎΠΌΠΎΡ‰ΠΈ ΠΊΠΎΠΌΠ±ΠΈΠ½Π°Ρ†ΠΈΠΈ клавиш «Alt+F4» .

begin.

Form0.ShowModal;

end;

procedure TForm2. sButton1Click (Sender: TObject); //Кнопка «Π’распортныС срСдства» .

begin.

Form2.Hide;

Form5.ShowModal;

end;

procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction); //УсловиС закрытия Ρ„ΠΎΡ€ΠΌΡ‹.

begin.

Form0.Show;

end;

procedure TForm2. sButton2Click (Sender: TObject); //Кнопка «Π’ΠΎΠ΄ΠΈΡ‚Π΅Π»ΡŒΡΠΊΠΈΠ΅ удостовСрСния» .

begin.

Form2.Hide;

Form13.ShowModal;

end;

procedure TForm2. FormCreate (Sender: TObject); //Π—Π°Π³Ρ€ΡƒΠ·ΠΊΠ° Π»ΠΎΠ³ΠΎΡ‚ΠΈΠΏΠ° Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ Π½Π°Π²ΠΈΠ³Π°Ρ†ΠΈΠΈ.

begin.

Image1.Picture.LoadFromFile ('Imagelogo.jpg');//ΠŸΡƒΡ‚ΡŒ ΠΊΠ·Π°Π³Ρ€ΡƒΠΆΠ°Π΅ΠΌΠΎΠΌΡƒ Ρ„Π°ΠΉΠ»Ρƒ.

end;

procedure TForm2. sButton3Click (Sender: TObject); //Кнопка «Π¨Ρ‚Ρ€Π°Ρ„Ρ‹» .

begin.

Form2.Hide;

Form24.ShowModal;

end;

procedure TForm2. sButton4Click (Sender: TObject); //Кнопка «ΠΠ²Ρ‚ΠΎΡˆΠΊΠΎΠ»Ρ‹» .

begin.

Form2.Hide;

Form26.Show;

end;

procedure TForm2. sButton9Click (Sender: TObject); //Кнопка «Π—Π°ΠΏΠ»Π°Π½ΠΈΡ€ΠΎΠ²Π°Π½Π½Ρ‹Π΅ мСроприятия» .

begin.

Form2.Hide;

Form32.ShowModal;

end;

procedure TForm2. sButton5Click (Sender: TObject); //Кнопка «Π‘ΠΎΡ‚Ρ€ΡƒΠ΄Π½ΠΈΠΊΠΈ МРЭО «Π“ΠΠ˜» «.

begin.

Form2.Hide;

Form37.ShowModal;

end;

procedure TForm2. sButton8Click (Sender: TObject); //Кнопка «Π‘ΠΏΡ€Π°Π²ΠΊΠ°» .

begin.

ShellExecute (Handle, 'open', 'Help.PDF', nil, nil, SW_SHOWNORMAL) //ΠžΡ‚ΠΊΡ€Ρ‹Π΅Ρ‚ΠΈΠ΅ Ρ„Π°ΠΉΠ»Π° справки.

end;

procedure TForm2. N1Click (Sender: TObject); //Π‘Ρ‚Ρ€ΠΎΠΊΠ° мСню «ΠΠ°ΡΡ‚Ρ€ΠΎΠΉΠΊΠΈ» .

begin.

Form45.ShowModal;

end;

end.

ΠŸΡ€ΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ ΠΏΡ€ΠΈΠ²Π΅Π΄Π΅Π½ΠΎ Π² ΠŸΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ А.

ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ вСсь тСкст
Π—Π°ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ Ρ„ΠΎΡ€ΠΌΡƒ Ρ‚Π΅ΠΊΡƒΡ‰Π΅ΠΉ Ρ€Π°Π±ΠΎΡ‚ΠΎΠΉ

БСссия? Бпокойно!