xtsz_klszform.pas

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

unit XTSZ_KLSZFORM;

interface

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

type
  TXTSZ_KLSZ = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOTable1: TADOTable;
    ADOTable1DSDesigner: TStringField;
    ADOTable1DSDesigner2: TStringField;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XTSZ_KLSZ: TXTSZ_KLSZ;

implementation

uses MR_WXFORM;

{$R *.dfm}

procedure TXTSZ_KLSZ.Edit1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
 if key=13 then  edit2.SetFocus ;
end;
procedure TXTSZ_KLSZ.DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
 if key=13 then  edit1.SetFocus ;
end;
procedure TXTSZ_KLSZ.Edit2KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
 if key=13 then  BITBTN1.SetFocus ;
end;
procedure TXTSZ_KLSZ.FormShow(Sender: TObject);     //初始化
begin
dblookupcombobox1.KeyValue:=ADOTABLE1.fieldbyname('操作员').asstring;
 DBLookupComboBox1.SetFocus;
end;
procedure TXTSZ_KLSZ.BitBtn1Click(Sender: TObject);    //确定修改
begin
if (edit1.text='') or (edit2.text='') then begin
 showmessage('请输入您的新口令,'+#13+'然后验证您的新口令.');
 edit1.setfocus;
 exit;
end;
if edit1.text=DBedit1.text then begin    //如果口令正确，保存口令
 mr_wx.ADOQuery2.Edit;
 mr_wx.adoquery2.FieldByName('口令').asstring:=edit2.text;
 mr_wx.adoquery2.Post;
 showmessage('口令修改成功！');
 close;
end else begin
  showmessage('您的验证口令不正确,请核对.');
  edit1.setfocus;
  exit;
end;
end;
procedure TXTSZ_KLSZ.BitBtn2Click(Sender: TObject);  //退出
begin
  CLOSE;
end;
end.