train_main.dfm

火车查询系统

      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object Edit5: TEdit
      Left = 120
      Top = 232
      Width = 110
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object Button6: TButton
      Left = 40
      Top = 336
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 6
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 130
      Top = 336
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 7
      OnClick = Button7Click
    end
    object Edit7: TEdit
      Left = 120
      Top = 152
      Width = 110
      Height = 24
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
  end
  object man: TPanel
    Left = 0
    Top = 110
    Width = 871
    Height = 450
    Align = alClient
    TabOrder = 6
    Visible = False
    object Label23: TLabel
      Left = 1
      Top = 1
      Width = 869
      Height = 20
      Align = alTop
      Alignment = taCenter
      Caption = #25805#20316#21592#31649#29702
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel3: TPanel
      Left = 1
      Top = 21
      Width = 480
      Height = 428
      Align = alLeft
      TabOrder = 0
      object Label24: TLabel
        Left = 20
        Top = 48
        Width = 80
        Height = 19
        Caption = #25805#20316#21592'ID'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
      end
      object Label25: TLabel
        Left = 20
        Top = 88
        Width = 40
        Height = 19
        Caption = #22995#21517
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
      end
      object Label26: TLabel
        Left = 20
        Top = 136
        Width = 40
        Height = 19
        Caption = #24615#21035
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
      end
      object Label27: TLabel
        Left = 20
        Top = 176
        Width = 40
        Height = 19
        Caption = #23494#30721
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
      end
      object Label28: TLabel
        Left = 20
        Top = 264
        Width = 40
        Height = 19
        Caption = #22791#27880
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
      end
      object Label29: TLabel
        Left = 20
        Top = 224
        Width = 40
        Height = 19
        Caption = #31561#32423
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
      end
      object Label30: TLabel
        Left = 1
        Top = 1
        Width = 478
        Height = 16
        Align = alTop
        Alignment = taCenter
        Caption = 'Label30'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object DBEdit1: TDBEdit
        Left = 100
        Top = 48
        Width = 90
        Height = 21
        DataField = 'id'
        DataSource = DataSource2
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 100
        Top = 88
        Width = 90
        Height = 21
        DataField = 'name'
        DataSource = DataSource2
        TabOrder = 1
      end
      object DBEdit4: TDBEdit
        Left = 100
        Top = 176
        Width = 90
        Height = 21
        DataField = 'pwd'
        DataSource = DataSource2
        PasswordChar = '#'
        TabOrder = 2
      end
      object DBMemo1: TDBMemo
        Left = 100
        Top = 264
        Width = 173
        Height = 89
        DataField = 'bei'
        DataSource = DataSource2
        TabOrder = 3
      end
      object Button8: TButton
        Left = 24
        Top = 380
        Width = 70
        Height = 25
        Action = DataSetInsert1
        TabOrder = 4
      end
      object Button9: TButton
        Left = 120
        Top = 380
        Width = 70
        Height = 25
        Action = DataSetDelete2
        TabOrder = 5
      end
      object Button10: TButton
        Left = 336
        Top = 184
        Width = 75
        Height = 25
        Action = DataSetNext1
        TabOrder = 6
      end
      object Button11: TButton
        Left = 336
        Top = 136
        Width = 75
        Height = 25
        Action = DataSetPrior1
        TabOrder = 7
      end
      object Button12: TButton
        Left = 224
        Top = 380
        Width = 70
        Height = 25
        Action = DataSetEdit1
        TabOrder = 8
      end
      object Button13: TButton
        Left = 328
        Top = 380
        Width = 70
        Height = 25
        Action = DataSetPost1
        TabOrder = 9
      end
      object sex: TDBComboBox
        Left = 96
        Top = 136
        Width = 73
        Height = 21
        DataField = 'sex'
        DataSource = DataSource2
        ItemHeight = 13
        Items.Strings = (
          #30007
          #22899)
        TabOrder = 10
      end
      object DBComboBox1: TDBComboBox
        Left = 104
        Top = 224
        Width = 89
        Height = 21
        DataField = 'deng'
        DataSource = DataSource2
        ItemHeight = 13
        Items.Strings = (
          #31649#29702#21592
          #21806#31080#21592)
        TabOrder = 11
      end
    end
    object Panel4: TPanel
      Left = 488
      Top = 21
      Width = 382
      Height = 428
      Align = alRight
      TabOrder = 1
      object DBGrid2: TDBGrid
        Left = 1
        Top = 1
        Width = 380
        Height = 192
        Align = alTop
        DataSource = DataSource2
        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 = 'id'
            Title.Caption = #25805#20316#21592'ID'
            Width = 58
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Title.Caption = #22995#21517
            Width = 78
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sex'
            Title.Caption = #24615#21035
            Width = 76
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'deng'
            Title.Caption = #31561#32423
            Width = 44
            Visible = True
          end>
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 408
    Top = 8
    object N1: TMenuItem
      Caption = #25991#20214
      object N5: TMenuItem
        Caption = #30331#38470
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = #36864#20986
        OnClick = N6Click
      end
    end
    object N2: TMenuItem
      Caption = #25805#20316
      object N7: TMenuItem
        Caption = #26597#35810
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = #23450#31080
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = #36864#31080
        OnClick = N9Click
      end
    end
    object N3: TMenuItem
      Caption = #31649#29702
      Visible = False
      object N10: TMenuItem
        Caption = #28155#31080
      end
      object N11: TMenuItem
        Caption = #22686#21152#36710#27425
      end
      object N12: TMenuItem
        Caption = #25805#20316#21592
      end
      object N13: TMenuItem
        Caption = #36710#31080#31649#29702
      end
    end
    object N4: TMenuItem
      Caption = #24110#21161
      ShortCut = 112
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 488
    Top = 8
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 448
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select * from checi,train_node where checi.train_no=train_node.t' +
        'rain_no')
    Left = 520
    Top = 9
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 560
    Top = 8
  end
  object ActionList1: TActionList
    Left = 600
    Top = 9
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = #36141#20080
      DataSource = DataSource3
    end
    object Action1: TAction
      Caption = 'Action1'
    end
    object DataSetPrior1: TDataSetPrior
      Category = 'Dataset'
      Caption = #19978#19968#20010
      DataSource = DataSource2
    end
    object DataSetNext1: TDataSetNext
      Category = 'Dataset'
      Caption = #19979#19968#20010
      DataSource = DataSource2
    end
    object DataSetDelete2: TDataSetDelete
      Category = 'Dataset'
      Caption = #21024#38500
      DataSource = DataSource2
    end
    object DataSetEdit1: TDataSetEdit
      Category = 'Dataset'
      Caption = #20462#25913
      DataSource = DataSource2
    end
    object DataSetPost1: TDataSetPost
      Category = 'Dataset'
      Caption = #25552#20132
      DataSource = DataSource2
    end
    object DataSetCancel1: TDataSetCancel
      Category = 'Dataset'
      Caption = #21462#28040
      DataSource = DataSource2
    end
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = #22686#21152
      DataSource = DataSource2
    end
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from user0')
    Left = 640
    Top = 8
  end
  object DataSource3: TDataSource
    Left = 672
    Top = 8
  end
end