unit23.dfm

以学习为目的,使用DIPH开发而成,功能强大,是我们的老师提供的!

object Form23: TForm23
  Left = 386
  Top = 277
  Width = 353
  Height = 333
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '订票'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 345
    Height = 306
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '订火车票'
      object Label1: TLabel
        Left = 184
        Top = 16
        Width = 72
        Height = 12
        Caption = '请选择终点站'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 8
        Top = 72
        Width = 24
        Height = 12
        Caption = '车次'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 72
        Top = 72
        Width = 24
        Height = 12
        Caption = '类型'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 160
        Top = 72
        Width = 48
        Height = 12
        Caption = '始发时间'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 240
        Top = 72
        Width = 48
        Height = 12
        Caption = '到站时间'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 8
        Top = 120
        Width = 24
        Height = 12
        Caption = '数量'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 72
        Top = 120
        Width = 48
        Height = 12
        Caption = '单程价格'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 24
        Top = 32
        Width = 42
        Height = 19
        Caption = '长沙'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = '楷体_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 96
        Top = 40
        Width = 20
        Height = 15
        Caption = '=>'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Lucida Sans Unicode'
        Font.Style = [fsBold, fsItalic]
        ParentFont = False
      end
      object Label10: TLabel
        Left = 93
        Top = 32
        Width = 24
        Height = 11
        Caption = '开往'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DBEdit1: TDBEdit
        Left = 8
        Top = 88
        Width = 65
        Height = 20
        DataField = 'Ch'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 72
        Top = 88
        Width = 89
        Height = 20
        DataField = 'Hclx'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 160
        Top = 88
        Width = 81
        Height = 20
        DataField = 'Fcsj'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 240
        Top = 88
        Width = 81
        Height = 20
        DataField = 'Dzsj'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 8
        Top = 136
        Width = 65
        Height = 20
        DataField = 'Sl'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 72
        Top = 136
        Width = 121
        Height = 20
        DataField = 'Jg'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 5
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 184
        Width = 313
        Height = 89
        Caption = '预  定'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        object Label11: TLabel
          Left = 8
          Top = 30
          Width = 84
          Height = 12
          Caption = '请选择客户房间'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Edit1: TEdit
          Left = 8
          Top = 46
          Width = 89
          Height = 20
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object Button1: TButton
          Left = 103
          Top = 45
          Width = 70
          Height = 23
          Caption = '预  定'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 232
          Top = 45
          Width = 70
          Height = 23
          Caption = '退  出'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = Button2Click
        end
      end
      object ComboBox1: TComboBox
        Left = 184
        Top = 32
        Width = 145
        Height = 20
        Style = csDropDownList
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 7
        OnChange = DBComboBox1Change
        Items.Strings = (
          '武汉'
          '沈阳'
          '石家庄'
          '汕头'
          '广州'
          '济南'
          '南京'
          '长春'
          '天津'
          '承德'
          '新疆'
          '兰州'
          '哈尔滨'
          '唐山'
          '黑龙江'
          '厦门'
          '吉林'
          '上海'
          '大连'
          '徐州'
          '合肥'
          '深圳'
          '福州'
          '北京')
      end
    end
    object TabSheet2: TTabSheet
      Caption = '订飞机票'
      ImageIndex = 1