mrpass.pas

这是用Delphi编写的汽车配件管理系统。主要功能有基础信息管理

unit MRPASS;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, DBTables,Variants, ExtCtrls, jpeg;

type
  TPASS = class(TForm)
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Table1: TTable;
    Table1id: TAutoIncField;
    Table1bh: TStringField;
    Table1xm: TStringField;
    Table1xb: TStringField;
    Table1nl: TStringField;
    Table1dlsf: TStringField;
    Table1zw: TStringField;
    Table1kl: TStringField;
    Table1a: TBooleanField;
    Table1b: TBooleanField;
    Table1c: TBooleanField;
    Table1d: TBooleanField;
    Table1e: TBooleanField;
    BitBtn1: TBitBtn;
    Image1: TImage;
    Label3: TLabel;
    Bevel1: TBevel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    { Private declarations }
  public

    { Public declarations }
  end;

var
  PASS: TPASS;

implementation

uses MAIN, MRLOGIN;
var pass1:integer;
{$R *.DFM}
procedure TPASS.FormCreate(Sender: TObject);
begin
 Table1.DatabaseName:='moed';  //设置与该组件连接的数据库名
 TAble1.TableName:='pass';  //指定该组件封装的数据表名
 TAble1.open;
end;
procedure TPASS.FormShow(Sender: TObject);
begin
 EDIT1.setfocus;   // 将焦点定位到操作员输入框
 pass1:=0;       //设置变量为0
end;
procedure TPASS.Edit1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
 If Key = 13 Then edit2.SetFocus ;    //回车移动焦点
end;
procedure TPASS.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   If Key = 13 Then BITBTN1.SetFocus ;  //回车移动焦点
end;
procedure TPASS.BitBtn1Click(Sender: TObject);  //确定
begin
 if TAble1.locate('DLSF;KL',VARarrayOF([Edit1.TExt,edit2.Text]),[loCaseInsensitive]) then begin
  MRQP.Label1.caption:=Table1.FieldByName('xm').Asstring;
  MRQP.statusbar1.panels[1].text:='操作员：'+PASS.Table1.fieldbyname('xm').asstring;   //主窗体状态栏显示操作员
  close;
 End
 Else begin
  pass1:=pass1+1;    //累计密码输入错误次数
  showmessage('口令错误，请从新输入。');
  Edit2.Text:='';
  Edit2.setfocus;   //重新输入密码
  if pass1=3 then begin    //三次输入错误密码
  showmessage('没有口令，系统无法识别您的身份。');
  PASS.close;      //退出
  MRQP.close; 
  end;
 end;
 end;
procedure TPASS.BitBtn2Click(Sender: TObject);    //退出
begin
 PASS.Close;
 MRQP.close;
end;
END.