train_main.dfm

火车查询系统

          Left = 592
          Top = 35
          Width = 61
          Height = 15
          Alignment = taCenter
          Caption = ' '#26085' '#26399' '
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #20223#23435'_GB2312'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label13: TLabel
          Left = 696
          Top = 35
          Width = 68
          Height = 15
          Alignment = taCenter
          Caption = #20313#31080#25968#37327
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #20223#23435'_GB2312'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label14: TLabel
          Left = 800
          Top = 35
          Width = 34
          Height = 15
          Alignment = taCenter
          Caption = #20215#26684
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #20223#23435'_GB2312'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object train_no: TComboBox
          Left = 8
          Top = 80
          Width = 73
          Height = 25
          ItemHeight = 17
          TabOrder = 0
          OnChange = train_noChange
        end
        object zhanm: TComboBox
          Left = 96
          Top = 80
          Width = 89
          Height = 25
          ItemHeight = 17
          TabOrder = 1
          OnChange = zhanmChange
        end
        object reach_time: TDBEdit
          Left = 328
          Top = 80
          Width = 81
          Height = 25
          DataField = 'reach_time'
          DataSource = DataSource1
          TabOrder = 2
        end
        object amount: TDBEdit
          Left = 712
          Top = 80
          Width = 49
          Height = 25
          DataSource = DataSource1
          TabOrder = 3
        end
        object price: TDBEdit
          Left = 800
          Top = 80
          Width = 49
          Height = 25
          DataSource = DataSource1
          TabOrder = 4
        end
        object emit_time: TDBEdit
          Left = 216
          Top = 80
          Width = 81
          Height = 25
          DataField = 'emit_time'
          DataSource = DataSource1
          TabOrder = 5
        end
        object r_leixing: TComboBox
          Left = 464
          Top = 80
          Width = 73
          Height = 25
          ItemHeight = 17
          TabOrder = 6
          OnChange = r_leixingChange
          Items.Strings = (
            #30828' '#24231
            #21351' '#38138
            #36719' '#21351)
        end
        object r_riqi: TComboBox
          Left = 576
          Top = 80
          Width = 105
          Height = 25
          ItemHeight = 17
          TabOrder = 7
          OnChange = r_riqiChange
        end
        object buy: TButton
          Left = 648
          Top = 128
          Width = 75
          Height = 25
          Caption = #36141#20080
          TabOrder = 8
          OnClick = buyClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 281
        Width = 863
        Height = 136
        Align = alTop
        Caption = #36864#31080#26597#35810
        TabOrder = 2
        Visible = False
        object tui: TDBGrid
          Left = 2
          Top = 15
          Width = 859
          Height = 82
          Align = alTop
          DataSource = DataSource3
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
        object Button4: TButton
          Left = 88
          Top = 103
          Width = 81
          Height = 25
          Caption = #36141#20080
          TabOrder = 1
          OnClick = Button4Click
        end
        object Button5: TButton
          Left = 208
          Top = 103
          Width = 75
          Height = 25
          Caption = #21462#28040
          TabOrder = 2
          OnClick = Button5Click
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26597#35810#32467#26524
      ImageIndex = 1
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 863
        Height = 273
        Align = alTop
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'checi.train_no'
            Title.Caption = #36710#27425
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'zhanm'
            Title.Caption = #30446#30340#31449
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'emit_time'
            Title.Caption = #21457#36710#26102#38388
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'reach_time'
            Title.Caption = #21040#36798#26102#38388
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'amount07'
            Title.Caption = #20170#22825#30828#24231
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'amount17'
            Title.Caption = #26126#22825#30828#24231
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'amount27'
            Title.Caption = #21518#22825#30828#24231
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'amount08'
            Title.Caption = #20170#22825#21351#38138
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'amount18'
            Title.Caption = #26126#22825#21351#38138
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'amount28'
            Title.Caption = #21518#22825#21351#38138
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'amount09'
            Title.Caption = #20170#22825#36719#21351
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'amount19'
            Title.Caption = #26126#22825#36719#21351
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'amount29'
            Title.Caption = #21518#22825#36719#21351
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'price7'
            Title.Caption = #30828#24231#20215#26684
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'price8'
            Title.Caption = #21351#38138#20215#26684
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'price9'
            Title.Caption = #36719#21351#20215#26684
            Width = 50
            Visible = True
          end>
      end
    end
  end
  object ToolBar3: TToolBar
    Left = 0
    Top = 81
    Width = 871
    Height = 29
    Caption = 'ToolBar3'
    TabOrder = 4
  end
  object tuipiao: TPanel
    Left = 0
    Top = 110
    Width = 871
    Height = 450
    Align = alClient
    TabOrder = 5
    Visible = False
    object Label15: TLabel
      Left = 40
      Top = 24
      Width = 32
      Height = 16
      Caption = #36710#27425
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label16: TLabel
      Left = 40
      Top = 72
      Width = 48
      Height = 16
      Caption = #30446#30340#31449
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label18: TLabel
      Left = 40
      Top = 112
      Width = 32
      Height = 16
      Caption = #26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label19: TLabel
      Left = 40
      Top = 192
      Width = 32
      Height = 16
      Caption = #31867#22411
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label20: TLabel
      Left = 40
      Top = 240
      Width = 48
      Height = 16
      Caption = #36710#21410#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label21: TLabel
      Left = 40
      Top = 280
      Width = 48
      Height = 16
      Caption = #24231#20301#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label17: TLabel
      Left = 40
      Top = 152
      Width = 64
      Height = 16
      Caption = #21457#36710#26102#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label22: TLabel
      Left = 280
      Top = 8
      Width = 112
      Height = 27
      Alignment = taCenter
      Caption = #36864#31080#25805#20316
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -27
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Edit3: TEdit
      Left = 120
      Top = 24
      Width = 110
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Edit4: TEdit
      Left = 120
      Top = 64
      Width = 110
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object ComboBox3: TComboBox
      Left = 120
      Top = 112
      Width = 110
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 2
    end
    object ComboBox4: TComboBox
      Left = 120
      Top = 192
      Width = 110
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = []
      ItemHeight = 16
      ItemIndex = 0
      ParentFont = False
      TabOrder = 3
      Text = #30828#24231
      Items.Strings = (
        #30828#24231
        #21351#38138
        #36719#21351)
    end
    object Edit6: TEdit
      Left = 120
      Top = 280
      Width = 110
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16