DOTable4.Insert;.ADOTable4.FieldValues[laquo;ot_kogoraquo;]:=laquo;Преподавательraquo;;.ADOTable4.FieldValues[laquo;soderganieraquo;]:=form13.Memo1.Text;.ADOTable4.FieldValues[laquo;komyraquo;]:=form13.Edit1.Text;.ADOTable4.FieldValues[laquo;dataraquo;]:=datetostr(date);.ADOTable4.Post;.Edit1.Text:=laquo;raquo;;.Memo1.Text:=laquo;raquo;;.Close;.MessageBox(laquo;Сообщение доставлено! , Готово , MB_OK or MB_ICONINFORMATION) ;. show ;; TForm13.Button4Click (Sender: TObject);.Edit1.Text:=laquo;raquo;;.Memo1.Text:=laquo;raquo;;.Close;.Show;;TForm13.Button3Click(Sender: TObject) ;. Edit1.Text:= raquo ;;. Memo1.Text:= raquo ;;; end.Unit14 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids;=class (TForm): TDBGrid; DBGrid1DblClick (Sender: TObject) ;;: TForm14; DM, Unit13; TForm14.DBGrid1DblClick (Sender: TObject);.Show;.Edit1.Text:=form14.DBGrid1.SelectedField.DataSet.FieldValues[laquo;famraquo;]+laquo; + form14.DBGrid1.SelectedField.DataSet.FieldValues ??[ name ] ;. Close ;;. Unit15 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TGroupBox ;: TGroupBox ;: TGroupBox ;: TEdit ;: TMemo ;: TButton ;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject) ;;: TForm15; Unit13, Unit12; TForm15.Button1Click (Sender: TObject);.Edit1.Text:=laquo;raquo;;.Memo1.Text:=laquo;raquo;;.Close;;TForm15.Button2Click(Sender: TObject); form15.Edit1.Text= Викладач then begin form12.show;.Edit1.Text:=form15.Edit1.Text;.Edit1.Text:=laquo;raquo;;.Memo1.Text:=laquo;raquo;;.Close;else.show;.Edit1.Text:=form15.Edit1.Text;.Close;; end.Unit16; е, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, Menus;=class (TForm): TDBGrid ;: TPopupMenu ;: TMenuItem; DBGrid1DblClick (Sender: TObject); N1Click ( Sender: TObject) ;;: TForm16; DM, testirovanie, Unit15, Unit6; TForm16.DBGrid1DblClick (Sender: TObject);.show;.Edit1.Text:=form16.DBGrid1.SelectedField.DataSet.FieldValues[laquo;ot_kogoraquo;];.Memo1.Text:= form16.DBGrid1.SelectedField.DataSet.FieldValues[laquo;soderganieraquo;];.Close;;TForm16.N1Click(Sender: TObject); application.MessageBox ( Видалити це повідомлення? Raquo;,
Видалення , mb_iconQuestion + mb_yesno)=idyes then.ADOTable4.Delete ;; end.Unit17 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, Menus;=class (TForm): TDBGrid ;: TPopupMenu ;: TMenuItem; DBGrid1DblClick (Sender: TObject); N1Click (Sender:TObject) ;;: TForm17; DM, Unit15, Unit9; TForm17.DBGrid1DblClick (Sender: TObject);.show;.Edit1.Text:=form17.DBGrid1.SelectedField.DataSet.FieldValues[laquo;ot_kogoraquo;];.Memo1.Text:= form17.DBGrid1.SelectedField.DataSet.FieldValues[laquo;soderganieraquo;];.Close;;TForm17.N1Click(Sender: TObject); application.MessageBox ( Видалити це повідомлення? Raquo;,
Видалення , mb_iconQuestion + mb_yesno)=idyes then.ADOTable4.Delete ;; end.
Unit18 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Menus;=class (TForm): TOpenDialog ;: TMemo ;: TSaveDialog ;: TMainMenu ;: TMenuItem;:TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem; FormShow (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); N7Click (Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject); N5Click (Sender: TObject); N2Click (Sender: TObject) ;;: TForm18; f: TextFile;// Текстовий файл тесту
{$ R * .dfm} TForm18.FormShow (Sender: TObject);
//знімаємо ознака відкритого файлу (ми його ще не відкривали); TForm18.Button1Click (Sender: TObject); OpenDialog1.Execute then.Lines.LoadFromFile (OpenDialog1.FileName) ;; TForm18.Button2Click ( Sender: TObject); SaveDialog1, Memo1 doExecute then.SaveToFile (FileName) ;. FileName:=FileName; ; end; TForm18.Button3Click (Sender: TObject); application.MessageBox ( Зберегти зміни у файлі? ,
Збереження , mb_iconQuestion + mb_yesno)=idyes then.Lines.SaveToFile (OpenDialog1.FileName);.Memo1.Text:= Laquo; raquo ;; end; TForm18.N7Click (Sender: TObject) ;. Memo1.Clear ;; TForm18.N3Click (Sender: TObject) ;. Memo1.Clear; OpenDialog1.Execute then.Lines.LoadFromFile (OpenDialog1.FileName) ;; TForm18.N4Click ( Sender: TObject); application.MessageBox ( Зберегти зміни у файлі? ,
Збереження , mb_iconQuestion + mb_yesno)=idyes then begin; .Lines.SaveToFile (OpenDialog1.FileName); ; end; TForm18.N5Click (Sender: TObject); SaveDialog1, Memo1 doExecute then.SaveToFile (FileName) ;. FileName:=FileName;// Щоб виправлений текст не затёр джерело; pos (. Raquo ;, SaveDialog1.FileName)=0 then.FileName:=SaveDialog1.FileName + .txt raquo ;;; TForm18.N2Click (Sender: TObject); form18. Memo1.Text:= raquo ;;. Close ;; end.
