uregister.pas

车辆管理系统

unit URegister;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, DBGridEh, StdCtrls, Mask, DBCtrlsEh,
  jpeg, DB, DBClient, Base_C;

type
  Tfrmregister = class(TfrmBase_C)
    imagetop: TImage;
    Panel1: TPanel;
    Label1: TLabel;
    DBEditEh1: TDBEditEh;
    DBEditEh2: TDBEditEh;
    Label2: TLabel;
    Bevel1: TBevel;
    CDSaccount: TClientDataSet;
    dsaccount: TDataSource;
    DBGridEh1: TDBGridEh;
    Button1: TButton;
    Button2: TButton;
    procedure DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGridEh1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmregister: Tfrmregister;

implementation

uses Global, ClientMain, dm_Client, DataProcess;

{$R *.dfm}

procedure Tfrmregister.DBGridEh1GetCellParams(Sender: TObject;
  Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
  inherited;
  if dbgrideh1.SumList.RecNo mod 2=1 then
    backGround:=$00EAEFED
    else
    background:=clWhite;
end;

procedure Tfrmregister.FormCreate(Sender: TObject);
begin
  inherited;
  imagetop.Picture.LoadFromFile(GetLogDir('Images')+'system\PathTitle.jpg');
  if not GetsqlData(CDSaccount,'Master..erpdb','fid','fid>0',10) then
  begin
    messagedlg('没有可用帐套 !',mtError,[mbok],0);
    Exit;
  end;
end;

procedure Tfrmregister.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmregister:=nil;
end;

procedure Tfrmregister.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if (key=VK_DOWN) or (key=VK_TAB) then
    begin
        (sender as TDBgridEH).DataSource.DataSet.Next;
        key:=0;
    end;
end;

procedure Tfrmregister.Button1Click(Sender: TObject);
begin
  inherited;
  RegisterSuccess:=False;
  Close;
end;

procedure Tfrmregister.Button2Click(Sender: TObject);
var
  Ruserid:integer;
begin
  inherited;
  if dbediteh1.Text='' then
    begin
      messagedlg('用户名称不能为空 ! ',mtError,[mbok],0);
      dbediteh1.SetFocus;
      exit;
    end;
  if dbediteh2.Text='' then
    begin
      messagedlg('密码不能为空 ! ',mtError,[mbok],0);
      dbediteh1.SetFocus;
      exit;
    end;

  if CDSaccount.RecordCount > 0 then
    begin
      cExecSql('Use '+cdsAccount.fieldbyname('Dbname').AsString);
    end
    else
    begin
      messagedlg('没有可有帐套 !  ',mtWarning,[mbok],0);
      Exit;
    end;

  if trim(dbediteh1.Text)='ADMIN' then
    begin
      messagedlg('用超级用户请重新启动系统  !',mtError,[mbok],0);
      Exit;
    end;

  Ruserid:=CheckLogin(dbediteh1.Text,dbediteh2.Text);
  if Ruserid>0 then
    begin

      gs_Userid:=Ruserid;
      gs_usercode:=Trim(dbediteh1.Text);
      gs_password:=trim(dbediteh2.Text);

      gs_GetAccName:=CDSaccount.fieldbyname('Accname').AsString;
      gs_GetDBname:=cdsAccount.fieldbyname('Dbname').AsString;

      gs_username:=Getusername(dbediteh1.Text,dbediteh2.Text);
      gs_ISadmin:=getISadmin(dbediteh1.Text,dbediteh2.Text);
      gs_getApptitle:=getapptitle;

      f_Writeclientini('Login','Usercode',gs_usercode);
      dmClient.CSocket.Socket.SendText(c_Connect+gs_usercode);

      dmClient.CDSuserRight.Data:=GetUserRight(gs_UserID);

      frmclientmain.Caption:=gs_Getapptitle;
      frmclientmain.StatusBar.Panels[0].Text:='开发商:东创软件有限公司-刘祥';
      frmclientmain.statusbar.Panels[1].Text:='用户:'+gs_username;
      frmclientmain.statusbar.Panels[2].Text:='帐套:'+gs_getDBname;
      csyslog(self.Name,gs_username+'登入系统');
      RegisterSuccess:=True;
      frmregister.Close;
    end
    else
    begin
      messagedlg('密码不正确，请联系系统管理员 ! ',mtError,[mbok],0);
      RegisterSuccess:=False;
      exit;
    end;
end;

end.