CONWARNING + MB_DEFBUTTON2) ;; end.show; .RadioButton2.Enabled:=false ;; TForm9.N8Click (Sender: TObject) ;. edit1.text:= Викладач raquo ;;. show ;; TForm9.N9Click (Sender: TObject);.Show;.adotable4.Filtered:=true;.adotable4.Filter:=laquo;komy=raquo;+quotedstr(form9.Label2.Caption+laquo; + form9.Label3.Caption) ;; TForm9.N2Click (Sender: TObject) ;. show; .N4.Enabled:=false; .N5.Enabled:=false; .N7.Enabled:=false ;; end.Unit11 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Buttons, Mask;=class (TForm): TMaskEdit ;: TMaskEdit ;: TEdit ;: TEdit ;: TEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TBitBtn ;: TBitBtn; BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject); Edit3KeyPress (Sender: TObject; var Key: Char); Edit2KeyPress (Sender: TObject; var Key: Char) ;;: TForm11; DM, Unit4, Unit9; TForm11.BitBtn1Click (Sender: TObject); (datamodule2.ADOTable1.Locate ( login , MaskEdit1.Text, [])) then (Handle, PChar ( Такий логін вже існує! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;. MaskEdit1.Text:= raquo ;;; end; (datamodule2.ADOTable1.Locate ( parol , MaskEdit2.Text, [])) then (Handle, PChar ( Введений пароль вже існує! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2 ) ;. MaskEdit2.Text:= raquo ;;; end; form11.MaskEdit1.Text= then (Handle, PChar ( Введіть логін! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end; form11.MaskEdit2.Text= then (Handle, PChar ( Введіть пароль! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end; edit2.Text= then (Handle, PChar ( Вкажіть групу! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;;; edit3.Text= then (Handle, PChar ( Введіть прізвище! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end; edit1.Text= then (Handle, PChar ( Введіть ім'я! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end;.ADOTable1.Insert;.ADOTable1.FieldValues[laquo;loginraquo;]:=form11.MaskEdit1.Text;.ADOTable1.FieldValues[laquo;parolraquo;]:=form11.MaskEdit2.Text;.ADOTable1.FieldValues[laquo;famraquo;]:=form11.Edit2.Text;.ADOTable1.FieldValues[laquo;nameraquo;]:=form11.Edit3.Text;.ADOTable1.FieldValues[laquo;groupraquo;]:=form11.Edit1.Text;.ADOTable1.Post;.MessageBox(laquo;Сохранение пройшло успішно! , Готово , MB_OK or MB_ICONINFORMATION);.Label2.Caption:=form11.Edit2.Text;.Label3.Caption:=form11.Edit3.Text;.Label4.Caption:=form11.Edit1.Text;.MaskEdit1.Text:=laquo;raquo;;.MaskEdit2.Text:=laquo;raquo;;.Edit1.Text:=laquo;raquo;;.Edit2.Text:=laquo;raquo;;.Edit3.Text:=laquo;raquo;;.Close;.show;;TForm11.BitBtn2Click(Sender: TObject);.MaskEdit1.Text:=laquo;raquo;;.MaskEdit2.Text:=laquo;raquo;;.Edit1.Text:=laquo;raquo;;.Edit2.Text:=laquo;raquo;;.Edit3.Text:=laquo;raquo;;.Close;.Show;;TForm11.Edit3KeyPress(Sender: TObject; var Key: Char); not (key in [ а .. я , А .. Я , # 8]) then key:=# 0 ;; Tform11.Edit2KeyPress (Sender:TObject; var Key: Char); not (key in [ а .. я , А .. Я , # 8]) then key:=# 0 ;; end.Unit12 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TGroupBox ;: TGroupBox ;: TGroupBox ;: TLabel ;: TMemo ;: TButton ;: TButton ;: TButton ;: TEdit; Button1Click (Sender: TObject); Button3Click (Sender: TObject); Button2Click (Sender: TObject) ;;: TForm12; Unit9, DM; TForm12.Button1Click (Sender: TObject); form12.Memo1.Text= then (Handle, PChar ( Ваше не містить тексту! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end; .ADOTable4.Insert; .ADOTable4.FieldValues ??[ ot_kogo ]:=form9.Label2.Caption + raquo;+form9.Label3.Caption;.ADOTable4.FieldValues[laquo;soderganieraquo;]:=form12.Memo1.Text;.ADOTable4.FieldValues[laquo;komyraquo;]:=form12.Edit1.Text;.ADOTable4.FieldValues[laquo;dataraquo;]:=datetostr(date);.ADOTable4.Post;
{form9.Label2.Caption:=form11.Edit3.Text;.Label3.Caption:=form11.Edit1.Text;.Label4.Caption:=form11.Edit2.Text;.MaskEdit1.Text:=laquo;raquo;;.MaskEdit2.Text:=laquo;raquo;;.Edit1.Text:=laquo;raquo;;.Edit2.Text:=laquo;raquo;;.Edit3.Text:=laquo;raquo;; }.Edit1.Text:=laquo;raquo;;.Memo1.Text:=laquo;raquo;;.Close;.MessageBox(laquo;Сообщение доставлено! , Готово , MB_OK or MB_ICONINFORMATION) ;. show ;; TForm12.Button3Click (Sender: TObject) ;. Edit1.Text:= raquo ;;. Memo1.Text:= raquo ;;.Close; .Show; end; TForm12.Button2Click (Sender: TObject) ;. Memo1.Text:= raquo ;;; end.Unit13 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TGroupBox ;: TGroupBox ;: TGroupBox ;: TMemo ;: TEdit ;: TButton ;: TButton ;: TButton ;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button4Click (Sender: TObject); Button3Click (Sender: TObject) ;;: TForm13; Unit14, DM, Unit6; TForm13.Button1Click (Sender: TObject) ; .show ;; TForm13.Button2Click (Sender: TObject); form13.Memo1.Text= then (Handle, PChar ( Ваше не містить тексту! ), PChar ( Помилка ), MB_ICONWARNING + MB_DEFBUTTON2) ;; end;.A...
