107
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
Grids, DBGrids, ComCtrls, DBCtrls, ExtCtrls, StdCtrls,
Mask, DBCGrids,
Buttons, Menus, ToolWin;
type
TfrNakl = class(TForm)
MainMenu1: TMainMenu;
Panel1: TPanel;
Button1: TButton;
N1: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
ToolBar1: TToolBar;
DBNavigator1: TDBNavigator;
ToolButton1: TToolButton;
CheckBox1: TCheckBox;
DBGrid1: TDBGrid;
Panel2: TPanel;
Panel3: TPanel;
DBText1: TDBText;
DBText2: TDBText;
DBGrid2: TDBGrid;
Bevel1: TBevel;
BitBtn1: TBitBtn;
Bevel2: TBevel;
procedure N5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure CheckBox1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
108
public
{ Public declarations }
end;
var
frNakl: TfrNakl;
implementation
uses uDM1, uDM3;
{$R *.DFM}
procedure TfrNakl.N5Click(Sender: TObject);
begin
Button1.Click;
end;
procedure TfrNakl.Button1Click(Sender: TObject);
begin
close;
end;
procedure TfrNakl.N6Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbFirst);
end;
procedure TfrNakl.N7Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbPrior);
end;
//[nbFirst,nbPrior,nbNext,nbLast,nbInsert,nbDelete,nbEdit,
nbPost,nbCancel,nbRefresh]
procedure TfrNakl.N8Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbNext);
end;
procedure TfrNakl.N9Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbLast);
end;
procedure TfrNakl.N10Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbInsert);
end;
109
procedure TfrNakl.N11Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbEdit);
end;
procedure TfrNakl.N12Click(Sender: TObject);
begin
DBNavigator1.BtnClick(nbDelete);
end;
procedure TfrNakl.DBGrid1TitleClick(Column: TColumn);
begin
//DM1.Nakl_1.IndexFieldNames:=Column.Field.FieldName;
end;
procedure TfrNakl.CheckBox1Click(Sender: TObject);
begin
Panel2.Visible:=CheckBox1.Checked;
end;
procedure TfrNakl.FormShow(Sender: TObject);
begin
if TipNakl=0 then
begin
caption:='Перечень приходных накладных';
BitBtn1.Caption:='Переход к переченю накладных на
отпуск';
DM1.tbNakl_1.Filter:='Tip=0';
DBGrid1.Columns[2].Title.Caption:='Поставщик';
DBGrid1.Columns[2].FieldName:='NamFirm';
end
else
begin
caption:='Перечень накладных на отпуск';
BitBtn1.Caption:='Переход к переченю приходных
накладных';
DM1.tbNakl_1.Filter:='Tip=1';
DBGrid1.Columns[2].Title.Caption:='Получатель';
DBGrid1.Columns[2].FieldName:='NamPodr';
end;
DM1.tbNakl_1.FindFirst;
end;
procedure TfrNakl.BitBtn1Click(Sender: TObject);
begin
TipNakl:=(TipNakl+1)mod 2;
FormShow(Sender);
end;
110
end.
Модуль «Платежка»
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
StdCtrls, DBCtrls, Mask;
type
TForm4 = class(TForm)
Button1: TButton;
Button2: TButton;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
StaticText4: TStaticText;
StaticText5: TStaticText;
StaticText6: TStaticText;
StaticText7: TStaticText;
StaticText8: TStaticText;
StaticText9: TStaticText;
StaticText10: TStaticText;
StaticText11: TStaticText;
StaticText12: TStaticText;
StaticText13: TStaticText;
StaticText14: TStaticText;
StaticText15: TStaticText;
StaticText16: TStaticText;
StaticText17: TStaticText;
StaticText18: TStaticText;
StaticText19: TStaticText;
StaticText20: TStaticText;
StaticText21: TStaticText;
StaticText22: TStaticText;
Edit1: TEdit;
MaskEdit1: TMaskEdit;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
111
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Memo1: TMemo;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1, Unit12;
{$R *.DFM}
procedure TForm4.Button2Click(Sender: TObject);
begin
Form4.Close;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
If Memo1.Lines[0]='' then
begin
Form12.ShowModal;
Exit;
end;
If Form4.ComboBox1.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form4.ComboBox2.Text='' then
112
begin
Form12.ShowModal;
Exit;
end;
If Form4.ComboBox3.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form4.Edit1.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form4.Edit3.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form4.Edit4.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form4.Edit5.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form4.Edit6.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form4.Edit7.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form4.Edit8.Text='' then
begin
Form12.ShowModal;
Exit;
end;
If Form4.Edit9.Text='' then
begin
Form12.ShowModal;
Exit;
end;
113
If Form4.Edit10.Text='' then
begin
Form12.ShowModal;
Exit;
end;
Form1.Table2.Append;
Form1.Table2.FieldByName('V_pl').AsString:=ComboBox1.Text;
Form1.Table2.FieldByName('Provod').AsString:=ComboBox2.Tex
t;
Form1.Table2.FieldByName('Och_pl').AsString:=ComboBox3.Tex
t;
Form1.Table2.FieldByName('Num').AsString:=Edit1.Text;
Form1.Table2.FieldByName('Data').AsDateTime:=StrToDate(Mas
kEdit1.Text);
Form1.Table2.FieldByName('Usl').AsString:=Edit2.Text;
Form1.Table2.FieldByName('Summa').AsString:=Edit3.Text;
Form1.Table2.FieldByName('Summa_p').AsString:=Edit4.Text;
Form1.Table2.FieldByName('Inn_plat').AsString:=Edit5.Text;
Form1.Table2.FieldByName('Plat').AsString:=Edit6.Text;
Form1.Table2.FieldByName('Sch_plat').AsString:=Edit7.Text;
Form1.Table2.FieldByName('Bank_plat').AsString:=Edit8.Text
;
Form1.Table2.FieldByName('Bik_plat').AsString:=Edit9.Text;
Form1.Table2.FieldByName('Korr_plat').AsString:=Edit10.Tex
t;
Form1.Table2.FieldByName('Bank_pol').AsString:=Edit11.Text
;
Form1.Table2.FieldByName('Bik_pol').AsString:=Edit12.Text;
Form1.Table2.FieldByName('Korr_pol').AsString:=Edit13.Text
;
Form1.Table2.FieldByName('Pol').AsString:=Edit14.Text;
Form1.Table2.FieldByName('Sch_pol').AsString:=Edit15.Text;
Form1.Table2.FieldByName('Inn_pol').AsString:=Edit16.Text;
114
Form1.Table2.FieldByName('Naz').AsString:=Memo1.Lines[0]+M
emo1.Lines[1]+
Memo1.Lines[2];
Form1.Table2.Post;
Form1.Table2.IndexName:='numdat_p';
Form4.Close;
end;
procedure TForm4.FormActivate(Sender: TObject);
begin
Form4.ComboBox1.Text:='';
Form4.ComboBox2.Text:='';
Form4.ComboBox3.Text:='';
Form4.MaskEdit1.Text:=DateToStr(Date);
Form4.Edit1.Text:='';
Form4.Edit2.Text:='';
Form4.Edit3.Text:='';
Form4.Edit4.Text:='';
Form4.Edit5.Text:='';
Form4.Edit6.Text:='';
Form4.Edit7.Text:='';
Form4.Edit8.Text:='';
Form4.Edit9.Text:='';
Form4.Edit10.Text:='';
Form4.Memo1.Lines[0]:='';
Form4.Memo1.Lines[1]:='';
Form4.Memo1.Lines[2]:='';
Form1.Table2.IndexName:='_numprix';
Form1.Table2.Last;
Form4.Edit1.Text:=IntToStr(Form1.Table2.FieldByName('Num')
.AsInteger+1);
Form1.Table2.IndexName:='numdat_p';
Form4.Edit11.Text:=Form1.Table1.FieldByName('Bank').AsStri
ng;
Form4.Edit12.Text:=Form1.Table1.FieldByName('Bik').AsStrin
g;
Form4.Edit13.Text:=Form1.Table1.FieldByName('Korr').AsStri
ng;
Form4.Edit14.Text:=Form1.Table1.FieldByName('Naz').AsStrin
g;
Form4.Edit15.Text:=Form1.Table1.FieldByName('Schet').AsStr
ing;
115
Form4.Edit16.Text:=Form1.Table1.FieldByName('Inn').AsStrin
g;
end;
end.
Модуль «Расчеты»
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
StdCtrls, Mask;
type
TForm5 = class(TForm)
Button1: TButton;
Button2: TButton;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
StaticText4: TStaticText;
StaticText5: TStaticText;
StaticText6: TStaticText;
StaticText7: TStaticText;
StaticText8: TStaticText;
StaticText9: TStaticText;
StaticText10: TStaticText;
StaticText11: TStaticText;
StaticText12: TStaticText;
StaticText13: TStaticText;
StaticText14: TStaticText;
StaticText15: TStaticText;
StaticText16: TStaticText;
StaticText17: TStaticText;
StaticText18: TStaticText;
StaticText19: TStaticText;
StaticText20: TStaticText;
StaticText21: TStaticText;
Edit1: TEdit;
MaskEdit1: TMaskEdit;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
116
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Memo1: TMemo;
procedure Button2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit1, Unit12;
{$R *.DFM}
procedure TForm5.Button2Click(Sender: TObject);
begin
Form5.Close;
end;
procedure TForm5.FormActivate(Sender: TObject);
begin
Form5.ComboBox1.Text:='';
Form5.ComboBox2.Text:='';
Form5.ComboBox3.Text:='';
Form5.MaskEdit1.Text:=DateToStr(Date);
Form5.Edit1.Text:='';
Form5.Edit3.Text:='';
Form5.Edit4.Text:='';
Form5.Edit11.Text:='';
Form5.Edit12.Text:='';