wastagefrm.~dfm

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

      object Label11: TLabel
        Left = 580
        Top = 11
        Width = 60
        Height = 12
        Caption = #25253#25439#37329#39069#65306
      end
      object Label22: TLabel
        Left = 35
        Top = 11
        Width = 36
        Height = 12
        Caption = #22791#27880#65306
      end
      object Label9: TLabel
        Left = 408
        Top = 11
        Width = 60
        Height = 12
        Caption = #25253#25439#24635#25968#65306
      end
      object Label5: TLabel
        Left = 23
        Top = 40
        Width = 48
        Height = 12
        Caption = #21019#24314#32773#65306
      end
      object Label6: TLabel
        Left = 408
        Top = 40
        Width = 60
        Height = 12
        Caption = #21019#24314#26085#26399#65306
      end
      object RzDBLabel1: TRzDBLabel
        Left = 75
        Top = 34
        Width = 126
        Height = 20
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        BorderInner = fsFlat
        DataField = 'Creater'
        DataSource = dsWastage
      end
      object RzDBLabel2: TRzDBLabel
        Left = 469
        Top = 34
        Width = 148
        Height = 20
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        BorderInner = fsFlat
        DataField = 'CreatTime'
        DataSource = dsWastage
      end
      object RzDBEdit21: TRzDBEdit
        Tag = -1
        Left = 641
        Top = 6
        Width = 104
        Height = 20
        DataSource = dsWastage
        DataField = 'GoodsSum'
        ReadOnly = True
        Alignment = taRightJustify
        Color = clWhite
        Ctl3D = True
        DisabledColor = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FrameHotStyle = fsFlat
        FrameVisible = True
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
      end
      object RzDBEdit10: TRzDBEdit
        Left = 75
        Top = 6
        Width = 310
        Height = 20
        DataSource = dsWastage
        DataField = 'Remark'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 1
      end
      object RzDBEdit4: TRzDBEdit
        Tag = -1
        Left = 469
        Top = 6
        Width = 96
        Height = 20
        DataSource = dsWastage
        DataField = 'GoodsQty'
        ReadOnly = True
        Alignment = taRightJustify
        Color = clWhite
        Ctl3D = True
        DisabledColor = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FrameHotStyle = fsFlat
        FrameVisible = True
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 2
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Left = 80
    Top = 224
  end
  inherited ImageList1: TImageList
    Left = 228
    Top = 200
  end
  inherited ActionList1: TActionList
    Top = 264
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmWastageQry'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      Visible = False
    end
  end
  inherited pMenuOthers: TPopupMenu
    Left = 292
    Top = 264
  end
  inherited ImgPopMenu: TImageList
    Left = 388
    Top = 248
  end
  object cdsWastage: TckClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'BillNo'
        ParamType = ptInput
        Value = ' '
      end>
    ProviderName = 'dspWastage'
    AfterScroll = cdsWastageAfterScroll
    OnNewRecord = cdsWastageNewRecord
    OnReconcileError = cdsWastageReconcileError
    Left = 364
    Top = 336
    object cdsWastageBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsWastageFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object cdsWastageDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object cdsWastageDepotNo: TStringField
      FieldName = 'DepotNo'
      ProviderFlags = []
      OnChange = cdsWastageDepotNoChange
      Size = 12
    end
    object cdsWastageDepotName: TStringField
      FieldName = 'DepotName'
      ProviderFlags = []
    end
    object cdsWastageInOutKind: TIntegerField
      FieldName = 'InOutKind'
    end
    object cdsWastageEmpNo: TStringField
      FieldName = 'EmpNo'
      OnChange = cdsWastageEmpNoChange
      Size = 8
    end
    object cdsWastageName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 12
    end
    object cdsWastageAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object cdsWastageGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object cdsWastageGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object cdsWastageRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
    object cdsWastageTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object cdsWastageCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object cdsWastageCreattime: TDateTimeField
      FieldName = 'Creattime'
    end
    object cdsWastageMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object cdsWastageGrup: TIntegerField
      FieldName = 'Grup'
    end
    object cdsWastageadsWastageDtl: TDataSetField
      FieldName = 'adsWastageDtl'
    end
  end
  object cdsWastageDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = cdsWastageadsWastageDtl
    Params = <>
    BeforeInsert = cdsWastageDtlBeforeInsert
    AfterPost = cdsWastageDtlAfterPost
    AfterDelete = cdsWastageDtlAfterPost
    OnNewRecord = cdsWastageDtlNewRecord
    Left = 288
    Top = 376
    object cdsWastageDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsWastageDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsWastageDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = cdsWastageDtlGoodsIDChange
      Size = 16
    end
    object cdsWastageDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object cdsWastageDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object cdsWastageDtlDoseType: TStringField
      FieldName = 'DoseType'
      ProviderFlags = []
      Size = 16
    end
    object cdsWastageDtlPdcAddr: TStringField
      FieldName = 'PdcAddr'
      ProviderFlags = []
      Size = 12
    end
    object cdsWastageDtlMaker: TStringField
      FieldName = 'Maker'
      ProviderFlags = []
      Size = 12
    end
    object cdsWastageDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object cdsWastageDtlQty: TBCDField
      FieldName = 'Qty'
      OnChange = cdsWastageDtlPriceChange
      Precision = 12
      Size = 3
    end
    object cdsWastageDtlPrice: TFloatField
      FieldName = 'Price'
      OnChange = cdsWastageDtlPriceChange
      Precision = 19
      Size = 6
    end
    object cdsWastageDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object cdsWastageDtlBerthNo: TStringField
      FieldName = 'BerthNo'
      Size = 8
    end
    object cdsWastageDtlGroupNo: TIntegerField
      FieldName = 'GroupNo'
    end
    object cdsWastageDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object cdsWastageDtlValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
    object cdsWastageDtlProvNo: TStringField
      FieldName = 'ProvNo'
      Size = 8
    end
    object cdsWastageDtlProvName: TStringField
      FieldName = 'ProvName'
      ProviderFlags = []
    end
    object cdsWastageDtlQualityState: TStringField
      FieldName = 'QualityState'
      Size = 40
    end
  end
  object dsWastageDtl: TDataSource
    DataSet = cdsWastageDtl
    Left = 427
    Top = 392
  end
  object dsWastage: TDataSource
    DataSet = cdsWastage
    Left = 451
    Top = 336
  end
end