pass_pas.pas

一个考勤管理系统

unit pass_pas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids,inifiles,main_pas,datamd_pas;

type
  Tpass_Form = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    Edit3: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

      procedure load_setini;
      procedure save_setini;
  end;

var
  pass_Form: Tpass_Form;

implementation

{$R *.dfm}

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

procedure Tpass_Form.FormCreate(Sender: TObject);
  var
    filename:string;
begin
  edit1.Clear;
  edit2.Clear;
  edit3.Text:='(local)';
  
  filename:=extractfilepath(application.ExeName)+'set.ini';
  if fileexists(filename) then
    begin
      load_setini;
    end
  else
    begin
      save_setini;
    end;
 
end;

procedure Tpass_Form.BitBtn1Click(Sender: TObject);
var sqlstring:string;
begin

 with datamodule1.ADOConnection1 do begin
   if connected then
     close;
     connectionstring:='Provider=SQLOLEDB.1;Persist Security Info=False;'+
        'User ID=sa;Initial Catalog=gcbkc;Data Source='+edit3.Text;


 //    try
     connected:=true;
 //   except
 //   finally
 //    application.MessageBox('服务器连接错误','操作提示',mb_Iconwarning)
  //  end;
  end;


  datamodule1.ADODataSet1.Close;
  sqlstring:='select * from yg where user_id='''+edit1.Text+'''';
  datamodule1.ADODataSet1.CommandText:=sqlstring;
  datamodule1.adodataset1.Open;
  datamodule1.DataSource1.DataSet:=datamodule1.ADODataSet1;
  if  (edit1.Text<>'')and(edit2.Text=datamodule1.datasource1.DataSet.FieldByName('user_password').AsString) then
  begin
    save_setini;
    pass_form.Hide;
    datamodule1.user_id:=edit1.Text;
    datamodule1.user_name:=datamodule1.DataSource1.DataSet.fieldbyname('user_name').asstring;
    datamodule1.user_jb:=datamodule1.DataSource1.DataSet.fieldbyname('user_jb').AsString;
    datamodule1.ADODataSet1.Active:=false;
    main_form.Caption:='工程部考勤管理----当前用户：'+datamodule1.user_name;
    if datamodule1.user_jb='管理员' then main_form.n1.Enabled:=true
    else main_form.N1.Enabled:=false;
    main_form.ShowModal;
    close();
  end
  else
   begin
    application.MessageBox('用户名或密码错误','操作提示',mb_ok);
    edit1.Clear;
    edit2.Clear;
   end;
end;

procedure Tpass_form.save_setini;
 var
   filename:string;
   inifile:Tinifile;
begin
  filename:=extractfilepath(Application.ExeName)+'set.ini';
  inifile:=Tinifile.Create(filename);
  try
   with inifile do
   begin
     WriteString('settings','server',edit3.Text);
   end;
  finally
   inifile.Free;
  end;
end;

procedure Tpass_form.load_setini;
 var
   filename:string;
   inifile:Tinifile;
begin
  filename:=extractfilepath(Application.ExeName)+'set.ini';
  inifile:=Tinifile.Create(filename);
  try
   with inifile do
   begin
     edit3.Text:=readstring('settings','server','');
   end;
  finally
   inifile.Free;
  end;
end;
end.