program Lab3;
uses
Forms,
HomeLib in 'HomeLib.pas' {LibraryForm},
Data in 'Data.pas' {DataModuleLibrary: TDataModule},
Types in 'Types.pas' {FormBookTypes},
Users in 'Users.pas' {FormUsers);
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TLibraryForm, LibraryForm);
Application.CreateForm(TDataModuleLibrary, DataModuleLibrary);
Application.CreateForm(TFormBookTypes, FormBookTypes);
Application.CreateForm(TFormUsers, FormUsers);
Application.Run;
end.
Листинг 16. Текст модуля главной формы HomeLib.pas
unit HomeLib;
Interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TLibraryForm = class (TForm)
GroupBoxView: TGrcupBox;
RadioButtonAll: TRadioButton;
RadioButtonType: TRadioButton;
DBLookupComboBoxType: TDBLookupComboBox;
RadioButtonUser: TRadioButton;
DBLookupComboBoxUser: TDBLookupComboBox;
GroupBoxDictionaries: TGroupBox;
ButtonTypes: TButton;
ButtonUsers: TButtcn;
ButtonExit: TButton;
DBGrid: TDBGrid;
DBNavigator: TDBNavigator;
procedure ButtonTypesClick(Sender: TObject);
procedure ButtonUsersClick(Sender: TObject};
procedure ButtonExitClick(Sender: TObject);
procedure RadioButtonAllClick(Sender: TObject);
procedure RadioButtonTypeClick(Sender: TObject);
procedure RadioButtonUserClick(Sender: TObject);
procedure DBLookupComboBoxTypeClick(Sender: TObject);
procedure DBLookupComboBoxUserClick (Sender: TObject);
end;
var
LibraryForm: TLibraryForm;