enter.pas

sql版功能齐全

unit Enter;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMenu, DB, DBTables, XPMan, ADODB;

type
  TEnter_Form = class(TForm)
    Label1: TLabel;
    XM_CB: TComboBox;
    Label2: TLabel;
    MM_E: TEdit;
    Enter_Btn: TButton;
    Exit_Btn: TButton;
    XPMenu1: TXPMenu;
    XPManifest1: TXPManifest;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure Exit_BtnClick(Sender: TObject);
    procedure Enter_BtnClick(Sender: TObject);
    procedure MM_EKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Enter_Form: TEnter_Form;

implementation

uses
  Common_Unit, Main_Form;

{$R *.dfm}

//***********************************************************************************
procedure TEnter_Form.FormCreate(Sender: TObject);
var
  DLYB_Q:TadoQuery;
begin
   DLYB_Q:=adoquery1;
//  DataPath:=ExtractFilePath(Application.ExeName)+'Data';
//  DLYB_Q:=TQuery.Create(nil);
//  DLYB_Q.DatabaseName:=DataPath;
  DLYB_Q.SQL.Clear;
  DLYB_Q.SQL.Add('Select userName From DLYB');
  DLYB_Q.Open;
  if DLYB_Q.RecordCount>0 then
    While not DLYB_Q.Eof do
      begin
        XM_CB.Items.Add(DLYB_Q.Fields.Fields[0].value);
        DLYB_Q.Next;
      end;
  DLYB_Q.Close;
//  FreeAndNil(DLYB_Q);
  XM_CB.ItemIndex:=0;
end;
//***********************************************************************************
procedure TEnter_Form.Exit_BtnClick(Sender: TObject);
begin
  close;
end;
//***********************************************************************************
procedure TEnter_Form.Enter_BtnClick(Sender: TObject); //登录系统
var
  DLYB_Q:TadoQuery;
  Password:string;
begin
//  DLYB_Q:=TQuery.Create(nil);
//  DLYB_Q.DatabaseName:=DataPath;
//  DLYB_Q.SQL.Clear;
  DLYB_Q:=adoquery1;
  DLYB_Q.SQL.Clear;
//  DLYB_Q.SQL.Add('Select MM,QXID From DLYB Where Name=:FName');
//  DLYB_Q.ParamByName('FName').AsString:=XM_CB.Text;
  DLYB_Q.SQL.text:='Select MM,QXID,userName From DLYB Where userName='+chr(39)+XM_CB.Text+chr(39);
  DLYB_Q.Open;
  if DLYB_Q.RecordCount>0 then
    begin
      Password:=DLYB_Q.Fields.Fields[0].Value ;
      if MM_E.Text=Password then
        begin
          self.Hide;
          QS:=DLYB_Q.Fields.Fields[1].Value ;
          with TMainForm.Create(nil) do
            try
              showmodal;
            finally
              free;
            end;
        end
        else begin
          MessageBox(handle,'密码错误请重新输入！','密码错误',MB_OK or MB_ICONERROR);
          MM_E.Text:='';
          MM_E.SetFocus;
        end;
    end;
  DLYB_Q.Close;
//  FreeAndNil(DLYB_Q);
end;
//***********************************************************************************
procedure TEnter_Form.MM_EKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then Enter_BtnClick(Enter_Btn);
end;

end.