selsendoutfrm.dfm

群星医药系统源码

            EditButtons = <>
            FieldName = 'PaidUp'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'CustGoodsID'
            Footers = <>
            Title.Alignment = taCenter
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 450
      Width = 778
      Height = 55
      object Label17: TLabel
        Left = 60
        Top = 9
        Width = 48
        Height = 12
        Caption = #36135#21697#24635#25968
      end
      object Label18: TLabel
        Left = 248
        Top = 9
        Width = 30
        Height = 12
        Caption = #36135' '#27454
      end
      object Label12: TLabel
        Left = 416
        Top = 9
        Width = 30
        Height = 12
        Caption = #31246' '#27454
      end
      object Label13: TLabel
        Left = 592
        Top = 9
        Width = 30
        Height = 12
        Caption = #21512' '#35745
      end
      object Label16: TLabel
        Left = 60
        Top = 34
        Width = 48
        Height = 12
        Caption = #22791'    '#27880
      end
      object RzLabel7: TRzLabel
        Left = 412
        Top = 37
        Width = 36
        Height = 12
        Caption = #21019#24314#32773
      end
      object RzDBLabel1: TRzDBLabel
        Left = 451
        Top = 36
        Width = 60
        Height = 12
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'Creater'
        DataSource = DsSelSendOut
      end
      object RzLabel16: TRzLabel
        Left = 574
        Top = 37
        Width = 48
        Height = 12
        Caption = #21019#24314#26085#26399
      end
      object RzDBLabel2: TRzDBLabel
        Left = 627
        Top = 37
        Width = 60
        Height = 12
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'CreatTime'
        DataSource = DsSelSendOut
      end
      object RzDBEdit1: TRzDBEdit
        Tag = -1
        Left = 116
        Top = 5
        Width = 102
        Height = 20
        DataSource = DsSelSendOut
        DataField = 'GoodsQty'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 0
      end
      object RzDBEdit2: TRzDBEdit
        Tag = -1
        Left = 284
        Top = 5
        Width = 102
        Height = 20
        DataSource = DsSelSendOut
        DataField = 'GoodsSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
      end
      object DBEdit12: TRzDBEdit
        Tag = -1
        Left = 451
        Top = 5
        Width = 102
        Height = 20
        DataSource = DsSelSendOut
        DataField = 'TaxSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 3
      end
      object DBEdit13: TRzDBEdit
        Tag = -1
        Left = 627
        Top = 5
        Width = 102
        Height = 20
        DataSource = DsSelSendOut
        DataField = 'Amount'
        ReadOnly = True
        Alignment = taRightJustify
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOrder = 4
      end
      object DBEdit16: TRzDBEdit
        Left = 116
        Top = 30
        Width = 269
        Height = 20
        DataSource = DsSelSendOut
        DataField = 'Remark'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 1
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Left = 44
    Top = 220
  end
  inherited ImageList1: TImageList
    Left = 116
    Top = 220
  end
  inherited ActionList1: TActionList
    Left = 180
    Top = 220
    inherited ActAudit: TModlAction
      ModuleFile = 'StockMain.Bpl;TFmStockOut'
    end
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmSendOut'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      Caption = #32467#31639
      Visible = False
    end
  end
  inherited pMenuOthers: TPopupMenu
    Left = 248
    Top = 200
  end
  object DComConn: TDCOMConnection
    ServerGUID = '{2E17E6A4-B6AD-4CDD-A5AF-A05E0822C5AB}'
    ServerName = 'ckSalesBase.SalesBase'
    Left = 321
    Top = 199
  end
  object CdsSelSendOut: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptUnknown
      end>
    ProviderName = 'DspSelSendOut'
    RemoteServer = DComConn
    AfterScroll = CdsSelSendOutAfterScroll
    OnNewRecord = CdsSelSendOutNewRecord
    OnReconcileError = CdsSelSendOutReconcileError
    Left = 397
    Top = 215
    object CdsSelSendOutBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelSendOutFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsSelSendOutInOutKind: TSmallintField
      FieldName = 'InOutKind'
    end
    object CdsSelSendOutRefBillNo: TStringField
      FieldName = 'RefBillNo'
    end
    object CdsSelSendOutEmpNo: TStringField
      FieldName = 'EmpNo'
      OnChange = CdsSelSendOutEmpNoChange
      Size = 8
    end
    object CdsSelSendOutEmpName: TStringField
      FieldName = 'EmpName'
      ProviderFlags = []
      Size = 12
    end
    object CdsSelSendOutAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsSelSendOutCustNo: TStringField
      FieldName = 'CustNo'
      OnChange = CdsSelSendOutCustNoChange
      Size = 8
    end
    object CdsSelSendOutCustName: TStringField
      FieldName = 'CustName'
      ProviderFlags = []
    end
    object CdsSelSendOutLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsSelSendOutGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object CdsSelSendOutGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsSelSendOutTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsSelSendOutAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsSelSendOutPayModeNo: TStringField
      FieldName = 'PayModeNo'
      Size = 6
    end
    object CdsSelSendOutPayDate: TDateTimeField
      FieldName = 'PayDate'
    end
    object CdsSelSendOutRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object CdsSelSendOutFungible: TBooleanField
      FieldName = 'Fungible'
    end
    object CdsSelSendOutTransfer: TBooleanField
      FieldName = 'Transfer'
    end
    object CdsSelSendOutCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsSelSendOutMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsSelSendOutGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsSelSendOutAdsSelSendOutDtl: TDataSetField
      FieldName = 'AdsSelSendOutDtl'
    end
    object CdsSelSendOutCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
  end
  object DsSelSendOut: TDataSource
    DataSet = CdsSelSendOut
    Left = 493
    Top = 199
  end
  object DsSelSendOutDtl: TDataSource
    DataSet = CdsSelSendOutDtl
    Left = 493
    Top = 259
  end
  object CdsSelSendOutDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsSelSendOutAdsSelSendOutDtl
    FetchOnDemand = False
    Params = <>
    BeforeInsert = CdsSelSendOutDtlBeforeInsert
    AfterPost = CdsSelSendOutDtlAfterPost
    AfterDelete = CdsSelSendOutDtlAfterPost
    OnNewRecord = CdsSelSendOutDtlNewRecord
    Left = 397
    Top = 259
    object CdsSelSendOutDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelSendOutDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelSendOutDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = CdsSelSendOutDtlGoodsIDChange
      Size = 16
    end
    object CdsSelSendOutDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsSelSendOutDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsSelSendOutDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsSelSendOutDtlPrice: TFloatField
      FieldName = 'Price'
      OnChange = CdsSelSendOutDtlpriceChange
      Precision = 19
      Size = 6
    end
    object CdsSelSendOutDtlQty: TBCDField
      FieldName = 'Qty'
      OnChange = CdsSelSendOutDtlpriceChange
      Precision = 12
      Size = 3
    end
    object CdsSelSendOutDtlTaxRate: TBCDField
      FieldName = 'TaxRate'
      OnChange = CdsSelSendOutDtlpriceChange
      Precision = 6
      Size = 2
    end
    object CdsSelSendOutDtlUnTaxPrice: TFloatField
      FieldName = 'UnTaxPrice'
      Precision = 19
      Size = 6
    end
    object CdsSelSendOutDtlGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsSelSendOutDtlTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsSelSendOutDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsSelSendOutDtlBatchNo: TStringField
      FieldName = 'BatchNo'
      Size = 12
    end
    object CdsSelSendOutDtlProdDate: TDateTimeField
      FieldName = 'ProdDate'
    end
    object CdsSelSendOutDtlValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
    object CdsSelSendOutDtlDepotID: TIntegerField
      FieldName = 'DepotID'
    end
    object CdsSelSendOutDtlDepotNo: TStringField
      FieldName = 'DepotNo'
      ProviderFlags = []
      OnChange = CdsSelSendOutDtlDepotNoChange
      Size = 12
    end
    object CdsSelSendOutDtlDepotName: TStringField
      FieldName = 'DepotName'
      ProviderFlags = []
    end
    object CdsSelSendOutDtlPBillNo: TStringField
      FieldName = 'PBillNo'
    end
    object CdsSelSendOutDtlPItemNo: TIntegerField
      FieldName = 'PItemNo'
    end
    object CdsSelSendOutDtlPaidUp: TBCDField
      FieldName = 'PaidUp'
      Precision = 12
      Size = 3
    end
    object CdsSelSendOutDtlCustGoodsID: TStringField
      FieldName = 'CustGoodsID'
      Size = 16
    end
  end
end