loginunit.~pas

一个基于局域网的公司公文管理系统

unit LoginUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,FrmMain,GlobalUnit,Registry,ADODB;

type
  TLoginForm = class(TForm)
    Image1: TImage;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    edtUserid: TEdit;
    edtPass: TEdit;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    ComboBox1uint: TComboBox;

    procedure btnCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginForm: TLoginForm; 
implementation

{$R *.dfm}


procedure TLoginForm.btnCancelClick(Sender: TObject);
begin
     Close;
end;

procedure TLoginForm.FormShow(Sender: TObject);
var
i:integer;
iunit_id:integer;
strunit_name:string;
qrTemp:TAdoQuery;
strSQL:string;
begin
////////////////////////////////////////////读出分公司代码表，填充分公司列表框
   qrTemp:=TAdoQuery.Create(nil);
   qrTemp.Connection :=G_ADOConnection;
   qrTemp.SQL.Clear;
   strSQL:='select unit_id,unit_name from  ent_unit order by unit_id';
   qrTemp.SQL.Text:=strSQL;
   try
      qrTemp.Open;
      if qrTemp.RecordCount>0 then
      begin
         ComboBox1uint.Items.Clear;
         setlength(unit_id_group,qrTemp.RecordCount);
        qrTemp.First;
        for i:=0 to qrTemp.RecordCount-1 do
        begin
            iunit_id:= qrTemp.fieldbyname('unit_id').AsInteger;
            strunit_name:= qrTemp.fieldbyname('unit_name').AsString;
            unit_id_group[i].unit_id:=iunit_id;
            unit_id_group[i].strName:=strunit_name;
            ComboBox1uint.Items.Add(strunit_name);
           qrTemp.Next;
        end;
        unit_id_Cnt:= qrTemp.RecordCount;
      end
      else
      begin
        showmessage('基础数据不全(分公司代码表为空)，系统退出');
        close;
      end;
   except
   end;
   ComboBox1uint.ItemIndex:=0;
end;

procedure TLoginForm.btnOKClick(Sender: TObject);
var
reg:TRegistry;
s: string;
qryUser:TAdoQuery;
begin
  s := 'select * from ENT_person where user_id='''+edtUserid.Text+''' and ';
//  s := s+'password='''+edtPass.Text+''''+ ' and unit_id='+inttostr(unit_id_group[ComboBox1uint.ItemIndex].unit_id);
  s := s+'password='''+edtPass.Text+'''';
  qryUser:=TAdoQuery.Create(nil);
  qryUser.Connection :=G_ADOConnection;
  qryUser.SQL.Clear;
  qryUser.SQL.Add(s);
  qryUser.Open;
  if qryUser.IsEmpty then
  begin
    Application.MessageBox('用户登录信息错误,请重新输入','登录失败',MB_OK+MB_ICONWARNING);
    edtPass.SelectAll;
    edtPass.SetFocus;
    Exit;
  end
  else
  begin
    g_user_id :=qryUser.FieldByName('user_id').AsString;
    g_password := qryUser.FieldByName('password').AsString;
    g_unit_id := qryUser.FieldByName('unit_id').AsInteger;
    g_level:= qryUser.FieldByName('privilege').AsInteger;
    g_user_name:= qryUser.FieldByName('name').AsString;
    ModalResult:=mrOk;
  end; 
end;

end.