Text ;. FieldValues ??[ Од Вимірювання ]:=Edit3. Text ;. Post (); ShowMessage ( Необхідно заповнити поля введення ) ;; TForm5. Button3Click (Sender: TObject) ;. Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;;:=true ;. Visible:=true ;. Visible:=true ;. Visible:=false ;; TForm5. Button4Click (Sender: TObject);:=false ;. Visible:=true ;. Visible:=true ;. Visible:=false ;. Text:=ADOTable1. FieldValues ??[ Найменування послуги ] ;. Text:=ADOTable1. FieldValues ??[ Вартість ] ;. Text:=ADOTable1. FieldValues ??[ Од Вимірювання ] ;; TForm5. Button5Click (Sender: TObject) ;. Delete ;; TForm5. Button2Click (Sender: TObject) ;. Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;;; TForm5.ADOTable1BeforeDelete (DataSet: TDataSet) ;: real;:=MessageDlg ( Хочете видалити поточний запис в базі даних? Raquo ;, mtConfirmation, [mbYes, mbNo], 0); Del lt ; gt; mrYesbegin. Cancel (); () ;;; TForm5. Button6Click (Sender: TObject) ;. Close ;;.
Unit8;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ADODB, DB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;=class (TForm): TDataSource ;: TDBGrid ;: TDBNavigator ;: TADOTable ;: TPanel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TEdit ;: TEdit ;: TEdit ;: TEdit ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TLabel;:TLabel ;: TButton; Button3Click (Sender: TObject); Button1Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject); Button2Click (Sender: TObject); ADOTable1BeforeDelete (DataSet: TDataSet); Button6Click ( Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm8 ;: boolean;
Unit6;
{$ R * .dfm} TForm8. Button3Click (Sender: TObject) ;. Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;;:=true ;. Visible:=true ;. Visible:=true ;. Visible:=false ;; TForm8. Button1Click (Sender: TObject); (Edit1. Text lt; gt; ) and
(Edit2. Text lt; gt; ) and
(Edit3. Text lt; gt; ) and
(Edit4. Text lt; gt; ) flag=true then ADOTable1. InsertADOTable1. Edit ;. FieldValues ??[ Посада ]:=Edit1. Text ;. FieldValues ??[ Фиксир з/п на годину ??raquo;]:=Edit2. Text ;. FieldValues ??[ Раб годинник в день ]:=Edit3. Text ;. FieldValues ??[ Раб дні у тижні ]:=Edit4. Text; StrToInt (Edit3. Text) gt; 24 then ( Невірно введено значення в полі Раб годинник в день );
DataSource1. DataSet. Cancel (); () ;; StrToInt (Edit4. Text) gt; 7 then
ShowMessage ( Невірно введено значення в полі Раб дні у тижні );
DataSource1. DataSet. Cancel (); () ;;. Post (); ShowMessage ( Необхідно заповнити поля введення ) ;; TForm8. Button4Click (Sender: TObject);:=false ;. Visible:=true ;. Visible:=true ;. Visible:=false ;. Text:=ADOTable1. FieldValues ??[ Посада ] ;. Text:=ADOTable1. FieldValues ??[ Фиксир з/п на годину ??raquo;] ;. Text:=ADOTable1. FieldValues ??[ Раб годинник в день ] ;. Text:=ADOTable1. FieldValues ??[ Раб дні у тижні ] ;; TForm8. Button5Click (Sender: TObject) ;. Delete ;; TForm8.ADOTable1BeforeDelete (DataSet: TDataSet) ;: real;:=MessageDlg ( Хочете видалити поточний запис в базі даних? Raquo ;, mtConfirmation, [mbYes, mbNo], 0); Del lt; gt; mrYesbegin. Cancel (); () ;;; TForm8. Button2Click (Sender: TObject) ;. Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;;; TForm8. Button6Click (Sender: TObject) ;. Close ;;.
unit Unit10 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;=class (TForm): TDataSource ;: TDBGrid ;: TDBNavigator ;: TADOTable ;: TPanel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TEdit ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TLabel ;: TLabel ;: TButton;:TComboBox ;: TComboBox ;: TComboBox ;: TEdit ;: TLabel ;: TEdit ;: TButton; Button6Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button1Click (Sender: TObject); Button5Click (Sender: TObject); ADOTable1BeforeDelete (DataSet: TDataSet); Button2Click (Sender: TObject); Button7Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm10 ;: boolean; Unit4, Unit5, Unit6;
{$ R * .dfm} TForm10. Button6Click (Sender: TObject) ;. Close ;; TForm10. Button3Click (Sender: TObject) ;. Text:= raquo ;;. Text:= raquo ;;. Text:= raquo ;;. Items. Clear ;. Text:= raquo ;;. Items. Clear ;. Text:= raquo ;;. Items. Clear; .ADOTable1. Open; .ADOTable1. First; .ADOTable1. Open; .ADOTable1. First; .ADOTable1. Open; .ADOTable1. First; not Form4.ADOTable1. Eof d...
