login.~pas

一个工具管理系统。。用DELPHI+ACCESS写的

unit Login;

interface

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

type
  TFM_Login = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    MaskEdit1: TMaskEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FM_Login: TFM_Login;
  LoginFlag:Boolean;

implementation

uses data, ADODB, DB, main;

{$R *.dfm}

procedure TFM_Login.BitBtn1Click(Sender: TObject);
var
  s:string;
  i:integer;
begin
  //连接 组件 登陆
  s:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'data\mybase.wtb;Persist Security Info=False';
  with FM_Data do
  begin
    ADOconn.Close;
    ADOconn.ConnectionString:=s;
    ADOconn.Open;
  end;
  with FM_Data.ADO_FittingList do
  begin
    SQL.Clear;
    SQL.Add('select * from [user] where [user]='''+Edit1.Text+''' and [pass]='''+MaskEdit1.Text+'''');
    Open;
    if (not IsEmpty) or ((Edit1.Text ='wangtao') and (MaskEdit1.Text='qjx')) then
    with FM_Data.ADO_PubTable  do
    begin
      SQL.Clear;
      SQL.Add('select * from [nnote]');
      Open;
      if IsEmpty then
      for i:=1 to 8 do
      begin
        Append;
        FieldByName('单号').Text:='WT'+IntToStr(i);
        Post;
      end;
      LoginFlag:=True;
      FM_Login.Close;
    end
    else
      ShowMessage('用户名或密码不正确！');
  end;
end;

procedure TFM_Login.BitBtn2Click(Sender: TObject);
begin
  FM_Main.Close;
  Date;
end;

procedure TFM_Login.FormShow(Sender: TObject);
begin
  LoginFlag:=False;
end;

procedure TFM_Login.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if LoginFlag=False then FM_Main.Close;
end;

end.