Вихідний текст модулів системи

unit main_menu; // Головна форма

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, ExtCtrls, ComCtrls, jpeg, ImgList, DB, ADOTable,comobj,

Grids, DBGrids;

type

Tmain = class (TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

Timer1: TTimer;

StatusBar1: TStatusBar;

N15: TMenuItem;

N16: TMenuItem;

N2: TMenuItem;

N5: TMenuItem;

N10: TMenuItem;

N9: TMenuItem;

N14: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

N24: TMenuItem;

ImageList1: TImageList;

ADOQuery1: TADOQuery;

ADOQuery1name_groop: TStringField;

ADOQuery1name_tov: TStringField;

ADOQuery1ed: TStringField;

ADOQuery1price_otp: TCurrencyField;

ADOQuery2: TADOQuery;

ADOQuery2name_groop: TStringField;

ADOQuery2name_tov: TStringField;

ADOQuery2ed: TStringField;

ADOQuery2price: TCurrencyField;

ADOQuery2kol: TLargeintField;

ADOQuery2price_otp: TCurrencyField;

DataSource1: TDataSource;

procedure N4Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure Timer1Timer (Sender: TObject);

procedure N16Click (Sender: TObject);

procedure N12Click (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N17Click (Sender: TObject);

procedure N24Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N23Click (Sender: TObject);

procedure N19Click (Sender: TObject);

procedure N20Click (Sender: TObject);

procedure N21Click (Sender: TObject);

procedure N22Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

main: Tmain;

tov: boolean;

E,workbook,cell,range,cell1,cell2: VARIANT;

kn: integer;

implementation

uses sotr, kontr, tov, ostat, prihody, nakl, Unit1, Unit2, Unit54, Unit3,Unit4,unit53, Unit5;

{$R *. dfm}

procedure Tmain. N4Click (Sender: TObject);

begin

fl_t: =false;

tovar. BitBtn2. Visible: =false;

tovar. BitBtn3. Visible: =true;

tovar. BitBtn5. Visible: =true;

tovar. DBGrid2. ReadOnly: =false;

tovar. DBNavigator1. Enabled: =true;

tovar. Showmodal

end;

procedure Tmain. N3Click (Sender: TObject);

begin

karta. Caption: ='Карточка контрагента';

kontrag. Show

end;

procedure Tmain. N5Click (Sender: TObject);

begin

fl_prod: =false;

Ostatki. BitBtn1. visible: =true;

Ostatki. BitBtn2. Caption: =Вихід

end;

procedure Tmain. N8Click (Sender: TObject);

begin

red_r: =false;

n_rashod. DBGrid1. ReadOnly: =false;

n_rashod. FloatEdit1. ReadOnly: =false;

n_rashod. BitBtn1. Enabled: =true;

n_rashod. BitBtn2. Enabled: =true;

n_rashod. showmodal

end;

procedure Tmain. Timer1Timer (Sender: TObject);

begin

StatusBar1. Panels [1]. Text: =TimeToStr (Time);

end;

procedure Tmain. N16Click (Sender: TObject);

begin

Close

end;

procedure Tmain. N12Click (Sender: TObject);

begin

winhelp (main. Handle, 'help. hlp', HELP_CONTEXT, 1);

end;

procedure Tmain. N14Click (Sender: TObject);

begin

prihod. show

end;

procedure Tmain. N7Click (Sender: TObject);

begin

red: =false;

Nakladnaya_p. DBGrid1. ReadOnly: =false;

Nakladnaya_p. FloatEdit1. ReadOnly: =false;

Nakladnaya_p. BitBtn1. Enabled: =true;

Nakladnaya_p. BitBtn2. Enabled: =true;

Nakladnaya_p. Enabled: =true;

Nakladnaya_p. ShowModal

end;

procedure Tmain. N17Click (Sender: TObject);

begin

rashod. ShowModal;

end;

procedure Tmain. N24Click (Sender: TObject);

begin

vibor: =false;

sp_bank. DBGrid1. ReadOnly: =false;

sp_bank. ShowModal

end;

procedure Tmain. N10Click (Sender: TObject);

begin

sp_gr. ShowModal

end;

procedure Tmain. N19Click (Sender: TObject);

var i,j: integer;

r: string;

begin

ADOquery1. Active: =false;

ADOquery1. Active: =true;

E: =cREATEoLEoBJECT ('Excel. Application');

workbook: =e. workbooks. add;

SetMergeCells (1,'A1: C1',true);

cell: =workbook. worksheets [1]. cells [1,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. rowheight: =50;

range. font. size: =20;

range. font. bold: =true;

range. font. color: =clRed;

range. value: ='Прайс-лист от '+datetostr (date);;

i: =3;

for j: =1 to 3 do

case j of

1: begin cell: =workbook. worksheets [1]. cells [i,j];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. columnwidth: =75;

range. font. bold: =true;

range. interior. color: =rgb (160,240,240);;

range. borders. linestyle: =1;

range. borders. weight: =3;

range. value: ='Найменування';

end;

2: begin cell: =workbook. worksheets [1]. cells [i,j];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. columnwidth: =10;

range. font. bold: =true;

range. interior. color: =rgb (160,240,240);;

range. borders. linestyle: =1;

range. borders. weight: =3;

range. value: ='Од. вим. ';

end;

3: begin cell: =workbook. worksheets [1]. cells [i,j];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. columnwidth: =20;

range. font. bold: =true;

range. interior. color: =rgb (160,240,240);;

range. borders. linestyle: =1;

range. borders. weight: =3;

range. value: ='Ціна';

end;

end;

ADOquery1. First;

SetMergeCells (1,'A4: C4',true);

cell: =workbook. worksheets [1]. cells [4,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. font. bold: =true;

range. value: =ADOquery1name_groop. AsString;

r: =ADOquery1name_groop. AsString;

i: =i+1;

while not ADOquery1. Eof do

begin

i: =i+1;

if r<>ADOquery1name_groop. AsString then

begin

SetMergeCells (1,'A'+inttostr (i) +': C'+inttostr (i),true);

cell: =workbook. worksheets [1]. cells [i,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. font. bold: =true;

range. value: =ADOquery1name_groop. AsString;

i: =i+1;

end;

r: =ADOquery1name_groop. AsString;

cell: =workbook. worksheets [1]. cells [i,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOquery1name_tov. asstring;

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,2];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOQuery1ed. asstring;

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,3];

range: =workbook. worksheets [1]. range [cell,cell];

range. numberformat: ='_-* # ##0,00 грн. _-; - * # ##0,00 грн. _-; _-* "-"?? грн. _-; _-@_-';

range. value: =ADOQuery1price_otp. AsFloat;

range. borders. linestyle: =1;

range. borders. weight: =2;

ADOquery1. Next;

end;

e. visible: =true;

end;

procedure Tmain. N20Click (Sender: TObject);

var i,j: integer;

sum1,sum2: real;

r: string;

begin

ADOquery2. Active: =false;

ADOquery2. Active: =true;

E: =cREATEoLEoBJECT ('Excel. Application');

workbook: =e. workbooks. add;

SetMergeCells (1,'A1: E1',true);

cell: =workbook. worksheets [1]. cells [1,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. rowheight: =50;

range. font. size: =20;

range. font. bold: =true;

range. font. color: =clRed;

range. value: ='Звіт "Товари на складі" от '+datetostr (date);;

i: =3;

for j: =1 to 5 do

case j of

1: begin cell: =workbook. worksheets [1]. cells [i,j];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. columnwidth: =55;

range. font. bold: =true;

range. interior. color: =rgb (160,240,240);;

range. borders. linestyle: =1;

range. borders. weight: =3;

range. value: ='Найменування';

end;

2: begin cell: =workbook. worksheets [1]. cells [i,j];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. columnwidth: =10;

range. font. bold: =true;

range. interior. color: =rgb (160,240,240);;

range. borders. linestyle: =1;

range. borders. weight: =3;

range. value: ='Од. вим. ';

end;

3: begin cell: =workbook. worksheets [1]. cells [i,j];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. columnwidth: =10;

range. font. bold: =true;

range. interior. color: =rgb (160,240,240);;

range. borders. linestyle: =1;

range. borders. weight: =3;

range. value: ='Кіл. ';

end;

4: begin cell: =workbook. worksheets [1]. cells [i,j];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. columnwidth: =20;

range. font. bold: =true;

range. interior. color: =rgb (160,240,240);;

range. borders. linestyle: =1;

range. borders. weight: =3;

range. value: ='Ціна закуп., грн';

end;

5: begin cell: =workbook. worksheets [1]. cells [i,j];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. columnwidth: =20;

range. font. bold: =true;

range. interior. color: =rgb (160,240,240);;

range. borders. linestyle: =1;

range. borders. weight: =3;

range. value: ='Сума';

end;

end;

ADOquery2. First;

SetMergeCells (1,'A4: E4',true);

cell: =workbook. worksheets [1]. cells [4,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. font. bold: =true;

range. value: =ADOquery2name_groop. AsString;

r: =ADOquery2name_groop. AsString;

i: =i+1;

sum1: =0; sum2: =0;

ADOquery2. First;

while not ADOquery2. Eof do

begin

i: =i+1;

if r<>ADOquery2name_groop. AsString then

begin

SetMergeCells (1,'A'+inttostr (i) +': D'+inttostr (i),true);

cell: =workbook. worksheets [1]. cells [i,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. verticalalignment: =-4108;

range. font. bold: =true;

range. borders. linestyle: =1;

range. borders. weight: =2;

range. value: ='Всього';

cell: =workbook. worksheets [1]. cells [i,5];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. font. bold: =true;

range. numberformat: ='_-* # ##0,00 грн. _-; - * # ##0,00 грн. _-; _-* "-"?? грн. _-; _-@_-';

range. borders. linestyle: =1;

range. borders. weight: =2;

range. value: =sum1;

sum2: =sum2+sum1;

sum1: =0;

cell: =workbook. worksheets [1]. cells [i,2];

range: =workbook. worksheets [1]. range [cell,cell];

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,3];

range: =workbook. worksheets [1]. range [cell,cell];

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,4];

range: =workbook. worksheets [1]. range [cell,cell];

range. borders. linestyle: =1;

range. borders. weight: =2;

i: =i+1;

SetMergeCells (1,'A'+inttostr (i) +': E'+inttostr (i),true);

cell: =workbook. worksheets [1]. cells [i,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. font. bold: =true;

range. borders. linestyle: =1;

range. borders. weight: =2;

range. value: =ADOquery2name_groop. AsString;

i: =i+1;

end;

r: =ADOquery2name_groop. AsString;

cell: =workbook. worksheets [1]. cells [i,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOquery2name_tov. asstring;

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,2];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOQuery2ed. asstring;

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,3];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOQuery2kol. AsInteger;

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,4];

range: =workbook. worksheets [1]. range [cell,cell];

range. numberformat: ='_-* # ##0,00 грн. _-; - * # ##0,00 грн. _-; _-* "-"?? грн. _-; _-@_-';

range. value: =ADOQuery2price. AsFloat;

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,5];

range: =workbook. worksheets [1]. range [cell,cell];

range. numberformat: ='_-* # ##0,00 грн. _-; - * # ##0,00 грн. _-; _-* "-"?? грн. _-; _-@_-';

range. value: =ADOQuery2price. AsFloat*ADOquery2kol. AsInteger;

range. borders. linestyle: =1;

range. borders. weight: =2;

sum1: =sum1+ADOquery2price. AsFloat*ADOquery2kol. AsInteger;

ADOquery2. Next;

end;

i: =i+1;

SetMergeCells (1,'A'+inttostr (i) +': D'+inttostr (i),true);

cell: =workbook. worksheets [1]. cells [i,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. verticalalignment: =-4108;

range. font. bold: =true;

range. borders. linestyle: =1;

range. borders. weight: =2;

range. value: ='Итого';

cell: =workbook. worksheets [1]. cells [i,5];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. font. bold: =true;

range. numberformat: ='_-* # ##0,00 грн. _-; - * # ##0,00 грн. _-; _-* "-"?? грн. _-; _-@_-';

range. borders. linestyle: =1;

range. borders. weight: =2;

range. value: =sum1;

i: =i+1;

SetMergeCells (1,'A'+inttostr (i) +': D'+inttostr (i),true);

cell: =workbook. worksheets [1]. cells [i,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. verticalalignment: =-4108;

range. font. bold: =true;

range. borders. linestyle: =1;

range. borders. weight: =2;

range. value: ='Всього по складу';

cell: =workbook. worksheets [1]. cells [i,5];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. font. bold: =true;

range. numberformat: ='_-* # ##0,00 грн. _-; - * # ##0,00 грн. _-; _-* "-"?? грн. _-; _-@_-';

range. borders. linestyle: =1;

range. borders. weight: =2;

sum2: =sum2+sum1;

range. value: =sum2;

cell: =workbook. worksheets [1]. cells [i,2];

range: =workbook. worksheets [1]. range [cell,cell];

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,3];

range: =workbook. worksheets [1]. range [cell,cell];

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,4];

range: =workbook. worksheets [1]. range [cell,cell];

range. borders. linestyle: =1;

range. borders. weight: =2;

e. visible: =true;

end;

procedure Tmain. N21Click (Sender: TObject);

begin

kn: =1;

v_date. ShowModal

end;

procedure Tmain. N22Click (Sender: TObject);

begin

kn: =2;

v_date. ShowModal

end;

end.

unit kontr; // "Довідник контрагентів"

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, ADOTable, Grids, DBGrids, Buttons, ExtCtrls;

type

Tkontrag = class (TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOTable1: TADOTable;

ADOTable1name_kontr: TStringField;

ADOTable1adress_kontr: TStringField;

ADOTable1phone_kontr: TStringField;

ADOTable1type: TStringField;

ADOTable1inn: TStringField;

ADOTable1nns: TStringField;

ADOTable1edrp: TStringField;

ADOTable1dir: TStringField;

ADOTable1buh: TStringField;

ADOTable1n_pasp: TStringField;

ADOTable1date_pasp: TDateField;

ADOTable1v_pasp: TStringField;

ADOTable1schet1: TStringField;

ADOTable1kod_b1: TSmallintField;

ADOTable1schet2: TStringField;

ADOTable1kod_b2: TSmallintField;

ADOTable1schet3: TStringField;

ADOTable1kod_b3: TSmallintField;

ADOTable1kod_kontr: TAutoIncField;

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

GroupBox1: TGroupBox;

Edit1: TEdit;

BitBtn4: TBitBtn;

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

procedure Edit1Change (Sender: TObject);

procedure BitBtn4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

kontrag: Tkontrag;

f: boolean;

implementation

uses add_kontrag, Unit4;

{$R *. dfm}

procedure Tkontrag. BitBtn1Click (Sender: TObject);

begin

ADOTable1. Insert;

f: =false; // /dobavit

karta. showmodal;

end;

procedure Tkontrag. BitBtn2Click (Sender: TObject);

begin

ADOTable1. Edit;

f: =true;

karta. ShowModal;

end;

procedure Tkontrag. BitBtn3Click (Sender: TObject);

begin

if MessageDlg ('Вы уверены в том, что хотите удалить'+

QuotedStr (ADOTable1. FieldByName ('name_kontr'). AsString) +

'? ',mtConfirmation, [mbYes,mbNo],0) = mrYes then

ADOTable1. Delete;

end;

procedure Tkontrag. Edit1Change (Sender: TObject);

begin

ADOtable1. Locate ('name_kontr',edit1. Text, [loCaseInsensitive,loPartialKey]);

end;

procedure Tkontrag. BitBtn4Click (Sender: TObject);

begin

close

end;

end.

unit Unit4; // "Карточка контрагента"

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, ComCtrls, Buttons,kontr;

type

Tkarta = class (TForm)

Label1: TLabel;

Label2: TLabel;

DBEdit1: TDBEdit;

ComboBox1: TComboBox;

GroupBox1: TGroupBox;

DBEdit2: TDBEdit;

Label3: TLabel;

Label11: TLabel;

DBEdit10: TDBEdit;

Label12: TLabel;

DBEdit11: TDBEdit;

GroupBox2: TGroupBox;

Label13: TLabel;

DBEdit12: TDBEdit;

Label14: TLabel;

DBEdit13: TDBEdit;

GroupBox3: TGroupBox;

Label15: TLabel;

DBEdit14: TDBEdit;

Label16: TLabel;

DBComboBox1: TDBComboBox;

DateTimePicker1: TDateTimePicker;

GroupBox4: TGroupBox;

ListBox1: TListBox;

BitBtn1: TBitBtn;

Label4: TLabel;

GroupBox5: TGroupBox;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

BitBtn4: TBitBtn;

Label5: TLabel;

Label6: TLabel;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

procedure FormShow (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure ListBox1Click (Sender: TObject);

procedure ComboBox1Change (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure FormCloseQuery (Sender: TObject; var CanClose: Boolean);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

procedure BitBtn4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

karta: Tkarta;

prizn,flag: boolean;

implementation

uses Unit53;

{$R *. dfm}

procedure Tkarta. FormShow (Sender: TObject);

begin

bitbtn1. Enabled: =false;

Listbox1. Items. Clear;

if kontrag. ADOTable1schet1. AsString<>'' then

listbox1. Items. Add ('Р/р № '+kontrag. ADOTable1schet1. AsString);

if kontrag. ADOTable1schet2. AsString<>'' then

listbox1. Items. Add ('Р/р № '+ kontrag. ADOTable1Schet2. AsString);

if kontrag. ADOTable1schet3. AsString<>'' then

listbox1. Items. Add ('Р/р № '+kontrag. ADOTable1Schet3. AsString);

if kontrag. ADOTable1Date_pasp. AsDateTime<> strtodate ('30.12.1899') then

datetimepicker1. Date: =kontrag. ADOTable1Date_pasp. AsDateTime

else datetimepicker1. Date: =date;

if kontrag. ADOTable1TyPe. AsString='О'

then combobox1. ItemIndex: =0

else combobox1. ItemIndex: =1;

combobox1change (sender);

end;

procedure Tkarta. BitBtn1Click (Sender: TObject);

begin

bank_rekv. ShowModal;

end;

procedure Tkarta. ListBox1Click (Sender: TObject);

begin

bitbtn1. Enabled: =true;

end;

procedure Tkarta.comboBox1Change (Sender: TObject);

begin

if combobox1. ItemIndex=0 then

begin

groupbox2. Visible: =true;

groupbox3. Visible: =false;

label12. Caption: ='ЕДРПОУ'

end else

begin

groupbox3. Visible: =true;

groupbox2. Visible: =false;

label12. Caption: ='ДРФО'

end;

end;

procedure Tkarta. FormClose (Sender: TObject; var Action: TCloseAction);

begin

if flag=true then begin

case combobox1. ItemIndex of

0: kontrag. ADOTable1TyPe. AsString: ='О';

1: kontrag. ADOTable1TyPe. AsString: ='Ч';

end;

kontrag. ADOTable1Date_pasp. AsDateTime: =datetimepicker1. Date;

kontrag. ADOTable1. Post;

end

else if f=false then kontrag. ADOTable1. Delete;

end;

procedure Tkarta. FormCloseQuery (Sender: TObject; var CanClose: Boolean);

begin

if (dbedit1. Text='') and (flag=true) then

begin

showmessage ('Введіть найменування контрагента! ');

canclose: =false;

end;

end;

procedure Tkarta. BitBtn2Click (Sender: TObject);

begin

flag: =false;

close

end;

procedure Tkarta. BitBtn3Click (Sender: TObject);

begin

flag: =true;

close

end;

procedure Tkarta. BitBtn4Click (Sender: TObject);

begin

if listbox1. Items. Count<3 then

begin

listbox1. Items. Add ('');

listbox1. ItemIndex: =listbox1. Items. Count-1;

end else begin showmessage ('Можно ввести лише три номера рахунку! '); exit; end;

bank_rekv. Edit1. Text: ='';

bank_rekv. ShowModal;

end;

end.

unit Unit53; // "Банківські реквізити"

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, Buttons;

type

Tbank_rekv = class (TForm)

GroupBox1: TGroupBox;

DBEdit1: TDBEdit;

Label1: TLabel;

Label2: TLabel;

BitBtn1: TBitBtn;

Edit1: TEdit;

procedure BitBtn1Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

bank_rekv: Tbank_rekv;

vibor: boolean;

implementation

uses Unit54, Unit4, kontr;

{$R *. dfm}

procedure Tbank_rekv. BitBtn1Click (Sender: TObject);

begin

sp_bank. DBGrid1. ReadOnly: =true;

vibor: =true;

sp_bank. ShowModal

end;

procedure Tbank_rekv. FormShow (Sender: TObject);

begin

dbedit1. SetFocus;

case karta. ListBox1. ItemIndex of

0: begin

dbedit1. DataField: ='schet1';

if sp_bank. ADOTable1. Locate ('kod_b',kontrag. ADOTable1kod_b1. AsInteger, [])

then edit1. Text: =sp_bank. ADOTable1name_b. AsString

else edit1. Text: ='';

end;

1: begin dbedit1. DataField: ='schet2';

if sp_bank. ADOTable1. Locate ('kod_b',kontrag. ADOTable1kod_b2. AsInteger, [])

then edit1. Text: =sp_bank. ADOTable1name_b. AsString

else edit1. Text: ='';

end;

2: begin

dbedit1. DataField: ='schet3';

if sp_bank. ADOTable1. Locate ('kod_b',kontrag. ADOTable1kod_b3. AsInteger, [])

then edit1. Text: =sp_bank. ADOTable1name_b. AsString

else edit1. Text: ='';

end;

end;

end;

procedure Tbank_rekv. FormClose (Sender: TObject; var Action: TCloseAction);

begin

with karta do

begin

Listbox1. Items. Clear;

kontrag. ADOTable1. post;

kontrag. ADOTable1. Edit;

if kontrag. ADOTable1schet1. AsString<>'' then

listbox1. Items. Add ('Р/р№ '+kontrag. ADOTable1schet1. AsString);

if kontrag. ADOTable1schet2. AsString<>'' then

listbox1. Items. Add ('Р/р № '+ kontrag. ADOTable1Schet2. AsString);

if kontrag. ADOTable1schet3. AsString<>'' then

listbox1. Items. Add ('Р/р № '+kontrag. ADOTable1Schet3. AsString);

end;

end;

end.

unit Unit54; // "Довідник банків"

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, ADOTable;

type

Tsp_bank = class (TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOTable1: TADOTable;

ADOTable1name_b: TStringField;

ADOTable1mfo: TStringField;

ADOTable1egrpou: TStringField;

ADOTable1kod_b: TAutoIncField;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

sp_bank: Tsp_bank;

implementation

uses Unit53, Unit4, kontr;

{$R *. dfm}

procedure Tsp_bank. FormClose (Sender: TObject; var Action: TCloseAction);

begin

if vibor then

begin

case karta. ListBox1. ItemIndex of

0: kontrag. ADOTable1Kod_b1. AsInteger: =ADOTable1Kod_b. asinteger;

1: kontrag. ADOTable1Kod_b2. AsInteger: =ADOTable1Kod_b. asinteger;

2: kontrag. ADOTable1Kod_b3. AsInteger: =ADOTable1Kod_b. asinteger;

end;

bank_rekv. Edit1. Text: =ADOTable1Name_b. AsString;

end else

if ADOtable1. Modified= true then

ADOtable1. Post;

end;

end.

unit tov; // "Довідник товарів"

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADOTable, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls,

DBCtrls,nakl;

type

Ttovar = class (TForm)

DataSource1: TDataSource;

DataSource2: TDataSource;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

ADOTable1name_groop: TStringField;

ADOTable1kod_groop: TAutoIncField;

Button1: TButton;

ADOTable2name_tov: TStringField;

ADOTable2price: TCurrencyField;

ADOTable2ed: TStringField;

ADOTable2kod_groop: TIntegerField;

ADOTable2kod_tov: TAutoIncField;

Panel1: TPanel;

DBGrid1: TDBGrid;

Panel2: TPanel;

DBNavigator1: TDBNavigator;

DBGrid2: TDBGrid;

Panel3: TPanel;

ADOTable2price_otp: TCurrencyField;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

procedure FormCloseQuery (Sender: TObject; var CanClose: Boolean);

procedure BitBtn4Click (Sender: TObject);

// procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

tovar: Ttovar;

implementation

uses add_tov, prihody, Unit3;

{$R *. dfm}

procedure Ttovar. BitBtn1Click (Sender: TObject);

begin

close

end;

procedure Ttovar. BitBtn2Click (Sender: TObject);

begin

close

end;

procedure Ttovar. BitBtn3Click (Sender: TObject);

begin

if MessageDlg ('Ви впевнені в тому, що хочете видалити запис? ',mtConfirmation, [mbYes,mbNo],0) = mrYes then

ADOTable2. Delete;

end;

procedure Ttovar. FormCloseQuery (Sender: TObject; var CanClose: Boolean);

begin

if fl_t then

begin

Nakladnaya_p. ADOTable1kod_tov. AsInteger: =ADOtable2kod_tov. AsInteger;

Nakladnaya_p. ADOTable1. Post;

end;

end;

procedure Ttovar. BitBtn4Click (Sender: TObject);

begin

sp_gr. ShowModal;

end;

end.

unit ostat; // "Товари на складі"

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, ADOTable, Grids, DBGrids, ExtCtrls, ComCtrls,

Buttons, DBCtrls, FloatEdit;

type

TOstatki = class (TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DBGrid2: TDBGrid;

DataSource1: TDataSource;

ADOTable2: TADOTable;

ADOTable2name_groop: TStringField;

ADOTable2kod_groop: TAutoIncField;

ADOTable1: TADOTable;

ADOTable1name_tov: TStringField;

ADOTable1ed: TStringField;

ADOTable1price: TCurrencyField;

ADOTable1price_otp: TCurrencyField;

ADOTable1kod_groop: TIntegerField;

ADOTable1kod_tov: TAutoIncField;

DataSource2: TDataSource;

ADOTable1kol: TLargeintField;

FloatEdit1: TFloatEdit;

Label1: TLabel;

ADOQuery1: TADOQuery;

procedure BitBtn2Click (Sender: TObject);

procedure FormCloseQuery (Sender: TObject; var CanClose: Boolean);

procedure BitBtn1Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Ostatki: TOstatki;

implementation

uses Unit1, nakl,main_menu;

{$R *. dfm}

procedure TOstatki. BitBtn2Click (Sender: TObject);

begin

Close

end;

procedure TOstatki. FormCloseQuery (Sender: TObject; var CanClose: Boolean);

begin

if fl_prod =true then

begin

n_rashod. ADOTable1kod_tov. AsInteger: =ADOtable1kod_tov. AsInteger;

n_rashod. ADOTable1. Post;

end;

end;

procedure TOstatki. BitBtn1Click (Sender: TObject);

begin

main. N20Click (Sender);

end;

procedure TOstatki. FormShow (Sender: TObject);

begin

ADOtable1. Active: =false;

ADOtable1. Active: =true;

ADOtable2. Active: =false;

ADOtable2. Active: =true;

ADOtable1. First;

floatedit1. Value: =0;

while not ADOtable1. Eof do

begin

floatedit1. Value: =floatedit1. Value+ADOtable1price. AsFloat*ADOtable1kol. AsInteger;

ADOtable1. Next;

end;

end;

end.

unit nakl; // "Закупка товарів"

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, DB, ADOTable,

Mask, DBCtrls,kontr, FloatEdit, ExtCtrls;

type

TNakladnaya_p = class (TForm)

DBGrid1: TDBGrid;

ADOTable1: TADOTable;

DataSource1: TDataSource;

ADOTable1kol: TIntegerField;

ADOTable1ID: TAutoIncField;

ADOTable1kod_tov: TIntegerField;

ADOTable1No_doc: TIntegerField;

ADOTable1cena: TCurrencyField;

DataSource2: TDataSource;

ADOTable2: TADOTable;

ADOTable2date_doc: TDateField;

ADOTable2kod_kontr: TIntegerField;

ADOTable2summa: TCurrencyField;

ADOTable1kod_kat: TSmallintField;

ADOTable2No_doc: TLargeintField;

ADOTable4: TADOTable;

ADOTable4name_kontr: TStringField;

ADOTable4adress_kontr: TStringField;

ADOTable4phone_kontr: TStringField;

ADOTable4type: TStringField;

ADOTable4inn: TStringField;

ADOTable4nns: TStringField;

ADOTable4edrp: TStringField;

ADOTable4dir: TStringField;

ADOTable4buh: TStringField;

ADOTable4n_pasp: TStringField;

ADOTable4date_pasp: TDateField;

ADOTable4v_pasp: TStringField;

ADOTable4schet1: TStringField;

ADOTable4kod_b1: TSmallintField;

ADOTable4schet2: TStringField;

ADOTable4kod_b2: TSmallintField;

ADOTable4schet3: TStringField;

ADOTable4kod_b3: TSmallintField;

ADOTable4kod_kontr: TAutoIncField;

ADOTable2doc: TStringField;

Panel1: TPanel;

Label1: TLabel;

Label4: TLabel;

ComboBox4: TComboBox;

DateTimePicker1: TDateTimePicker;

DBEdit1: TDBEdit;

Panel2: TPanel;

BitBtn1: TBitBtn;

FloatEdit1: TFloatEdit;

Label7: TLabel;

Label2: TLabel;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

ADOTable1nt: TStringField;

ADOTable1cena_ed: TCurrencyField;

ADOTable1ed: TStringField;

procedure ComboBox2KeyPress (Sender: TObject; var Key: Char);

procedure ComboBox3KeyPress (Sender: TObject; var Key: Char);

procedure ComboBox4KeyPress (Sender: TObject; var Key: Char);

procedure ComboBox5KeyPress (Sender: TObject; var Key: Char);

procedure FormShow (Sender: TObject);

procedure ADOTable1CalcFields (DataSet: TDataSet);

procedure FormCreate (Sender: TObject);

procedure ADOTable1katChange (Sender: TField);

procedure ADOTable1BeforePost (DataSet: TDataSet);

procedure ADOTable1kolChange (Sender: TField);

procedure BitBtn1Click (Sender: TObject);

procedure FormCloseQuery (Sender: TObject; var CanClose: Boolean);

procedure BitBtn2Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Nakladnaya_p: TNakladnaya_p;

a,b,c: integer;

z: real;

fl_t,zap: boolean;

implementation

uses prihody, tov, ostat;

{$R *. dfm}

procedure TNakladnaya_p.comboBox2KeyPress (Sender: TObject; var Key: Char);

begin

key: =#0

end;

procedure TNakladnaya_p.comboBox3KeyPress (Sender: TObject; var Key: Char);

begin

key: =#0

end;

procedure TNakladnaya_p.comboBox4KeyPress (Sender: TObject; var Key: Char);

begin

key: =#0

end;

procedure TNakladnaya_p.comboBox5KeyPress (Sender: TObject; var Key: Char);

begin

key: =#0

end;

procedure TNakladnaya_p. FormShow (Sender: TObject);

var a: integer;

begin

if not red then

begin

zap: =false; combobox4. Items. Clear;

floatedit1. Value: =0;

ADOtable2. Last;

a: =ADOtable2no_doc. AsInteger+1;

ADOtable2. Insert;

ADOtable2no_doc. AsInteger: =a;

ADOtable2. Post;

ADOtable1. Filter: ='no_doc='+inttostr (ADOtable2no_doc. AsInteger);

ADOtable1. Filtered: =true;

kontrag. ADOTable1. First;

while not kontrag. ADOTable1. Eof do

begin

combobox4. Items. Add (kontrag. ADOTable1name_kontr. AsString);

kontrag. ADOTable1. Next;

end;

combobox4. ItemIndex: =-1;

end

else

begin

zap: =true;

ADOtable1. Filter: ='no_doc='+inttostr (ADOtable2no_doc. AsInteger);

ADOtable1. Filtered: =true;

combobox4. Items. Clear;

combobox4. Items. Add (prihod. ADOQuery1name_kontr. AsString);

combobox4. ItemIndex: =0;

floatedit1. Value: =0;

ADOtable1. First;

while not ADOtable1. Eof do

begin

floatedit1. Value: =0;

floatedit1. Value: =floatedit1. Value+ADOtable1cena. AsFloat;

ADOtable1. Next

end;

end;

end;

procedure TNakladnaya_p. ADOTable1CalcFields (DataSet: TDataSet);

begin

ADOTable1cena. AsCurrency: =tovar. ADOTable2price. AsCurrency * ADOTable1kol. AsInteger;

end;

procedure TNakladnaya_p. FormCreate (Sender: TObject);

begin

datetimepicker1. Date: =date;

end;

procedure TNakladnaya_p. ADOTable1katChange (Sender: TField);

begin

tovar. ADOTable2. Active: =false;

tovar. ADOTable2. Active: =true;

end;

procedure TNakladnaya_p. ADOTable1BeforePost (DataSet: TDataSet);

begin

ADOtable1no_doc. AsInteger: =ADOtable2no_doc. AsInteger;

end;

procedure TNakladnaya_p. ADOTable1kolChange (Sender: TField);

begin

while not ADOtable1. Eof do

begin

floatedit1. Value: =floatedit1. Value+ADOtable1cena. AsFloat;

ADOtable1. Next

end;

end;

procedure TNakladnaya_p. BitBtn1Click (Sender: TObject);

begin

ADOtable2. Edit;

ADOTable2date_doc. AsDateTime: =datetimepicker1. Date;

ADOTable2summa. AsCurrency: =floatedit1. Value;

ADOtable4. Locate ('name_kontr',combobox4. Text, []);

ADOTable2kod_kontr. AsInteger: =ADOTable4kod_kontr. AsInteger;

ADOTable2doc. AsString: ='p';

ADOtable2. Post;

zap: =true;

ADOtable1. First;

while not ADOtable1. Eof do

begin

ostatki. ADOTable1. Locate ('kod_tov',ADOtable1kod_tov. AsInteger, []);

ostatki. ADOTable1. Edit;

ostatki. ADOTable1kol. AsInteger: =ostatki. ADOTable1kol. AsInteger+ADOtable1kol. AsInteger;

ostatki. ADOTable1. Post;

ADOtable1. Next;

end;

ostatki. ADOTable1. Active: =false;

ostatki. ADOTable1. Active: =true;

close;

end;

procedure TNakladnaya_p. FormCloseQuery (Sender: TObject;

var CanClose: Boolean);

begin

if not zap then begin

ADOtable2. Last;

ADOtable2. Delete;

ADOtable1. First;

while not ADOtable1. Eof do

begin

ADOtable1. Delete;

end;

end;

end;

procedure TNakladnaya_p. BitBtn2Click (Sender: TObject);

begin

ADOTable1. Insert;

tovar. dbgrid1. ReadOnly: =true;

tovar. BitBtn2. Visible: =true;

tovar. BitBtn3. Visible: =false;

tovar. BitBtn5. Visible: =false;

tovar. DBGrid2. ReadOnly: =true;

tovar. DBNavigator1. Enabled: =false;

fl_t: =true; // podbor

tovar. ShowModal;

end;

procedure TNakladnaya_p. BitBtn3Click (Sender: TObject);

begin

if ADOtable1. RecordCount>0 then

ADOtable1. Delete;

end;

end.

unit Unit1; // "Продаж товарів"

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, Grids, DBGrids, ADOTable, ComCtrls, StdCtrls, Mask, DBCtrls,

FloatEdit, Buttons, ExtCtrls;

type

Tn_rashod = class (TForm)

ADOTable1: TADOTable;

ADOTable4: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

ADOTable1No_doc: TIntegerField;

ADOTable1kod_tov: TIntegerField;

ADOTable1kol: TIntegerField;

ADOTable1kod_kat: TSmallintField;

ADOTable1ID: TAutoIncField;

ADOTable2: TADOTable;

DataSource3: TDataSource;

ADOTable2date_doc: TDateField;

ADOTable2kod_kontr: TIntegerField;

ADOTable2summa: TCurrencyField;

ADOTable2No_doc: TLargeintField;

ADOTable2id: TAutoIncField;

ADOTable1cena: TCurrencyField;

ADOTable4name_kontr: TStringField;

ADOTable4adress_kontr: TStringField;

ADOTable4phone_kontr: TStringField;

ADOTable4type: TStringField;

ADOTable4inn: TStringField;

ADOTable4nns: TStringField;

ADOTable4edrp: TStringField;

ADOTable4dir: TStringField;

ADOTable4buh: TStringField;

ADOTable4n_pasp: TStringField;

ADOTable4date_pasp: TDateField;

ADOTable4v_pasp: TStringField;

ADOTable4schet1: TStringField;

ADOTable4kod_b1: TSmallintField;

ADOTable4schet2: TStringField;

ADOTable4kod_b2: TSmallintField;

ADOTable4schet3: TStringField;

ADOTable4kod_b3: TSmallintField;

ADOTable4kod_kontr: TAutoIncField;

ADOTable2doc: TStringField;

Panel1: TPanel;

Label4: TLabel;

Label1: TLabel;

DBEdit1: TDBEdit;

ComboBox1: TComboBox;

Label2: TLabel;

DateTimePicker1: TDateTimePicker;

Panel2: TPanel;

BitBtn2: TBitBtn;

BitBtn1: TBitBtn;

FloatEdit1: TFloatEdit;

Label7: TLabel;

BitBtn3: TBitBtn;

ADOTable1nt: TStringField;

ADOTable1ed: TStringField;

ADOTable1cen_pr: TCurrencyField;

procedure FormShow (Sender: TObject);

procedure ADOTable1CalcFields (DataSet: TDataSet);

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure ADOTable1BeforePost (DataSet: TDataSet);

procedure ADOTable1kolChange (Sender: TField);

procedure BitBtn3Click (Sender: TObject);

procedure FormCloseQuery (Sender: TObject; var CanClose: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

n_rashod: Tn_rashod;

zap,fl_prod: boolean;

implementation

uses kontr, ostat, tov,unit2;

{$R *. dfm}

procedure Tn_rashod. FormShow (Sender: TObject);

var a: integer;

begin

if not red_r then

begin

zap: =false;

floatedit1. Value: =0;

ADOtable2. Last;

a: =ADOtable2no_doc. AsInteger+1;

ADOtable2. Insert;

ADOtable2no_doc. AsInteger: =a;

ADOtable2. Post;

ADOtable1. Filter: ='no_doc='+inttostr (ADOtable2no_doc. AsInteger);

ADOtable1. Filtered: =true;

kontrag. ADOTable1. First;

combobox1. Items. Clear;

while not kontrag. ADOTable1. Eof do

begin

combobox1. Items. Add (kontrag. ADOTable1name_kontr. AsString);

kontrag. ADOTable1. Next;

end;

combobox1. ItemIndex: =-1;

end

else // redakt

begin

zap: =true;

ADOtable1. Filter: ='no_doc='+inttostr (ADOtable2no_doc. AsInteger);

ADOtable1. Filtered: =true;

combobox1. Items. Clear;

combobox1. Items. Add (rashod. ADOQuery1name_kontr. AsString);

combobox1. ItemIndex: =0;

ADOtable1. First;

floatedit1. Value: =0;

while not ADOtable1. Eof do

begin

floatedit1. Value: =floatedit1. Value+ADOtable1cena. AsFloat;

ADOtable1. Next

end;

end;

end;

procedure Tn_rashod. ADOTable1CalcFields (DataSet: TDataSet);

begin

ADOTable1cena. AsCurrency: =ostatki. ADOTable1price_otp. AsCurrency * ADOTable1kol. AsInteger;

end;

procedure Tn_rashod. BitBtn1Click (Sender: TObject);

begin

ADOtable2. Edit;

ADOTable2doc. AsString: ='r';

ADOTable2date_doc. AsDateTime: =datetimepicker1. Date;

ADOTable2summa. AsCurrency: =floatedit1. Value;

ADOtable4. Locate ('name_kontr',combobox1. Text, []);

ADOTable2kod_kontr. AsInteger: =ADOTable4kod_kontr. AsInteger;

ADOtable2. Post;

zap: =true;

ADOtable1. First;

while not ADOtable1. Eof do

begin

ostatki. ADOTable1. Locate ('kod_tov',ADOtable1kod_tov. AsInteger, []);

ostatki. ADOTable1. Edit;

ostatki. ADOTable1kol. AsInteger: =ostatki. ADOTable1kol. AsInteger-ADOtable1kol. AsInteger;

ostatki. ADOTable1. Post;

ADOtable1. Next;

end;

ostatki. ADOTable1. Active: =false;

ostatki. ADOTable1. Active: =true;

close;

end;

procedure Tn_rashod. BitBtn2Click (Sender: TObject);

begin

ADOTable1. Insert;

fl_prod: =true; // podbor

Ostatki. BitBtn1. visible: =false;

Ostatki. BitBtn2. Caption: ='Подбор';

ostatki. ShowModal;

end;

procedure Tn_rashod. FormCreate (Sender: TObject);

begin

datetimepicker1. Date: =date

end;

procedure Tn_rashod. ADOTable1BeforePost (DataSet: TDataSet);

begin

ADOtable1no_doc. AsInteger: =ADOtable2no_doc. AsInteger;

end;

procedure Tn_rashod. ADOTable1kolChange (Sender: TField);

begin

if ADOtable1kol. AsInteger>ostatki. ADOTable1kol. AsInteger then begin

showmessage ('Кількість товарів превищує запаси на складі! ');

ADOtable1kol. AsInteger: =0;

exit end;

floatedit1. Value: =0;

ADOtable1. First;

while not ADOtable1. Eof do

begin

floatedit1. Value: =floatedit1. Value+ADOtable1cena. AsFloat;

ADOtable1. Next

end;

end;

procedure Tn_rashod. BitBtn3Click (Sender: TObject);

begin

ADOtable1. Delete;

end;

procedure Tn_rashod. FormCloseQuery (Sender: TObject; var CanClose: Boolean);

begin

if not zap then begin

ADOtable2. Last;

ADOtable2. Delete;

ADOtable1. First;

while not ADOtable1. Eof do

begin

ADOtable1. Delete;

end;

end;

end;

end.

unit prihody; // "Статистика закупок"

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADOTable, Grids, DBGrids, StdCtrls, Buttons, ComCtrls,

ExtCtrls, DBTables;

type

TPrihod = class (TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

ADOQuery1date_doc: TDateField;

ADOQuery1no_doc: TLargeintField;

ADOQuery1summa: TCurrencyField;

ADOQuery1name_kontr: TStringField;

Table1: TTable;

ADOQuery1doc: TStringField;

Panel1: TPanel;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

BitBtn4: TBitBtn;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

CheckBox1: TCheckBox;

BitBtn3: TBitBtn;

procedure BitBtn1Click (Sender: TObject);

procedure BitBtn4Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure CheckBox1Click (Sender: TObject);

procedure BitBtn3Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Prihod: TPrihod;

red: boolean;

implementation

uses nakl, otch, main_menu;

{$R *. dfm}

procedure TPrihod. BitBtn1Click (Sender: TObject);

begin

Prihod. Close

end;

procedure TPrihod. BitBtn4Click (Sender: TObject);

begin

red: =true;

Nakladnaya_p. ADOTable2. Locate ('no_doc',ADOQuery1no_doc. AsInteger, []);

Nakladnaya_p. DateTimePicker1. Date: =ADOQuery1date_doc. AsDateTime;

Nakladnaya_p. DBGrid1. ReadOnly: =true;

Nakladnaya_p. FloatEdit1. ReadOnly: =true;

Nakladnaya_p. BitBtn1. Enabled: =false;

Nakladnaya_p. BitBtn2. Enabled: =false;

Nakladnaya_p. ShowModal;

end;

procedure TPrihod. FormCreate (Sender: TObject);

begin

datetimepicker2. Date: =date;

end;

procedure TPrihod. FormShow (Sender: TObject);

begin

ADOquery1. Active: =false;

ADOquery1. Active: =true;

end;

procedure TPrihod. BitBtn2Click (Sender: TObject);

begin

ADOquery1. Filter: ='date_doc>='+''''+DateToStr (DateTimePicker1. Date) +''''+'and date_doc<='

+''''+DateToStr (DateTimePicker2. Date) +'''';

ADOquery1. Filtered: =true;

checkbox1. Checked: =false;

end;

procedure TPrihod. CheckBox1Click (Sender: TObject);

begin

if checkbox1. Checked then

ADOquery1. Filtered: =False;

end;

procedure TPrihod. BitBtn3Click (Sender: TObject);

begin

main. N21Click (Sender)

end;

end.

unit Unit2; // "Статистика продажу"

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DBTables, DB, ADOTable, Buttons, ComCtrls, StdCtrls, Grids,

DBGrids, ExtCtrls;

type

TRashod = class (TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

ADOQuery1date_doc: TDateField;

ADOQuery1no_doc: TLargeintField;

ADOQuery1summa: TCurrencyField;

ADOQuery1name_kontr: TStringField;

ADOQuery1doc: TStringField;

Panel1: TPanel;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

BitBtn4: TBitBtn;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

CheckBox1: TCheckBox;

BitBtn3: TBitBtn;

procedure BitBtn3Click (Sender: TObject);

procedure BitBtn4Click (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure BitBtn2Click (Sender: TObject);

procedure CheckBox1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Rashod: TRashod;

red_r: boolean;

implementation

uses Unit1, nakl, main_menu;

{$R *. dfm}

procedure TRashod. BitBtn3Click (Sender: TObject);

begin

main. N22Click (Sender);

end;

procedure TRashod. BitBtn4Click (Sender: TObject);

begin

red_r: =true;

n_rashod. ADOTable2. Locate ('no_doc',ADOQuery1no_doc. AsInteger, []);

n_rashod. DateTimePicker1. Date: =ADOQuery1date_doc. AsDateTime;

n_rashod. DBGrid1. ReadOnly: =true;

n_rashod. FloatEdit1. ReadOnly: =true;

n_rashod. BitBtn1. Enabled: =false;

n_rashod. BitBtn2. Enabled: =false;

n_rashod. ShowModal;

end;

procedure TRashod. BitBtn1Click (Sender: TObject);

begin

close

end;

procedure TRashod. FormCreate (Sender: TObject);

begin

datetimepicker2. Date: =date;

end;

procedure TRashod. FormShow (Sender: TObject);

begin

ADOquery1. Active: =false;

ADOquery1. Active: =true;

end;

procedure TRashod. BitBtn2Click (Sender: TObject);

begin

ADOquery1. Filter: ='date_doc>='+''''+DateToStr (DateTimePicker1. Date) +''''+'and date_doc<='

+''''+DateToStr (DateTimePicker2. Date) +'''';

ADOquery1. Filtered: =true;

checkbox1. Checked: =false;

end;

procedure TRashod. CheckBox1Click (Sender: TObject);

begin

if checkbox1. Checked then

ADOquery1. Filtered: =false

end;

end.

unit Unit5; // "Вибор діапазона дат - формування книг"

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, Buttons, DB, comobj, ADOTable,main_menu;

type

Tv_date = class (TForm)

Label1: TLabel;

Label2: TLabel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

ADOQuery1: TADOQuery;

ADOQuery1name_kontr: TStringField;

ADOQuery1date_doc: TDateField;

ADOQuery1summa: TCurrencyField;

ADOQuery1no_doc: TLargeintField;

ADOQuery2: TADOQuery;

ADOQuery2name_kontr: TStringField;

ADOQuery2date_doc: TDateField;

ADOQuery2summa: TCurrencyField;

ADOQuery2no_doc: TLargeintField;

ADOQuery2doc: TStringField;

procedure BitBtn1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

v_date: Tv_date;

e,cell,range,workbook: variant;

s_f: string;

implementation

{$R *. dfm}

function FindAndInsert (FindText,replacementText: string): boolean;

var range: variant;

begin

range: =e. cells. replace (what: =findtext,replacement: =replacementtext);

end;

procedure Tv_date. BitBtn1Click (Sender: TObject);

var AppPath: array [0.255] of char;

AParams: TStringList;

i: integer;

sum: real;

begin

if kn=1 then

begin

ADOquery1. SQL. Clear;

ADOquery1. SQL. Add ('select k. name_kontr,d. date_doc,d. summa,d. no_doc, d. doc from documents_id d left join kontragenty k where k. kod_kontr=d. kod_kontr and d. doc='+''''+'p'+''''+'and d. date_doc >='+''''+datetostr (datetimepicker1. Date) +''''+' and d. date_doc <='+''''+datetostr (datetimepicker2. Date) +''''+' order by d. date_doc');