Реферат Розробка і супровід додатків на базі операційної системи Android

bject) ;. Previewmodal ;;

Unit3

procedure TForm3. Button1Click (Sender: TObject); form2.ADOTable1. Modified then.ADOTable1. Post ;;; TForm3. Button2Click (Sender: TObject) ;;;

Unit4

procedure TForm4. Button1Click (Sender: TObject); form2.ADOTable2. Modified then.ADOTable2. Post ;;; TForm4. Button2Click (Sender: TObject) ;;;

Unit5 TForm5. Edit1Change (Sender: TObject); Length (Edit1. Text) gt; 0 then.ADOTable1. Filtered:=true.ADOTable1. Filtered:=False; .ADOTable1. Filter:= [Дата прийому]= + Edit1. Text + raquo ;;; TForm5. Edit2Change (Sender: TObject); Length (Edit2. Text) gt; 0 then.ADOTable1. Filtered:=true.ADOTable1. Filtered:=False; .ADOTable1. Filter:= [П.І.Б. лікаря]= + Edit2. Text + raquo ;;; TForm5. Button10Click (Sender: TObject) ;. DBEdit1. Text:= raquo ;;. DBEdit2. Text:= raquo ;;. DBEdit3. Text:= raquo ;;. DBEdit4. Text:= raquo ;;. DBEdit5. Text:= raquo ;;. ADOTable1. Insert ;. ShowModal ;;

TForm5. Button9Click (Sender: TObject) ;. ShowModal ;; TForm5. Button8Click (Sender: TObject) ;. ADOTable1. Delete ;; TForm5. Button7Click (Sender: TObject) ;. ADOTable1. IndexFieldNames:= [Реєстр номер] raquo ;; TForm5. Button6Click (Sender: TObject) ;. Previewmodal ;;

Unit6

procedure TForm6. Button1Click (Sender: TObject); form5.ADOTable1. Modified then.ADOTable1. Post ;;; TForm6. Button2Click (Sender: TObject) ;;;

Додаток Б

Зразки вихідних форм програмного програми