117
Form5.Edit13.Text:='';
Form5.Edit14.Text:='';
Form5.Edit15.Text:='';
Form5.Edit16.Text:='';
Form5.Memo1.Lines[0]:='';
Form5.Memo1.Lines[1]:='';
Form5.Memo1.Lines[2]:='';
Form1.Table3.IndexName:='_numrasx';
Form1.Table3.Last;
Form5.Edit1.Text:=IntToStr(Form1.Table3.FieldByName('Num')
.AsInteger+1);
Form1.Table3.IndexName:='numdat_r';
Form5.Edit5.Text:=Form1.Table1.FieldByName('Inn').AsString
;
Form5.Edit6.Text:=Form1.Table1.FieldByName('Naz').AsString
;
Form5.Edit7.Text:=Form1.Table1.FieldByName('Schet').AsStri
ng;
Form5.Edit8.Text:=Form1.Table1.FieldByName('Bank').AsStrin
g;
Form5.Edit9.Text:=Form1.Table1.FieldByName('Bik').AsString
;
Form5.Edit10.Text:=Form1.Table1.FieldByName('Korr').AsStri
ng;
end;
procedure TForm5.Button1Click(Sender: TObject);
begin
If Memo1.Lines[0]='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.ComboBox1.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.ComboBox2.Text='' then
begin
Form12.ShowModal;
Exit;
118
end;
If Form5.ComboBox3.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit1.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit3.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit4.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit11.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit12.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit13.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit14.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit15.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form5.Edit16.Text='' then
begin
Form12.ShowModal;
119
Exit;
end;
Form1.Table3.Append;
Form1.Table3.FieldByName('V_pl').AsString:=ComboBox1.Text;
Form1.Table3.FieldByName('Provod').AsString:=ComboBox2.Tex
t;
Form1.Table3.FieldByName('Och_pl').AsString:=ComboBox3.Tex
t;
Form1.Table3.FieldByName('Num').AsString:=Edit1.Text;
Form1.Table3.FieldByName('Data').AsDateTime:=StrToDate(Mas
kEdit1.Text);
Form1.Table3.FieldByName('Summa').AsString:=Edit3.Text;
Form1.Table3.FieldByName('Summa_p').AsString:=Edit4.Text;
Form1.Table3.FieldByName('Inn_plat').AsString:=Edit5.Text;
Form1.Table3.FieldByName('Plat').AsString:=Edit6.Text;
Form1.Table3.FieldByName('Sch_plat').AsString:=Edit7.Text;
Form1.Table3.FieldByName('Bank_plat').AsString:=Edit8.Text
;
Form1.Table3.FieldByName('Bik_plat').AsString:=Edit9.Text;
Form1.Table3.FieldByName('Korr_plat').AsString:=Edit10.Tex
t;
Form1.Table3.FieldByName('Bank_pol').AsString:=Edit11.Text
;
Form1.Table3.FieldByName('Bik_pol').AsString:=Edit12.Text;
Form1.Table3.FieldByName('Korr_pol').AsString:=Edit13.Text
;
Form1.Table3.FieldByName('Pol').AsString:=Edit14.Text;
Form1.Table3.FieldByName('Sch_pol').AsString:=Edit15.Text;
Form1.Table3.FieldByName('Inn_pol').AsString:=Edit16.Text;
Form1.Table3.FieldByName('Naz').AsString:=Memo1.Lines[0]+M
emo1.Lines[1]+Memo1.Lines[2];
Form1.Table3.Post;
Form1.Table3.IndexName:='numdat_r';
Form5.Close;
120
end;
end.
Модуль «Контроль»
unit uDog;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
Grids, DBGrids, ExtCtrls, DBCtrls, ToolWin, ComCtrls,
Menus, DB, Buttons;
type
TfrDog = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
ToolBar1: TToolBar;
DBNavigator1: TDBNavigator;
DBGrid1: TDBGrid;
Bevel1: TBevel;
SpeedButton1: TSpeedButton;
Bevel2: TBevel;
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
121
end;
var
frDog: TfrDog;
implementation
uses uDM3;
{$R *.DFM}
procedure TfrDog.N2Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbFirst);
end;
procedure TfrDog.N3Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbPrior);
end;
procedure TfrDog.N4Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbNext);
end;
procedure TfrDog.N5Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbLast);
end;
procedure TfrDog.N7Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbInsert);
end;
procedure TfrDog.N8Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbEdit);
end;
procedure TfrDog.N9Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbDelete);
end;
procedure TfrDog.N10Click(Sender: TObject);
begin
Close;
122
end;
end.
Модуль «О программе».
unit uAbout;
interface
uses Windows, SysUtils, Classes, Graphics, Forms,
Controls, StdCtrls,
Buttons, ExtCtrls;
type
TAboutBox = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
Comments: TLabel;
OKButton: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
{$R *.DFM}
end.
Модуль «Модуль данных».
unit uDM3;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
Db, DBTables;
123
type
TDM3 = class(TDataModule)
Database1: TDatabase;
Table1: TTable;
Table2: TTable;
Table3: TTable;
Table4: TTable;
Table5: TTable;
Table6: TTable;
Table7: TTable;
Table8: TTable;
Table9: TTable;
ds1: TDataSource;
ds2: TDataSource;
ds3: TDataSource;
ds4: TDataSource;
ds5: TDataSource;
ds6: TDataSource;
ds7: TDataSource;
ds8: TDataSource;
ds9: TDataSource;
lookup1: TTable;
Table9Kod: TAutoIncField;
Table9NamTov: TStringField;
Table9EdIzm: TStringField;
Table9OptCena: TFloatField;
Table9RoznCena: TFloatField;
Table3Kod: TAutoIncField;
Table3Nam: TStringField;
Table3Adres: TStringField;
Table3Tel: TIntegerField;
Table3Rs: TIntegerField;
Table3KorS: TIntegerField;
Table3Bank: TStringField;
Table1Kod: TAutoIncField;
Table1Num: TStringField;
Table1Data: TDateField;
Table1Tip: TSmallintField;
Table1KodFirm: TIntegerField;
Table1NamFirm: TStringField;
Table1NamTip: TSmallintField;
Table8KodDog: TIntegerField;
Table8KodTov: TIntegerField;
Table8Kol_vo: TSmallintField;
Table8Cena: TFloatField;
lookup5: TTable;
lookup2: TTable;
lookup3: TTable;
124
lookup4: TTable;
Table1Sum: TFloatField;
Table1Oplata: TFloatField;
lookup6: TTable;
dsL6: TDataSource;
lookup6KodNakl: TIntegerField;
lookup6KodTov: TIntegerField;
lookup6Kol_vo: TSmallintField;
lookup6Cena: TFloatField;
lookup6Sum: TFloatField;
lookup6NamTov: TStringField;
lookup6Ed: TStringField;
Table5Kod: TAutoIncField;
Table5Num: TSmallintField;
Table5Data: TDateField;
Table5KodFirm: TIntegerField;
Table5Tip: TSmallintField;
Table5Sum: TFloatField;
Table5NamFirm: TStringField;
Table10: TTable;
ds10: TDataSource;
Table10KodNakl: TIntegerField;
Table10KodTov: TIntegerField;
Table10Kol_vo: TSmallintField;
Table10Cena: TFloatField;
Table10Sum: TFloatField;
Table10NamTov: TStringField;
Table10Izmer: TStringField;
procedure Table9AfterInsert(DataSet: TDataSet);
procedure Table3AfterInsert(DataSet: TDataSet);
procedure Table1CalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM3: TDM3;
RabDate: TDateTime;
implementation
uses uWTov, uWFirm;
{$R *.DFM}
procedure TDM3.Table9AfterInsert(DataSet: TDataSet);
begin
125
if frWTov.ShowModal=mrOk then
Table9.Post
else
Table9.Cancel;
end;
procedure TDM3.Table3AfterInsert(DataSet: TDataSet);
begin
if frWFirm.ShowModal=mrOk then
Table3.Post
else
Table3.Cancel;
end;
procedure TDM3.Table1CalcFields(DataSet: TDataSet);
begin
if Table1Tip.AsInteger>0 then
Table1NamTip.AsString:='Покупка'
else
Table1NamTip.AsString:='Продажа';
end;
end.