unitmain.dfm

远程抄表系统的客户端程序 安徽六安项目-客户端程序 0 开发环境 Delphi 7.0 所需控件 mxOutlookBar 数 据 库 Sybase 11.5 1 04-12-

        Settings.ButtonDisabled.Gradient.BeginColor = clBtnFace
        Settings.ButtonFont.Charset = DEFAULT_CHARSET
        Settings.ButtonFont.Color = clWindowText
        Settings.ButtonFont.Height = -11
        Settings.ButtonFont.Name = 'MS Sans Serif'
        Settings.ButtonFont.Style = []
        Settings.ButtonHighlightFont.Charset = DEFAULT_CHARSET
        Settings.ButtonHighlightFont.Color = clWindowText
        Settings.ButtonHighlightFont.Height = -11
        Settings.ButtonHighlightFont.Name = 'MS Sans Serif'
        Settings.ButtonHighlightFont.Style = []
        Settings.ButtonStyle = bsLarge
        Settings.ButtonView = bvNormal
        Settings.ExplorerAddOn = 12
        Settings.Font.Charset = DEFAULT_CHARSET
        Settings.Font.Color = clWindowText
        Settings.Font.Height = -11
        Settings.Font.Name = 'MS Sans Serif'
        Settings.Font.Style = []
        Settings.HighlightFont.Charset = DEFAULT_CHARSET
        Settings.HighlightFont.Color = clWindowText
        Settings.HighlightFont.Height = -11
        Settings.HighlightFont.Name = 'MS Sans Serif'
        Settings.HighlightFont.Style = []
        Settings.Height = 22
        Settings.LargeWidth = 60
        Settings.LargeHeight = 60
        Settings.PicLabDistance = 8
        Settings.StatusButton.ArrowColor = clBlack
        Settings.StatusButton.Background = clWhite
        Settings.StatusButton.BorderColor = clGray
        Settings.SmallHeight = 20
        Settings.XPColors.BorderColor = clNavy
        Settings.XPColors.Background = 14199984
        Settings.XPColors.PressedBackground = 13076383
        Settings.XPColors.UseShadow = True
        Settings.XPColors.ShadowColor = clBlack
        ImageIndex = 0
        Name = 'HeaderAbout5'
        Options = [hoButtonDown, hoDrawBorder, hoRoundedHeader, hoShowStatusButton]
        Opened = False
      end>
    HeaderImages.Hot = ImageList
    HeaderImages.Normal = ImageList
    InplaceEditor.Alignment = taLeftJustify
    InplaceEditor.BorderColor = clBtnShadow
    InplaceEditor.Flat = True
    InplaceEditor.ShowBorder = True
    InplaceEditor.Font.Charset = DEFAULT_CHARSET
    InplaceEditor.Font.Color = clBlack
    InplaceEditor.Font.Height = -11
    InplaceEditor.Font.Name = 'MS Sans Serif'
    InplaceEditor.Font.Style = []
    InplaceEditor.WordWrap = True
    Settings.Alignment = taLeftJustify
    Settings.ButtonUp.AlphaBlend = 255
    Settings.ButtonUp.Color = 13393454
    Settings.ButtonUp.Gradient.BeginColor = 10437638
    Settings.ButtonUp.Gradient.EndColor = 13393454
    Settings.ButtonDown.AlphaBlend = 255
    Settings.ButtonDown.Color = 10437638
    Settings.ButtonDown.Gradient.BeginColor = 10437638
    Settings.ButtonDown.Gradient.EndColor = 13393454
    Settings.ButtonFocused.AlphaBlend = 255
    Settings.ButtonFocused.Color = 10437638
    Settings.ButtonFocused.Gradient.BeginColor = 10437638
    Settings.ButtonFocused.Gradient.EndColor = 13393454
    Settings.ButtonDisabled.AlphaBlend = 255
    Settings.ButtonDisabled.Color = 10437638
    Settings.ButtonDisabled.Gradient.BeginColor = 10437638
    Settings.ButtonDisabled.Gradient.EndColor = 13393454
    Settings.ButtonFont.Charset = DEFAULT_CHARSET
    Settings.ButtonFont.Color = clWindowText
    Settings.ButtonFont.Height = -11
    Settings.ButtonFont.Name = 'MS Sans Serif'
    Settings.ButtonFont.Style = []
    Settings.ButtonHighlightFont.Charset = DEFAULT_CHARSET
    Settings.ButtonHighlightFont.Color = clWindowText
    Settings.ButtonHighlightFont.Height = -11
    Settings.ButtonHighlightFont.Name = 'MS Sans Serif'
    Settings.ButtonHighlightFont.Style = []
    Settings.ButtonStyle = bsSmall
    Settings.ButtonView = bvExplorer
    Settings.CaptionStyle = csCustomDraw
    Settings.CaptionPen.Color = clBtnFace
    Settings.Distance = 0
    Settings.ExplorerAddOn = 15
    Settings.Font.Charset = DEFAULT_CHARSET
    Settings.Font.Color = clWhite
    Settings.Font.Height = -11
    Settings.Font.Name = 'MS Sans Serif'
    Settings.Font.Style = [fsBold]
    Settings.HeaderPen.Color = clGray
    Settings.HighlightFont.Charset = DEFAULT_CHARSET
    Settings.HighlightFont.Color = clWhite
    Settings.HighlightFont.Height = -11
    Settings.HighlightFont.Name = 'MS Sans Serif'
    Settings.HighlightFont.Style = [fsBold]
    Settings.Height = 25
    Settings.LargeWidth = 60
    Settings.LargeHeight = 60
    Settings.PicLabDistance = 3
    Settings.StatusButton.ArrowColor = 16775639
    Settings.StatusButton.Background = clWhite
    Settings.StatusButton.BorderColor = 15373153
    Settings.StatusButton.Transparent = True
    Settings.SmallHeight = 30
    Settings.XPColors.BorderColor = clWhite
    Settings.XPColors.Background = 14199984
    Settings.XPColors.PressedBackground = 13076383
    Settings.XPColors.UseShadow = True
    Settings.XPColors.ShadowColor = clBlack
    Options = []
    Version = '2.13'
    ViewStyle = vsExplorerBar
    Align = alLeft
    TabStop = True
    TabOrder = 1
    ShowHint = False
    ParentShowHint = False
    AlignInfo = 'alLeft'
    ActiveIndex = 3
  end
  object Panel: TPanel
    Left = 137
    Top = 37
    Width = 97
    Height = 15
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Ctl3D = False
    DockSite = True
    DragCursor = crDefault
    ParentCtl3D = False
    TabOrder = 2
    object Image: TImage
      Left = 2
      Top = 2
      Width = 93
      Height = 11
      Align = alClient
      DragCursor = crDefault
      Stretch = True
    end
  end
  object CoolBar: TCoolBar
    Left = 0
    Top = 0
    Width = 234
    Height = 37
    AutoSize = True
    BandBorderStyle = bsNone
    Bands = <
      item
        Break = False
        Control = ToolBar
        ImageIndex = -1
        MinHeight = 33
        MinWidth = 800
        Width = 813
      end>
    object ToolBar: TToolBar
      Left = 9
      Top = 0
      Width = 800
      Height = 33
      Align = alClient
      AutoSize = True
      ButtonHeight = 36
      ButtonWidth = 115
      Caption = 'ToolBar'
      Color = clSkyBlue
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Pitch = fpVariable
      Font.Style = []
      Images = ImageList
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = False
      TabOrder = 0
      Transparent = True
      object ToolBtnLogin: TToolButton
        Left = 0
        Top = 0
        Caption = '    '#37325#26032#30331#24405'    '
        ImageIndex = 1
        OnClick = ToolBtnLoginClick
      end
      object ToolBtnExit: TToolButton
        Left = 115
        Top = 0
        Caption = #36864#20986#31995#32479
        ImageIndex = 2
        OnClick = ToolBtnExitClick
      end
    end
  end
  object MainMenu: TMainMenu
    Left = 147
    Top = 37
    object MenuSystem: TMenuItem
      Caption = ' '#31995#32479#31649#29702' (&A)'
      Checked = True
      object SystemLogin: TMenuItem
        Caption = ' '#37325#26032#30331#24405' (&1)'
        OnClick = ToolBtnLoginClick
      end
      object SystemExit: TMenuItem
        Caption = ' '#36864#20986#31995#32479' (&2)'
        OnClick = ToolBtnExitClick
      end
    end
    object MenuBasic: TMenuItem
      Caption = ' '#22522#26412#20449#24687' (&B)'
      object Basic0BianDianZ: TMenuItem
        Caption = #30005#31449#20449#24687#31649#29702' (&1)'
        ImageIndex = 2
        OnClick = mxOutlookBarPro1Headers0Buttons0Click
      end
      object Basic1Line: TMenuItem
        Caption = #32447#36335#20449#24687#31649#29702' (&2)'
        ImageIndex = 2
        OnClick = mxOutlookBarPro1Headers0Buttons1Click
      end
      object Basic2BianTai: TMenuItem
        Caption = #21464#21488#20449#24687#31649#29702' (&3)'
        ImageIndex = 3
        OnClick = mxOutlookBarPro1Headers0Buttons2Click
      end
      object Basic3User: TMenuItem
        Caption = #20154#21592#20449#24687#31649#29702' (&4)'
        Enabled = False
        Visible = False
        OnClick = mxOutlookBarPro1Headers0Buttons3Click
      end
    end
    object MenuOrder: TMenuItem
      Caption = ' '#25351#20196#25805#20316' (&C)'
      object Order1SetInfo: TMenuItem
        Caption = #21442#25968#36828#26041#35774#32622' (&1)'
        OnClick = mxOutlookBarPro1Headers1Buttons1Click
      end
      object Order2GetData: TMenuItem
        Caption = #25968#25454#36828#26041#35835#21462' (&2)'
        OnClick = mxOutlookBarPro1Headers1Buttons2Click
      end
      object Order3DataRecv: TMenuItem
        Caption = #25351#20196#22788#29702#32467#26524' (&3)'
        OnClick = mxOutlookBarPro1Headers1Buttons3Click
      end
      object Order4History: TMenuItem
        Caption = #21382#21490#25351#20196#31649#29702' (&4)'
        OnClick = mxOutlookBarPro1Headers1Buttons4Click
      end
    end
    object MenuLineLost: TMenuItem
      Caption = #32447#25439#20998#26512' (&D)'
      object MLost0Compute: TMenuItem
        Caption = #32447#25439#32479#35745#35745#31639' (&1)'
        OnClick = mxOutlookBarPro1Headers3Buttons0Click
      end
      object MLost1Rep: TMenuItem
        Caption = #32447#25439#32508#21512#25253#34920' (&2)'
        OnClick = mxOutlookBarPro1Headers3Buttons1Click
      end
    end
    object MenuReport: TMenuItem
      Caption = ' '#25968#25454#26597#35810' (&E)'
      object ReportIE: TMenuItem
        Caption = #36827#20837#21040#30005#19994#23616#32593#39029' (&1)'
        OnClick = mxOutlookBarPro1Headers2Buttons0Click
      end
      object ReportSum: TMenuItem
        Caption = #21382#21490#25968#25454#32479#35745#26597#35810' (&2)'
        Enabled = False
        Visible = False
      end
    end
    object Window: TMenuItem
      Caption = ' '#31383#21475#25511#21046' (&F)'
      object WindowLeft: TMenuItem
        Caption = #21629#20196#31383#21475' (&1)'
        OnClick = WindowLeftClick
      end
    end
    object MenuAbout: TMenuItem
      Caption = ' '#31995#32479#20449#24687' (&I)'
      object About1SysInfo: TMenuItem