selspeer.dfm

群星医药系统源码

      Top = 329
      Width = 775
      Height = 56
      DesignSize = (
        775
        56)
      object RzLabel10: TRzLabel
        Left = 599
        Top = 11
        Width = 48
        Height = 12
        Caption = #21512'  '#35745#65306
      end
      object RzLabel17: TRzLabel
        Left = 24
        Top = 36
        Width = 60
        Height = 12
        Caption = #22791'    '#27880#65306
      end
      object RzLabel13: TRzLabel
        Left = 24
        Top = 11
        Width = 60
        Height = 12
        Caption = #36135#21697#24635#25968#65306
      end
      object RzLabel8: TRzLabel
        Left = 216
        Top = 11
        Width = 48
        Height = 12
        Caption = #36135'  '#27454#65306
      end
      object RzLabel9: TRzLabel
        Left = 402
        Top = 11
        Width = 48
        Height = 12
        Caption = #31246'  '#27454#65306
      end
      object RzLabel7: TRzLabel
        Left = 402
        Top = 35
        Width = 48
        Height = 12
        Caption = #21019#24314#32773#65306
      end
      object RzDBLabel1: TRzDBLabel
        Left = 452
        Top = 34
        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 = DsSelSpeer
      end
      object RzLabel16: TRzLabel
        Left = 587
        Top = 35
        Width = 60
        Height = 12
        Caption = #21019#24314#26085#26399#65306
      end
      object RzDBLabel2: TRzDBLabel
        Left = 646
        Top = 34
        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 = DsSelSpeer
      end
      object RzDBEdit2: TRzDBEdit
        Left = 84
        Top = 32
        Width = 283
        Height = 19
        DataSource = DsSelSpeer
        DataField = 'Remark'
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object RzDBNumericEdit3: TRzDBEdit
        Tag = -1
        Left = 647
        Top = 6
        Width = 103
        Height = 20
        DataSource = DsSelSpeer
        DataField = 'Amount'
        ReadOnly = True
        Alignment = taRightJustify
        Anchors = [akLeft, akTop, akRight]
        FrameVisible = True
        TabOrder = 1
      end
      object RzDBNumericEdit5: TRzDBEdit
        Tag = -1
        Left = 84
        Top = 6
        Width = 103
        Height = 20
        DataSource = DsSelSpeer
        DataField = 'GoodsQty'
        ReadOnly = True
        Alignment = taRightJustify
        Anchors = [akLeft, akTop, akRight]
        FrameVisible = True
        TabOrder = 2
      end
      object RzDBNumericEdit1: TRzDBEdit
        Tag = -1
        Left = 263
        Top = 6
        Width = 103
        Height = 20
        DataSource = DsSelSpeer
        DataField = 'GoodsSum'
        ReadOnly = True
        Alignment = taRightJustify
        Anchors = [akLeft, akTop, akRight]
        FrameVisible = True
        TabOrder = 3
      end
      object RzDBNumericEdit2: TRzDBEdit
        Tag = -1
        Left = 452
        Top = 6
        Width = 103
        Height = 20
        DataSource = DsSelSpeer
        DataField = 'TaxSum'
        ReadOnly = True
        Alignment = taRightJustify
        FrameVisible = True
        TabOrder = 4
      end
    end
  end
  inherited TBBackground1: TTBBackground
    Left = 651
    Top = 227
  end
  inherited ImageList1: TImageList
    Left = 498
    Top = 231
  end
  inherited ActionList1: TActionList
    Left = 576
    Top = 230
    inherited ActQuery: TModlAction
      OnExecute = ActQueryExecute
      ModuleFile = 'TFmSelSpeerQry'
    end
    inherited ActFieldLayout: TModlAction
      OnExecute = ActFieldLayoutExecute
    end
    inherited ActDataExport: TModlAction
      OnExecute = ActDataExportExecute
    end
    inherited ActBillTurn: TModlAction
      OnExecute = ActBillTurnExecute
      ModuleFile = 'SalesBase.bpl;TFmSelOrder'
      Remark = 'I'
    end
  end
  inherited pMenuOthers: TPopupMenu
    Left = 344
    Top = 236
  end
  inherited ImgPopMenu: TImageList
    Left = 420
    Top = 236
  end
  object CdsSelSpeer: TckClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    Params = <
      item
        DataType = ftVariant
        Name = 'BillNo'
        ParamType = ptUnknown
        Value = '20020101001'
      end>
    ProviderName = 'DspSelSpeer'
    RemoteServer = DcomCnn
    AfterScroll = CdsSelSpeerAfterScroll
    OnNewRecord = CdsSelSpeerNewRecord
    Left = 114
    Top = 214
    object CdsSelSpeerBillNO: TStringField
      FieldName = 'BillNO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelSpeerFDate: TDateTimeField
      FieldName = 'FDate'
    end
    object CdsSelSpeerValidDate: TDateTimeField
      FieldName = 'ValidDate'
    end
    object CdsSelSpeerEmpNo: TStringField
      FieldName = 'EmpNo'
      OnChange = CdsSelSpeerEmpNoChange
      Size = 8
    end
    object CdsSelSpeerName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 12
    end
    object CdsSelSpeerAudit: TStringField
      FieldName = 'Audit'
      Size = 8
    end
    object CdsSelSpeerCustNo: TStringField
      FieldName = 'CustNo'
      OnChange = CdsSelSpeerCustNoChange
      Size = 8
    end
    object CdsSelSpeerCustName: TStringField
      FieldName = 'CustName'
      ProviderFlags = []
    end
    object CdsSelSpeerLinkMan: TStringField
      FieldName = 'LinkMan'
      Size = 12
    end
    object CdsSelSpeerGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsSelSpeerTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsSelSpeerAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsSelSpeerGoodsQty: TBCDField
      FieldName = 'GoodsQty'
      Precision = 12
      Size = 3
    end
    object CdsSelSpeerPayModeNo: TStringField
      FieldName = 'PayModeNO'
      Size = 8
    end
    object CdsSelSpeerTransFer: TBooleanField
      FieldName = 'TransFer'
    end
    object CdsSelSpeerFinish: TBooleanField
      FieldName = 'Finish'
    end
    object CdsSelSpeerReMark: TStringField
      FieldName = 'ReMark'
      Size = 100
    end
    object CdsSelSpeerCreater: TStringField
      FieldName = 'Creater'
      Size = 8
    end
    object CdsSelSpeerMender: TStringField
      FieldName = 'Mender'
      Size = 8
    end
    object CdsSelSpeerGrup: TIntegerField
      FieldName = 'Grup'
    end
    object CdsSelSpeerAdsSelSpeerDtl: TDataSetField
      FieldName = 'AdsSelSpeerDtl'
    end
    object CdsSelSpeerCreatTime: TDateTimeField
      FieldName = 'CreatTime'
    end
  end
  object CdsSelSpeerDtl: TckClientDataSet
    Aggregates = <>
    DataSetField = CdsSelSpeerAdsSelSpeerDtl
    IndexFieldNames = 'ItemNo'
    FetchOnDemand = False
    Params = <>
    BeforeInsert = CdsSelSpeerDtlBeforeInsert
    AfterPost = CdsSelSpeerDtlAfterPost
    AfterDelete = CdsSelSpeerDtlAfterPost
    OnNewRecord = CdsSelSpeerDtlNewRecord
    Left = 117
    Top = 276
    object CdsSelSpeerDtlBillNo: TStringField
      FieldName = 'BillNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelSpeerDtlItemNo: TIntegerField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsSelSpeerDtlGoodsID: TStringField
      FieldName = 'GoodsID'
      OnChange = CdsSelSpeerDtlGoodsIDChange
      Size = 16
    end
    object CdsSelSpeerDtlName: TStringField
      FieldName = 'Name'
      ProviderFlags = []
      Size = 24
    end
    object CdsSelSpeerDtlSpecs: TStringField
      FieldName = 'Specs'
      ProviderFlags = []
    end
    object CdsSelSpeerDtlUnit: TStringField
      FieldName = 'Unit'
      Size = 8
    end
    object CdsSelSpeerDtlQty: TBCDField
      FieldName = 'Qty'
      OnChange = CdsSelSpeerDtlQtyChange
      Precision = 12
      Size = 3
    end
    object CdsSelSpeerDtlOprice: TFloatField
      FieldName = 'OPrice'
      OnChange = CdsSelSpeerDtlOPriceChange
    end
    object CdsSelSpeerDtlRebate: TBCDField
      FieldName = 'Rebate'
      OnChange = CdsSelSpeerDtlRebateChange
      Precision = 8
      Size = 2
    end
    object CdsSelSpeerDtlprice: TFloatField
      FieldName = 'Price'
    end
    object CdsSelSpeerDtlTaxRate: TBCDField
      FieldName = 'TaxRate'
      OnChange = CdsSelSpeerDtlTaxRateChange
      Precision = 6
      Size = 2
    end
    object CdsSelSpeerDtlUnTaxprice: TFloatField
      FieldName = 'UnTaxPrice'
    end
    object CdsSelSpeerDtlGoodsSum: TBCDField
      FieldName = 'GoodsSum'
      Precision = 19
    end
    object CdsSelSpeerDtlTaxSum: TBCDField
      FieldName = 'TaxSum'
      Precision = 19
    end
    object CdsSelSpeerDtlAmount: TBCDField
      FieldName = 'Amount'
      Precision = 19
    end
    object CdsSelSpeerDtlCustGoodsID: TStringField
      FieldName = 'CustGoodsID'
      Size = 16
    end
    object CdsSelSpeerDtlRemark: TStringField
      FieldName = 'Remark'
      Size = 40
    end
  end
  object DsSelSpeer: TDataSource
    DataSet = CdsSelSpeer
    Left = 201
    Top = 211
  end
  object DsSelSpeerDtl: TDataSource
    DataSet = CdsSelSpeerDtl
    Left = 203
    Top = 274
  end
  object DcomCnn: TDCOMConnection
    ServerGUID = '{2E17E6A4-B6AD-4CDD-A5AF-A05E0822C5AB}'
    ServerName = 'ckSalesBase.SalesBase'
    Left = 36
    Top = 211
  end
end