86
ПРИЛОЖЕНИЕ
Код главного модуля UMain.pas.
unit UMain;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, IniFiles,
UDataModule;
type
TMain = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
private
{ Private declarations }
87
public
{ Public declarations }
end;
var
Main: TMain;
IniFile:TIniFile;
implementation
{$R *.dfm}
uses UDogovora, UKontragenty, UDK, UFilialy, UAuthorise, UBanki, UOPF,
UValuty;
procedure TMain.BitBtn1Click(Sender: TObject);
begin
Dogovora.Show;
end;
procedure TMain.BitBtn2Click(Sender: TObject);
begin
Kontragenty.Show;
end;
procedure TMain.BitBtn3Click(Sender: TObject);
begin
DocKontr.Show;
end;
procedure TMain.BitBtn4Click(Sender: TObject);
begin
88
Filialy.Show;
end;
procedure TMain.BitBtn5Click(Sender: TObject);
begin
Banki.Show;
end;
procedure TMain.BitBtn6Click(Sender: TObject);
begin
Valuty.Show;
end;
procedure TMain.BitBtn7Click(Sender: TObject);
begin
OPF.Show;
end;
procedure TMain.FormShow(Sender: TObject);
var ss:string;
i:integer;
begin
IniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'settings.ini');
DataModule1.ADOConnection1.ConnectionString:=IniFile.ReadString('Server
Info','ConnString', 'Не укащан');
try
DataModule1.ADOConnection1.Connected:=True;
except
ShowMessage('Ошибка подключения!');
exit;
end;
with DataModule1 do
89
begin
TDogovora.Active:=True;
TKlassDog.Active:=True;
TFilial.Active:=True;
TPrihRash.Active:=True;
TKontragent.Active:=True;
TValytu.Active:=True;
TUO.Active:=True;
TStatusy.Active:=True;
TOPF.Active:=True;
TBank.Active:=True;
TDocKontr.Active:=True;
end;
Authorise.ShowModal;
end;
end.