2.3. Текст программы

Фрагменты листинга каждого модуля с указанием подключаемых библиотек, списка компонентов и процедур.

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, Menus, Buttons;

type

TForm1 = class(TForm)

Image1: TImage;

MainMenu1: TMainMenu;

a1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N4: TMenuItem;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

N5: TMenuItem;

N8: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

unit Unit2;

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, jpeg,

Mask, XPMan, Menus, Buttons;

type

TForm2 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

Image1: TImage;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1FIO_mastera: TWideStringField;

ADOTable1N_uslug: TWideStringField;

ADOTable1Stazh_raboty: TWideStringField;

ADOTable1Konakt_infotel: TWideStringField;

ADOQuery1: TADOQuery;

DataSource2: TDataSource;

Edit1: TEdit;

BitBtn1: TBitBtn;

MainMenu1: TMainMenu;

a1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N4: TMenuItem;

BitBtn2: TBitBtn;

N5: TMenuItem;

N7: TMenuItem;

procedure Pretty1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

unit Unit3;

interface

uses

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

Dialogs, ADODB, StdCtrls, DB, ExtCtrls, DBCtrls, Grids, DBGrids, Spin,

jpeg, Menus, RpRave, RpBase, RpSystem, RpDefine, RpCon, RpConDS, Buttons;

type

TForm3 = class(TForm)

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

Edit1: TEdit;

Image2: TImage;

RvDataSetConnection1: TRvDataSetConnection;

RvSystem1: TRvSystem;

RvProject1: TRvProject;

Image1: TImage;

Label1: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

a1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N4: TMenuItem;

ADOTable1: TADOTable;

BitBtn3: TBitBtn;

N5: TMenuItem;

N7: TMenuItem;

procedure Pretty1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, DB, ExtCtrls, DBCtrls, Grids, DBGrids, ADODB, Buttons,

ImgList, Menus, jpeg, OleServer,ComObj, ExcelXP;

type

TForm4 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

GroupBox1: TGroupBox;

DBGrid1: TDBGrid;

DBImage1: TDBImage;

DBNavigator1: TDBNavigator;

GroupBox2: TGroupBox;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

ADOTable2: TADOTable;

DataSource2: TDataSource;

GroupBox3: TGroupBox;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

DBImage3: TDBImage;

DataSource3: TDataSource;

ADOTable3: TADOTable;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

Image1: TImage;

Image2: TImage;

Image3: TImage;

ExcelApplication1: TExcelApplication;

MainMenu1: TMainMenu;

a1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N7: TMenuItem;

DBImage2: TDBImage;

procedure Pretty1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Buttons, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids,

Menus, Mask, jpeg;

type

TForm5 = class(TForm)

GroupBox1: TGroupBox;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

DBEdit1: TDBEdit;

DBEdit3: TDBEdit;

DBImage1: TDBImage;

DBNavigator1: TDBNavigator;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit8: TDBEdit;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

DBGrid1: TDBGrid;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Image1: TImage;

BitBtn1: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

ADOTable1: TADOTable;

DBGrid3: TDBGrid;

ADOTable3: TADOTable;

DataSource3: TDataSource;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

ADOTable1ID: TAutoIncField;

ADOTable1N_mat: TWideStringField;

ADOTable1F_mat: TBlobField;

ADOTable1Cenarub: TSmallintField;

DBImage2: TDBImage;

DBImage3: TDBImage;

ADOTable2: TADOTable;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

DBEdit2: TDBEdit;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Pretty1Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

unit Unit6;

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls,

Mask, OleServer, ExcelXP, ComObj,Buttons, jpeg;

type

TForm6 = class(TForm)

GroupBox1: TGroupBox;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBImage3: TDBImage;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

DBGrid3: TDBGrid;

Image1: TImage;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

DBGrid1: TDBGrid;

DataSource2: TDataSource;

DataSource3: TDataSource;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

DBGrid2: TDBGrid;

DBImage1: TDBImage;

DBImage2: TDBImage;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

BitBtn1: TBitBtn;

procedure N2Click(Sender: TObject);

procedure dsjl1Click(Sender: TObject);

procedure Pretty1Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

unit Unit7;

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Menus,

jpeg, Buttons;

type

TForm7 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOQuery1: TADOQuery;

Edit1: TEdit;

BitBtn1: TBitBtn;

Image1: TImage;

Label1: TLabel;

MainMenu1: TMainMenu;

a1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

N7: TMenuItem;

procedure Pretty1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure N7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

unit Unit8;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, ADODB, DB, Buttons, Mask, DBCtrls;

type

TForm8 = class(TForm)

Image1: TImage;

Label1: TLabel;

SpeedButton1: TSpeedButton;

BitBtn1: TBitBtn;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label6: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure SpeedButton1Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

