udatam.dfm

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

object DataM: TDataM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 341
  Top = 143
  Height = 521
  Width = 436
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\Invoice.mdb;Persi' +
      'st Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 16
  end
  object MissionSet: TADODataSet
    Active = True
    CacheSize = 10
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforeDelete = MissionSetBeforeDelete
    CommandText = 'select * from Mission'
    Parameters = <>
    Left = 112
    Top = 16
    object MissionSetTaxNo: TWideStringField
      DisplayLabel = #31246#21495
      FieldName = 'TaxNo'
    end
    object MissionSetDWMC: TWideStringField
      DisplayLabel = #38144#21806#21333#20301#21517#31216#65306
      FieldName = 'dwmc'
      Size = 50
    end
    object MissionSetActive: TBooleanField
      FieldName = 'Active'
    end
    object MissionSetphotoNo: TWideStringField
      DisplayLabel = #30005#35805
      FieldName = 'photoNo'
      Size = 15
    end
    object MissionSetaddress: TWideStringField
      DisplayLabel = #22320#22336
      FieldName = 'address'
      Size = 50
    end
    object MissionSetsk_Ren: TWideStringField
      DisplayLabel = #25910#27454#20154
      FieldName = 'sk_Ren'
      Size = 10
    end
    object MissionSetkp_Ren: TWideStringField
      DisplayLabel = #24320#31080#20154
      FieldName = 'kp_Ren'
      Size = 10
    end
    object MissionSetbank: TWideStringField
      DisplayLabel = #24320#25143#34892
      FieldName = 'bank'
      Size = 50
    end
    object MissionSetbankno: TWideStringField
      DisplayLabel = #24080#21495
      FieldName = 'bankno'
      Size = 50
    end
  end
  object MissionSource: TDataSource
    DataSet = MissionSet
    Left = 112
    Top = 64
  end
  object CurMission: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'CurMission'
    Left = 192
    Top = 16
    object CurMissiontaxNo: TWideStringField
      FieldName = 'taxNo'
    end
    object CurMissionren: TWideStringField
      FieldName = 'ren'
      Size = 10
    end
    object CurMissionprintName: TWideStringField
      FieldName = 'printName'
      Size = 50
    end
    object CurMissionprint_X: TIntegerField
      FieldName = 'print_X'
    end
    object CurMissionprint_Y: TIntegerField
      FieldName = 'print_Y'
    end
    object CurMissionSLDec: TIntegerField
      FieldName = 'SLDec'
    end
    object CurMissionDJDec: TIntegerField
      FieldName = 'DJDec'
    end
    object CurMissionSLFjh: TBooleanField
      FieldName = 'SLFjh'
    end
    object CurMissionDJfjh: TBooleanField
      FieldName = 'DJfjh'
    end
    object CurMissionJEfjh: TBooleanField
      FieldName = 'JEfjh'
    end
    object CurMissionprintNo: TBooleanField
      FieldName = 'printNo'
    end
    object CurMissionb01: TBooleanField
      FieldName = 'b01'
    end
    object CurMissionb02: TBooleanField
      FieldName = 'b02'
    end
    object CurMissionb03: TBooleanField
      FieldName = 'b03'
    end
    object CurMissionb04: TBooleanField
      FieldName = 'b04'
    end
    object CurMissionb05: TBooleanField
      FieldName = 'b05'
    end
    object CurMissionb06: TBooleanField
      FieldName = 'b06'
    end
    object CurMissionb07: TBooleanField
      FieldName = 'b07'
    end
  end
  object CurMissionSource: TDataSource
    DataSet = CurMission
    Left = 192
    Top = 64
  end
  object RenSet: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from kpren 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 = 272
    Top = 16
  end
  object RenSource: TDataSource
    DataSet = RenSet
    Left = 272
    Top = 64
  end
  object KHFLSet: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    BeforeDelete = KHFLSetBeforeDelete
    CommandText = 'select * from khfl 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 = 136
    object KHFLSetfl_id: TAutoIncField
      FieldName = 'fl_id'
      ReadOnly = True
    end
    object KHFLSetTaxNo: TWideStringField
      DisplayLabel = #31246#21495
      FieldName = 'TaxNo'
    end
    object KHFLSetFLMC: TWideStringField
      DisplayLabel = #20998#31867#21517#31216
      FieldName = 'FLMC'
      Size = 50
    end
  end
  object KHFLSource: TDataSource
    DataSet = KHFLSet
    Left = 112
    Top = 192
  end
  object KHMXSet: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from KHMXK where fl_id=:fl_id'
    DataSource = KHFLSource
    MasterFields = 'fl_id'
    Parameters = <
      item
        Name = 'fl_id'
        Attributes = [paNullable]
        DataType = ftInteger
        NumericScale = 255
        Precision = 255
        Value = 1
      end>
    Left = 184
    Top = 136
    object KHMXSetid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object KHMXSetfl_id: TIntegerField
      FieldName = 'fl_id'
    end
    object KHMXSetKHDM: TWideStringField
      DisplayLabel = #20195#30721
      FieldName = 'KHDM'
      Size = 10
    end
    object KHMXSetKHMC: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'KHMC'
      Size = 50
    end
    object KHMXSetKHAddress: TWideStringField
      DisplayLabel = #23458#25143#22320#22336
      FieldName = 'KHAddress'
      Size = 50
    end
    object KHMXSetKHYZBM: TWideStringField
      DisplayLabel = #37038#32534
      FieldName = 'KHYZBM'
      Size = 6
    end
    object KHMXSetKHTelNO: TWideStringField
      DisplayLabel = #32852#31995#30005#35805
      FieldName = 'KHTelNO'
    end
    object KHMXSetKHMAIN: TWideStringField
      DisplayLabel = #32852#31995#20154
      FieldName = 'KHMAIN'
    end
    object KHMXSetKHBank: TWideStringField
      DisplayLabel = #24320#25143#34892
      FieldName = 'KHBank'
      Size = 30
    end
    object KHMXSetKHZH: TWideStringField
      DisplayLabel = #36134#21495
      FieldName = 'KHZH'
    end
    object KHMXSetKHTAXNo: TWideStringField
      DisplayLabel = #31246#21495
      FieldName = 'KHTAXNo'
    end
    object KHMXSetCredence: TWideStringField
      DisplayLabel = #20449#29992#31561#32423
      FieldName = 'Credence'
      Size = 10
    end
  end
  object KMMXSource: TDataSource
    DataSet = KHMXSet
    Left = 184
    Top = 192
  end
  object jldwSet: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from jldwk order by jldm'
    Parameters = <>
    Left = 352
    Top = 16
    object jldwSetjlDM: TWideStringField
      Alignment = taCenter
      DisplayLabel = #20195#30721
      FieldName = 'jlDM'
      Size = 3
    end
    object jldwSetJLDW: TWideStringField
      Alignment = taCenter
      DisplayLabel = #35745#37327#21333#20301
      FieldName = 'JLDW'
      Size = 10
    end
  end
  object jldwSource: TDataSource
    DataSet = jldwSet
    Left = 352
    Top = 64
  end
  object CPFLSet: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    BeforeDelete = CPFLSetBeforeDelete
    CommandText = 'select * from cpfl 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 = 264
    Top = 136
    object CPFLSetfl_id: TAutoIncField
      FieldName = 'fl_id'
      ReadOnly = True
    end
    object CPFLSetTaxNo: TWideStringField
      FieldName = 'TaxNo'
    end
    object CPFLSetFLMC: TWideStringField
      DisplayLabel = #36135#29289#20998#31867#21517#31216
      FieldName = 'FLMC'
    end
  end
  object CPFLSource: TDataSource
    DataSet = CPFLSet
    Left = 264
    Top = 192
  end
  object CPMXSet: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic