Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Новые рефераты » Розробка програмного забезпечення для спирографических обстеження

Реферат Розробка програмного забезпечення для спирографических обстеження





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

Назад | сторінка 34 з 39 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...
  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Маркетингові дослідження і розробка плану маркетингу "Clean and Clear& ...
  • Реферат на тему: Creation of control system by a personnel how to begin with a zero