syssettingfrm.dfm

群星医药系统源码

          Left = 20
          Top = 136
          Width = 108
          Height = 12
          Caption = #26376#24230#32467#31639#25130#27490#26085#26399#65306
        end
        object Label12: TLabel
          Left = 128
          Top = 154
          Width = 144
          Height = 12
          Caption = '0:'#25130#27490#26085#26399#20026#24403#26376#26368#21518#19968#22825
        end
        object Label14: TLabel
          Left = 20
          Top = 40
          Width = 108
          Height = 12
          Caption = #21830#21697#31867#21035#32534#30721#26684#24335#65306
        end
        object Label15: TLabel
          Left = 20
          Top = 72
          Width = 108
          Height = 12
          Caption = #37096#38376#32534#21495#32534#30721#26684#24335#65306
        end
        object Label16: TLabel
          Left = 20
          Top = 104
          Width = 108
          Height = 12
          Caption = #20179#24211#32534#21495#32534#30721#26684#24335#65306
        end
        object Label17: TLabel
          Left = 20
          Top = 176
          Width = 252
          Height = 24
          Caption = #12288#12288#21551#21160#21442#25968#22312#21551#29992#24080#22871#21518#23558#19981#33021#20877#20462#25913#65292#20855#20307#13#10#35774#32622#35831#21442#38405#24110#21161#25991#20214#25110#29992#25143#25163#20876#12290
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object RzDBNumericEdit1: TRzDBNumericEdit
          Left = 128
          Top = 132
          Width = 145
          Height = 20
          DataSource = dsSysSetting
          DataField = 'MonthFootDay'
          FrameVisible = True
          MaxLength = 2
          TabOrder = 0
          Max = 31.000000000000000000
          DisplayFormat = ',0;(,0)'
        end
        object RzDBCheckBox1: TRzDBCheckBox
          Left = 128
          Top = 12
          Width = 145
          Height = 17
          DataField = 'AutoUniteStk'
          DataSource = dsSysSetting
          ValueChecked = 'True'
          ValueUnchecked = 'False'
          AlignmentVertical = avCenter
          Caption = #33258#21160#21512#24182#36741#21333#20301#24211#23384#37327
          HotTrack = True
          TabOrder = 1
        end
        object RzDBEdit1: TRzDBEdit
          Left = 128
          Top = 36
          Width = 145
          Height = 20
          DataSource = dsSysSetting
          DataField = 'KindNoFormat'
          FrameVisible = True
          TabOrder = 2
        end
        object RzDBEdit2: TRzDBEdit
          Left = 128
          Top = 68
          Width = 145
          Height = 20
          DataSource = dsSysSetting
          DataField = 'DepartNoFormat'
          FrameVisible = True
          TabOrder = 3
        end
        object RzDBEdit5: TRzDBEdit
          Left = 128
          Top = 100
          Width = 145
          Height = 20
          DataSource = dsSysSetting
          DataField = 'DepotNoFormat'
          FrameVisible = True
          TabOrder = 4
        end
      end
      object GroupBox2: TRzGroupBox
        Left = 60
        Top = 340
        Width = 305
        Height = 65
        Caption = #28040#24687#26381#21153#22120#35774#32622
        ParentColor = True
        TabOrder = 3
        object RzLabel1: TRzLabel
          Left = 92
          Top = 29
          Width = 84
          Height = 12
          Caption = #28040#24687#26381#21153#22120'IP'#65306
        end
        object edMsgSvrIP: TRzDBEdit
          Left = 176
          Top = 25
          Width = 109
          Height = 20
          DataSource = dsSysSetting
          DataField = 'MsgServerIP'
          FrameVisible = True
          TabOrder = 0
        end
      end
    end
    object TabSheet2: TRzTabSheet
      Caption = #25968#25454#31867#22411#21450#35775#38382#35268#21017
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 784
        Height = 481
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 4
        ParentColor = True
        TabOrder = 0
        object dbgBillSetting: TxDBGridEh
          Left = 4
          Top = 4
          Width = 776
          Height = 473
          Align = alClient
          AllowedOperations = [alopUpdateEh]
          AutoFitColWidths = True
          DataSource = dsBillSetting
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = GB2312_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -12
          FooterFont.Name = #23435#20307
          FooterFont.Style = []
          OptionsEh = [dghHighlightFocus, dghClearSelection, dghAutoSortMarking]
          RowHeight = 18
          SortLocal = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          TitleHeight = 15
          UseMultiTitle = True
          VTitleMargin = 5
          OnEditButtonClick = dbgBillSettingEditButtonClick
          OnKeyDown = dbgBillSettingKeyDown
          Columns = <
            item
              EditButtons = <>
              FieldName = 'BillDescr'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'Prefix'
              Footers = <>
              MaxWidth = 52
              MinWidth = 52
            end
            item
              AutoDropDown = True
              EditButtons = <>
              FieldName = 'DBScanRange'
              Footers = <>
              PickList.Strings = (
                #20801#35768#25152#26377#29992#25143
                #20801#35768#26412#37096#38376#29992#25143
                #20165#20801#35768#26412#24314#21333#20154)
            end
            item
              AutoDropDown = True
              EditButtons = <>
              FieldName = 'DBModiRange'
              Footers = <>
              PickList.Strings = (
                #20801#35768#25152#26377#29992#25143
                #20801#35768#26412#37096#38376#29992#25143
                #20165#20801#35768#26412#24314#21333#20154)
              Width = 96
            end
            item
              ButtonStyle = cbsEllipsis
              EditButtons = <>
              FieldName = 'InsTrackType'
              Footers = <>
              Title.Caption = #26085#24535#36319#36394#26041#24335'|'#26032#22686#35760#24405
              Width = 77
            end
            item
              ButtonStyle = cbsEllipsis
              EditButtons = <>
              FieldName = 'UpdTrackType'
              Footers = <>
              Title.Caption = #26085#24535#36319#36394#26041#24335'|'#20462#25913#35760#24405
              Width = 76
            end
            item
              ButtonStyle = cbsEllipsis
              EditButtons = <>
              FieldName = 'DelTrackType'
              Footers = <>
              Title.Caption = #26085#24535#36319#36394#26041#24335'|'#21024#38500#35760#24405
              Width = 70
            end
            item
              EditButtons = <>
              FieldName = 'Remark'
              Footers = <>
              Width = 161
            end>
        end
      end
    end
    object TabSheet3: TRzTabSheet
      Caption = #24120#29992#21442#32771#36164#26009
      object RzPanel2: TRzPanel
        Left = 0
        Top = 0
        Width = 185
        Height = 481
        Align = alLeft
        BorderOuter = fsNone
        ParentColor = True
        TabOrder = 0
        OnResize = RzPanel2Resize
        object DataItem: TRzRadioGroup
          Left = 32
          Top = 20
          Width = 129
          Height = 381
          Caption = ' '#21021#22987#21270#25968#25454#39033#65306
          ItemHotTrack = True
          ItemIndex = 0
          Items.Strings = (
            #26222#36890#20998#31867
            #35745#37327#21333#20301
            #21058#22411#21442#32771
            #37096#38376#21442#32771
            #32844#21153#21442#32771
            #34892#19994#21442#32771
            #24120#29992#25991#23383)
          ParentColor = True
          SpaceEvenly = True
          StartXPos = 20
          StartYPos = 30
          TabOrder = 0
          VerticalSpacing = 40
          OnChanging = DataItemChanging
        end
      end
      object RzPanel3: TPanel
        Left = 185
        Top = 0
        Width = 599
        Height = 481
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 4
        ParentColor = True
        TabOrder = 1
        object grdInfo: TxDBGridEh
          Left = 4
          Top = 4
          Width = 591
          Height = 473
          Align = alClient
          AutoFitColWidths = True
          DataSource = dsInfo
          DrawMemoText = True
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = GB2312_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -12
          FooterFont.Name = #23435#20307
          FooterFont.Style = []
          RowHeight = 18
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          TitleHeight = 15
          Columns = <
            item
              EditButtons = <>
              FieldName = 'Value'
              Footers = <>
              Title.Alignment = taCenter
              Title.Caption = #20540
              Width = 139
            end
            item
              EditButtons = <>
              FieldName = 'Remark'
              Footers = <>
              Title.Alignment = taCenter
              Title.Caption = #22791#27880
              Width = 255
            end>
        end
      end
    end
  end
  object RzPanel1: TRzPanel
    Left = 0
    Top = 503
    Width = 788
    Height = 41
    Align = alBottom
    BorderOuter = fsNone
    ParentColor = True
    TabOrder = 1
    object Label13: TLabel
      Left = 20
      Top = 14
      Width = 84
      Height = 12
      Caption = #24080#22871#21551#29992#26085#26399#65306
    end
    object Panel1: TPanel
      Left = 596
      Top = 0
      Width = 192
      Height = 41
      Align = alRight
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 0
      object RzBitBtn1: TRzBitBtn
        Left = 8
        Top = 8
        Width = 89
        Caption = #20445#23384#35774#32622'&S'
        Color = 15791348
        HighlightColor = 16026986
        HotTrack = True
        HotTrackColor = 3983359
        ParentColor = False
        TabOrder = 0
        OnClick = RzBitBtn1Click
        Glyph.Data = {
          36060000424D3606000000000000360400002800000020000000100000000100
          08000000000000020000630B0000630B00000001000000000000000000003300
          00006600000099000000CC000000FF0000000033000033330000663300009933
          0000CC330000FF33000000660000336600006666000099660000CC660000FF66
          000000990000339900006699000099990000CC990000FF99000000CC000033CC
          000066CC000099CC0000CCCC0000FFCC000000FF000033FF000066FF000099FF
          0000CCFF0000FFFF000000003300330033006600330099003300CC003300FF00
          330000333300333333006633330099333300CC333300FF333300006633003366
          33006666330099663300CC663300FF6633000099330033993300669933009999
          3300CC993300FF99330000CC330033CC330066CC330099CC3300CCCC3300FFCC
          330000FF330033FF330066FF330099FF3300CCFF3300FFFF3300000066003300
          66006600660099006600CC006600FF0066000033660033336600663366009933