;;. Text: ='';. Text: ='';;
procedure TForm2.Button13Click (Sender: TObject);
begin
// зміна услугіDBGrid4.DataSource.DataSet do begin; ('MYopis'). Value: = Edit4.Text; ('MYst'). Value: = Edit5.Text;;;. Text: ='';. Text: ='';;
procedure TForm2.Edit2KeyPress (Sender: TObject; var Key: Char);
beginGroupBox8.Visible = true then beginKey of
'0 '.. '9 ', # 8:;// цифри і клавіша
# 13: Button1.Click: = Chr (0); ('Вводити тільки цифри!!!');// символ не відображати;;;; TForm2.Edit3KeyPress (Sender: TObject; var Key: Char); Key of
'0 '.. '9 ', # 8:;// цифри і клавіша
# 13: Button1.Click: = Chr (0); ('Вводити тільки цифри!!!');// символ не відображати;;;
procedure TForm2.Edit5KeyPress (Sender: TObject; var Key: Char);
beginKey of
'0 '.. '9 ', # 8:;// цифри і клавіша
# 13: Button1.Click: = Chr (0); ('Вводити тільки цифри!!!');// символ не відображати;;;
procedure TForm2.Button14Click (Sender: TObject);
var: TPrintDlg;: TDocInfo; (Pd, sizeof (Pd), # 0);. lStructSize: = sizeof (Pd);. hWndOwner: = Form2.Handle;. Flags: = PD_RETURNDC; PrintDlg (pd) then begin (DocInfo, sizeof (DocInfo), # 0);. cbSize: = SizeOf (DocInfo); (DocInfo.lpszDocName, 32); (DocInfo.lpszOutput, MAX_PATH);
// lStrCpy (DocInfo.lpszDocName, 'recept');
{Add this line to print to a file} (DocInfo.lpszOutput, 'recept.txt'); (Pd.hDc, DocInfo); (Pd.hDc); (Pd.hDc, 100, 100, 'Page 1 ', 6); (Pd.hDc); (Pd.hDc); (DocInfo.lpszDocName, 32); (DocInfo.lpszOutput, MAX_PATH);;
end; TForm2.Button15Click (Sender: TObject);
begin.RvProject1.Execute;;.
Додаток Б
В
Малюнок Б.1 - завантажувальна форма
В
Рисунок Б.2 - головна форма
В
Малюнок Б.3 - таблиця з даними про клієнтів
В
Малюнок Б.4 - таблиця з даними про лікарів
В
Малюнок Б.5 - таблиця з даними про медичні послуги
В
Малюнок Б.6 - таблиця з даними про медикаменти
В
Малюнок Б.7 - пошук
В
Малюнок Б.8 - редагування
В
Малюнок Б.9 - вікно інформація про розробника
В
Малюнок Б.10 - попередження про видаленні запису
