xtsz_qxszform.pas

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

unit XTSZ_QXSZFORM;

interface

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

type
  TXTSZ_QXSZ = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox2: TDBCheckBox;
    DBCheckBox3: TDBCheckBox;
    DBCheckBox4: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    DBCheckBox6: TDBCheckBox;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBLookupListBox1: TDBLookupListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XTSZ_QXSZ: TXTSZ_QXSZ;

implementation

{$R *.dfm}
procedure TXTSZ_QXSZ.BitBtn1Click(Sender: TObject);
begin
 ADOQUERY1.Post;
end;
procedure TXTSZ_QXSZ.BitBtn2Click(Sender: TObject);
begin
 ADOQUERY1.Cancel ;
end;
procedure TXTSZ_QXSZ.BitBtn3Click(Sender: TObject);
begin
 CLOSE;
end;
end.