unitlogin.~pas

档案管理系统dephi.rar是用dephi编写的档案管理系统,整个系统详细演示了档案管理的整个流程对大家熟悉和学习档案管理很有帮助,同时对dephi的学习者也是非常有利的.

unit Unitlogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ADOConEd,StrUtils,Registry,ADODB,Unitcomm,
  ExtCtrls, SUIForm, SUIEdit, SUIButton, DB;

type
  TFormlogin = class(TForm)
    suiForm1: TsuiForm;
    uname: TsuiEdit;
    mm: TsuiEdit;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure Formcreat(Sender: TObject);
    procedure Formshow(Sender: TObject);
    procedure formclose(Sender: TObject; var Action: TCloseAction);
  private
       myDataSet:TADODataSet;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formlogin: TFormlogin;

implementation

{$R *.dfm}

uses Unitmain;

procedure TFormlogin.suiButton2Click(Sender: TObject);
begin
      tag:=0;
      close;
end;

procedure TFormlogin.suiButton1Click(Sender: TObject);
var
    frmain:Tfrmain;
    reg:TRegistry; //UDataSet:TADODataSet;
begin
    myDataSet:=TADODataSet.Create(self);
    myDataSet.Connection:=ADOConn;
    myDataSet.CommandText:='select mm from yh where yh_name='''+Uname.Text+'''';
    myDataSet.Active:=true;

    if not myDataSet.Eof then
       begin
          if mm.Text=myDataSet.Fields[0].AsString then
          begin
               self.Tag:=1;
               UserName:=Uname.Text;
               reg:=TRegistry.Create;
               try
                     reg.RootKey:=HKEY_LOCAL_MACHINE;
                     if reg.OpenKey('\Software\质量标准档案管理系统',true) then
                       begin
                             reg.WriteString('uid',UserName);
                       end;
                  except
                        showmessage('读取用户信息错误!');
                        application.Terminate;
                  end;
                  reg.Free;
                  frmain:=Tfrmain.Create(nil);
                  self.Hide;
                  frmain.ShowModal;
                  frmain.Free;
                  self.Close;
          end
          else
          begin
                  showmessage('密码错误!无法登陆系统!');
                  mm.SetFocus;
                  mm.SetFocus;
          end;
          end
          else
          begin
                 showmessage('密码错误!无法登陆系统!');
                 mm.SelectAll;
                 mm.SetFocus;
          end;

end;

procedure TFormlogin.Formcreat(Sender: TObject);
var
     reg:TRegistry;
     connstr:string;
     tmpstr:string;
begin
     reg:=TRegistry.Create;
     ADOConn:=TADOConnection.Create(self);

     try
         reg.RootKey:=HKEY_LOCAL_MACHINE;
         if reg.OpenKey('\Software\质量标准档案管理系统',true)then
         begin
              if reg.ValueExists('connstr') then
                 connstr:=reg.ReadString('connstr')
                else
                begin
                     if EditConnectionString(ADOConn) then
                      begin
                           connstr:=ADOConn.ConnectionString;
                           reg.WriteString('connstr',connstr);
                      end
                      else
                      begin
                           showmessage('无法建立与数据库的连接,程序终止!');
                           application.Terminate;
                      end;
                end;
                try //******
                    if reg.ValueExists('uid') then
                           tmpstr:=reg.ReadString('uid') 
  else
                        begin
                             reg.WriteString('uid',''); 
                        end;
                except
                          showmessage('读取用户信息错误!');
                          application.Terminate;
                    end;//******
                end;
          except
                showmessage('初始化错误!');
                application.Terminate;
          end;//######
          reg.Free;
          Uname.Text:=tmpstr;
          if connstr <> '' then
          begin
          try
               ADOConn.ConnectionString:=connstr;
               ADOConn.LoginPrompt:=false;
               ADOConn.Connected:=true;
          except
               showmessage('连接数据库错误!');
               application.Terminate;
          end;
          end;
end;

procedure TFormlogin.Formshow(Sender: TObject);
begin
     if Uname.Text <> '' then
              mm.Clear
     else
              Uname.SetFocus;
end;


procedure TFormlogin.formclose(Sender: TObject; var Action: TCloseAction);
begin
     myDataSet:=TADODataSet.Create(self);
     myDataSet.Close;
     myDataSet.Free;
end;

end.