udatam.dfm

安徽省货物销售统一发票管理系统 操作说明 1、开票 F7或双击可 查询

    CommandText = 'select * from cpmxk where fl_id=:fl_id order by cpdm'
    DataSource = CPFLSource
    MasterFields = 'fl_id'
    Parameters = <
      item
        Name = 'fl_id'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Value = 1
      end>
    Left = 336
    Top = 136
    object CPMXSetid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object CPMXSetfl_id: TIntegerField
      FieldName = 'fl_id'
    end
    object CPMXSetCPDM: TWideStringField
      DisplayLabel = #20195#30721
      FieldName = 'CPDM'
      Size = 10
    end
    object CPMXSetCPMC: TWideStringField
      DisplayLabel = #36135#29289#21517#31216
      FieldName = 'CPMC'
      Size = 30
    end
    object CPMXSetCPGG: TWideStringField
      DisplayLabel = #35268#26684
      FieldName = 'CPGG'
    end
    object CPMXSetCPDW: TWideStringField
      DisplayLabel = #21333#20301
      FieldName = 'CPDW'
      Size = 10
    end
    object CPMXSetdefaDJ: TFloatField
      DisplayLabel = #40664#35748#21333#20215
      FieldName = 'defaDJ'
      DisplayFormat = '#,##0.0000;-#,##0.0000;'#39#39
    end
    object CPMXSetdefaSL: TFloatField
      DisplayLabel = #40664#35748#25968#37327
      FieldName = 'defaSL'
      DisplayFormat = '#,##0.00;-#,##0.00;'#39#39
    end
  end
  object CPMXSource: TDataSource
    DataSet = CPMXSet
    Left = 336
    Top = 192
  end
  object fpkset: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from fpk where taxno=:taxno'
    DataSource = MissionSource
    MasterFields = 'taxno'
    Parameters = <
      item
        Name = 'taxno'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = '340703151104317'
      end>
    Left = 112
    Top = 264
    object fpksetid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object fpksettaxNo: TWideStringField
      FieldName = 'taxNo'
    end
    object fpksetinputno: TWideStringField
      DisplayLabel = #21457#31080#36141#20837#25209#21495
      FieldName = 'inputno'
      Size = 50
    end
    object fpksetFPcode: TWideStringField
      DisplayLabel = #21457#31080#20195#30721
      FieldName = 'FPcode'
      Size = 12
    end
    object fpksetbeginNo: TWideStringField
      DisplayLabel = #36215#22987#21457#31080#21495
      FieldName = 'beginNo'
      Size = 8
    end
    object fpksetFPfs: TSmallintField
      DisplayLabel = #21457#31080#20221#25968
      FieldName = 'FPfs'
    end
    object fpksetendNo: TWideStringField
      DisplayLabel = #32467#26463#21457#31080#21495
      FieldName = 'endNo'
      Size = 8
    end
    object fpksetCurNo: TWideStringField
      DisplayLabel = #24403#21069#21457#31080#21495
      FieldName = 'CurNo'
      Size = 8
    end
    object fpksetykfs: TSmallintField
      DisplayLabel = #24050#24320#20221#25968
      FieldName = 'ykfs'
    end
    object fpksetzffs: TSmallintField
      DisplayLabel = #20316#24223#20221#25968
      FieldName = 'zffs'
    end
    object fpksetjffs: TSmallintField
      DisplayLabel = #32564#21098#20221#25968
      FieldName = 'jffs'
    end
    object fpksetsyfs: TIntegerField
      DisplayLabel = #21097#20313#20221#25968
      FieldName = 'syfs'
    end
    object fpksetactive: TBooleanField
      FieldName = 'active'
      DisplayValues = #21551#29992
    end
    object fpksetshare: TBooleanField
      DisplayLabel = #20849#29992#21457#31080
      FieldName = 'share'
    end
  end
  object fpksource: TDataSource
    DataSet = fpkset
    Left = 112
    Top = 320
  end
  object kpkSet: TADODataSet
    Active = True
    CacheSize = 1000
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from kpk where taxno=:taxno order by fpno'
    DataSource = MissionSource
    MasterFields = 'taxno'
    Parameters = <
      item
        Name = 'taxno'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = '340703151104317'
      end>
    Left = 184
    Top = 264
    object kpkSetfp_id: TAutoIncField
      FieldName = 'fp_id'
      ReadOnly = True
    end
    object kpkSetCancel: TBooleanField
      Alignment = taCenter
      DisplayLabel = #20316#24223
      FieldName = 'Cancel'
      DisplayValues = #8730
    end
    object kpkSettaxNo: TWideStringField
      FieldName = 'taxNo'
    end
    object kpkSetFPcode: TWideStringField
      DisplayLabel = #21457#31080#20195#30721
      DisplayWidth = 14
      FieldName = 'FPcode'
      Size = 12
    end
    object kpkSetFPno: TWideStringField
      Alignment = taCenter
      DisplayLabel = #21457#31080#32534#21495
      DisplayWidth = 12
      FieldName = 'FPno'
      Size = 8
    end
    object kpkSetkhmc: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      DisplayWidth = 36
      FieldName = 'khmc'
      Size = 50
    end
    object kpkSethjje: TBCDField
      DisplayLabel = #24320#31080#37329#39069
      DisplayWidth = 16
      FieldName = 'hjje'
      DisplayFormat = '#,##0.00'
      Precision = 19
    end
    object kpkSetbankMNo: TWideStringField
      FieldName = 'bankMNo'
      Size = 60
    end
    object kpkSetaddress: TWideStringField
      FieldName = 'address'
      Size = 50
    end
    object kpkSetphotono: TWideStringField
      FieldName = 'photono'
      Size = 15
    end
    object kpkSetskRen: TWideStringField
      FieldName = 'skRen'
      Size = 10
    end
    object kpkSetkpRen: TWideStringField
      DisplayLabel = #24320#31080#20154
      FieldName = 'kpRen'
      Size = 10
    end
    object kpkSetkpDate: TDateTimeField
      DisplayLabel = #24320#31080#26085#26399
      FieldName = 'kpDate'
      DisplayFormat = 'yyyy'#24180'mm'#26376'dd'#26085
    end
    object kpkSetrate: TSmallintField
      Alignment = taCenter
      DisplayLabel = #31246#29575
      FieldName = 'rate'
    end
    object kpkSetse: TBCDField
      FieldName = 'se'
      Precision = 19
    end
    object kpkSetkind: TWideStringField
      DisplayLabel = #25910#20837#31181#31867
      FieldName = 'kind'
      Size = 16
    end
    object kpkSetinputno: TWideStringField
      FieldName = 'inputno'
      Size = 50
    end
  end
  object kpkSource: TDataSource
    DataSet = kpkSet
    Left = 184
    Top = 320
  end
  object kpmxkset: TADODataSet
    Active = True
    CacheSize = 1000
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from kpmxk where fp_id=:fp_id order by mx_id'
    DataSource = kpkSource
    MasterFields = 'fp_id'
    Parameters = <
      item
        Name = 'fp_id'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Value = 2
      end>
    Left = 264
    Top = 264
    object kpmxksetmx_id: TAutoIncField
      FieldName = 'mx_id'
      ReadOnly = True
    end
    object kpmxksetfp_id: TIntegerField
      FieldName = 'fp_id'
    end
    object kpmxksetXMMC: TWideStringField
      DisplayLabel = #21697'    '#21517
      FieldName = 'XMMC'
      Size = 30
    end
    object kpmxksetXMGG: TWideStringField
      DisplayLabel = #35268'  '#26684
      FieldName = 'XMGG'
    end
    object kpmxksetXMDW: TWideStringField
      DisplayLabel = #21333#20301
      FieldName = 'XMDW'
      Size = 10
    end
    object kpmxksetXMSL: TFloatField
      DisplayLabel = #25968#37327
      DisplayWidth = 20
      FieldName = 'XMSL'
      DisplayFormat = '#,##0.00000'
    end
    object kpmxksetXMDJ: TFloatField
      DisplayLabel = #21333#20215
      DisplayWidth = 20
      FieldName = 'XMDJ'
      DisplayFormat = '#,##0.00000'
    end
    object kpmxksetXMJE: TBCDField
      DisplayLabel = #37329#39069
      DisplayWidth = 26
      FieldName = 'XMJE'
      DisplayFormat = '#,##0.00'
      Precision = 19
    end
  end
  object kpmxksource: TDataSource
    DataSet = kpmxkset
    Left = 264
    Top = 320
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 
      'select  XMMC, XMGG, XMDW, sum(XMSL) as xmsl, sum(XMJE) as xmje f' +
      'rom V_kpmx where taxno="340703151104317" and kpdate>=#2005-1-1# ' +
      'and kpDate<#2005-2-1# group by xmmc,xmgg,xmdw order by xmmc,xmgg' +
      ',xmdw'
    Parameters = <>
    Left = 344
    Top = 264
    object ADODataSet1XMMC: TWideStringField
      FieldName = 'XMMC'
      Size = 30
    end
    object ADODataSet1XMGG: TWideStringField
      FieldName = 'XMGG'
    end
    object ADODataSet1XMDW: TWideStringField
      FieldName = 'XMDW'
      Size = 10
    end
    object ADODataSet1xmsl: TFloatField
      FieldName = 'xmsl'
      DisplayFormat = '#,##0.00000'
    end
    object ADODataSet1xmje: TBCDField
      FieldName = 'xmje'
      DisplayFormat = '#,##0.00'
      Precision = 19
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 344
    Top = 328
  end
end