unit23.dfm

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

      object Label12: 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 Label13: 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 Label14: TLabel
        Left = 93
        Top = 31
        Width = 24
        Height = 11
        Caption = '飞往'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label15: TLabel
        Left = 96
        Top = 41
        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 Label16: 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 Label17: 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 Label18: 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 Label19: 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 Label20: 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 Label21: 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 DBEdit7: TDBEdit
        Left = 8
        Top = 88
        Width = 65
        Height = 20
        DataField = 'Jh'
        DataSource = DataSource2
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object DBEdit8: TDBEdit
        Left = 72
        Top = 88
        Width = 89
        Height = 20
        DataField = 'Fjlx'
        DataSource = DataSource2
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
      end
      object DBEdit9: TDBEdit
        Left = 160
        Top = 88
        Width = 81
        Height = 20
        DataField = 'Qfsj'
        DataSource = DataSource2
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
      end
      object DBEdit10: TDBEdit
        Left = 240
        Top = 88
        Width = 81
        Height = 20
        DataField = 'Ddsj'
        DataSource = DataSource2
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 3
      end
      object DBEdit11: TDBEdit
        Left = 72
        Top = 136
        Width = 121
        Height = 20
        DataField = 'Jg'
        DataSource = DataSource2
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 4
      end
      object DBEdit12: TDBEdit
        Left = 8
        Top = 136
        Width = 64
        Height = 20
        DataField = 'Sl'
        DataSource = DataSource2
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 5
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 184
        Width = 313
        Height = 89
        Caption = '预  定'
        TabOrder = 6
        object Label22: 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 Edit2: 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 Button3: 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 = Button3Click
        end
        object Button4: 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 = Button4Click
        end
      end
      object ComboBox2: TComboBox
        Left = 184
        Top = 32
        Width = 145
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 7
        OnChange = DBComboBox2Change
        Items.Strings = (
          '武汉'
          '沈阳'
          '石家庄'
          '汕头'
          '广州'
          '济南'
          '南京'
          '长春'
          '天津'
          '承德'
          '新疆'
          '兰州'
          '哈尔滨'
          '唐山'
          '黑龙江'
          '厦门'
          '吉林'
          '上海'
          '大连'
          '徐州'
          '合肥'
          '深圳'
          '福州'
          '北京')
      end
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = '.\data'
    TableName = '火车时刻表.DB'
    Left = 212
    Top = 136
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 241
    Top = 136
  end
  object Table2: TTable
    Active = True
    DatabaseName = '.\data'
    TableName = '飞机时刻表.db'
    Left = 270
    Top = 136
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 299
    Top = 136
  end
  object Table3: TTable
    Active = True
    DatabaseName = '.\data'
    TableName = '客户登记表.DB'
    Left = 212
    Top = 168
  end
  object Table4: TTable
    Active = True
    DatabaseName = '.\data'
    TableName = '销售表.db'
    Left = 244
    Top = 168
  end
end