unit
vhod;
interface
uses
Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl
.
Controls,
IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,
IWDBGrids, Data
.
DB, Data
.
Win
.
ADODB, IWCompEdit, IWCompButton;
type
TIWForm1 =
class
(TIWAppForm)
DataSource1: TDataSource;
ADOTable1: TADOTable;
ADOTable1FIO_specialist: TWideStringField;
ADOTable1login: TWideStringField;
ADOTable1password: TWideStringField;
ADOTable1otdel: TWideStringField;
ADOConnection1: TADOConnection;
IWEdit1: TIWEdit;
IWDBGrid1: TIWDBGrid;
IWButton1: TIWButton;
procedure
IWAppFormCreate(Sender: TObject);
procedure
IWAppFormDestroy(Sender: TObject);
public
end
;
implementation
{$R *.dfm}
procedure
TIWForm1
.
IWAppFormCreate(Sender: TObject);
begin
Adotable1
.
Active:=
True
;
end
;
procedure
TIWForm1
.
IWAppFormDestroy(Sender: TObject);
begin
Adotable1
.
Active:=
False
;
end
;
initialization
TIWForm1
.
SetAsMainForm;
end
.