sitetosite.dfm

基于DELPHI的列车时刻查询系统设计与实现

object frmSiteToSite: TfrmSiteToSite
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = '站站查询'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object SeSkinToolBar1: TSeSkinToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 42
    Performance = kspNoBuffer
    Transparent = False
    Align = alTop
    BorderWidth = 2
    ButtonWidth = 38
    ButtonAutoSize = True
    DividerWidth = 8
    SkinEngine = frmMain.SeSkinEngine1
    SkinObject = 'ToolBar'
    object btnSerch: TSeSkinSpeedButton
      Left = 2
      Top = 2
      Width = 38
      Height = 38
      Performance = kspNoBuffer
      Transparent = True
      BlackAndWhiteGlyph = False
      Caption = '查询'
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1042104210421F7C1F7C1F7C1F7C1F7C1F7C1042
        1042104210421000100010001000100010421F7C1F7C1F7C1F7C100010001000
        1000100010421000FF7FFF7F1042100010421F7C1F7C1F7C1F7C100018631863
        1042100010421000FF7FFF7F1863100010421F7C1F7C1F7C1F7C1000FF7F1863
        1042100010421000FF7FFF7F1042100010421F7C1F7C1F7C1F7C1000FF7F1863
        1863100010421000FF7FFF7F1863100010421F7C1F7C1F7C1F7C1000FF7F1863
        1042100010421000FF7FFF7F1042100010421F7C1F7C1F7C1F7C1000FF7F1863
        1863100010421000FF7FFF7F18631000104210421042104210421000FF7F1863
        104210001042100018631042100010001000FF7F186310421000100010421042
        1042100010421000FF7FFF7FFF7F18631042100010001F7C1042FF7FFF7FFF7F
        1863100010421042FF7FFF7FFF7F18631042FF7F186310001042FF7FFF7FFF7F
        1042100010421F7C10421863FF7F186310421863104210001042FF7FFF7F1863
        104210421F7C1F7C1F7C10421000100010001042100010421000100010001000
        10421F7C1F7C1F7C1F7C1F7C1863186310421042104210001863186310421042
        1F7C1F7C1F7C1F7C1F7C1F7C186310421F7C1F7C1F7C1F7C1F7C18631F7C1F7C
        1F7C1F7C1F7C1F7C1F7C1F7C1042104210001F7C1F7C1F7C1F7C104210001F7C
        1F7C1F7C1F7C}
      Layout = blGlyphTop
      OnClick = btnSerchClick
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'SpeedButton'
    end
    object btnPrint: TSeSkinSpeedButton
      Left = 40
      Top = 2
      Width = 38
      Height = 38
      Performance = kspNoBuffer
      Transparent = True
      Visible = False
      BlackAndWhiteGlyph = False
      Caption = '打印'
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C00000000000000000000000000000000000000000000
        1F7C1F7C1F7C1F7C000018631863186318631863186318631863186300001863
        00001F7C1F7C0000000000000000000000000000000000000000000000000000
        186300001F7C0000186318631863186318631863E07FE07FE07F186318630000
        000000001F7C0000186318631863186318631863104210421042186318630000
        186300001F7C0000000000000000000000000000000000000000000000000000
        1863186300000000186318631863186318631863186318631863186300001863
        0000186300001F7C000000000000000000000000000000000000000018630000
        1863000000001F7C1F7C0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00001863
        0000186300001F7C1F7C1F7C0000FF7F00000000000000000000FF7F00000000
        000000001F7C1F7C1F7C1F7C0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000FF7F00000000000000000000FF7F0000
        1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
        00001F7C1F7C1F7C1F7C1F7C1F7C1F7C00000000000000000000000000000000
        00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
      Layout = blGlyphTop
      OnClick = btnPrintClick
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'SpeedButton'
    end
    object btnClose: TSeSkinSpeedButton
      Left = 78
      Top = 2
      Width = 38
      Height = 38
      Performance = kspNoBuffer
      Transparent = True
      BlackAndWhiteGlyph = False
      Caption = '退出'
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF0000000000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF000000000000000000FF00FF000000000000000000FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF0000000000FFFF000000000000FF00FF00FF00FF00FF00FF000000
        0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
        00000000000000000000FFFF0000000000000000000000000000000000000000
        0000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF0000000000FFFF0000FFFF0000000000008080800080808000808080000000
        0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF0000000000FFFF0000FFFF0000000000008080800080808000808080000000
        0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF0000000000FFFF0000FFFF0000000000008080800080808000808080000000
        0000FF00FF00FF00FF00FF00FF0000000000FF00FF00FF00FF00FF00FF00FF00
        FF0000000000FFFF0000FFFF0000000000008080800080808000808080000000
        0000FF00FF00FF00FF000000000000000000FF00FF00FF00FF00FF00FF00FF00
        FF0000000000FFFF0000FFFF0000000000008080800080808000808080000000
        0000FF00FF000000000000000000000000000000000000000000FF00FF00FF00
        FF0000000000FFFF0000FFFF0000000000008080800080808000808080000000
        0000FF00FF00FF00FF000000000000000000FF00FF00FF00FF00FF00FF00FF00
        FF0000000000FFFF0000FFFF0000000000008080800080808000808080000000
        0000FF00FF00FF00FF00FF00FF0000000000FF00FF00FF00FF00FF00FF00FF00
        FF00000000000000000000000000808080008080800080808000808080000000
        0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00000000000000000080808000808080008080800080808000808080000000
        0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00000000000000000000000000000000000000000000000000000000000000
        0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
      Layout = blGlyphTop
      OnClick = btnCloseClick
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'SpeedButton'
    end
  end
  object SeSkinPanel1: TSeSkinPanel
    Left = 0
    Top = 42
    Width = 688
    Height = 40
    Performance = kspNoBuffer
    Transparent = False
    Align = alTop
    AnimateRoll = False
    BevelWidth = 1
    BorderWidth = 3
    ButtonKind = pbkRoll
    Caption = 'SeSkinPanel1'
    Rolled = False
    ParentRoll = False
    ShowBevel = True
    ShowButton = True
    ShowCaption = False
    SkinEngine = frmMain.SeSkinEngine1
    SkinObject = 'Panel'
    NormalHeight = {00000000}
    object SeSkinLabel10: TSeSkinLabel
      Left = 252
      Top = 12
      Width = 60
      Height = 12
      Performance = kspNoBuffer
      Transparent = True
      Caption = '终点车站：'
      Color = clBtnFace
      ParentColor = False
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'Label'
    end
    object SeSkinLabel2: TSeSkinLabel
      Left = 11
      Top = 12
      Width = 60
      Height = 12
      Performance = kspNoBuffer
      Transparent = True
      Caption = '始发车站：'
      Color = clBtnFace
      ParentColor = False
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'Label'
    end
    object cbxEndSiteID: TSeSkinComboBox
      Left = 509
      Top = 17
      Width = 165
      Height = 23
      Cursor = crIBeam
      Performance = kspDoubleBuffer
      Transparent = False
      Visible = False
      AutoSize = True
      BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
      BevelInner = kbvLowered
      BevelOuter = kbvLowered
      BevelKind = kbkSingle
      BevelWidth = 1
      BorderWidth = 3
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      PasswordKind = pkNone
      ReadOnly = True
      TabOrder = 0
      AutoComplete = False
      ComboStyle = kcsDropDownList
      DropDownCount = 8
      ItemHeight = 15
      Flat = True
      ItemIndex = -1
      ListStyle = lbStandard
      ShowCheckBoxes = False
      WordWrap = False
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'ComboBox'
    end
    object cbxStartSiteID: TSeSkinComboBox
      Left = 511
      Top = 17
      Width = 165
      Height = 23
      Cursor = crIBeam
      Performance = kspDoubleBuffer
      Transparent = False
      Visible = False
      AutoSize = True
      BevelSides = [kbsLeft, kbsTop, kbsRight, kbsBottom]
      BevelInner = kbvLowered
      BevelOuter = kbvLowered
      BevelKind = kbkSingle
      BevelWidth = 1
      BorderWidth = 3
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      PasswordKind = pkNone
      ReadOnly = True
      TabOrder = 1
      AutoComplete = False
      ComboStyle = kcsDropDownList
      DropDownCount = 8
      ItemHeight = 15
      Flat = True
      ItemIndex = -1
      ListStyle = lbStandard
      ShowCheckBoxes = False
      WordWrap = False
      SkinEngine = frmMain.SeSkinEngine1
      SkinObject = 'ComboBox'
    end
    object cbxEndSite: TComboBox
      Left = 324
      Top = 8
      Width = 169
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      OnChange = cbxEndSiteChange
    end
    object cbxStartSite: TComboBox
      Left = 82
      Top = 8
      Width = 150
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 3
      OnChange = cbxStartSiteChange
    end
  end
  object DBGrid: TSeSkinStringGrid
    Left = 0
    Top = 82
    Width = 688
    Height = 371
    Align = alClient
    Color = clWhite
    ColCount = 4
    DefaultRowHeight = 18
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing, goRowSelect]
    TabOrder = 2
    SkinObject = 'Grid'
  end
  object RMReport1: TRMReport
    SaveReportOptions.UseRegistry = True
    SaveReportOptions.RegistryPath = 'ReportMachine\ReportSettings\'
    Dataset = RMDBDataSet1
    InitialZoom = pzDefault
    ModifyPrepared = False
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS]
    OnGetValue = RMReport1GetValue
    Left = 216
    Top = 224
    ReportForm = {2C000000}
  end
  object RMDBDataSet1: TRMDBDataSet
    DataSet = DataModule1.qrySerchStudent
    Left = 288
    Top = 216
  end
end