frmlogin.pas

一个小型餐饮管理系统,可支持小票打印.还存在一些小问题,希望朋友们帮助完成. QQ:15372627 E-mail:hdw802.163.com

unit FrmLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, RzEdit, RzCmboBx, RzLabel, ExtCtrls, RzPanel,
  jpeg,  DB, DBClient,Unit_Admin, WinSkinData;

type
  Tfrm_login = class(TForm)
    Image1: TImage;
    RzGroupBox1: TRzGroupBox;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    Button1: TButton;
    Button2: TButton;
    Com_loginname: TRzComboBox;
    ed_pwd: TRzEdit;
    admin_cds: TClientDataSet;
    SkinData1: TSkinData;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    MyAdmin:TAdmin;
  public
    { Public declarations }
  end;

var
  frm_login: Tfrm_login;

implementation

uses FrmMain;

{$R *.dfm}

procedure Tfrm_login.Button2Click(Sender: TObject);
begin
 Application.Terminate;
end;

procedure Tfrm_login.Button1Click(Sender: TObject);
Var
 TmpID:Integer;
begin
 If MyAdmin.AdminEnabled(Com_loginName.Text,Ed_Pwd.Text)=True Then     //登录日志代码部分
  Begin
   Self.hide;
   TmpID:=MyAdmin.AdminID(Com_loginName.Text,Ed_Pwd.Text);
   Frm_Main.AdminID:=TmpID;                            //操作员ID
   Frm_Main.AdminName:=MyAdmin.AdminName(TmpID);       //操作员真实姓名
   Frm_Main.AdminRule:=MyAdmin.AdminRule(TmpID);       //操作员权限
   Frm_Main.MaxMoney:=MyAdmin.AdminMaxMoney(TmpID);    //操作员签单最大金额
   Myadmin.UpdateLoginTime(TmpID);
   Frm_Main.Show;
  End;
end;

procedure Tfrm_login.FormCreate(Sender: TObject);
begin
 MyAdmin:=TAdmin.Create;
 Com_LoginName.Items.Clear;
 com_LoginName.Items.AddStrings(MyAdmin.AllAdminList);
 Com_LoginName.ItemIndex:=0;
end;

end.