nder: TObject) ;. First; .MoveBy (ComboBox1.ItemIndex); IBQuery1. FieldByName ( PASS ). AsString=Edit1.Text then
ShowMessage ( Авторизація пройшла успішно! Ви увійшли з правами +
IBQuery1.FieldByName(laquo;NAMEraquo;).AsString);IBQuery1.FieldByName(laquo;SELECT_GOODSraquo;).AsInteger =1 then.MODE [1]:=true else Unit1.MODE [1]:=false; IBQuery1.FieldByName ( SELECT_SALES ). AsInteger=1 then.MODE [2]:=true else Unit1.MODE [2 ]:=false; IBQuery1.FieldByName ( EDIT_GOODS ). AsInteger=1 then.MODE [3]:=true else Unit1.MODE [3]:=false; IBQuery1.FieldByName ( ADD_GOODS ). AsInteger= 1 then.MODE [4]: ??= true else Unit1.MODE [4]: ??= false; IBQuery1.FieldByName ( SUPER ). AsInteger=1 then.MODE [5]:=true else Unit1.MODE [5] :=false; .MODENAME:=IBQuery1.FieldByName ( NAME ). AsString; .USERNAME:=IBQuery1.FieldByName ( FN )
. AsString + + IBQuery1.FieldByName ( LN )
. AsString + + IBQuery1.FieldByName ( PN ). AsString; .Button5.Caption:= Вихід raquo ;;. IDUSER:=IBQuery1.FieldByName ( ID ). AsInteger; .Clear; .Close;
ShowMessage ( Пароль введено невірно, будь ласка повторіть введення );
end ;; TLogin.ComboBox1Change (Sender: TObject) ;. Clear ;; TLogin.FormCreate (Sender: TObject) ;: byte ;: string; IBQuery1 do; .Clear; .Add ( SELECT .ID, FN, LN, PN, PASS, NAME, SELECT_GOODS, SELECT_SALES,
+
EDIT_GOODS, ADD_GOODS, SUPER FROM USERS, USER_TYPE USERS.TYPE=USER_TYPE.ID ) ;;; i:=0 to IBQuery1.RecordCount do:=IBQuery1.FieldByName ( FN )
. AsString + + IBQuery1.FieldByName ( LN )
. AsString + + IBQuery1.FieldByName ( PN ). AsString; .Items.Add (t) ;. Next ;;. ItemIndex:=0 ;;. Unit6 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, , StdCtrls, ExtCtrls;=class (TForm): TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TImage ;: TImage ;: TImage ;: TImage ;: TImage ;: TButton; Button1Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations} ;: TAboutR;
{$ R * .dfm} TAboutR.Button1Click (Sender: TObject) ;. Close ;; TAboutR.FormCreate (Sender: TObject) ;;.
