3.4.2 Реализация программного модуля «Заставка»

Интерфейс представлен на рис. 2.15. На форме располагаются:

• 2 компонента типа Label;

• 2 компонент типа Image;

• 1 компонент типа timer.

Приложение B: Блок-схемы работы программного модуля «Заставка».

Код программного модуля «Заставка».

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, acPNG, ExtCtrls;

type

TForm2 = class(TForm)

Image1: TImage;

Label1: TLabel;

tmr1: TTimer;

Label2: TLabel;

procedure FormActivate(Sender: TObject);

procedure tmr1Timer(Sender: TObject);

procedure Image1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

Implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.FormActivate(Sender: TObject);

begin

tmr1.Enabled:=true;

label1.Caption:='Добро пожаловать '+ Login;

Form2.Show;

end;

procedure TForm2.tmr1Timer(Sender: TObject);

begin

form2.Close;

form3.Show;

tmr1.Enabled:=false;

end;

end.

3.4.3 Реализация программного модуля «Группы»

Интерфейс представлен на рис. 2.28. На форме располагаются:

• 1 компонент типа StatusBar;

• 5 компонентов типа DBEdit;

• 1 компонент типа DBGrid;

• 1 компонент типа label;

• 1 компонент типа edit;

• 1 компонент типа BitBtn;

• 1 компонент типа DBNavigator.

Приложение С: Блок-схемы работы программного модуля «Группы».

Код программного модуля «Группы».

unit UnitGruppa;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Menus, OleServer, ExcelXP, Grids, DBGrids, ComObj, Registry, DB, ADODB, Mask, DBCtrls, ComCtrls, ExtCtrls;

type

TfrmGruppa = class(TForm)

BitBtn4: TBitBtn;

StatusBar1: TStatusBar;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Edit1: TEdit;

procedure BitBtn4Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Edit1DblClick(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmGruppa: TfrmGruppa;

implementation

uses Unit3, DataModuleUnit, Unit1;

{$R *.dfm}

procedure TfrmGruppa.BitBtn4Click(Sender: TObject);

begin

frmGruppa.Close;

Form3.Show;

Form3.Edit1.SetFocus;

Form3.Enabled:=True;

datamodule4.StudentTable.Refresh;

end;

procedure TfrmGruppa.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form3.Show;

Form3.Edit1.SetFocus;

Form3.Enabled:=True;

end;

procedure TfrmGruppa.Edit1DblClick(Sender: TObject);

begin

edit1.Clear;

end;

procedure TfrmGruppa.Edit1Change(Sender: TObject);

begin

DataModule4.GruppaTable.Locate('Название',Edit1.Text,[loPartialKey]);

end;

procedure TfrmGruppa.FormActivate(Sender: TObject);

begin

StatusBar1.Panels[0].Text:='Зарегистрированный пользователь: '+login;

end;

end.