main.~dfm

一个会员管理系统delphi源代码,非常好

object frmMain: TfrmMain
  Left = 249
  Top = 182
  Width = 696
  Height = 480
  Caption = #33457#26679#30007#22899#29983#20465#20048#37096#20250#21592#26723#26696#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  OldCreateOrder = False
  WindowState = wsMaximized
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object dxStatusBar: TdxStatusBar
    Left = 0
    Top = 426
    Width = 688
    Height = 20
    Panels = <
      item
        PanelStyleClassName = 'TdxStatusBarTextPanelStyle'
        PanelStyle.AutoHint = True
        Fixed = False
        Text = #27426#36814#24744#20351#29992#33457#26679#30007#22899#29983#20465#20048#37096#20250#21592#26723#26696#31995#32479#12290#31069#24744#27599#22825#22909#24515#24773#65281
      end
      item
        PanelStyleClassName = 'TdxStatusBarTextPanelStyle'
        Text = #25805#20316#21592#65306
        Width = 130
      end
      item
        PanelStyleClassName = 'TdxStatusBarTextPanelStyle'
        Text = #29616#22312#26102#38388#65306'XX'#24180'XX'#26376'XX'#26085' '#26143#26399'XX'
        Width = 180
      end
      item
        PanelStyleClassName = 'TdxStatusBarTextPanelStyle'
        Text = 'XX:XX:XX'
        Width = 50
      end
      item
        PanelStyleClassName = 'TdxStatusBarKeyboardStatePanelStyle'
        PanelStyle.CapsLockKeyAppearance.ActiveCaption = 'CAPS'
        PanelStyle.CapsLockKeyAppearance.InactiveCaption = 'CAPS'
        PanelStyle.NumLockKeyAppearance.ActiveCaption = 'NUM'
        PanelStyle.NumLockKeyAppearance.InactiveCaption = 'NUM'
        PanelStyle.ScrollLockKeyAppearance.ActiveCaption = 'SCRL'
        PanelStyle.ScrollLockKeyAppearance.InactiveCaption = 'SCRL'
        PanelStyle.InsertKeyAppearance.ActiveCaption = 'OVR'
        PanelStyle.InsertKeyAppearance.InactiveCaption = 'INS'
        Width = 134
      end
      item
        PanelStyleClassName = 'TdxStatusBarTextPanelStyle'
        PanelStyle.Alignment = taRightJustify
        BiDiMode = bdLeftToRight
        ParentBiDiMode = False
        Text = #27491#24335#29256
        Width = 50
      end>
    PaintStyle = stpsOffice11
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ShowHint = True
    ParentShowHint = False
  end
  object dxBarManager1: TdxBarManager
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Bars = <
      item
        AllowClose = False
        AllowCustomizing = False
        AllowQuickCustomizing = False
        Caption = 'ToolBar'
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 26
        DockingStyle = dsTop
        FloatLeft = 158
        FloatTop = 191
        FloatClientWidth = 64
        FloatClientHeight = 32
        ItemLinks = <
          item
            Item = mmregister
            Visible = True
          end
          item
            BeginGroup = True
            Item = mmBrowse
            Visible = True
          end
          item
            BeginGroup = True
            Item = mmquery
            Visible = True
          end
          item
            BeginGroup = True
            Item = mmcity
            Visible = True
          end
          item
            BeginGroup = True
            Item = dxBarLargeButton3
            Visible = True
          end
          item
            BeginGroup = True
            Item = dxBarLargeButtonTQuitSystem
            Visible = True
          end>
        Name = 'ToolBar'
        NotDocking = [dsTop]
        OneOnRow = True
        RotateWhenVertical = False
        Row = 1
        UseOwnFont = False
        Visible = True
        WholeRow = False
      end
      item
        Caption = 'main'
        DockedDockingStyle = dsTop
        DockedLeft = 0
        DockedTop = 0
        DockingStyle = dsTop
        FloatLeft = 276
        FloatTop = 213
        FloatClientWidth = 23
        FloatClientHeight = 22
        IsMainMenu = True
        ItemLinks = <
          item
            Item = dxBarButton1
            Visible = True
          end>
        MultiLine = True
        Name = 'main'
        OneOnRow = True
        Row = 0
        UseOwnFont = False
        Visible = True
        WholeRow = True
      end>
    CanCustomize = False
    Categories.Strings = (
      'MMenu'
      'StutasBar')
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    Images = ilLargeImages
    LargeImages = ilLargeImages
    MenuAnimations = maSlide
    PopupMenuLinks = <>
    ShowFullMenusAfterDelay = False
    Style = bmsOffice11
    UseSystemFont = True
    Left = 320
    Top = 88
    DockControlHeights = (
      0
      0
      81
      0)
    object dxBarSubItemRegister: TdxBarSubItem
      Caption = #12304#31995#32479#35774#32622#12305
      Category = 0
      Visible = ivAlways
      ItemLinks = <
        item
          Item = dxBarLargeButtonQuitSystem
          Visible = True
        end>
    end
    object dxBarSubItemDailySheet: TdxBarSubItem
      Caption = #12304#26085#32467#12305
      Category = 0
      Visible = ivAlways
      ItemLinks = <
        item
          Item = dxBarLargeButtonRegisterIncomeReport
          Visible = True
        end
        item
          Item = dxBarLargeButtonRegisterPersonNumtj
          Visible = True
        end>
    end
    object dxBarSubItemQuery: TdxBarSubItem
      Caption = #12304#26597#35810#12305
      Category = 0
      Visible = ivAlways
      ItemLinks = <
        item
          Item = dxBarLargeButtonPersonQuery
          Visible = True
        end
        item
          Item = dxBarLargeButtonDepartmentQuery
          Visible = True
        end
        item
          Item = dxBarLargeButtonDoctorInformationQuery
          Visible = True
        end
        item
          Item = dxBarLargeButtonOrderInformationQuery
          Visible = True
        end
        item
          Item = dxBarLargeButtonQueueUpQuery
          Visible = True
        end>
    end
    object dxBarSubItemPrint: TdxBarSubItem
      Caption = #12304#25171#21360#12305
      Category = 0
      Visible = ivAlways
      ItemLinks = <
        item
          Item = dxBarLargeButtonPersonInformationPrint
          Visible = True
        end
        item
          Item = dxBarLargeButtonDepartmentPrint
          Visible = True
        end
        item
          Item = dxBarLargeButtonDoctorInformationPrint
          Visible = True
        end
        item
          Item = dxBarLargeButtonAccountInformationPrint
          Visible = True
        end>
    end
    object dxBarSubItemSets: TdxBarSubItem
      Caption = #12304#35774#32622#12305
      Category = 0
      Visible = ivAlways
      ItemLinks = <
        item
          Item = dxBarLargeButtonEditPassWord
          Visible = True
        end
        item
          Item = dxBarLargeButtonChangeOperator