jbxx_bjxx_cxtjform.pas

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

unit JBXX_BJXX_CXTJFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  TJBXX_BJXX_CXTJ = class(TForm)
    Label2: TLabel;
    Bevel1: TBevel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JBXX_BJXX_CXTJ: TJBXX_BJXX_CXTJ;

implementation

uses JBXX_BJXXFORM;

{$R *.DFM}

procedure TJBXX_BJXX_CXTJ.FormShow(Sender: TObject);
begin
 combobox1.itemindex:=0; //显示查询子段
 edit1.text:='';      //清空查询值
 combobox1.setfocus;
end;
procedure TJBXX_BJXX_CXTJ.BitBtn1Click(Sender: TObject);
begin
 if combobox1.Text='' then begin
   messagedlg('请选择查询项目',mterror,[mbok],0);
   combobox1.setfocus;
 end else begin
   JBXX_BJXX.ADOQuery1.filtered:=true;
   JBXX_BJXX.ADOQuery1.filter:=format(combobox1.text+'='+'''%s''',[edit1.text]);
   JBXX_BJXX.bitbtn4.caption:='刷   新[&S]';
   close;
 end;
end;
procedure TJBXX_BJXX_CXTJ.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then edit1.setfocus;     //回车移动焦点
end;
procedure TJBXX_BJXX_CXTJ.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then bitbtn1.Click;     //回车移动焦点
end;
procedure TJBXX_BJXX_CXTJ.BitBtn2Click(Sender: TObject);
begin
 close;  //退出
end;
end.