u3_3.pas

前言 随着旅游业的发展

unit U3_3;

interface

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

type
  TF3_3 = class(TForm)
    bmzPanel1: TPanel;
    Splitter1: TSplitter;
    bmPanel1: TPanel;
    LBbumen: TLabel;
    CBoxBumen: TComboBox;
    bmCheckListBox1: TCheckListBox;
    dwPanel1: TPanel;
    LBdingwei: TLabel;
    EDdingwei: TEdit;
    ListBoxInfo: TListBox;
    LBfencai: TLabel;
    Label1: TLabel;
    Panel1: TPanel;
    xfdPanel1: TPanel;
    xfdPageControl1: TPageControl;
    xmTabSheet1: TTabSheet;
    xmDBGrid1: TDBGrid;
    syTabSheet3: TTabSheet;
    syDBGrid1: TDBGrid;
    Panel2: TPanel;
    Panel3: TPanel;
    LBzhanghao: TLabel;
    LBname: TLabel;
    SBTqiantou: TSpeedButton;
    SBTok: TSpeedButton;
    SBTcancel: TSpeedButton;
    SBTback: TSpeedButton;
    EDzhanghao: TEdit;
    EDname: TEdit;
    ListView1: TListView;
    Label2: TLabel;
    procedure SBTbackClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F3_3: TF3_3;

implementation

{$R *.dfm}

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

end.