;.Enabled:=false;.Enabled:=false;.Enabled:=false;.ReadOnly:=false;.ReadOnly:=false;.ReadOnly:=false;.ReadOnly:=false;.ReadOnly:=false;.ReadOnly:=false;.Active:=false;.TableName:=ComboBox1.Text;.Active:=true;.Enabled:=true;;;TAdm.DataSource3StateChange(Sender: TObject) ;: boolean;:=((Wopros.State=dsEdit) or (Wopros.State=dsInsert)) ;. Enabled:=not ss; .Enabled:=not ss; .Enabled:=not ss; .Enabled: =ss; .Enabled:=ss; .Enabled:=not ss; .Enabled:=not ss; .Enabled:=not ss ;; TAdm.Button7Click (Sender: TObject); _ Brow (false) ;. Append; .SetFocus ;; TAdm.Button8Click (Sender: TObject); _ Brow (false) ;. Edit; .SetFocus ;; TAdm.Button9Click (Sender: TObject); Application.MessageBox (PChar ( Ви дійсно хочете видалити запис з бази даних? raquo ;), Видалення запису , mb_YesNo)=id_Yes then.Delete; EDBEngineError do
begin ( Відомості видаляти не можна. ) ;;;;;; TAdm.Button10Click (Sender: TObject); Trim (DBEdit7.Text)= then
begin.MessageBox ( Для запису даних у таблицю поле Питання має бути заповнено. , Попередження , mb_OK);
DBEdit7.SetFocus; (Trim (DBEdit8.Text)= ) then
begin.MessageBox ( Для запису даних у таблицю поле Варіант 1 повинно бути заповнене. , Попередження , mb_OK);
DBEdit8.SetFocus; Trim (DBEdit9.Text)= then
begin.MessageBox ( Для запису даних у таблицю поле Варіант 2 має бути заповнено. , Попередження , mb_OK);
DBEdit9.SetFocus; Trim (DBEdit10.Text)= then
begin.MessageBox ( Для запису даних у таблицю поле Варіант 3 повинно бути заповнене. , Попередження , mb_OK);
DBEdit10.SetFocus; Trim (DBEdit12.Text)= then
begin.MessageBox ( Для запису даних у таблицю поле Варіант 4 має бути заповнено. , Попередження , mb_OK);
DBEdit12.SetFocus; Trim (DBEdit11.Text)= then
begin.MessageBox ( Для запису даних у таблицю поле Номер відповіді повинно бути заповнене. , Попередження , mb_OK);
DBEdit11.SetFocus;(StrToInt(DBEdit11.Text)lt;gt;1)and(StrToInt(DBEdit11.Text)lt;gt;2)and(StrToInt(DBEdit11.Text)lt;gt;3)and(StrToInt(DBEdit11.Text)lt;gt;4) then
begin.MessageBox ( № відповіді повинен бути рівний 1, 2,3 або 4. , Попередження , mb_OK);
DBEdit11.Text:=laquo;raquo;;.SetFocus;.Post;_Brow(true);;;TAdm.Button11Click(Sender: TObject) ;. Cancel; _Brow (true) ;; TAdm.Button5Click (Sender: TObject); Application.MessageBox (PChar ( Ви дійсно хочете видалити запис з бази даних? Raquo;), Видалення запису , mb_YesNo) =id_Yes then.Delete; EDBEngineError do
begin ( Відомості видаляти не можна. ) ;;;;;; TAdm.Button6Click (Sender: TObject) ;: integer; Application.MessageBox (PChar ( Ви дійсно хочете видалити ВСІ записи з бази даних? ), Видалення записів , mb_YesNo)=id_Yes then.First; i:=1 to Rezultati.RecordCount do.Delete ;; EDBEngineError do.Next ;;;;; TAdm.PageControl1Change (Sender:TObject); (Wopros.State=dsEdit) or (Wopros.State=dsInsert) then.ActivePage:=TabSheet3; .MessageBox ( Для переходу на іншу сторінку необхідно завершити редагування або введення нових даних. , Помилка raquo ;, mb_OK) ;;; TAdm.N2Click (Sender: TObject) ;. Edit1.Clear; .Show ;; TAdm.N5Click (Sender: TObject) ;. Show ;; TAdm.Button13Click (Sender: TObject) ;. Execute; ; TAdm.N6Click (Sender: TObject) ;: file;: integer;:=ShellExecute (handle, open , help/index.htm , Nil, Nil, SW_SHOWNORMAL) ;; TAdm.Button1Click (Sender: TObject) ;. Show ;; TAdm.Button2Click (Sender: TObject) ;. Show ;; TAdm.Button3Click (Sender: TObject) ;. Show ;; TAdm.DataSource1StateChange (Sender: TObject) ;: boolean;:=((Wopros.State=dsEdit) or (Wopros.State=dsInsert)) ;. Enabled:=not ss; .Enabled:=not ss; .Enabled:=not ss; .Enabled:=ss; .Enabled:=ss; .Enabled :=not ss ;;.
Установка пароля
unit UstParol ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls;=class (TForm): TGroupBox ;: TLabel ;: TLabel ;: TEdit ;: TEdit ;: TButton ;: TButton; Button20Click (Sender: TObject); Button14Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm3 ;: string ;: TextFile ;: string;
{$ R * .dfm} TForm3.Button20Click (Sender: TObject);:=edit5.Text;(f,extractfilepath(paramstr(0))+laquo;p.001raquo;);(f);(f,s);(f);resKODlt;gt;s then.MessageBox ( Невірний старий пароль!raquo;,laquo;Ошибкаraquo;,mb_OK);.Clear;.Clear;.SetFocus;;;(f,extractfilepath(paramstr(0))+laquo;p.001raquo;);(f);:=edit6.Text;(f,resKOD);(f);.MessageBox(laquo;Пароль изменен!raquo;,laquo;Сообщениеraquo;,mb_OK);.Clear;.Clear;.Close;;TForm3.Button14Click(Sender: TObject) ;. Clear; .Clear; .Close ;;.
