1.DBNavigator2Click (Sender: TObject; Button: TNavigateBtn);; Button of: begin (Edit12.text="") or (Edit13.text= «») or (Edit14.text="") or (Edit15.text="") or (edit22.text="")
begin
ShowMessage («Для додавання запису повинні бути заповнені всі поля!");
goto EF;;. InsertRecord ([Edit12.Text, Edit13.Text, Edit14.Text, Edit15.Text, edit22.text]);. Clear; Edit13.Clear; Edit14.Clear; Edit15.Clear; Edit22.Clear;:
end;
end;
end;
/ / Обмеження на введення символів
procedure TForm1.Edit13KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9» :; Key:=Chr (0);;; TForm1.Edit14KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9» :; Key:=Chr (0);;; TForm1.Edit15KeyPress (Sender: TObject; var Key: Char), Key of # 8, «0» .. «9» :; Key:=Chr (0);;; TForm1.Edit12KeyPress (Sender: TObject; var Key: Char), key of
«а» .. «я», # 8, «А» .. «Я», # 32:; key:=Chr (0);;; TForm1.Edit2KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9» :; Key:=Chr (0);;; TForm1.Edit3KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9» :; Key:=Chr (0);;; TForm1.Edit16KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9», «.» :; Key:=Chr (0);;; TForm1.Edit4KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9» :; Key:=Chr (0);;; TForm1.Edit5KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9» :; Key:=Chr (0);;; TForm1.Edit6KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9» :; Key:=Chr (0);;; TForm1.Edit7KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9» :; Key:=Chr (0);;; TForm1.Edit8KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9» :; Key:=Chr (0);;; TForm1.Edit10KeyPress (Sender: TObject; var Key: Char); Key of # 8," 0" .. «9» :; Key:=Chr (0);;; TForm1.Edit9KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9» :; Key:=Chr (0);;;
/ / заповнення табліциTForm1.DBNavigator3Click (Sender: TObject; Button: TNavigateBtn);; Button of: begin (edit11.text="") or (edit17.text="") or (edit18.text="") (edit19.text="") or (edit20.text="")
begin
ShowMessage («Для долучення записи повинні бути заповнені всі поля!");
goto EF;;.InsertRecord([Edit11.Text,StrToDate(Edit18.text),Edit17.Text,Edit19.Text,StrToInt(Edit20.Text)]);.Clear;Edit17.Clear;Edit18.Clear;Edit19.Clear;Edit20.Clear;:
end;
end
end;
/ / Обмеження на введення сімволовTForm1.Edit11KeyPress (Sender: TObject; var Key: Char); key of
«а» .. «я», # 8, «А» .. «Я», # 32:; key:=Chr (0);;; TForm1.Edit19KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9» :; Key:=Chr (0);;; TForm1.Edit18KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9», «.» :; Key:=Chr (0);;; TForm1.Edit20KeyPress (Sender: TObject; var Key: Char); Key of # 8, «0» .. «9» :; Key:=Chr (0);;; TForm1.RadioButton1Click (Sender: TObject);. Enabled:=False;; TForm1.Edit1KeyPress (Sender: TObject; var Key: Char);
/ / Обмеження на введення сімволовRadioButton2.Checked then.MaxLength:=30; key of