unit XTSZ_QXMMFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, DBCtrls, TeeProcs, TeEngine, Chart, Series,
  DB, ADODB,IniFiles, jpeg;

type
  TXTSZ_MMSZ = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    DBLookupComboBox1: TDBLookupComboBox;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    ADOQuery2DSDesigner: TStringField;
    ADOQuery2DSDesigner2: TStringField;
    ADOQuery2DSDesigner3: TBooleanField;
    ADOQuery2DSDesigner4: TBooleanField;
    ADOQuery2DSDesigner5: TBooleanField;
    ADOQuery2DSDesigner6: TBooleanField;
    ADOQuery2DSDesigner7: TBooleanField;
    ADOQuery2DSDesigner8: TBooleanField;
    Label3: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    k:integer;
  end;

var  XTSZ_MMSZ: TXTSZ_MMSZ;
      quit:integer;
      myinifile:Tinifile;
implementation

uses MR_WXFORM;

{$R *.DFM}

procedure TXTSZ_MMSZ.FormShow(Sender: TObject);
begin
 k:=1;  edit1.Clear;
 dblookupcombobox1.KeyValue:=ADOQuery2.fieldbyname('操作員').asstring;
end;
//回車移動焦點
procedure TXTSZ_MMSZ.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#28 then BitBtn1.Click
end;
//確定
procedure TXTSZ_MMSZ.BitBtn1Click(Sender: TObject);
begin
if edit1.text=ADOQuery2.fieldbyname('口令').asstring then begin
 XTSZ_MMSZ.CLOSE;        //進入主界面
 MR_WX.StatusBar1.Panels[1].TEXT:=  DBLookupComboBox1.TEXT;
End
Else begin
 If k >= 3 Then begin   //輸入三次錯誤密碼，退出系統
   Showmessage('您的口令不正確,請詳細核對');
   halt;
 end;
 showmessage('口令不正確,請從新輸入.');
 inc(k);               //變量遞增
 edit1.setfocus;
end;
end;
//退出
procedure TXTSZ_MMSZ.BitBtn2Click(Sender: TObject);
begin
 MR_WX.CLOSE;
end;
end.