udm.~dfm

青年文明号管理系统

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 279
  Top = 133
  Height = 310
  Width = 537
  object com: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\xfh\xfh.mdb;Pers' +
      'ist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 21
  end
  object tmp: TADOQuery
    Connection = com
    Parameters = <>
    Left = 66
    Top = 21
  end
  object frRep: TfrReport
    Dataset = frDS
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit, pbPageSetup]
    Left = 138
    Top = 144
    ReportForm = {18000000}
  end
  object frDS: TfrDBDataSet
    DataSet = t_sbb
    Left = 54
    Top = 144
  end
  object t_sbb: TADOQuery
    Connection = com
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'vdwbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from t_sbb where dwbh=:vdwbh')
    Left = 129
    Top = 18
    object t_sbbdwbh: TWideStringField
      FieldName = 'dwbh'
      Size = 10
    end
    object t_sbbdwmc: TWideStringField
      FieldName = 'dwmc'
      Size = 50
    end
    object t_sbbjb: TWideStringField
      FieldName = 'jb'
      Size = 10
    end
    object t_sbbzrs: TIntegerField
      FieldName = 'zrs'
    end
    object t_sbbfzrxm: TWideStringField
      FieldName = 'fzrxm'
      Size = 30
    end
    object t_sbbpjnl: TIntegerField
      FieldName = 'pjnl'
    end
    object t_sbblxfs: TWideStringField
      FieldName = 'lxfs'
      Size = 40
    end
    object t_sbbfzrnl: TIntegerField
      FieldName = 'fzrnl'
    end
    object t_sbbtxdz: TWideStringField
      FieldName = 'txdz'
      Size = 50
    end
    object t_sbbhjqk: TMemoField
      FieldName = 'hjqk'
      BlobType = ftMemo
    end
    object t_sbbjysj: TMemoField
      FieldName = 'jysj'
      BlobType = ftMemo
    end
    object t_sbbdy: TIntegerField
      FieldName = 'dy'
    end
    object t_sbbdybl: TFloatField
      FieldName = 'dybl'
    end
    object t_sbbty: TIntegerField
      FieldName = 'ty'
    end
    object t_sbbtybl: TFloatField
      FieldName = 'tybl'
    end
    object t_sbbhz: TIntegerField
      FieldName = 'hz'
    end
    object t_sbbwz: TIntegerField
      FieldName = 'wz'
    end
    object t_sbbmz: TIntegerField
      FieldName = 'mz'
    end
    object t_sbbqtmz: TIntegerField
      FieldName = 'qtmz'
    end
    object t_sbbbk: TIntegerField
      FieldName = 'bk'
    end
    object t_sbbdz: TIntegerField
      FieldName = 'dz'
    end
    object t_sbbzj: TIntegerField
      FieldName = 'zj'
    end
    object t_sbbqz: TIntegerField
      FieldName = 'qz'
    end
    object t_sbbdzysbl: TIntegerField
      FieldName = 'dzysbl'
    end
    object t_sbbzygz: TMemoField
      FieldName = 'zygz'
      BlobType = ftMemo
    end
  end
  object Dt_sbb: TDataSource
    DataSet = t_sbb
    Left = 126
    Top = 75
  end
  object v_sbb: TADOQuery
    Connection = com
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from t_sbb')
    Left = 168
    Top = 18
    object WideStringField1: TWideStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'dwbh'
      Size = 10
    end
    object WideStringField2: TWideStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldName = 'dwmc'
      Size = 50
    end
    object WideStringField3: TWideStringField
      DisplayLabel = #32423#21035
      FieldName = 'jb'
      Size = 10
    end
    object IntegerField1: TIntegerField
      DisplayLabel = #24635#20154#25968
      FieldName = 'zrs'
    end
    object WideStringField4: TWideStringField
      DisplayLabel = #36127#36131#20154#22995#21517
      FieldName = 'fzrxm'
      Size = 30
    end
    object IntegerField2: TIntegerField
      DisplayLabel = #24179#22343#24180#40836
      FieldName = 'pjnl'
    end
    object WideStringField5: TWideStringField
      DisplayLabel = #32852#31995#26041#24335
      FieldName = 'lxfs'
      Size = 40
    end
    object IntegerField3: TIntegerField
      DisplayLabel = #36127#36131#20154#24180#40836
      FieldName = 'fzrnl'
    end
    object WideStringField6: TWideStringField
      DisplayLabel = #36890#35759#22320#22336
      FieldName = 'txdz'
      Size = 50
    end
    object MemoField1: TMemoField
      FieldName = 'hjqk'
      BlobType = ftMemo
    end
    object MemoField2: TMemoField
      FieldName = 'jysj'
      BlobType = ftMemo
    end
    object v_sbbdy: TIntegerField
      FieldName = 'dy'
    end
    object v_sbbdybl: TFloatField
      FieldName = 'dybl'
    end
    object v_sbbty: TIntegerField
      FieldName = 'ty'
    end
    object v_sbbtybl: TFloatField
      FieldName = 'tybl'
    end
    object v_sbbhz: TIntegerField
      FieldName = 'hz'
    end
    object v_sbbwz: TIntegerField
      FieldName = 'wz'
    end
    object v_sbbmz: TIntegerField
      FieldName = 'mz'
    end
    object v_sbbqtmz: TIntegerField
      FieldName = 'qtmz'
    end
    object v_sbbbk: TIntegerField
      FieldName = 'bk'
    end
    object v_sbbdz: TIntegerField
      FieldName = 'dz'
    end
    object v_sbbzj: TIntegerField
      FieldName = 'zj'
    end
    object v_sbbqz: TIntegerField
      FieldName = 'qz'
    end
    object v_sbbdzysbl: TIntegerField
      FieldName = 'dzysbl'
    end
    object v_sbbzygz: TMemoField
      FieldName = 'zygz'
      BlobType = ftMemo
    end
  end
  object Dv_sbb: TDataSource
    DataSet = v_sbb
    Left = 171
    Top = 75
  end
  object t_jtqk: TADOQuery
    Connection = com
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'vdwbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from  t_jtqk where dwbh=:vdwbh')
    Left = 225
    Top = 21
    object t_jtqkdwbh: TWideStringField
      FieldName = 'dwbh'
      Size = 10
    end
    object t_jtqkdwmc: TWideStringField
      FieldName = 'dwmc'
      Size = 50
    end
    object t_jtqkxh: TIntegerField
      FieldName = 'xh'
    end
    object t_jtqkxm: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'xm'
      Size = 40
    end
    object t_jtqkxb: TWideStringField
      DisplayLabel = #24615#21035
      FieldName = 'xb'
      Size = 2
    end
    object t_jtqkmz: TWideStringField
      DisplayLabel = #27665#26063
      FieldName = 'mz'
      Size = 10
    end
    object t_jtqkcsny: TDateTimeField
      DisplayLabel = #20986#29983#26085#26399
      FieldName = 'csny'
    end
    object t_jtqkzzmm: TWideStringField
      DisplayLabel = #25919#27835#38754#35980
      FieldName = 'zzmm'
      Size = 10
    end
    object t_jtqkwhcd: TWideStringField
      DisplayLabel = #25991#21270#31243#24230
      FieldName = 'whcd'
      Size = 10
    end
  end
  object Dt_jtqk: TDataSource
    DataSet = t_jtqk
    Left = 225
    Top = 72
  end
  object mz: TADOQuery
    Connection = com
    Parameters = <>
    SQL.Strings = (
      'select * from d_mz')
    Left = 282
    Top = 21
    object mzdm: TWideStringField
      FieldName = 'dm'
      Size = 2
    end
    object mzmc: TWideStringField
      FieldName = 'mc'
      Size = 10
    end
  end
  object Dmz: TDataSource
    DataSet = mz
    Left = 282
    Top = 75
  end
  object whcd: TADOQuery
    Connection = com
    Parameters = <>
    SQL.Strings = (
      'select * from d_whcd')
    Left = 327
    Top = 21
  end
  object Dwhcd: TDataSource
    DataSet = whcd
    Left = 330
    Top = 78
  end
  object zzmm: TADOQuery
    Connection = com
    Parameters = <>
    SQL.Strings = (
      'select * from d_zzmm')
    Left = 372
    Top = 21
  end
  object Dzzmm: TDataSource
    DataSet = zzmm
    Left = 375
    Top = 75
  end
  object v_jtqk: TADOQuery
    Connection = com
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'vdwbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from v_jtqk where dwbh=:vdwbh')
    Left = 207
    Top = 144
    object v_jtqkdwmc: TWideStringField
      FieldName = 'dwmc'
      Size = 50
    end
    object v_jtqkfzrxm: TWideStringField
      FieldName = 'fzrxm'
      Size = 30
    end
    object v_jtqkzrs: TIntegerField
      FieldName = 'zrs'
    end
    object v_jtqkdy: TIntegerField
      FieldName = 'dy'
    end
    object v_jtqkdybl: TFloatField
      FieldName = 'dybl'
    end
    object v_jtqkty: TIntegerField
      FieldName = 'ty'
    end
    object v_jtqktybl: TFloatField
      FieldName = 'tybl'
    end
    object v_jtqkhz: TIntegerField
      FieldName = 'hz'
    end
    object v_jtqkwz: TIntegerField
      FieldName = 'wz'
    end
    object v_jtqkT_SBBmz: TIntegerField
      FieldName = 'T_SBB.mz'
    end
    object v_jtqkqtmz: TIntegerField
      FieldName = 'qtmz'
    end
    object v_jtqkbk: TIntegerField
      FieldName = 'bk'
    end
    object v_jtqkdz: TIntegerField
      FieldName = 'dz'
    end
    object v_jtqkzj: TIntegerField
      FieldName = 'zj'
    end
    object v_jtqkqz: TIntegerField
      FieldName = 'qz'
    end
    object v_jtqkdzysbl: TIntegerField
      FieldName = 'dzysbl'
    end
    object v_jtqktxdz: TWideStringField
      FieldName = 'txdz'
      Size = 50
    end
    object v_jtqkzygz: TMemoField
      FieldName = 'zygz'
      BlobType = ftMemo
    end
    object v_jtqkxm: TWideStringField
      FieldName = 'xm'
      Size = 40
    end
    object v_jtqkxb: TWideStringField
      FieldName = 'xb'
      Size = 2
    end
    object v_jtqkT_jtqkmz: TWideStringField
      FieldName = 'T_jtqk.mz'
      Size = 10
    end
    object v_jtqkcsny: TDateTimeField
      FieldName = 'csny'
    end
    object v_jtqkzzmm: TWideStringField
      FieldName = 'zzmm'
      Size = 10
    end
    object v_jtqkwhcd: TWideStringField
      FieldName = 'whcd'
      Size = 10
    end
    object v_jtqkdwbh: TWideStringField
      FieldName = 'dwbh'
      Size = 10
    end
    object v_jtqklxfs: TWideStringField
      FieldName = 'lxfs'
      Size = 40
    end
  end
  object xzqh: TADOQuery
    Connection = com
    Parameters = <
      item
        Name = 'vpy'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from d_xzqh where py like :vpy')
    Left = 279
    Top = 147
    object xzqhdm: TWideStringField
      DisplayLabel = #20195#30721
      FieldName = 'dm'
      Size = 6
    end
    object xzqhmc: TWideStringField
      DisplayLabel = #21517#31216
      FieldName = 'mc'
      Size = 40
    end
    object xzqhpy: TWideStringField
      DisplayLabel = #25340#38899#21517
      FieldName = 'py'
      Size = 40
    end
  end
  object Dxzqh: TDataSource
    DataSet = xzqh
    Left = 279
    Top = 207
  end
  object Dt_sbb_in: TDataSource
    DataSet = t_sbb_in
    Left = 396
    Top = 213
  end
  object t_sbb_in: TADOTable
    Connection = com
    TableName = 'T_SBB_IN'
    Left = 390
    Top = 147
    object t_sbb_indwbh: TWideStringField
      FieldName = 'dwbh'
      Size = 10
    end
    object t_sbb_indwmc: TWideStringField
      FieldName = 'dwmc'
      Size = 50
    end
    object t_sbb_injb: TWideStringField
      FieldName = 'jb'
      Size = 10
    end
    object t_sbb_inzrs: TIntegerField
      FieldName = 'zrs'
    end
    object t_sbb_infzrxm: TWideStringField
      FieldName = 'fzrxm'
      Size = 30
    end
    object t_sbb_inpjnl: TIntegerField
      FieldName = 'pjnl'
    end
    object t_sbb_inlxfs: TWideStringField
      FieldName = 'lxfs'
      Size = 40
    end
    object t_sbb_infzrnl: TIntegerField
      FieldName = 'fzrnl'
    end
    object t_sbb_intxdz: TWideStringField
      FieldName = 'txdz'
      Size = 50
    end
    object t_sbb_inhjqk: TMemoField
      FieldName = 'hjqk'
      BlobType = ftMemo
    end
    object t_sbb_injysj: TMemoField
      FieldName = 'jysj'
      BlobType = ftMemo
    end
    object t_sbb_indy: TIntegerField
      FieldName = 'dy'
    end
    object t_sbb_indybl: TFloatField
      FieldName = 'dybl'
    end
    object t_sbb_inty: TIntegerField
      FieldName = 'ty'
    end
    object t_sbb_intybl: TFloatField
      FieldName = 'tybl'
    end
    object t_sbb_inhz: TIntegerField
      FieldName = 'hz'
    end
    object t_sbb_inwz: TIntegerField
      FieldName = 'wz'
    end
    object t_sbb_inmz: TIntegerField
      FieldName = 'mz'
    end
    object t_sbb_inqtmz: TIntegerField
      FieldName = 'qtmz'
    end
    object t_sbb_inbk: TIntegerField
      FieldName = 'bk'
    end
    object t_sbb_indz: TIntegerField
      FieldName = 'dz'
    end
    object t_sbb_inzj: TIntegerField
      FieldName = 'zj'
    end
    object t_sbb_inqz: TIntegerField
      FieldName = 'qz'
    end
    object t_sbb_indzysbl: TIntegerField
      FieldName = 'dzysbl'
    end
    object t_sbb_inzygz: TMemoField
      FieldName = 'zygz'
      BlobType = ftMemo
    end
  end
  object jtqk_exp: TADOTable
    Connection = com
    TableName = 'T_jtqk'
    Left = 424
    Top = 20
    object jtqk_expdwbh: TWideStringField
      FieldName = 'dwbh'
      Size = 10
    end
    object jtqk_expdwmc: TWideStringField
      FieldName = 'dwmc'
      Size = 50
    end
    object jtqk_expxh: TIntegerField
      FieldName = 'xh'
    end
    object jtqk_expxm: TWideStringField
      FieldName = 'xm'
      Size = 40
    end
    object jtqk_expxb: TWideStringField
      FieldName = 'xb'
      Size = 2
    end
    object jtqk_expmz: TWideStringField
      FieldName = 'mz'
      Size = 10
    end
    object jtqk_expcsny: TDateTimeField
      FieldName = 'csny'
    end
    object jtqk_expzzmm: TWideStringField
      FieldName = 'zzmm'
      Size = 10
    end
    object jtqk_expwhcd: TWideStringField
      FieldName = 'whcd'
      Size = 10
    end
  end
  object Djtqk_exp: TDataSource
    DataSet = jtqk_exp
    Left = 428
    Top = 76
  end
end