stockchecksurplusfrm.dfm

来自「群星医药系统源码」· DFM 代码 · 共 726 行 · 第 1/2 页

          item
            EditButtons = <>
            FieldName = 'ValidDate'
            Footers = <>
            Title.Alignment = taCenter
            Width = 72
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'ProvNo'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'ProvName'
            Footers = <>
            Title.Alignment = taCenter
            Width = 76
          end
          item
            EditButtons = <>
            FieldName = 'Maker'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PdcAddr'
            Footers = <>
            Title.Alignment = taCenter
            Width = 72
          end
          item
            EditButtons = <>
            FieldName = 'Remark'
            Footers = <>
            Title.Alignment = taCenter
            Width = 120
          end>
      end
    end
    inherited plFooter: TRzPanel
      BorderOuter = fsFlat
      BorderSides = [sdTop]
      object Label6: TLabel
        Left = 16
        Top = 14
        Width = 48
        Height = 12
        Caption = #21019#24314#32773#65306
      end
      object Label7: TLabel
        Left = 260
        Top = 14
        Width = 60
        Height = 12
        Caption = #21019#24314#26085#26399#65306
      end
      object Label8: TLabel
        Left = 512
        Top = 14
        Width = 60
        Height = 12
        Caption = #21512#35745#37329#39069#65306
      end
      object Label9: TLabel
        Left = 28
        Top = 42
        Width = 36
        Height = 12
        Caption = #22791#27880#65306
      end
      object Label10: TLabel
        Left = 512
        Top = 42
        Width = 60
        Height = 12
        Caption = #26368#21518#26356#26032#65306
      end
      object RzDBEdit5: TRzDBEdit
        Tag = -1
        Left = 68
        Top = 8
        Width = 177
        Height = 20
        DataSource = dsStockCheckSurplus
        DataField = 'Creater'
        FrameVisible = True
        TabOrder = 0
      end
      object RzDBEdit6: TRzDBEdit
        Tag = -1
        Left = 324
        Top = 8
        Width = 177
        Height = 20
        DataSource = dsStockCheckSurplus
        DataField = 'CreatTime'
        FrameVisible = True
        TabOrder = 1
      end
      object edAmount: TRzDBEdit
        Tag = -1
        Left = 576
        Top = 8
        Width = 177
        Height = 20
        DataSource = dsStockCheckSurplus
        DataField = 'Amount'
        ReadOnly = True
        Alignment = taRightJustify
        FrameVisible = True
        TabOrder = 2
      end
      object RzDBEdit8: TRzDBEdit
        Left = 68
        Top = 36
        Width = 433
        Height = 20
        DataSource = dsStockCheckSurplus
        DataField = 'Remark'
        FrameVisible = True
        TabOrder = 3
      end
      object RzDBEdit9: TRzDBEdit
        Tag = -1
        Left = 576
        Top = 36
        Width = 177
        Height = 20
        DataSource = dsStockCheckSurplus
        DataField = 'UpdateTime'
        FrameVisible = True
        TabOrder = 4
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Left = 84
    Top = 276
  end
  inherited ImageList1: TImageList
    Left = 156
    Top = 276
  end
  inherited ActionList1: TActionList
    Left = 196
    Top = 276
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmStockCheckSurplusQry'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
  end
  inherited pMenuOthers: TPopupMenu
    Left = 236
    Top = 276
  end
  inherited ImgPopMenu: TImageList
    Left = 276
    Top = 276
  end
  object cdsStockCheckSurplusDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = cdsStockCheckSurplusadsStockCheckSurplusDtl
    FetchOnDemand = False
    Params = <>
    AfterPost = cdsStockCheckSurplusDtlAfterPost
    AfterCancel = cdsStockCheckSurplusDtlAfterCancel
    OnNewRecord = cdsStockCheckSurplusDtlNewRecord
    Left = 147
    Top = 216
    object cdsStockCheckSurplusDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsStockCheckSurplusDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsStockCheckSurplusDtlBerthNo: TStringField
      FieldName = 'BerthNo'
      Size = 8
    end
    object cdsStockCheckSurplusDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = cdsStockCheckSurplusDtlGoodsIDChange
      Size = 16
    end
    object cdsStockCheckSurplusDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object cdsStockCheckSurplusDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object cdsStockCheckSurplusDtlOverQty: TBCDField
      FieldName = 'OverQty'
      OnChange = cdsStockCheckSurplusDtlOverQtyChange
      Precision = 12
      Size = 3
    end
    object cdsStockCheckSurplusDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object cdsStockCheckSurplusDtlPrice: TFloatField
      FieldName = 'Price'
      OnChange = cdsStockCheckSurplusDtlOverQtyChange
      DisplayFormat = '##.000000'
    end
    object cdsStockCheckSurplusDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object cdsStockCheckSurplusDtlGroupNo: TIntegerField
      FieldName = 'GroupNo'
    end
    object cdsStockCheckSurplusDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object cdsStockCheckSurplusDtlValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
    object cdsStockCheckSurplusDtlMaker: TStringField
      FieldName = 'Maker'
      ProviderFlags = []
      Size = 12
    end
    object cdsStockCheckSurplusDtlPdcAddr: TStringField
      FieldName = 'PdcAddr'
      ProviderFlags = []
      Size = 12
    end
    object cdsStockCheckSurplusDtlProvNo: TStringField
      FieldName = 'ProvNo'
      Size = 8
    end
    object cdsStockCheckSurplusDtlProvName: TStringField
      FieldName = 'ProvName'
      ProviderFlags = []
    end
    object cdsStockCheckSurplusDtlRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
  end
  object cdsStockCheckSurplus: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftString
        Precision = 255
        Name = 'BillNo'
        ParamType = ptInput
        Size = 255
        Value = '0000002'
      end>
    ProviderName = 'dspStockCheckSurplus'
    AfterOpen = cdsStockCheckSurplusAfterOpen
    AfterScroll = cdsStockCheckSurplusAfterScroll
    OnNewRecord = cdsStockCheckSurplusNewRecord
    Left = 148
    Top = 176
    object cdsStockCheckSurplusBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsStockCheckSurplusFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object cdsStockCheckSurplusDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object cdsStockCheckSurplusDepotNo: TStringField
      FieldName = 'DepotNo'
      ProviderFlags = []
      Size = 12
    end
    object cdsStockCheckSurplusDepotName: TStringField
      FieldName = 'DepotName'
      ProviderFlags = []
    end
    object cdsStockCheckSurplusEmpNo: TStringField
      FieldName = 'EmpNo'
      Size = 8
    end
    object cdsStockCheckSurplusEmpName: TStringField
      FieldName = 'EmpName'
      ProviderFlags = []
      Size = 12
    end
    object cdsStockCheckSurplusAmount: TBCDField
      FieldName = 'Amount'
      Precision = 8
      Size = 2
    end
    object cdsStockCheckSurplusAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object cdsStockCheckSurplusAuditName: TStringField
      FieldName = 'AuditName'
      ProviderFlags = []
      Size = 12
    end
    object cdsStockCheckSurplusTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object cdsStockCheckSurplusStatuText: TStringField
      FieldName = 'StatuText'
      ProviderFlags = []
      ReadOnly = True
      Size = 10
    end
    object cdsStockCheckSurplusRemark: TStringField
      FieldName = 'Remark'
      Size = 80
    end
    object cdsStockCheckSurplusCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object cdsStockCheckSurplusCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
    object cdsStockCheckSurplusMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object cdsStockCheckSurplusUpdateTime: TDateTimeField
      FieldName = 'UpdateTime'
    end
    object cdsStockCheckSurplusGrup: TIntegerField
      FieldName = 'Grup'
    end
    object cdsStockCheckSurplusadsStockCheckSurplusDtl: TDataSetField
      FieldName = 'adsStockCheckSurplusDtl'
    end
  end
  object dsStockCheckSurplusDtl: TDataSource
    DataSet = cdsStockCheckSurplusDtl
    Left = 179
    Top = 216
  end
  object dsStockCheckSurplus: TDataSource
    DataSet = cdsStockCheckSurplus
    Left = 179
    Top = 176
  end
end