unit1.dfm

蚌埠公交的查询系统。 无解压密码的要说明密码。

object frmmain: Tfrmmain
  Left = 186
  Top = 112
  Width = 934
  Height = 480
  Caption = #34444#22496#20844#20132#36710#26597#35810#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 81
    Height = 25
    AutoSize = False
    Caption = #35831#36755#20837
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -21
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 24
    Top = 56
    Width = 97
    Height = 17
    AutoSize = False
    Caption = #26412#20449#24687#20165#20379#21442#32771
  end
  object rb1: TRadioButton
    Left = 104
    Top = 24
    Width = 81
    Height = 17
    Caption = #32447#36335#21517#31216
    Checked = True
    TabOrder = 0
    TabStop = True
  end
  object rb2: TRadioButton
    Left = 184
    Top = 24
    Width = 89
    Height = 17
    Caption = #25340#38899#39318#23383#27597
    TabOrder = 1
  end
  object Search: TEdit
    Left = 272
    Top = 24
    Width = 97
    Height = 21
    TabOrder = 2
    OnChange = SearchChange
  end
  object Button1: TButton
    Left = 376
    Top = 24
    Width = 89
    Height = 25
    Caption = #31934#30830#26597#35810'(&F)'
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 472
    Top = 24
    Width = 89
    Height = 25
    Caption = #27169#31946#26597#35810'(&B)'
    TabOrder = 4
  end
  object Button3: TButton
    Left = 568
    Top = 24
    Width = 89
    Height = 25
    Caption = #25442#20056#26597#35810'(&T)'
    TabOrder = 5
  end
  object Button4: TButton
    Left = 656
    Top = 24
    Width = 89
    Height = 25
    Caption = #25171#21360#32426#24405'(&P)'
    TabOrder = 6
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 72
    Width = 905
    Height = 329
    Color = clHighlight
    DataSource = DataSource1
    FixedColor = clSkyBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 7
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #26999#20307'_GB2312'
    TitleFont.Style = [fsBold]
    Columns = <
      item
        Expanded = False
        FieldName = 'xlm'
        Title.Caption = #32447#36335#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'price'
        Title.Caption = #31080#20215
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'start'
        Title.Caption = #36215#22987#31449
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'startbus'
        Title.Caption = #36215#22987#31449#39318#29677#36710
        Width = 72
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'startend'
        Title.Caption = #36215#22987#31449#26411#29677#36710
        Width = 112
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'end'
        Title.Caption = #32456#28857#31449
        Width = 117
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'endbus'
        Title.Caption = #32456#28857#31449#39318#29677#36710
        Width = 102
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'endend'
        Title.Caption = #32456#28857#31449#26411#29677#36710
        Width = 85
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'next'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeMode = imAlpha
        Title.Alignment = taCenter
        Title.Caption = #19979#34892#31449#28857
        Visible = True
      end>
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 409
    Width = 926
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 100
      end>
  end
  object ResultList: TListBox
    Left = 272
    Top = 48
    Width = 98
    Height = 161
    ItemHeight = 13
    TabOrder = 9
    Visible = False
    OnClick = ResultListClick
  end
  object SourceList: TListBox
    Left = 480
    Top = 192
    Width = 121
    Height = 73
    ItemHeight = 13
    Items.Strings = (
      #31532#19968#20154#27665#21307#38498#38376#35786#37096
      #20844#20132#24635#20844#21496
      #26397#38451#36335#22823#26725
      #19968#20013
      #31227#21160#20844#21496
      #20013#33635#34903
      #24310#23433#36335
      #28779#36710#31449
      #35299#25918#20108#36335
      #35299#25918#19977#36335
      #35299#25918#36335
      #29664#22478#36335
      #32905#32852#21378
      #20013#21307#38498
      #22823#24198#19977#36335
      #21313#20108#20013
      #38271#38738#21271#36335
      #21451#35850#36335
      #21556#28286#36335
      #24352#20844#23665#36335
      #31532#19968#20154#27665#21307#38498#38376#35786#37096
      #32418#26071#19968#36335
      #26397#38451#36335#22823#26725
      #19968#20013
      #20013#24179#34903
      #22825#27915#26032#19990#32426#36141#29289#20013#24515
      #30334#36135#22823#27004
      #21335#23665#23486#39302#12289#31227#21160#20844#21496#12289#20307#32946#36335#12289#28142#27827#25991#21270#24191#22330#12289#32418#26071#22235#36335)
    TabOrder = 10
    Visible = False
  end
  object MainMenu1: TMainMenu
    Left = 400
    Top = 65520
    object S1: TMenuItem
      Caption = #31995#32479'(&S)'
      object N1: TMenuItem
        Caption = #24110#21161
        ShortCut = 112
        OnClick = N1Click
      end
      object N2: TMenuItem
        Caption = #20851#20110
        ShortCut = 113
      end
      object N3: TMenuItem
        Caption = #36864#20986
        ShortCut = 114
        OnClick = N3Click
      end
    end
    object N4: TMenuItem
      Caption = #32534#36753'(&E)'
      object N5: TMenuItem
        Caption = #28155#21152
        ShortCut = 16464
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = #20462#25913
        ShortCut = 16461
      end
      object N7: TMenuItem
        Caption = #21024#38500
        ShortCut = 16452
      end
    end
    object N8: TMenuItem
      Caption = #25490#24207'(&C)'
      object N9: TMenuItem
        Caption = #25353#32447#36335#21517#21319#24207#25490#24207
        OnClick = N9Click
      end
      object N10: TMenuItem
        Caption = #25353#32447#36335#21517#38477#24207#25490#24207
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = #25353#36215#22987#31449#39318#29677#36710#21319#24207#25490#21015
        OnClick = N11Click
      end
      object N12: TMenuItem
        Caption = #25353#36215#22987#31449#39318#29677#36710#38477#24207#25490#21015
        OnClick = N12Click
      end
      object N13: TMenuItem
        Caption = #25353#36215#22987#31449#26411#29677#36710#21319#24207#25490#21015
        OnClick = N13Click
      end
      object N14: TMenuItem
        Caption = #25353#36215#22987#31449#26411#29677#36710#38477#24207#25490#21015
        OnClick = N14Click
      end
      object N15: TMenuItem
        Caption = #25353#32456#28857#31449#39318#29677#36710#21319#24207#25490#21015
        OnClick = N15Click
      end
      object N16: TMenuItem
        Caption = #25353#32456#28857#31449#39318#29677#36710#38477#24207#25490#21015
        OnClick = N16Click
      end
      object N17: TMenuItem
        Caption = #25353#32456#28857#31449#26411#29677#36710#21319#24207#25490#21015
        OnClick = N17Click
      end
      object N18: TMenuItem
        Caption = #25353#32456#28857#31449#26411#29677#36710#38477#24207#25490#21015
        OnClick = N18Click
      end
    end
    object N19: TMenuItem
      Caption = #30028#38754'(&I)'
      object N20: TMenuItem
        Caption = #27700#26230#20043#24651
      end
      object N21: TMenuItem
        Caption = #32511#24847#30414#28982
      end
      object N22: TMenuItem
        Caption = #20854#20182
      end
    end
    object N23: TMenuItem
      Caption = #32500#25252'(&M)'
      object N24: TMenuItem
        Caption = #22791#20221#25968#25454#24211
        OnClick = N24Click
      end
      object N25: TMenuItem
        Caption = #36824#21407#25968#25454#24211
      end
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = ado
    Left = 392
    Top = 48
  end
  object ado: TADOQuery
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *from bbgj')
    Left = 440
    Top = 48
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 720
  end
  object PrintDialog1: TPrintDialog
    Left = 648
  end
  object XPManifest1: TXPManifest
    Left = 680
  end
end