; TOsnow.N3Click (Sender: TObject) ;. Close ;; TOsnow.N7Click (Sender: TObject) ;. ActivePage:=TabSheet1 ;; TOsnow.N8Click (Sender: TObject) ;. ActivePage:=TabSheet2 ;;.
Налаштування
unit Nastr ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ShellAPI, DB, DBTables, jpeg, ExtCtrls, ComCtrls, Math ,, Mask, Grids, DBGrids, OleCtrls, SHDocVw, Menus, RpRave, RpCon ,, RpConBDE, RpDefine, RpBase, RpSystem;=class (TForm): TDatabase ;: TTable ;: TStringField ;: TDateField ;: TSmallintField ;: TSmallintField ;: TFloatField ;: TSmallintField ;: TStringField ;: TTable ;: TSmallintField ;: TStringField ;: TStringField ;: TStringField ;: TStringField ;: TStringField ;: TFloatField ;: TPageControl ;: TTabSheet ;: TGroupBox ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBGrid ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBNavigator ;: TButton ;: TButton ;: TButton ;: TButton ;: TButton ;: TTimer ;: TTabSheet ;: TDBGrid;:TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TDBNavigator ;: TButton ;: TButton ;: TDataSource ;: TComboBox ;: TLabel ;: TButton ;: TButton ;: TStringField ;: TButton ;: TRvSystem ;: TRvTableConnection ;: TRvProject ;: TGroupBox ;: TButton ;: TButton ;: TButton ;: TDataSource; FormCreate (Sender: TObject); FormActivate (Sender: TObject); TabSheet3Show (Sender: TObject); Button12Click (Sender: TObject); Button18Click (Sender: TObject); ComboBox1Change (Sender: TObject); DataSource3StateChange (Sender: TObject); Button7Click (Sender: TObject); Button8Click (Sender: TObject); Button9Click (Sender: TObject); Button10Click ( Sender: TObject); Button11Click (Sender: TObject); Red_Brow (a: boolean); Button5Click (Sender: TObject); Button6Click (Sender: TObject); PageControl1Change (Sender: TObject); N2Click (Sender: TObject); N5Click (Sender:TObject); Button13Click (Sender: TObject); N6Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); DataSource1StateChange (Sender: TObject);
{Private declarations}
{Public declarations} ;: TAdm;: TForm ;, err: boolean ;, j, NomerWoprosa, WsegoWoprosow, a, prosto, prawOtw, ozen, rez, k: integer;, NachTime: TDateTime;:array [0..10] of integer ;: array [0..10] of integer;: tsearchrec ;: string; WwodParol, Avtor, Osn, UstOz, UstTime, UstParol;
{$ R * .dfm} TAdm.Red_Brow (a: boolean);.ReadOnly:=a;.ReadOnly:=a;.ReadOnly:=a;.ReadOnly:=a;.ReadOnly:=a;.ReadOnly:=a;;TAdm.FormCreate(Sender: TObject) ;: TextFile ;: string;.Params.Clear;.Params.Add(laquo;PATH=raquo;+ExtractFilePath(ParamStr(0)));.Connected:=false;.Active:=true;.Active:=false;.TableType:=ttParadox;.Active:=true;.ActivePage:=TabSheet3;;TAdm.FormActivate(Sender: TObject) ;. Active:=false; .TableType:=ttParadox; .Active:=true ;; TAdm.TabSheet3Show (Sender: TObject) ;. Clear;:=FindFirst (extractfilepath (paramstr (0)) + *. db , faanyfile, sr); res=0 do(sr.name=laquo;Nastroiki.DBraquo;)or(sr.name=laquo;Polz.DBraquo;)or(sr.name=laquo;Rezult.DBraquo;)or(sr.name=laquo;Wopr.DBraquo;) then.Items.Add (sr.name) ;;:=findnext (sr) ;; (sr) ;;
TAdm.Button12Click (Sender: TObject) ;: integer;:=0;
s:=inputbox ( Введення даних , Введіть ім'я файлу нового тесту. , );
if s= then.MessageBox (pchar ( Ім'я БД тесту не введено. Створення тесту припинено. ), Попередження , mb_ok);
exit; (pos (. , s) gt; 0) then delete (s, pos (. , s), 1); ii:=0 to combobox1.Items.Count - 1 docombobox1.Items [ii]=s + .db then
begin:=application.MessageBox (pchar ( БД з таким ім'ям вже існує. Замінити БД? ), Питання , mb_yesno); j=7 then.MessageBox (pchar ( Створення тесту припинено. ), Попередження , mb_ok);
exit; begin k:=2223;break;end;;:=0;.Active:=false;.EmptyTable;.Items.Add(s+laquo;.dbraquo;);.ItemIndex:=ComboBox1.Items.Count- 1;.TableName:=ComboBox1.Text;(pchar(extractfilepath(paramstr(0))+laquo;Wopr.dbraquo;),pchar(extractfilepath(paramstr(0))+s+laquo;.dbraquo;),false);.Active:=true;;;TAdm.Button18Click(Sender: TObject); Application.MessageBox (PChar ( Ви дійсно хочете видалити базy даних? Raquo;), Видалення запису , mb_YesNo)=id_Yes thenComboBox1.Text lt; gt; then.Active:=false;(f,extractfilepath(paramstr(0))+ComboBox1.Text);(f);:=ComboBox1.Text;(s,length(s) - 2,3);.Items.Delete(ComboBox1.ItemIndex);.ItemIndex:=0;.TableName:=ComboBox1.Text;.Active:=true;.MessageBox(laquo;Невозможно видалити діючу базу даних , Попередження , mb_ok) .MessageBox ( не встановлено файл для удаленияraquo;,laquo;Предупреждениеraquo;,mb_ok);;;TAdm.ComboBox1Change(Sender: TObject); ComboBox1.Text= then.Enabled:=false;.Enabled:=false;.Enabled:=false;.Enabled:=false...
