buliangcha.pas

来自「本系统为演示Delphi的功能而开发设计」· PAS 代码 · 共 41 行

unit BuLiangCha;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ComCtrls, ExtCtrls, Grids, DBGrids, Spin;

type
  TBuLiangChaForm = class(TForm)
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    DBGrid1: TDBGrid;
    ButtonSelect: TButton;
    ButtonPrint: TButton;
    ButtonReturn: TButton;
    SpinEdit1: TSpinEdit;
    Label5: TLabel;
    ComboBox1: TComboBox;
    procedure ButtonReturnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BuLiangChaForm: TBuLiangChaForm;

implementation
uses huaxia;
{$R *.DFM}

procedure TBuLiangChaForm.ButtonReturnClick(Sender: TObject);
begin
Close;
end;

end.