uadjust.pas

前言 随着旅游业的发展

unit UAdjust;

interface

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

type
  TFAdjust = class(TForm)
    EDYuan: TEdit;
    LBYuan: TLabel;
    LBTiao: TLabel;
    EDTiao: TEdit;
    DBYuan: TDBGrid;
    DBTiao: TDBGrid;
    Pfen: TPanel;
    Pyuan: TPanel;
    Pxian: TPanel;
    GBJilu: TGroupBox;
    Linfoyuan: TLabel;
    Linfotiao: TLabel;
    SBTtiaohuan: TSpeedButton;
    SBTback: TSpeedButton;
    procedure SBTbackClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FAdjust: TFAdjust;

implementation

{$R *.dfm}
procedure TFAdjust.SBTbackClick(Sender: TObject);
begin
  Close;
end;

end.