login.pas

这是一个三层的进销存系统

unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg, Inifiles, Base;
type
  Tfrmlogin = class(TfrmBase)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Bevel1: TBevel;
    btnexit: TButton;
    btnok: TButton;
    procedure btnexitClick(Sender: TObject);
    procedure btnokClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmlogin: Tfrmlogin;

implementation

uses Global, data, common, main;

{$R *.dfm}

procedure Tfrmlogin.btnexitClick(Sender: TObject);
begin
  inherited;
  ModalResult:=mrCancel;
end;

procedure Tfrmlogin.btnokClick(Sender: TObject);
begin
  inherited;
  if Trim(edit2.Text)='' then
    begin
      messagedlg('用户名称不能为空 ! ',mtError,[mbok],0);
      exit;
    end
    else
    gs_Servername:=Trim(edit1.Text);

  datam:=Tdatam.Create(application);
  if gs_connect=0 then
      begin
        application.MessageBox('应用服务器没有启动!','警告信息',
                  MB_ok+MB_iconstop+MB_applmodal);
        application.Terminate;
      end;

  gs_userid:=logins(Trim(edit2.Text),Trim(edit3.Text));
  if gs_userid>0 then
    begin
      gs_username:=Getusername(Trim(edit2.Text),Trim(edit3.Text));
      gs_admin:=getadmin(Trim(edit2.Text),Trim(edit3.Text));
      gs_groupid:=getgroupid(Trim(edit2.Text),Trim(edit3.Text));
      gs_apptitle:=getapptitle;
      gs_usercode:=Trim(edit2.Text);
      gs_password:=Trim(edit3.Text);
      f_Writemainini('Login','ServerIP',gs_Servername);
      f_Writemainini('Login','Usercode',gs_usercode);
      frmmain.StatusBar1.Panels[0].Text:=gs_apptitle;
      frmmain.statusbar1.Panels[1].Text:='服务器地址 : '+gs_servername;
      frmmain.statusbar1.Panels[2].Text:='当前用户 : '+gs_username;

      GetSqlData(Datam.CDSpermiss,'Vpermiss','Fid','fuserid='+inttostr(gs_userid),20);      
      syslog(self.Name,'登录ERP系统');
      ModalResult:=mrOK;
    end
    else
    begin
      Messagebox(0,'用户或密码不正确，请重新输入 ！','',MB_ok);
      exit;
    end;
end;

procedure Tfrmlogin.FormCreate(Sender: TObject);
var
  s:string;
  ini:Tinifile;
  usercode:string;
  serverIP:string;
begin
  inherited;
  image1.Picture.LoadFromFile(ExtractfilePath(application.ExeName)+'PathTitle.jpg');
  s:=Extractfilepath(application.ExeName);
  if s[length(s)]<>'\' then
    s:=s+'\'+'Default.ini'
    else
    s:=s+'Default.ini';
  try
    ini:=Tinifile.Create(s);
    serverIP:=ini.ReadString('Login','ServerIP','');
    usercode:=ini.ReadString('Login','Usercode','');
  finally
    ini.Free;
  end;

  if Serverip<>'' then
    edit1.Text:=Serverip
    else
    edit1.Text:='127.0.0.1';
  edit2.Text:=usercode;  
end;

end.