viewdbworklogfrm.dfm

医药连锁经营管理系统源码

        Left = 352
        Top = 36
        Width = 137
        Height = 20
        Ctl3D = False
        FlatButtons = True
        FrameHotColor = 16026986
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        Sorted = True
        TabOrder = 1
      end
      object edKeyValues: TRzEdit
        Left = 568
        Top = 36
        Width = 105
        Height = 20
        FrameHotColor = 16026986
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 2
      end
      object DTCtrl1: TRzDateTimePicker
        Left = 80
        Top = 12
        Width = 85
        Height = 20
        Date = 37623.564722291670000000
        Time = 37623.564722291670000000
        ParseInput = True
        TabOrder = 3
        FlatButtons = True
        FrameHotColor = 16026986
        FrameHotStyle = fsFlat
        FrameVisible = True
        ShowToday = True
        ShowTodayCircle = True
      end
      object DTCtrl2: TRzDateTimePicker
        Left = 184
        Top = 12
        Width = 85
        Height = 20
        Date = 37623.564722291670000000
        Time = 37623.564722291670000000
        ParseInput = True
        TabOrder = 4
        FlatButtons = True
        FrameHotColor = 16026986
        FrameHotStyle = fsFlat
        FrameVisible = True
        ShowToday = True
        ShowTodayCircle = True
      end
      object edGetRecCount: TRzNumericEdit
        Left = 616
        Top = 12
        Width = 57
        Height = 20
        Text = '100'
        FrameHotColor = 16026986
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 5
        Max = 10000.000000000000000000
        Min = 1.000000000000000000
        Value = 100.000000000000000000
        DisplayFormat = ',0;(,0)'
      end
      object edUserID: TRzButtonEdit
        Left = 352
        Top = 12
        Width = 137
        Height = 20
        FrameHotColor = 16026986
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 6
        FlatButtons = True
        OnButtonClick = edUserIDButtonClick
      end
    end
  end
  object plClient: TRzPanel
    Left = 0
    Top = 73
    Width = 792
    Height = 432
    Align = alClient
    BorderOuter = fsNone
    ParentColor = True
    TabOrder = 1
    object plDetail: TRzSizePanel
      Left = 784
      Top = 0
      Width = 8
      Height = 432
      Align = alRight
      HotSpotHighlight = clFuchsia
      HotSpotVisible = True
      LockBar = True
      ParentColor = True
      SizeBarWidth = 7
      TabOrder = 0
      HotSpotClosed = True
      HotSpotPosition = 254
      object Label5: TLabel
        Left = 8
        Top = 0
        Width = 0
        Height = 15
        Align = alTop
        AutoSize = False
        Caption = #35814#32454#20869#23481#65306
        Transparent = True
        Layout = tlBottom
      end
      object xDBGridEh1: TxDBGridEh
        Left = 8
        Top = 15
        Width = 0
        Height = 417
        Align = alClient
        AutoFitColWidths = True
        DataSource = DataSource1
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        OptionsEh = [dghHighlightFocus, dghClearSelection]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'FieldName'
            Footers = <>
            MinWidth = 72
            Title.Caption = #25805#20316#23383#27573
            Width = 72
          end
          item
            EditButtons = <>
            FieldName = 'OldValue'
            Footers = <>
            Title.Caption = #23383#27573#21407#20540
            Width = 72
          end
          item
            EditButtons = <>
            FieldName = 'NewValue'
            Footers = <>
            Title.Caption = #23383#27573#26032#20540
            Width = 72
          end>
      end
      object ckAutoViewDetail: TRzCheckBox
        Left = 123
        Top = 1
        Width = 115
        Height = 13
        AlignmentVertical = avCenter
        Caption = #33258#21160#35835#21462#35814#32454#20869#23481
        HotTrack = True
        State = cbUnchecked
        TabOrder = 1
        Transparent = True
      end
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 784
      Height = 432
      Align = alClient
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 1
      object Label6: TLabel
        Left = 0
        Top = 0
        Width = 784
        Height = 15
        Align = alTop
        AutoSize = False
        Caption = ' '#25805#20316#26085#24535#65306
        Transparent = True
        Layout = tlBottom
      end
      object vtWorkLog: TVirtualStringTree
        Left = 0
        Top = 15
        Width = 784
        Height = 376
        Align = alClient
        BevelEdges = []
        BevelInner = bvNone
        BevelOuter = bvNone
        Ctl3D = False
        Header.AutoSizeIndex = -1
        Header.Font.Charset = DEFAULT_CHARSET
        Header.Font.Color = clWindowText
        Header.Font.Height = -11
        Header.Font.Name = 'MS Sans Serif'
        Header.Font.Style = []
        Header.Options = [hoAutoResize, hoColumnResize, hoVisible]
        Header.Style = hsXPStyle
        LineMode = lmBands
        Margin = 0
        ParentCtl3D = False
        TabOrder = 0
        TreeOptions.AnimationOptions = [toAnimatedToggle]
        TreeOptions.AutoOptions = [toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
        TreeOptions.MiscOptions = [toAcceptOLEDrop, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning]
        TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowRoot, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
        TreeOptions.SelectionOptions = [toFullRowSelect]
        OnBeforeItemErase = vtWorkLogBeforeItemErase
        OnChange = vtWorkLogChange
        OnDblClick = vtWorkLogDblClick
        OnExpanding = vtWorkLogExpanding
        OnGetText = vtWorkLogGetText
        OnGetNodeDataSize = vtWorkLogGetNodeDataSize
        Columns = <
          item
            Position = 0
            Width = 140
            WideText = #25805#20316#26102#38388
          end
          item
            Position = 1
            Width = 64
            WideText = #25805#20316#21592
          end
          item
            Position = 2
            Width = 64
            WideText = #25805#20316#31867#22411
          end