u_dm.dfm

一个地方税务征收管理系统

object dm1: Tdm1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 164
  Top = 135
  Height = 381
  Width = 593
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=cw'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 8
  end
  object D_rc_sum: TDataSource
    DataSet = A_rc_sum
    Left = 352
    Top = 152
  end
  object A_acount: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'acount'
    Left = 360
    Top = 8
  end
  object D_acount: TDataSource
    DataSet = A_acount
    Left = 400
    Top = 8
  end
  object Q_temp: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM V_RC')
    Left = 192
    Top = 16
  end
  object ADOCommand1: TADOCommand
    Connection = ADOConnection1
    Parameters = <>
    Left = 112
    Top = 8
  end
  object Q_1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM V_RC')
    Left = 256
    Top = 16
  end
  object Q_2: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM V_RC')
    Left = 296
    Top = 16
  end
  object A_Person: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'she'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 6
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM person where left(pno,3) like :she and state=0')
    Left = 24
    Top = 72
  end
  object D_person: TDataSource
    DataSet = A_Person
    Left = 24
    Top = 143
  end
  object A_rw: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'she'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 6
        Value = Null
      end
      item
        Name = 'acount_id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM v_rw '
      'where left(pno,3) like :she and acount_id=:acount_id')
    Left = 160
    Top = 72
  end
  object D_rw: TDataSource
    DataSet = A_rw
    Left = 160
    Top = 151
  end
  object A_person_find: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'py'
        Size = -1
        Value = Null
      end
      item
        Name = 'pno'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT person_id,pno,name FROM person'
      ' where ((py like :py) or (pno=:pno))'
      'order by pno,name')
    Left = 224
    Top = 80
  end
  object d_person_find: TDataSource
    DataSet = A_person_find
    Left = 216
    Top = 151
  end
  object A_rc_item: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'person_id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'acount_id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM v_rc '
      'where person_id=:person_id and acount_id=:acount_id'
      'order by c_no desc')
    Left = 288
    Top = 88
  end
  object d_rc_item: TDataSource
    DataSet = A_rc_item
    Left = 288
    Top = 152
  end
  object A_rc_sum: TADOStoredProc
    Connection = ADOConnection1
    ProcedureName = 'p_getposent_person_one;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@acount_id'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@person_id'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 352
    Top = 96
  end
  object D_jd_she: TDataSource
    DataSet = A_jd_she
    Left = 408
    Top = 152
  end
  object A_jd_she: TADOStoredProc
    Connection = ADOConnection1
    ProcedureName = 'p_jd_she;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@acount_id'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@min_date'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@max_date'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end>
    Left = 408
    Top = 96
  end
  object A_person_r: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Filtered = True
    Parameters = <
      item
        Name = 'she'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 6
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM person where left(pno,3) like :she and state=1')
    Left = 96
    Top = 72
  end
  object D_person_r: TDataSource
    DataSet = A_person_r
    Left = 96
    Top = 143
  end
  object A_she: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM she')
    Left = 472
    Top = 96
  end
  object D_she: TDataSource
    DataSet = A_she
    Left = 472
    Top = 151
  end
  object p_acounr_new: TADOStoredProc
    Connection = ADOConnection1
    ProcedureName = 'p_acount_new;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@a_name'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@a_year'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@a_password'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@discrypt'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@s1_td'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@s1_rq'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@s1_ldl'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@s2_td'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@s2_rq'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@s2_ldl'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@s1'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end
      item
        Name = '@s2'
        Attributes = [paNullable]
        DataType = ftBCD
        Precision = 19
        Value = Null
      end>
    Left = 480
    Top = 24
  end
  object A_rw_she: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'acount_id'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 7
      end>
    SQL.Strings = (
      'SELECT * FROM v_rw_she where acount_id=:acount_id'
      ' order by she_no')
    Left = 528
    Top = 96
  end
  object D_rw_she: TDataSource
    DataSet = A_rw_she
    Left = 528
    Top = 151
  end
  object a_fp_find: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 32
    Top = 200
  end
  object d_fp_find: TDataSource
    DataSet = a_fp_find
    Left = 32
    Top = 248
  end
  object D_jd_person: TDataSource
    DataSet = A_jd_person
    Left = 104
    Top = 256
  end
  object A_jd_person: TADOStoredProc
    Connection = ADOConnection1
    ProcedureName = 'p_getposent_person;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@acount_id'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = 0
      end>
    Left = 104
    Top = 200
  end
  object A_jd_s1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 176
    Top = 200
  end
  object D_jd_s1: TDataSource
    DataSet = A_jd_s1
    Left = 176
    Top = 255
  end
  object A_jd_person2: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'exec p_jd_person 15,'#39'012'#39)
    Left = 256
    Top = 208
  end
  object d_jd_person2: TDataSource
    DataSet = A_jd_person2
    Left = 256
    Top = 263
  end
  object A_rc_fp: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT top 15 pno,name,s1,s1_no,s2,s2_no FROM v_rc '
      'order by rc_id desc')
    Left = 336
    Top = 216
  end
  object d_rc_fp: TDataSource
    DataSet = A_rc_fp
    Left = 336
    Top = 264
  end
end