o. Items. Add (Form4.ADOTable1. FieldValues ??[ Фірма ]) ;. ADOTable1. Next ;; not Form5.ADOTable1. Eof do. Items. Add (Form5.ADOTable1. FieldValues ??[ Найменування послуги ]) ;. ADOTable1. Next ;; not Form6.ADOTable1. Eof do. Items. Add (Form6.ADOTable1. FieldValues ??[ ПІБ співробітника ]) ;. ADOTable1. Next ;;:=true ;. Visible:=true ;. Visible:=true ;. Visible:=false ;; TForm10. Button4Click (Sender: TObject);:=false ;. Visible:=true ;. Visible:=true ;. Visible:=false ;. Text:=ADOTable1. FieldValues ??[ Кількість ] ;. Text:=ADOTable1. FieldValues ??[ Дата замовлення ] ;. Text:=ADOTable1. FieldValues ??[ Клієнт ] ;. Items. Clear ;. Text:=ADOTable1. FieldValues ??[ Найменування послуги ] ;. Items. Clear ;. Text:=ADOTable1. FieldValues ??[ ПІБ співробітника ] ;. Items. Clear; .ADOTable1. Open; .ADOTable1. First; .ADOTable1. Open; .ADOTable1. First; .ADOTable1. Open; .ADOTable1. First; not Form4.ADOTable1. Eof do. Items. Add (Form4.ADOTable1. FieldValues ??[ Фірма ]) ;. ADOTable1. Next ;; not Form5.ADOTable1. Eof do. Items. Add (Form5.ADOTable1. FieldValues ??[ Найменування послуги ]) ;. ADOTable1. Next ;; not Form6.ADOTable1. Eof do. Items. Add (Form6.ADOTable1. FieldValues ??[ ПІБ співробітника ]) ;. ADOTable1. Next ;;; TForm10. Button1Click (Sender: TObject); (Edit1. Text lt; gt; ) and
(Edit2. Text lt; gt; ) and
(Combobox1. Text lt; gt; ) and
(Combobox2. Text lt; gt; ) and
(Combobox3. Text lt; gt; ) flag=true then ADOTable1. InsertADOTable1. Edit ;. FieldValues ??[ Кількість ]:=Edit1. Text ;. FieldValues ??[ Дата замовлення ]:=Edit2. Text ;. FieldValues ??[ Клієнт ]:=Combobox1. Text ;. FieldValues ??[ Найменування послуги ]:=Combobox2. Text ;. FieldValues ??[ ПІБ співробітника ]:=Combobox3. Text ;. Post (); ShowMessage ( Необхідно заповнити поля введення ) ;; TForm10. Button5Click (Sender: TObject) ;. Delete ;; TForm10.ADOTable1BeforeDelete (DataSet: TDataSet) ;: real;:=MessageDlg ( Хочете видалити поточний запис в базі даних? Raquo ;, mtConfirmation, [mbYes, mbNo], 0); Del lt; gt; mrYesbegin. Cancel (); () ;;; TForm10. Button2Click (Sender: TObject) ;. Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;;; TForm10. Button7Click (Sender: TObject);
{Form5.ADOTable1. Open; .ADOTable1. First; not Form5.ADOTable1. Eof doForm5.ADOTable1. FieldValues ??[ Найменування послуги ]=ADOTable1. FieldValues ??[ Найменування послуги ] then. Text:=IntToStr (StrToInt (ADOTable1. FieldValues ??[ Кількість ]) + StrToInt (Form5.ADOTable1. FieldValues ??[ Вартість ])) ;. ADOTable1. Next ;;};.
Unit11 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, DB, ADODB, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls;=class (TForm): TComboBox ;: TComboBox ;: TEdit ;: TDataSource ;: TDBGrid ;: TButton ;: TADOTable ;: TDBNavigator ;: TLabel ;: TButton; ComboBox1Change (Sender: TObject); ComboBox2Change (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm11 ;, strIndex1, strText1: string;
{$ R * .dfm} TForm11. ComboBox1Change (Sender: TObject) ;. Enabled:=false ;. Enabled:=false ;. Enabled:=false ;. Text:= raquo ;;. Items. Clear ;. Text:= Виберіть поле raquo ;; ComboBox1. ItemIndex of
:. Items. Add ( Код клієнта ) ;. Items. Add ( Фірма ) ;. Items. Add ( Контактна особа ) ;. Items. Add ( Телефон ) ;. Items. Add ( Адреса ) ;. Items. Add ( e-mail );:= client raquo ;;;
:. Items. Add ( Код послуги ) ;. Items. Add ( Найменування послуги ) ;. Items. Add ( Вартість ) ;. Items. Add ( Од виміру );:= uslugi raquo ;;;
:. Items. Add ( Код замовлення ) ;. Items. Add ( Клієнт ) ;. Items. Add ( Найменування послуги );
ComboBox2. Items. Add ( Кількість ) ;. Items. Add ( ПІБ співробітника ) ;. Items. Add ( Дата замовлення );:= zakaz raquo ;;;
:. Items. Add ( Код співробітника ) ;. Items. Add ( ПІБ співробітника ) ;. Items. Add ( Посада ) ;. Items. Add ( Телефон ) ;. Items. Add ( Адреса ) ;. Items. Add ( e-mail );:= sotrud raquo ;;;
:. Items. Add ( Посада ) ;. Items. Add ( Фиксир з/п на годину ??raquo;);
ComboBox2. Items. Add ( Раб годинник в день ) ;. Items. Add ( Раб дні у тижні );:= dolzhn raquo ;;;
:. Items. Add ( ПІБ співробітника ) ;. Items. Add ( Причина вирахування ) ;. Items. Add ( Відрахування );:= vichet raquo ;;;;. Enabled:=true ;; TForm11. ComboBox2Change (Sender: TObject) ;. Enabled:=true ;...
