u3_7.pas

前言 随着旅游业的发展

unit U3_7;

interface

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

type
  TF3_7 = class(TForm)
    bmzPanel1: TPanel;
    Splitter1: TSplitter;
    bmPanel1: TPanel;
    bmLabel1: TLabel;
    CBoxbumen: TComboBox;
    bmCheckListBox1: TCheckListBox;
    dwPanel1: TPanel;
    dwLabel1: TLabel;
    dwEdit1: TEdit;
    dwListBox1: TListBox;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    CheckBox1: TCheckBox;
    SBTok: TSpeedButton;
    SBTprint: TSpeedButton;
    SBTback: TSpeedButton;
    procedure SBTbackClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F3_7: TF3_7;

implementation

{$R *.dfm}

procedure TF3_7.SBTbackClick(Sender: TObject);
begin
  Close;
end;

end.