xtsz_qxmmform.pas

这是用Delphi编写的维修管理系统。主要功能包括业务管理

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;
    Bevel2: TBevel;
    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.