.#goodspriceadjustfm.dfm.1.10

来自「群星医药系统源码」· 10 代码 · 共 560 行

inherited FmGoodsPriceAdjust: TFmGoodsPriceAdjust
  Left = 189
  Top = 174
  Width = 808
  Height = 580
  Caption = #21830#21697#35843#20215
  PixelsPerInch = 96
  TextHeight = 12
  inherited TBDock1: TTBDock
    Width = 800
  end
  inherited TBDock2: TTBDock
    Top = 544
    Width = 800
  end
  inherited TBDock3: TTBDock
    Left = 791
    Height = 505
  end
  inherited TBDock4: TTBDock
    Height = 505
  end
  inherited plBoard: TRzPanel
    Width = 782
    Height = 505
    inherited plHeader: TRzPanel
      Width = 778
      Height = 103
      object Label1: TLabel
        Left = 47
        Top = 18
        Width = 48
        Height = 12
        Caption = #21333#25454#32534#21495
      end
      object Label2: TLabel
        Left = 47
        Top = 49
        Width = 48
        Height = 12
        Caption = #24320#21333#26085#26399
      end
      object Label3: TLabel
        Left = 47
        Top = 79
        Width = 48
        Height = 12
        Caption = #29983#25928#26085#26399
      end
      object Label4: TLabel
        Left = 329
        Top = 18
        Width = 48
        Height = 12
        Caption = #35843#20215#21592#65306
      end
      object Label5: TLabel
        Left = 329
        Top = 49
        Width = 48
        Height = 12
        Caption = #22797#26680#21592#65306
      end
      object Label6: TLabel
        Left = 329
        Top = 79
        Width = 96
        Height = 12
        Caption = #21333#25454#29366#24577#65306#26410#22797#26680
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 574
        Top = 6
        Width = 126
        Height = 12
        Caption = #35201#35843#20215#30340#20215#26684#20307#31995'(&T)'#65306
        FocusControl = clbPriceModes
      end
      object edBillNo: TRzDBEdit
        Left = 100
        Top = 14
        Width = 129
        Height = 20
        DataSource = DsGoodsPriceAdjust
        DataField = 'BillNo'
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 0
      end
      object RzDBEdit5: TRzDBEdit
        Left = 384
        Top = 44
        Width = 144
        Height = 20
        DataSource = DsGoodsPriceAdjust
        DataField = 'Audit'
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 1
      end
      object RzDBEdit7: TRzDBEdit
        Left = 458
        Top = 14
        Width = 69
        Height = 20
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 2
      end
      object RzDBButtonEdit1: TRzDBButtonEdit
        Left = 384
        Top = 14
        Width = 73
        Height = 20
        DataSource = DsGoodsPriceAdjust
        DataField = 'EmpNo'
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 3
        FlatButtons = True
      end
      object clbPriceModes: TRzCheckList
        Tag = -1
        Left = 575
        Top = 22
        Width = 141
        Height = 74
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        HorzExtent = 30
        ItemHeight = 17
        Items.Strings = (
          'A'
          'B'
          'CV'
          'DF'
          'SD'
          'asda')
        Items.ItemEnabled = (
          True
          True
          True
          True
          True
          True)
        Items.ItemState = (
          0
          0
          0
          0
          0
          0)
        MultiSelect = True
        TabOnEnter = True
        TabOrder = 4
      end
      object RzDBDateTimePicker1: TRzDBDateTimePicker
        Left = 100
        Top = 44
        Width = 129
        Height = 20
        Date = 37632.697012442120000000
        Time = 37632.697012442120000000
        DateFormat = dfLong
        TabOrder = 5
        FrameHotStyle = fsFlat
        FrameHotTrack = True
        FrameVisible = True
        DataField = 'FDate'
        DataSource = DsGoodsPriceAdjust
      end
      object RzDBDateTimePicker2: TRzDBDateTimePicker
        Left = 100
        Top = 75
        Width = 129
        Height = 20
        Date = 37632.697012442120000000
        Time = 37632.697012442120000000
        DateFormat = dfLong
        TabOrder = 6
        FrameHotStyle = fsFlat
        FrameHotTrack = True
        FrameVisible = True
        DataField = 'ApplyDate'
        DataSource = DsGoodsPriceAdjust
      end
    end
    inherited plBody: TRzPanel
      Top = 105
      Width = 778
      Height = 368
      object dbgGoodsPriceAdjust: TxDBGridEh
        Left = 0
        Top = 0
        Width = 778
        Height = 368
        Align = alClient
        DataSource = DsGoodsPriceAdjustdtl
        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 = 17
        OnEditButtonClick = dbgGoodsPriceAdjustEditButtonClick
        RowColorsUse = True
        RowColor1 = 16772846
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ItemNo'
            Footers = <>
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'GoodsID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Specs'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'AbcKind'
            Footers = <>
            Width = 46
          end
          item
            EditButtons = <>
            FieldName = 'PdcAddr'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Maker'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'PriceModeNo'
            Footers = <>
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'ModeName'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'OldPrice1'
            Footers = <>
            Width = 104
          end
          item
            EditButtons = <>
            FieldName = 'OldPrice2'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'NewPrice1'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'NewPrice2'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'Remark'
            Footers = <>
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 473
      Width = 778
      Height = 32
      object Label7: TLabel
        Left = 8
        Top = 12
        Width = 36
        Height = 12
        Caption = #22791#27880#65306
      end
      object Label8: TLabel
        Left = 260
        Top = 13
        Width = 60
        Height = 12
        Caption = #35843#20215#21697#31181#65306
      end
      object RzLabel7: TRzLabel
        Left = 460
        Top = 12
        Width = 48
        Height = 12
        Caption = #21019#24314#32773#65306
      end
      object RzDBLabel1: TRzDBLabel
        Left = 508
        Top = 11
        Width = 65
        Height = 15
        Font.Charset = GB2312_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'Creater'
        DataSource = DsGoodsPriceAdjust
      end
      object RzLabel16: TRzLabel
        Left = 600
        Top = 12
        Width = 60
        Height = 12
        Caption = #21019#24314#26085#26399#65306
      end
      object RzDBLabel2: TRzDBLabel
        Left = 660
        Top = 11
        Width = 100
        Height = 14
        Font.Charset = GB2312_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'CreatTime'
        DataSource = DsGoodsPriceAdjust
      end
      object RzDBEdit1: TRzDBEdit
        Left = 48
        Top = 8
        Width = 197
        Height = 20
        DataSource = DsGoodsPriceAdjust
        DataField = 'Remark'
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 0
      end
      object RzDBEdit2: TRzDBEdit
        Left = 325
        Top = 8
        Width = 100
        Height = 20
        DataSource = DsGoodsPriceAdjust
        DataField = 'GoodsCount'
        Alignment = taRightJustify
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 1
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Left = 68
  end
  inherited ActionList1: TActionList
    inherited ActBillTurn: TModlAction
      Visible = False
    end
  end
  object DComConn: TDCOMConnection
    ServerGUID = '{1E937629-61E3-4EF1-8A46-849FEBEC9A91}'
    ServerName = 'CkGoodsPriceAdjustSvr.CKGoodsPriceAdjust'
    Left = 229
    Top = 238
  end
  object cdsGoodsPriceAdjust: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftString
        Name = 'BillNo'
        ParamType = ptInput
      end>
    ProviderName = 'DspGoodsPriceAdjust'
    RemoteServer = DComConn
    AfterScroll = cdsGoodsPriceAdjustAfterScroll
    OnNewRecord = cdsGoodsPriceAdjustNewRecord
    OnReconcileError = cdsGoodsPriceAdjustReconcileError
    Left = 357
    Top = 238
    object cdsGoodsPriceAdjustBillNo: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsGoodsPriceAdjustFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object cdsGoodsPriceAdjustApplyDate: TDateTimeField
      FieldName = 'ApplyDate'
    end
    object cdsGoodsPriceAdjustEmpNo: TStringField
      FieldName = 'EmpNo'
      Size = 8
    end
    object cdsGoodsPriceAdjustAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object cdsGoodsPriceAdjustGoodsCount: TIntegerField
      FieldName = 'GoodsCount'
    end
    object cdsGoodsPriceAdjustRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object cdsGoodsPriceAdjustTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object cdsGoodsPriceAdjustCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object cdsGoodsPriceAdjustCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object cdsGoodsPriceAdjustMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object cdsGoodsPriceAdjustUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
    object cdsGoodsPriceAdjustGrup: TIntegerField
      FieldName = 'Grup'
    end
    object cdsGoodsPriceAdjustAdsGoodsPriceAdjustDtl: TDataSetField
      FieldName = 'AdsGoodsPriceAdjustDtl'
    end
  end
  object DsGoodsPriceAdjust: TDataSource
    DataSet = cdsGoodsPriceAdjust
    Left = 485
    Top = 234
  end
  object CdsGoodsPriceAdjustdtl: TckClientDataSet
    Aggregates = <>
    DataSetField = cdsGoodsPriceAdjustAdsGoodsPriceAdjustDtl
    FetchOnDemand = False
    Params = <>
    BeforeInsert = CdsGoodsPriceAdjustdtlBeforeInsert
    BeforePost = CdsGoodsPriceAdjustdtlBeforePost
    AfterPost = CdsGoodsPriceAdjustdtlAfterPost
    OnNewRecord = CdsGoodsPriceAdjustdtlNewRecord
    Left = 357
    Top = 302
    object CdsGoodsPriceAdjustdtlBillNo: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsGoodsPriceAdjustdtlItemNo: TIntegerField
      DisplayLabel = #39033#27425
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsGoodsPriceAdjustdtlGoodsID: TStringField
      FieldName = 'GoodsID'
      Size = 16
    end
    object CdsGoodsPriceAdjustdtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsGoodsPriceAdjustdtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsGoodsPriceAdjustdtlAbcKind: TStringField
      FieldName = 'AbcKind'
      ProviderFlags = []
      Size = 1
    end
    object CdsGoodsPriceAdjustdtlPdcAddr: TStringField
      FieldName = 'PdcAddr'
      ProviderFlags = []
      Size = 12
    end
    object CdsGoodsPriceAdjustdtlMaker: TStringField
      FieldName = 'Maker'
      ProviderFlags = []
      Size = 12
    end
    object CdsGoodsPriceAdjustdtlPriceModeNo: TIntegerField
      FieldName = 'PriceModeNo'
    end
    object CdsGoodsPriceAdjustdtlModeName: TStringField
      FieldName = 'ModeName'
      Size = 16
    end
    object CdsGoodsPriceAdjustdtlOldPrice1: TBCDField
      FieldName = 'OldPrice1'
      Precision = 19
    end
    object CdsGoodsPriceAdjustdtlOldPrice2: TBCDField
      FieldName = 'OldPrice2'
      Precision = 19
    end
    object CdsGoodsPriceAdjustdtlNewPrice1: TBCDField
      FieldName = 'NewPrice1'
      Precision = 19
    end
    object CdsGoodsPriceAdjustdtlNewPrice2: TBCDField
      FieldName = 'NewPrice2'
      Precision = 19
    end
    object CdsGoodsPriceAdjustdtlRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
  end
  object DsGoodsPriceAdjustdtl: TDataSource
    DataSet = CdsGoodsPriceAdjustdtl
    Left = 481
    Top = 302
  end
end