o;Generalraquo;,laquo;Passraquo;+ IntToStr (Item), Crypt (edtPass.text, 30)) ;; TForm4.btn3Click (Sender: TObject) ;. Text:=InputBox ( Заміна логіну , Введіть новий логінraquo;,edtPass.text);:=edtLogin.text;.WriteString(laquo;Generalraquo;,laquo;Loginraquo;+ IntToStr (Item), Crypt (edtLogin.text, 30)) ;; TForm4.btn4Click (Sender: TObject); (count) ;. WriteString ( General , Pass + IntToStr (count), Crypt (edtPass.text, 30)) ;. WriteString ( General , Login + IntToStr(count),Crypt(edtLogin.text,30));.WriteInteger(laquo;Generalraquo;,laquo;Countraquo;,count);;.
А.3 Лістінг форми редагування записів БД послугRedactor ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, DBCtrls, Mask;=class (TForm): TGroupBox ;: TLabel ;: TDBEdit ;: TLabel ;: TLabel ;: TDBLookupComboBox ;: TDBLookupComboBox ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TButton ;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TFormRedactor; UnitDM;
{$ R * .dfm} TFormRedactor.Button1Click (Sender: TObject); DM.ADOTable3.Modified then DM.ADOTable3.Post ;;; TFormRedactor.Button2Click (Sender: TObject) ;. ADOTable3. Cancel ;;;.
А.3 Лістінг форми редагування записів БД КЛІЄНТІВ салонуRedactorK ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, DBCtrls, Mask;=class (TForm): TGroupBox ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TButton ;: TButton ;: TDBEdit ;: TDBEdit; Button1Click (Sender: TObject); Button2Click ( Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm2; UnitDM;
{$ R * .dfm} TForm2.Button1Click (Sender: TObject); DM.ADOTable2.Modified then DM.ADOTable2.Post ;;; TForm2.Button2Click (Sender: TObject) ;. ADOTable2. Cancel ;;;.
А.3 Лістінг форми редагування записів БД співробітніківRedactorS ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Mask, DBCtrls;=class (TForm): TGroupBox ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TButton ;: TButton; Button1Click (Sender: TObject); Button2Click (Sender:TObject);
{Private declarations}
{Public declarations} ;: TForm3; UnitDM;
{$ R * .dfm} TForm3.Button1Click (Sender: TObject); DM.ADOTable1.Modified then DM.ADOTable1.Post ;;; TForm3.Button2Click (Sender: TObject) ;. ADOTable1. Cancel ;;;.
