mainform.dfm

服务信息管理系统

object SysForm: TSysForm
  Left = 222
  Top = 139
  Width = 744
  Height = 549
  Hint = #26381#21153#20449#24687#31649#29702#31995#32479
  Caption = #26381#21153#20449#24687#31649#29702#31995#32479
  Color = clGray
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  WindowMenu = meuWindow
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object mainStatusBar: TfcStatusBar
    Left = 0
    Top = 484
    Width = 736
    Height = 19
    Panels = <
      item
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Name = 'Panel0'
        Tag = 0
        Text = ' '#20020#27778#24605#32034#35745#31639#26426#32593#32476#26377#38480#20844#21496
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '450'
      end
      item
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Name = 'Panel1'
        Tag = 0
        Text = #25805#20316#21592#65306#21608#28023#40857
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '120'
      end
      item
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Name = 'Panel2'
        Style = psNumLock
        Tag = 0
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '45'
      end
      item
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Name = 'Panel3'
        Style = psOverWrite
        Tag = 0
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '45'
      end
      item
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Name = 'Panel4'
        Tag = 0
        Text = '2001-12-27'
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '70'
      end
      item
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Name = 'Panel5'
        Style = psTime
        Tag = 0
        Text = '22:03'
        TextOptions.Alignment = taLeftJustify
        TextOptions.VAlignment = vaVCenter
        Width = '50'
      end>
    SimplePanel = False
    StatusBarText.CapsLock = ' '#22823#20889
    StatusBarText.Overwrite = ' '#25913#20889
    StatusBarText.NumLock = ' '#25968#23383
    StatusBarText.ScrollLock = 'Scroll'
  end
  object MainMenu: TMainMenu
    OwnerDraw = True
    Left = 630
    Top = 34
    object meufile: TMenuItem
      Caption = #25991#20214'(&F)'
      object Meudhzx: TMenuItem
        Caption = #30005#35805#20013#24515'(&A)'
        object N13: TMenuItem
          Caption = #30005#35805#21463#29702'(&A)'
          OnClick = N13Click
        end
        object N14: TMenuItem
          Caption = #26412#26085#38656#22238#35775#27966#24037#21333'(&B)'
        end
        object C2: TMenuItem
          Caption = #23458#25143#36164#26009'(&C)'
        end
        object Menufwdjb: TMenuItem
          Caption = #26381#21153#21333#26597#35810'(&D)'
          OnClick = MenufwdjbClick
        end
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object meukfzx: TMenuItem
        Caption = #23458#26381#20013#24515'(&B)'
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object meuswzx: TMenuItem
        Caption = #21830#21153#20013#24515'(&C)'
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object meujlcx: TMenuItem
        Caption = #32463#29702#26597#35810'(&D)'
        object N10: TMenuItem
          Caption = #23458#25143#20998#31867'(&A)'
        end
        object B1: TMenuItem
          Caption = #23458#25143#26381#21153#32479#35745'(&B)'
        end
        object C3: TMenuItem
          Caption = #23458#25143#19994#21153#32479#35745'(&C)'
        end
        object D2: TMenuItem
          Caption = #35843#26597#34920#26597#35810'(&D)'
        end
        object E2: TMenuItem
          Caption = #26381#21153#26085#25253#34920'(&E)'
        end
        object fwltjMenu: TMenuItem
          Caption = #26381#21153#37327#32479#35745'(&F)'
          OnClick = fwltjMenuClick
        end
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object N15: TMenuItem
        Bitmap.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          88888800000000000888808888888880808800000000000008080888888BBB88
          0008088888877788080800000000000008800888888888808080800000000008
          0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
          088888880FFFFFFFF08888888000000000888888888888888888}
        Caption = #25171#21360#26426#35774#32622'(&R)'
      end
      object N16: TMenuItem
        Caption = #26356#25442#25805#20316#21592'(&U)'
        OnClick = N16Click
      end
      object N17: TMenuItem
        Caption = #26356#25442#21475#20196'(&K)'
        OnClick = N17Click
      end
      object N18: TMenuItem
        Caption = #26356#25913#31995#32479#26085#26399'(&D)'
        OnClick = N18Click
      end
      object E1: TMenuItem
        Caption = #26356#25442#26700#38754#32972#26223'(&E)'
      end
      object N19: TMenuItem
        Caption = '-'
      end
      object meuexit: TMenuItem
        Bitmap.Data = {
          36050000424D3605000000000000360400002800000010000000100000000100
          08000000000000010000C40E0000C40E00000001000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0056002600F7BF
          01000000E50002013C00F9BFB800F7BF40000000980056006D00F7BFEF002084
          000000002000072D00000000460000007E000200F80000008700000037006F01
          0000072D37006F018400C43FAF00040000000000000067930200300057000000
          000084000000C43F100000000100000070001B7AFF00072D84000B40AF00FFFF
          070001000000072D0000C83EC600000003006793020015A98700000030005700
          000084006C0000000000C83E02008716F9006F1700003000570000008400C83E
          0200C83E020000000000FFFF2100E684BD006F170100D685070030005700C83E
          02004888020000000000BE2D87000685BD006F170100D6850700300057004888