goodsinoutfm.~dfm

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

    ServerName = 'CkStockSvr.Stock'
    Left = 36
    Top = 152
  end
  object CdsGoodsOut: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DspGoodsOut'
    RemoteServer = DComConn
    Left = 248
    Top = 152
    object CdsGoodsOutRecNo: TAutoIncField
      FieldName = 'RecNo'
      ReadOnly = True
    end
    object CdsGoodsOutGoodsID: TStringField
      FieldName = 'GoodsID'
      Size = 16
    end
    object CdsGoodsOutName: TStringField
      FieldName = 'Name'
      Size = 24
    end
    object CdsGoodsOutSpecs: TStringField
      FieldName = 'Specs'
    end
    object CdsGoodsOutUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsGoodsOutDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object CdsGoodsOutDepotNo: TStringField
      FieldName = 'DepotNo'
      Size = 8
    end
    object CdsGoodsOutDepotName: TStringField
      FieldName = 'DepotName'
    end
    object CdsGoodsOutFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsGoodsOutStockRecNo: TIntegerField
      FieldName = 'StockRecNo'
    end
    object CdsGoodsOutInOutKind: TSmallintField
      FieldName = 'InOutKind'
    end
    object CdsGoodsOutQty: TBCDField
      FieldName = 'Qty'
      Precision = 19
    end
    object CdsGoodsOutAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsGoodsOutPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsGoodsOutPItemNo: TIntegerField
      FieldName = 'PItemNo'
    end
    object CdsGoodsOutGroupNo: TIntegerField
      FieldName = 'GroupNo'
    end
    object CdsGoodsOutBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsGoodsOutFlag: TIntegerField
      FieldName = 'Flag'
    end
  end
  object DsGoodsOut: TDataSource
    DataSet = CdsGoodsOut
    Left = 316
    Top = 152
  end
  object CdsTotalStock: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DspTotalStock'
    RemoteServer = DComConn
    Left = 396
    Top = 208
    object CdsTotalStockGoodsID: TStringField
      FieldName = 'GoodsID'
      Size = 16
    end
    object CdsTotalStockName: TStringField
      FieldName = 'Name'
      Size = 24
    end
    object CdsTotalStockSpecs: TStringField
      FieldName = 'Specs'
    end
    object CdsTotalStockQty: TBCDField
      FieldName = 'Qty'
      ReadOnly = True
      Precision = 32
      Size = 3
    end
    object CdsTotalStockQty1: TBCDField
      FieldName = 'Qty1'
      ReadOnly = True
      Precision = 32
      Size = 3
    end
    object CdsTotalStockQty2: TBCDField
      FieldName = 'Qty2'
      ReadOnly = True
      Precision = 32
      Size = 3
    end
    object CdsTotalStockPrice1: TBCDField
      FieldName = 'Price1'
      ReadOnly = True
      Precision = 19
    end
    object CdsTotalStockPrice2: TBCDField
      FieldName = 'Price2'
      ReadOnly = True
      Precision = 19
    end
    object CdsTotalStockAmount: TBCDField
      FieldName = 'Amount'
      ReadOnly = True
      Precision = 19
    end
  end
  object DsTotalStock: TDataSource
    DataSet = CdsTotalStock
    Left = 468
    Top = 208
  end
  object DsRankStock: TDataSource
    DataSet = CdsRankStock
    Left = 320
    Top = 208
  end
  object CdsRankStock: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DspRankStock'
    RemoteServer = DComConn
    Left = 248
    Top = 208
    object CdsRankStockDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object CdsRankStockDepotNo: TStringField
      FieldName = 'DepotNo'
      Size = 12
    end
    object CdsRankStockDepotName: TStringField
      FieldName = 'DepotName'
    end
    object CdsRankStockBerthNo: TStringField
      FieldName = 'BerthNo'
      Size = 8
    end
    object CdsRankStockGoodsID: TStringField
      FieldName = 'GoodsID'
      Size = 16
    end
    object CdsRankStockName: TStringField
      FieldName = 'Name'
      Size = 24
    end
    object CdsRankStockSpecs: TStringField
      FieldName = 'Specs'
    end
    object CdsRankStockBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsRankStockQty: TBCDField
      FieldName = 'Qty'
      Precision = 12
      Size = 3
    end
    object CdsRankStockQty1: TBCDField
      FieldName = 'Qty1'
      Precision = 12
      Size = 3
    end
    object CdsRankStockQty2: TBCDField
      FieldName = 'Qty2'
      Precision = 12
      Size = 3
    end
    object CdsRankStockPrice1: TBCDField
      FieldName = 'Price1'
      Precision = 19
    end
    object CdsRankStockPrice2: TBCDField
      FieldName = 'Price2'
      Precision = 19
    end
    object CdsRankStockAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsRankStockValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
  end
  object CdsDetailStock: TckClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DspDetailStock'
    RemoteServer = DComConn
    Left = 104
    Top = 208
    object CdsDetailStockDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object CdsDetailStockDepotNo: TStringField
      FieldName = 'DepotNo'
      Size = 12
    end
    object CdsDetailStockDepotName: TStringField
      FieldName = 'DepotName'
    end
    object CdsDetailStockBerthNo: TStringField
      FieldName = 'BerthNo'
      Size = 8
    end
    object CdsDetailStockGoodsID: TStringField
      FieldName = 'GoodsID'
      Size = 16
    end
    object CdsDetailStockName: TStringField
      FieldName = 'Name'
      Size = 24
    end
    object CdsDetailStockSpecs: TStringField
      FieldName = 'Specs'
    end
    object CdsDetailStockFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsDetailStockProvNo: TStringField
      FieldName = 'ProvNo'
      Size = 8
    end
    object CdsDetailStockProvName: TStringField
      FieldName = 'ProvName'
    end
    object CdsDetailStockQty: TBCDField
      FieldName = 'Qty'
      Precision = 12
      Size = 3
    end
    object CdsDetailStockQty1: TBCDField
      FieldName = 'Qty1'
      Precision = 12
      Size = 3
    end
    object CdsDetailStockQty2: TBCDField
      FieldName = 'Qty2'
      Precision = 12
      Size = 3
    end
    object CdsDetailStockPrice1: TBCDField
      FieldName = 'Price1'
      Precision = 19
    end
    object CdsDetailStockPrice2: TBCDField
      FieldName = 'Price2'
      Precision = 19
    end
    object CdsDetailStockAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsDetailStockGroupNo: TIntegerField
      FieldName = 'GroupNo'
    end
    object CdsDetailStockBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsDetailStockProdDate: TDateTimeField
      FieldName = 'ProdDate'
    end
    object CdsDetailStockValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
    object CdsDetailStockInOutKind: TSmallintField
      FieldName = 'InOutKind'
    end
    object CdsDetailStockPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsDetailStockPItemNo: TIntegerField
      FieldName = 'PItemNo'
    end
    object CdsDetailStockInQty: TBCDField
      FieldName = 'InQty'
      Precision = 12
      Size = 3
    end
    object CdsDetailStockUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsDetailStockRecNO: TAutoIncField
      FieldName = 'RecNO'
      ReadOnly = True
    end
  end
  object DsDetailStock: TDataSource
    DataSet = CdsDetailStock
    Left = 176
    Top = 208
  end
  object ActionList1: TActionList
    Left = 608
    Top = 176
    object ActFind1: TModlAction
      Category = 'Module'
      Caption = #26597#35810'(&Q)'
      OnExecute = ActFind1Execute
      Flag2 = 0
      Remark = 'Q'
    end
    object ActFind2: TModlAction
      Category = 'Module'
      Caption = #26597#35810'(&Q)'
      OnExecute = ActFind2Execute
      Flag2 = 0
      Remark = 'Q'
    end
    object ActFind3: TModlAction
      Category = 'Module'
      Caption = #26597#35810'(&Q)'
      OnExecute = ActFind3Execute
      Flag2 = 0
      Remark = 'Q'
    end
    object ActFind4: TModlAction
      Category = 'Module'
      Caption = #26597#35810'(&Q)'
      OnExecute = ActFind4Execute
      Flag2 = 0
      Remark = 'Q'
    end
    object ActFind5: TModlAction
      Category = 'Module'
      Caption = #26597#35810'(&Q)'
      OnExecute = ActFind5Execute
      Flag2 = 0
      Remark = 'Q'
    end
    object ActFieldsLayout: TModlAction
      Category = 'Module'
      Caption = #35774#32622#23383#27573#24067#23616'&L'
      OnExecute = ActFieldsLayoutExecute
      Flag2 = 0
      Remark = 'L'
    end
    object ActDataExport: TModlAction
      Category = 'Module'
      Caption = #25968#25454#23548#20986'(&X)'
      OnExecute = ActDataExportExecute
      Flag2 = 0
      Remark = 'X'
    end
    object ActDesignReport: TModlAction
      Category = 'Module'
      Flag2 = 0
      Remark = 'G'
    end
    object ActPrint1: TModlAction
      Category = 'Module'
      Caption = #25253#34920'(&P)'
      OnExecute = ActPrint1Execute
      Flag2 = 0
      Remark = 'P'
    end
    object ActPrint2: TModlAction
      Category = 'Module'
      Caption = #25253#34920'(&P)'
      OnExecute = ActPrint2Execute
      Flag2 = 0
      Remark = 'P'
    end
    object ActPrint3: TModlAction
      Category = 'Module'
      Caption = #25253#34920'(&P)'
      OnExecute = ActPrint3Execute
      Flag2 = 0
      Remark = 'P'
    end
    object ActPrint4: TModlAction
      Category = 'Module'
      Caption = #25253#34920'(&P)'
      OnExecute = ActPrint4Execute
      Flag2 = 0
      Remark = 'P'
    end
    object ActPrint5: TModlAction
      Category = 'Module'
      Caption = #25253#34920'(&P)'
      OnExecute = ActPrint5Execute
      Flag2 = 0
      Remark = 'P'
    end
  end
  object TopPopMenu: TPopupMenu
    AutoHotkeys = maManual
    Left = 192
    Top = 4
    object SetFields1: TMenuItem
      Action = ActFieldsLayout
    end
    object refresh1: TMenuItem
      Action = ActDataExport
    end
  end
end