Image1: tImage;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

SpeedButton1: TSpeedButton;

Label3: TLabel;

SpeedButton2: TSpeedButton;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

Implementation

uses Unit8, Unit9, Unit1, Unit2, Unit11;

{$R *.dfm}

procedure TForm10.BitBtn1Click(Sender: TObject); \\ открытие учётной записи студент

begin

form1.Visible:=true;

form10.Visible:=false;

form9.DBNavigator1.Visible:=false;

Form9.DBGrid1.ReadOnly:=true;

end;

procedure TForm10.BitBtn2Click(Sender: TObject); \\ открытие учётной записи препод.

begin

form10.Edit1.visible:=true;

Form10.SpeedButton1.Visible:=true;

Form10.Label3.Visible:=true;

Form10.SpeedButton2.Visible:=true;

end;

ПРИЛОЖЕНИЕ 6(Продолжение)

procedure TForm10.BitBtn3Click(Sender: TObject); \\ Выход

begin

form2.ShowModal;

end;

procedure TForm10.SpeedButton1Click(Sender: TObject); \\ Проверка пароля

begin

if form10.Edit1.text='123' then

begin

Form1.Visible:=true;

Form10.Visible:=false;

Form10.Label3.Visible:=false;

form10.Edit1.text:='';

Form10.Edit1.Visible:=false;

Form10.SpeedButton1.Visible:=false;

Form10.SpeedButton2.Visible:=false

end

else

begin form10.Edit1.text:='';

showmessage('Неверный пароль');

end;

end;

procedure TForm10.SpeedButton2Click(Sender: TObject); \\ отмена пароля

begin

Form10.Label3.Visible:=false;

Form10.Edit1.Visible:=false;

Form10.SpeedButton1.Visible:=false;

Form10.SpeedButton2.Visible:=false

end;

procedure TForm10.BitBtn5Click(Sender: TObject); \\ создатели программы

begin

form11.Visible:=true;

Form11.Caption:='Создатели';

Form11.label1.Caption:='Над программой работали: Бардайкин Александр и Киров Виктор';

end;

procedure TForm10.BitBtn4Click(Sender: TObject); \\ назначение программы

begin

form11.Visible:=true;

Form11.Caption:='О программе';

Form11.Label1.Caption:='Программа создана для ведения ведомости по успеваемости студентов и групп';

end;

end.

ПРИЛОЖЕНИЕ 6(Продолжение)

unit Unit1; \\ выбор группы, поиск

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, XPMan, ExtCtrls, jpeg, Buttons;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

XpManifest1: txpManifest;

Image1: tImage;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure Button7Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;