gn="justify"> {Private declarations}
{Public declarations};: TForm1; Unit2;
{$ R *. dfm} TForm1.BitBtn1Click (Sender: TObject); Listbox1.ItemIndex of
: if (edit1.Text = 'Адміністратор') and (edit2.Text = '0000 ') then.Show; (' Здравствуйте Адміністратор. ');. Caption: =' Ви в базі під логіном адміністратор ';. ToolButton9.Enabled: = False;. GroupBox5.Visible: = False; (' Невірний логін або пароль ');
: if (edit1.Text = 'Приймальник') and (edit2.Text = '0000 ') then.Show;. Caption: =' Ви в базі під логіном Приймальник '; (' Здравствуйте Приймальник . ');. ToolButton9.Enabled: = False;. GroupBox5.Visible: = True; (' Невірний логін або пароль ');
: if (edit1.Text = 'Менеджер') and (edit2.Text = '0000 ') then.Show;. Caption: =' Ви в базі під логіном Менеджер '; (' Здравствуйте Менеджер . ');. GroupBox5.Visible: = False;. ToolButton9.Enabled: = True;
end ('Ви вказали невірний логін або пароль');
end;; TForm1.BitBtn2Click (Sender: TObject);. Close;; TForm1.ListBox1Click (Sender: TObject); TCustomListBox (Sender) doItemIndex> = 0 then.Caption: = 'Вхід у базу даних пошта як '+ Items [ItemIndex];. Text: = Items [ItemIndex];;; TForm1.FormActivate (Sender: TObject);. Caption: = DateTimeToStr (Now);
end;.
Лістинг програмного коду для форми БД.
unit Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, ADODB, ComCtrls, StdCtrls, ExtCtrls, DBCtrls,, ToolWin, Buttons, OleServer, EXCEL2000, ComObj, ExcelXP, Menus,, jpeg; = class (TForm): TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TDBGrid;: TPanel;: TGroupBox;: TEdit;: TComboBox;: TRadioButton;: TRadioButton;: TGroupBox;: TComboBox;: TEdit;: TDataSource;: TADOConnection;: TADOTable;: TADOTable;: TDataSource;: TPanel;: TDBGrid;: TGroupBox;: TComboBox;: TEdit;: TRadioButton;: TRadioButton;: TMainMenu; : TMenuItem;: TGroupBox;: TMenuItem;: TMenuItem;: TComboBox;: TEdit;: TDBGrid;: TADOTable;: TDataSource;: TADOQuery;: TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TToolButton ;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TADOQuery;: TGroupBox;: TBitBtn;: TBitBtn;: TBitBtn;: TMenuItem;: TMenuItem;: TMenuItem;: TPanel;: TGroupBox;: TComboBox;: TEdit;: TRadioButton;: TRadioButton;: TGroupBox;: TComboBox;: TEdit;: TADOQuery;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TColorDialog;: TProgressBar;: TImage; : TToolBar;: TStatusBar;: TToolButton;: TTabSheet;: TADOTable;: TADOQuery;: TDataSource;: TDBGrid;: TBitBtn;: TGroupBox;: TComboBox;: TEdit;: TRadioButton;: TRadioButton;: TGroupBox;: TComboBox;: TE...
