regist.pas

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

unit Regist;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg, Inifiles, Base;
type
  Tfrmregist = 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);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmregist: Tfrmregist;

implementation

uses Global, data, common, main;

{$R *.dfm}

procedure Tfrmregist.btnexitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

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

  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系统');
      Close;
    end
    else
    begin
      Messagebox(0,'用户或密码不正确，请重新输入 ！','',MB_ok);
      exit;
    end;
end;

procedure Tfrmregist.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;

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

end.