unit Unit9;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, DB, ADODB, Buttons, ComCtrls,

Grids, OleServer, ExcelXP, ComObj, DBGrids, jpeg, Menus;

type

TForm9 = class(TForm)

ADOConnection1: TADOConnection;

ComboBox1: TComboBox;

Edit1: TEdit;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

DateTimePicker3: TDateTimePicker;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Panel1: TPanel;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

DBEdit17: TDBEdit;

DBEdit18: TDBEdit;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

DBEdit23: TDBEdit;

DBEdit24: TDBEdit;

DBEdit25: TDBEdit;

DBEdit26: TDBEdit;

DBEdit27: TDBEdit;

DBEdit28: TDBEdit;

DBEdit29: TDBEdit;

DBEdit30: TDBEdit;

DBEdit31: TDBEdit;

GroupBox2: TGroupBox;

DBEdit32: TDBEdit;

DBEdit33: TDBEdit;

DBEdit34: TDBEdit;

DBEdit35: TDBEdit;

DBEdit36: TDBEdit;

DBEdit37: TDBEdit;

DBEdit38: TDBEdit;

DBEdit39: TDBEdit;

DBEdit40: TDBEdit;

GroupBox3: TGroupBox;

DBEdit41: TDBEdit;

DBEdit42: TDBEdit;

DBEdit43: TDBEdit;

DBEdit44: TDBEdit;

DBEdit45: TDBEdit;

DBEdit46: TDBEdit;

DBEdit47: TDBEdit;

DBEdit48: TDBEdit;

DBEdit49: TDBEdit;

GroupBox4: TGroupBox;

DBEdit50: TDBEdit;

DBEdit51: TDBEdit;

DBEdit52: TDBEdit;

DBEdit53: TDBEdit;

DBEdit54: TDBEdit;

DBEdit55: TDBEdit;

DBEdit56: TDBEdit;

DBEdit57: TDBEdit;

DBEdit58: TDBEdit;

DataSource6: TDataSource;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

DBEdit59: TDBEdit;

DBEdit61: TDBEdit;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

Label1: TLabel;

DBEdit60: TDBEdit;

Image2: TImage;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

MainMenu1: TMainMenu;

a1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N9: TMenuItem;

N4: TMenuItem;

ADOTable1: TADOTable;

DBGrid1: TDBGrid;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1FIO_zakaz: TWideStringField;

ADOTable1FIO_master: TWideStringField;

ADOTable1begin_rab: TWideStringField;

ADOTable1data_prim: TWideStringField;

ADOTable1end_rab: TWideStringField;

ADOTable1tovar: TWideStringField;

ADOTable1usluga1: TWideStringField;

ADOTable1cena_u1: TFloatField;

ADOTable1usluga2: TWideStringField;

ADOTable1cena_u2: TFloatField;

ADOTable1usluga_u3: TWideStringField;

ADOTable1cena_u3: TFloatField;

ADOTable1usluga4: TWideStringField;

ADOTable1cena_u4: TFloatField;

ADOTable1usluga5: TWideStringField;

ADOTable1cena_u5: TFloatField;

ADOTable1usluga6: TWideStringField;

ADOTable1cena_u6: TFloatField;

ADOTable1usluga7: TWideStringField;

ADOTable1cena_u7: TFloatField;

ADOTable1usluga8: TWideStringField;

ADOTable1cena_u8: TFloatField;

ADOTable1usluga9: TWideStringField;

ADOTable1cena_u9: TFloatField;

ADOTable1usluga10: TWideStringField;

ADOTable1cena_u10: TFloatField;

ADOTable1usluga11: TWideStringField;

ADOTable1cena_u11: TFloatField;

ADOTable1usluga12: TWideStringField;

ADOTable1cena_u12: TFloatField;

ADOTable1usluga13: TWideStringField;

ADOTable1cena_u13: TFloatField;

ADOTable1usluga14: TWideStringField;

ADOTable1cena_u14: TFloatField;

ADOTable1usluga15: TWideStringField;

ADOTable1cena_u15: TFloatField;

ADOTable1mat1: TWideStringField;

ADOTable1metrach1: TFloatField;

ADOTable1cenamat1: TFloatField;

ADOTable1mat2: TWideStringField;

ADOTable1metracht2: TFloatField;

ADOTable1cenamat2: TFloatField;

ADOTable1mat3: TWideStringField;

ADOTable1metracht3: TFloatField;

ADOTable1cenamat3: TFloatField;

ADOTable1fur1: TWideStringField;

ADOTable1kolvo_fur1: TFloatField;

ADOTable1cenafur1: TFloatField;

ADOTable1fur2: TWideStringField;

ADOTable1kolvo_fur2: TFloatField;

ADOTable1cena_fur2: TFloatField;

ADOTable1fur3: TWideStringField;

