=form2.DBhomP. Text; .DBkorp. Text:=form2.DBhomP. Text; .DBkv. Text:=form2.DBkvP. Text; .DBobl. Text:= raquo ;;. DBraion. Text:= raquo ;;. DBcity. Text:= raquo ;;. DBstreet. Text:= raquo ;;. DBhom. Text:= raquo ;;. DBkorp. Text:= raquo ;;. DBkv. Text:= raquo ;;
end ;;
unit zapis_vr;
procedure TForm9. Button6Click (Sender: TObject) ;. Close ;; TForm9. Button1Click (Sender: TObject) ;. ADObolnoy. Locate ( Fam raquo ;, form9. Edit1. Text, []) ;; TForm9. CheckBox1Click (Sender: TObject); form9. CheckBox1. Checked=true then. GroupBox1. Visible:=true. GroupBox1. Visible:=false ;; TForm9. Button2Click (Sender: TObject) ;. ADObolnoy. Locate ( Fam; data_roj raquo ;, VarArrayOf ([form9. Edit1. Text, form9. Edit2. Text]), []) ;; TForm9. CheckBox2Click (Sender: TObject) ;. ADOzapis_pr. Append; .DBEdit1. Text:=form9.DBGrid1. Fields [0] .Text ;; TForm9. Button5Click (Sender: TObject) ;. ADOvrachi. Locate ( Fam; profil raquo ;, VarArrayOf ([form9. Edit4. Text, form9. Edit3. Text]), []) ;; TForm9. Button3Click (Sender: TObject) ;. DBEdit5. Text:=form9.DBGrid2. Fields [2] .Text ;; TForm9. Button4Click (Sender: TObject) ;. ADOzapis_pr. Post; .ADOConnection1. Connected:=false; .ADOConnection1. Connected:=true; .ADObolnoy. Active:=true; .ADOraspisanie. Active:=true; .ADOvrachi. Active:=true; .ADOvyzov. Active:=true; .ADOzapis_analiz. Active:=true; .ADOzapis_pr. Active:=true; .ADOQuery1. Active:=true; .ADOQuery2. Active:=true; .ADOQuery3. Active:=true; .ADOQuery4. Active:=true; .ADOQuery5. Active:=true; .profil. Active:=true ;;
procedure TForm9. Button7Click (Sender: TObject) ;. Show ;;
