uni_login.~pas

一个非常不错的经费报销管理软件

unit Uni_login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMenu, ExtCtrls, jpeg;

type
  TFrm_login = class(TForm)
    Image1: TImage;
    P_Login: TPanel;
    Image2: TImage;
    XPMenu1: TXPMenu;
    Timer_Login: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    B_Login: TButton;
    B_Cancel: TButton;
    E_Server: TEdit;
    E_Password: TEdit;
    CBX_User: TComboBox;
    B_Update: TButton;
    procedure B_LoginClick(Sender: TObject);
    procedure Timer_LoginTimer(Sender: TObject);
    procedure B_CancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure B_UpdateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_login: TFrm_login;

implementation

{$R *.dfm}
uses Uni_main,Uni_function,IniFiles,Uni_dm;

procedure TFrm_login.B_LoginClick(Sender: TObject);
begin
  DM.bsLoginUser.Close;
  DM.bsLoginUser.Open;
  if DM.bsLoginUser.Locate('cname',CBX_User.Text,[])
  then begin
    if DM.bsLoginUser.FieldByName('cPassword').AsString=E_Password.Text
    then begin
      Application.CreateForm(TFrm_main,Frm_main);
      Frm_main.Show;
      Application.CreateForm(TFrm_Function,Frm_Function);
      Hide;
    end
    else
    begin
      MessageBoxError('密码错误！！');
    end;;
  end
  else
  begin
    MessageBoxError('用户名错误！！');
  end;;
end;

procedure TFrm_login.Timer_LoginTimer(Sender: TObject);
begin
  P_Login.Visible:=True;
  Timer_Login.Enabled:=False;
end;

procedure TFrm_login.B_CancelClick(Sender: TObject);
begin
  Close;
end;

procedure TFrm_login.FormShow(Sender: TObject);
VAR
  MYINIFILE:TIniFile;
begin
  Frm_Function.DataOpenClick(Sender);
  MYINIFILE:=TIniFile.Create(GetCurrentDir+'\DATABASE.INI');
  E_Server.Text:=MYINIFILE.ReadString('DATABASE','SERVER','');
  MYINIFILE.Free;
  CBX_User.Clear;
  with DM do
  begin
    bsUser.Close;
    bsUser.SQL.Text:='select *from bsUser where iState>0';
    bsUser.Open;
    while not bsUser.Eof
    do begin
    CBX_User.Items.Add(bsUser.FieldByName('cname').AsString);
    bsUser.Next;
    end;
  end;
  CBX_User.ItemIndex:=0;

end;

procedure TFrm_login.B_UpdateClick(Sender: TObject);
begin
  //调用升级程序
  WinExec('Update.exe',SW_NORMAL);
  Application.Terminate;
  
end;

end.