Ctrls, Grids, DBGrids ,, Spin, StdCtrls, Buttons;= class (TForm): TPageControl ;: TTabSheet ;: TTabSheet ;: TTabSheet ;: TTabSheet ;: TTabSheet ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TXPManifest ;: TDBGrid ;: TADOTable ;: TDataSource ;: TADOConnection ;: TADOTable ;: TDataSource ;: TADOTable ;: TDataSource ;: TADOTable ;: TDataSource ;: TButton ;: TEdit ;: TLabel ;: TLabel ;: TComboBox ;: TLabel ;: TSpinEdit ;: TLabel ;: TComboBox ;: TLabel ;: TSpinEdit ;: TLabel;:TLabel ;: TComboBox ;: TButton ;: TLabel ;: TComboBox ;: TSpinEdit ;: TLabel ;: TButton ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TLabel ;: TEdit ;: TButton ;: TEdit ;: TDBNavigator ;: TDBNavigator ;: TDBNavigator ;: TDBNavigator ;: TLabel ;: TDBLookupComboBox; _: TAutoIncField; DSDesigner: TWideStringField; _2: TWideStringField; DSDesigner2: TIntegerField; _3: TIntegerField; _: TAutoIncField; _2: TWideStringField; _3: TWideStringField; DSDesigner: TWideStringField; DSDesigner2: TWideStringField; DSDesigner3: TWideStringField; DSDesigner4: TIntegerField; _: TAutoIncField; _2: TIntegerField; _3: TWideStringField; DSDesigner: TIntegerField; _: TAutoIncField; _2: TIntegerField; DSDesigner: TIntegerField; DSDesigner2: TWideStringField ;: TButton ;: TButton ;: TButton ;: TButton ;: TMenuItem ;: TMenuItem ;: TDBLookupComboBox ;: TLabel; _v2: TADOTable; _v3: TADOTable; FormCreate (Sender: TObject); Pereschet (); pgc1Change (Sender: TObject); btn1Click (Sender: TObject); btn2Click (Sender: TObject); btn3Click (Sender: TObject); btn4Click (Sender: TObject); edt5Change ( Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject); N2Click (Sender:TObject); ts4ContextPopup (Sender: TObject; MousePos: TPoint; Handled: Boolean);
{Private declarations}
{Public declarations} ;: TMain; ComObj, Unit1, Unit2;
{$ R * .dfm} TMain.FormCreate (Sender: TObject) ;. TabIndex:=0; .DataSource:=ds1; () ;; TMain.Pereschet (); i: Integer;.Clear; cbb3.Clear; cbb5.Clear; i:=1 to tbl1.RecordCount do.RecNo:=i;.Items.Add(tbl1.FieldByName(laquo;Комплектующиеraquo;).AsString);.Items.Add(tbl1.FieldByName(laquo;Комплектующиеraquo;).AsString);;i:=1 to tbl4.RecordCount do.RecNo:=i;.Items.Add(tbl4.FieldByName(laquo;Название_организацииraquo;).AsString);;.RecNo:= 1; .RecNo:=1; .RecNo:=1 ;; TMain.pgc1Change (Sender: TObject); (); (pgc1.TabIndex=0) or (pgc1.TabIndex=1) then.DataSource:=ds1; elsepgc1.TabIndex=2 then.DataSource:=ds2; elsepgc1.TabIndex=3 then.DataSource:=ds3; elsepgc1.TabIndex=4 then.DataSource:=ds4 ;;; TMain.btn1Click (Sender: TObject) ;. Insert ;. FieldByName ( Комплектуючі ). AsString:=edt1.Text; .FieldByName ( Тіп_Комплектующего ). AsString:=cbb1.Text; .FieldByName ( Колличество ). AsString:=se1.Text; .Locate ( Названіе_організаціі raquo ;, cbb2.Text, [loCaseInsensitive]) ;. FieldByName ( Код_Поставщіка ). AsInteger:=tbl4.FieldByName ( Код_Поставщіка ). AsInteger; .Post ;; TMain.btn2Click (Sender: TObject) ; .Locate ( Комплектуючі raquo ;, cbb3.Text, [loCaseInsensitive]); se2.Value lt;=tbl1.FieldByName ( Колличество ). AsInteger then.Insert; .FieldByName ( Код_Комплектующего ). AsInteger: =tbl1.FieldByName(laquo;Код_Комплектующегоraquo;).AsInteger;.FieldByName(laquo;ФИО_Сотрудникаraquo;).AsString:= edt9.Text; .FieldByName ( Колличество ). AsString:=se2.Text; .Post; .Edit; .FieldByName ( Колличество ). AsInteger:=tbl1.FieldByName ( Колличество ). AsInteger -se2.Value; .Post; else.MessageBox ( Недостатньо комплектуючих! raquo ;, Помилка raquo ;, MB_OK + MB_ICONSTOP) ;; _ v2.Active:= False; _v2.Active:=True ;; TMain.btn3Click (Sender:TObject) ;. Locate ( Комплектуючі raquo ;, cbb5.Text, [loCaseInsensitive]); se3.Value lt;=tbl1.FieldByName ( Колличество ). AsInteger then.Insert; .Locate ( Комплектуючі raquo ;, cbb5.Text, [loCaseInsensitive]) ;. FieldByName ( Код_комлектующего ). AsInteger:=tbl1.FieldByName(laquo;Код_Комплектующегоraquo;).AsInteger;.FieldByName(laquo;Колличествоraquo;).AsString:= se3.Text; .FieldByName ( Причина ). AsString:=edt2.Text; .Post; .Edit; .FieldByName ( Колличество ). AsInteger:=tbl1.FieldByName ( Колличество ). AsInteger -se3.Value; .Post; else.MessageBox ( Недостатньо комплектуючих! raquo ;, Помилка raquo ;, MB_OK + MB_ICONSTOP) ;; _v3.Active:= False; _v3.Active:=True ;; TMain.btn4Click (Sender: TObject) ;. Insert; .FieldByName ( Названіе_організаціі ). AsString:=edt3.Text; .FieldByName ( ФІО_поставщіка ) .AsString:=edt4.Text; .FieldByName ( Телефон ). AsString:=edt5.Text; .FieldByName ( Адреса ). AsString:=edt6.Text; .FieldByName ( Факс ). AsString:=edt7.Text; .FieldByName ( Р/С ). AsString:=edt8.Text; .Post ;; TMain.edt5Change (Sender: TObject) ;. Text:=edt5.Text ;; TMain.Button1Click (Sender: TObject);app,book,sheet:Variant;...
