u5_5.pas

前言 随着旅游业的发展

unit U5_5;

interface

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

type
  TF5_5 = class(TForm)
    Panel1bb: TPanel;
    Label1bb: TLabel;
    MaskEdit1bb: TMaskEdit;
    SpeedButton1bb: TSpeedButton;
    Panel1xz: TPanel;
    Panel1sb: TPanel;
    Label1sb: TLabel;
    Panel1sb2: TPanel;
    SpeedButton1kb: TSpeedButton;
    SpeedButton1gb: TSpeedButton;
    SaveDialog1: TSaveDialog;
    procedure SpeedButton1bbClick(Sender: TObject);
    procedure SpeedButton1gbClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F5_5: TF5_5;

implementation

{$R *.dfm}

procedure TF5_5.SpeedButton1bbClick(Sender: TObject);
begin
  saveDialog1.Execute;
end;

procedure TF5_5.SpeedButton1gbClick(Sender: TObject);
begin
  Close;
end;

end.