urce;: TTable;: TDBNavigator;: TLabel;: TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TEdit;: TDBGrid;: TTable;: TDataSource;: TLabel;: TEdit;: TComboBox;: TTable; : TDataSource;: TDBGrid;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TDBNavigator;: TDBGrid;: TDBGrid;: TQuery;: TQuery ;: TDataSource;: TDataSource;: TStringGrid;: TDBChart;: TEdit;: TLabel;: TButton;: TDataSource;: TTable;: TQuery;: TDataSource;: TPieSeries;: TEdit;: TLabel; N8Click (Sender: TObject); N9Click (Sender: TObject); N10Click (Sender: TObject); DBNavigator1Click (Sender: TObject; Button: TNavigateBtn); DBNavigator2Click (Sender: TObject; Button: TNavigateBtn); Edit13KeyPress (Sender: TObject; var Key: Char); Edit14KeyPress (Sender: TObject; var Key: Char); Edit15KeyPress (Sender: TObject; var Key: Char ); Edit12KeyPress (Sender: TObject; var Key: Char); Edit2KeyPress (Sender: TObject; var Key: Char); Edit3KeyPress (Sender: TObject; var Key: Char); Edit16KeyPress (Sender: TObject; var Key: Char); Edit4KeyPress (Sender: TObject; var Key: Char); Edit5KeyPress (Sender: TObject; var Key: Char); Edit6KeyPress (Sender: TObject; var Key: Char); Edit7KeyPress (Sender: TObject; var Key: Char); Edit8KeyPress ( Sender: TObject; var Key: Char); Edit10KeyPress (Sender: TObject; var Key: Char); Edit9KeyPress (Sender: TObject; var Key: Char); DBNavigator3Click (Sender: TObject; Button: TNavigateBtn); Edit11KeyPress (Sender: TObject ; var Key: Char); Edit19KeyPress (Sender: TObject; var Key: Char); Edit18KeyPress (Sender: TObject; var Key: Char); Edit20KeyPress (Sender: TObject; var Key: Char); RadioButton1Click (Sender: TObject); Edit1KeyPress (Sender: TObject; var Key: Char); RadioButton2Click (Sender: TObject); RadioButton4Click (Sender: TObject); RadioButton3Click (Sender: TObject); Button1Click (Sender: TObject); FormCreate (Sender: TObject); DataSource4DataChange (Sender: TObject; Field: TField ); Button2Click (Sender: TObject); Edit22KeyPress (Sender: TObject; var Key: Char);
{Private declarations}
{Public declarations};: TForm1;
{$ R *. dfm} TForm1.N8Click (Sender: TObject);. Visible:=False;. Enabled:=False;. Visible:=True;. Enabled:=true;; TForm1 . N9Click (Sender: TObject);. Enabled:=False;. Visible:=False;. Visible:=True;. Enabled:=True;; TForm1.N10Click (Sender: TObject);
Form1.Close;
/ / очищаємо таблицю від записів
with Table4 do:=False;;;;
/ / Редагування таблиці «TestInfo» TForm1.DBNavigator1Click (Sender: TObject; Button: TNavigateBtn);; Button of: begin (Edit2.text="") or (Edit3.text= «») or (Edit4.text="") or (Edit5.text="") or
(Edit6.text="") or (Edit7.text="") or (Edit8.text="") or (Edit9.text=«» ) or (Edit10.text="")
begin
ShowMessage («Для додавання запису повинні бути заповнені всі поля!");
goto EF;;.InsertRecord([StrToInt(Edit2.Text),StrToInt(Edit3.Text),StrToInt(Edit4.Text),StrToInt(Edit5.Text),(Edit6.Text),StrToInt(Edit7.Text),StrToInt(Edit8.Text),StrToInt(Edit9.Text),StrToInt(Edit10.Text),ComboBox1.Text,StrTodate(Edit16.Text)]);.Clear; Edit3.Clear;Edit4.Clear;Edit5.Clear;Edit6.Clear;Edit7.Clear;Edit8.Clear;Edit9.Clear;Edit10.Clear;Edit16.Clear;:;;;
/ / Редагування таблиці «Doctors» TForm...
