ughcldjcx.pas

来自「很好的汽车管理系统 很实用的 谢谢合作」· PAS 代码 · 共 54 行

unit UGHCLDJCX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, Grids, DBGrids, DBCtrls, ComCtrls, StdCtrls,
  ToolWin;

type
  TGHCLDJCX = class(TForm)
    ToolBar1: TToolBar;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    ComboBox2: TComboBox;
    ComboBox1: TComboBox;
    CheckBox1: TCheckBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    DBNavigator1: TDBNavigator;
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GHCLDJCX: TGHCLDJCX;

implementation

uses UDM;

{$R *.dfm}

procedure TGHCLDJCX.SpeedButton3Click(Sender: TObject);
begin
  close;
end;

end.