ADOTable1kolvo_fur3: TFloatField;

ADOTable1cenafur3: TFloatField;

ADOTable1ukr1: TWideStringField;

ADOTable1kolvo_ukr1: TFloatField;

ADOTable1cenaukr1: TFloatField;

ADOTable1ukr2: TWideStringField;

ADOTable1kolvo_ukr2: TFloatField;

ADOTable1cenaukr2: TFloatField;

ADOTable1ukr3: TWideStringField;

ADOTable1kolvo_ukr3: TFloatField;

ADOTable1cenaukr3: TFloatField;

ADOTable1Summa: TFloatField;

N5: TMenuItem;

N7: TMenuItem;

DBNavigator1: TDBNavigator;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure ADOTable1CalcFields(DataSet: TDataSet);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

unit Unit10;

interface

uses

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

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,

Buttons, jpeg, Menus;

type

TForm10 = class(TForm)

GroupBox1: TGroupBox;

ADOTable2: TADOTable;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

ADOTable1ID: TAutoIncField;

ADOTable1N_fur: TWideStringField;

ADOTable1F_fur: TBlobField;

ADOTable1Cenarub: TIntegerField;

DBImage2: TDBImage;

Image1: TImage;

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label2: TLabel;

Label3: TLabel;

DataSource2: TDataSource;

DBGrid1: TDBGrid;

DBImage1: TDBImage;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

DataSource3: TDataSource;

ADOTable3: TADOTable;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

DBGrid3: TDBGrid;

DBImage3: TDBImage;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

unit Unit11;

interface

uses

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

Dialogs, DB, ADODB, Buttons, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls,

Menus;

type

TForm11 = class(TForm)

Image1: TImage;

Edit2: TEdit;

Button1: TButton;

Button2: TButton;

DBEdit12: TDBEdit;

DBEdit6: TDBEdit;

CheckBox2: TCheckBox;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

CheckBox4: TCheckBox;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

CheckBox6: TCheckBox;

DBEdit11: TDBEdit;

DBEdit1: TDBEdit;

CheckBox8: TCheckBox;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

CheckBox10: TCheckBox;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

CheckBox12: TCheckBox;

DBEdit13: TDBEdit;

DBEdit14: TDBEdit;

CheckBox14: TCheckBox;

DBEdit15: TDBEdit;

DBEdit16: TDBEdit;

CheckBox16: TCheckBox;

DBEdit17: TDBEdit;

DBEdit18: TDBEdit;

CheckBox18: TCheckBox;

DBEdit19: TDBEdit;

DBEdit20: TDBEdit;

CheckBox20: TCheckBox;

DBEdit21: TDBEdit;

DBEdit22: TDBEdit;

CheckBox22: TCheckBox;

DBEdit23: TDBEdit;

DBEdit24: TDBEdit;

CheckBox24: TCheckBox;

DBEdit25: TDBEdit;

DBEdit26: TDBEdit;

CheckBox26: TCheckBox;

DBEdit27: TDBEdit;

DBEdit28: TDBEdit;

CheckBox28: TCheckBox;

DBEdit29: TDBEdit;

DBEdit30: TDBEdit;

CheckBox30: TCheckBox;

DBEdit31: TDBEdit;

Label1: TLabel;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOTable1DSDesigner: TAutoIncField;

ADOTable1Naim_tovara: TWideStringField;

ADOTable1usluga1: TWideStringField;

ADOTable1cena1: TFloatField;

ADOTable1usluga2: TWideStringField;

ADOTable1cena2: TIntegerField;

ADOTable1usluga3: TWideStringField;

ADOTable1cena3: TIntegerField;

ADOTable1usluga4: TWideStringField;

ADOTable1cena4: TIntegerField;

ADOTable1usluga5: TWideStringField;

ADOTable1cena5: TIntegerField;

ADOTable1usluga6: TWideStringField;

ADOTable1cena6: TIntegerField;

ADOTable1usluga7: TWideStringField;

ADOTable1cena7: TIntegerField;

ADOTable1usluga8: TWideStringField;

ADOTable1cena8: TIntegerField;

ADOTable1usluga9: TWideStringField;

ADOTable1cena9: TIntegerField;

ADOTable1usluga10: TWideStringField;

ADOTable1cena10: TIntegerField;

ADOTable1usluga11: TWideStringField;

ADOTable1cena11: TIntegerField;

ADOTable1usluga12: TWideStringField;

ADOTable1cena12: TIntegerField;

ADOTable1usluga13: TWideStringField;

ADOTable1cena13: TIntegerField;

ADOTable1usluga14: TWideStringField;

ADOTable1cena14: TIntegerField;

ADOTable1usluga15: TWideStringField;

ADOTable1cena15: TIntegerField;

BitBtn2: TBitBtn;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;