Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, ADODB, Grids, DBGrids, ComCtrls, ExtCtrls, StdCtrls,
WordXP, ComObj, ShellApi,Buttons, jpeg, sSkinManager, sSkinProvider;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
Panel1: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
BitBtn4: TBitBtn;
BitBtn7: TBitBtn;
BitBtn9: TBitBtn;
TabSheet2: TTabSheet;
ADOTable2: TADOTable;
DataSource2: TDataSource;
DBGrid2: TDBGrid;
BitBtn1: TBitBtn;
BitBtn8: TBitBtn;
BitBtn10: TBitBtn;
TabSheet3: TTabSheet;
DBGrid3: TDBGrid;
ADOTable3: TADOTable;
DataSource3: TDataSource;
BitBtn13: TBitBtn;
BitBtn15: TBitBtn;
SpeedButton13: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
BitBtn17: TBitBtn;
N6: TMenuItem;
N7: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N5: TMenuItem;
ADOTable2id: TIntegerField;
ADOTable2name_goods: TWideStringField;
ADOTable2cod_goods: TWideStringField;
ADOTable2birlik: TWideStringField;
ADOTable2baga: TWideStringField;
ADOTable1id: TWideStringField;
ADOTable1sumame_payer: TWideStringField;
ADOTable1first_name_payer: TWideStringField;
ADOTable1partonymic_payer: TWideStringField;
ADOTable1mn_payer: TWideStringField;
ADOTable3id: TAutoIncField;
ADOTable3date: TDateTimeField;
ADOTable3fam: TWideStringField;
ADOTable3tauar: TWideStringField;
ADOTable3cena: TIntegerField;
ADOTable3ves: TIntegerField;
ADOTable3tolem: TIntegerField;
ADOTable3sum: TIntegerField;
N13: TMenuItem;
Image1: tImage;
sSkinManager1: TsSkinManager;
sSkinProvider1: TsSkinProvider;
N2: TMenuItem;
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn12Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
procedure BitBtn15Click(Sender: TObject);
procedure BitBtn14Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure BitBtn16Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure ADOTable3CalcFields(DataSet: TDataSet);
procedure N9Click(Sender: TObject);
procedure BitBtn17Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit7, Unit8, Unit10, Unit11, Unit6,
Unit12, Unit13;
{$R *.dfm}
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.BitBtn9Click(Sender: TObject);
begin
Form3.Show;
end;
procedure TForm1.BitBtn12Click(Sender: TObject);
begin
form1.TabSheet1.Visible:=false;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
if adoTable1.State in [dsInsert,dsEdit] then
adoTable1.Post;
end;