denglu.pas

人事管理系统的源代码

unit Denglu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons;

type
  Tdenglu_form = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  denglu_form: Tdenglu_form;

implementation
  uses main;

{$R *.dfm}

procedure Tdenglu_form.FormActivate(Sender: TObject);
begin
  ADOConnection1:=MAIN_FORM.ADOConnection1;
  
end;

procedure Tdenglu_form.BitBtn1Click(Sender: TObject);
 var adodataset1:tadodataset;
begin

    //动态创建一个tadodateset控件
      adodataset1:=tadodataset.Create(self);
      adodataset1.Connection:=adoConnection1;
      adodataset1.CommandType:=cmdtext;
      adodataset1.CommandText:='select * from 操作用户表 where 用户名=:username and 密码=:password';
      adodataset1.Close;
      adodataset1.Parameters.Clear;
      adodataset1.Parameters.AddParameter;
      adodataset1.Parameters[0].Name:='username';
      adodataset1.Parameters[0].DataType:=ftstring;
      adodataset1.Parameters[0].Direction:=pdinput;
      adodataset1.Parameters[0].Value:=edit1.Text;
      adodataset1.Parameters.AddParameter;
      adodataset1.Parameters[1].Name:='password';
      adodataset1.Parameters[1].DataType:=ftstring;
      adodataset1.Parameters[1].Direction:=pdinput;
      adodataset1.Parameters[1].Value:=edit2.Text;
      adodataset1.Active:=true;
      if adodataset1.Recordset.RecordCount=1 then
          begin
             username:= denglu_form.edit1.Text;
             qx[1]:=adodataset1.FieldByName('权限一').AsBoolean;
             username:=edit1.Text;
             qx[2]:=adodataset1.FieldByName('权限二').AsBoolean;
             username:=edit1.Text;
             qx[3]:=adodataset1.FieldByName('权限三').AsBoolean;
             username:=edit1.Text;
             qx[4]:=adodataset1.FieldByName('权限四').AsBoolean;
             username:=edit1.Text;
           close;
       end
      else
         begin
             application.MessageBox('您输入的密码或用户名错误，请检查！','提示信息',mb_ok);
             i:=i-1;
             edit1.Text:='';
             edit2.Text:='';
             edit1.SetFocus;
         end;
if i=0 then
    begin

       username:='';
       close;
    end;
    adodataset1.Active:=false;
end;

procedure Tdenglu_form.BitBtn2Click(Sender: TObject);
begin
    close;
end;

end.