www.pudn.com > del6235577244.rar > da_un.dfm
object da: Tda
OldCreateOrder = False
OnCreate = DataModuleCreate
Left = 203
Top = 195
Height = 348
Width = 489
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\'#20316#19994'\'#23601#19994#31995#32479'\data\clz' +
'z.mdb;Persist Security Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 16
Top = 8
end
object temp: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select st.id,st.co as '#36523#20221#35777',st.na as '#22995#21517',sex.na as '#24615#21035',st.bir as '#20986#29983#24180 +
#26376',cl.na as '#29677#32423',st.age as '#24180#40836',st.high as '#36523#39640', st.eyel as '#35270#21147#65288#24038#65289',st.e' +
'yer as '#35270#21147#65288#21491#65289',st.addr as '#20303#22336',st.tel as '#30005#35805',st.htel as '#25163#26426',jy.na as ' +
#23601#19994#21333#20301',st.photo'
'from st,sex,jy,cl'
'where st.sex=sex.id and st.cl=cl.id and st.jy=jy.id')
Left = 104
Top = 8
end
object ADOTable1: TADOTable
Connection = ADOConnection1
Left = 32
Top = 56
end
object da_temp: TDataSource
DataSet = temp
Left = 104
Top = 64
end
object st_q: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <
item
Name = 'cl'
Attributes = [paNullable]
DataType = ftWideString
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'select st.co,st.id,st.na as '#22995#21517',sex.na as '#24615#21035',st.sex,st.bir,st.age' +
',st.high,st.eyel,st.eyer,st.addr,st.tel,st.htel,st.photo,st.jy'
'from st,sex'
'where st.sex=sex.id and st.cl=:cl')
Left = 192
Top = 8
end
object da_st: TDataSource
DataSet = st_q
Left = 192
Top = 64
end
object jy_q: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select id,na as '#21333#20301#21517#31216
'from jy')
Left = 232
Top = 8
end
object da_jy: TDataSource
DataSet = jy_q
Left = 232
Top = 64
end
object pa_q: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select na as '#19987#19994#21517#31216',id'
'from pa')
Left = 280
Top = 8
end
object da_pa: TDataSource
DataSet = pa_q
Left = 280
Top = 64
end
object cl_q: TADOQuery
Connection = ADOConnection1
Parameters = <
item
Name = 'pid'
Attributes = [paNullable]
DataType = ftWideString
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'select id,paid,na as '#29677#32423#21517#31216' from cl'
'where paid=:pid')
Left = 320
Top = 8
end
object da_cl: TDataSource
DataSet = cl_q
Left = 320
Top = 64
end
object ADOQuery2: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 144
Top = 112
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 136
Top = 160
end
object ADOQuery3: TADOQuery
Connection = ADOConnection1
Parameters = <>
Left = 240
Top = 104
end
object DataSource3: TDataSource
DataSet = ADOQuery3
Left = 240
Top = 160
end
object stupa_q: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from pa')
Left = 272
Top = 104
end
object da_stupa: TDataSource
DataSet = stupa_q
Left = 272
Top = 160
end
object stucl_q: TADOQuery
Connection = ADOConnection1
Parameters = <
item
Name = 'pid'
Attributes = [paNullable]
DataType = ftWideString
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'select * from cl where paid=:pid')
Left = 312
Top = 104
end
object da_stucl: TDataSource
DataSet = stucl_q
Left = 312
Top = 160
end
object sex_q: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select * from sex')
Left = 352
Top = 104
end
object da_sex: TDataSource
DataSet = sex_q
Left = 352
Top = 160
end
object stujy_q: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select * from jy')
Left = 400
Top = 104
end
object da_stujy: TDataSource
DataSet = stujy_q
Left = 400
Top = 160
end
object serjy_q: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select * from jy')
Left = 80
Top = 120
end
object da_serjy: TDataSource
DataSet = serjy_q
Left = 80
Top = 176
end
object sercl_q: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select * from cl')
Left = 8
Top = 120
end
object da_sercl: TDataSource
DataSet = sercl_q
Left = 8
Top = 176
end
object main_q: TADOQuery
Connection = ADOConnection1
AfterOpen = main_qAfterOpen
Parameters = <>
SQL.Strings = (
'select st.id,st.co as '#36523#20221#35777',st.na as '#22995#21517',sex.na as '#24615#21035',st.bir as '#20986#29983#24180 +
#26376',cl.na as '#29677#32423',st.age as '#24180#40836',st.high as '#36523#39640', st.eyel as '#35270#21147#65288#24038#65289',st.e' +
'yer as '#35270#21147#65288#21491#65289',st.addr as '#20303#22336',st.tel as '#30005#35805',st.htel as '#25163#26426',jy.na as ' +
#23601#19994#21333#20301',st.photo'
'from st,sex,jy,cl'
'where st.sex=sex.id and st.cl=cl.id and st.jy=jy.id')
Left = 176
Top = 248
end
object da_main: TDataSource
DataSet = main_q
Left = 224
Top = 248
end
object main_pa_q: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
AfterOpen = main_pa_qAfterOpen
Parameters = <>
SQL.Strings = (
'select na,id'
'from pa')
Left = 8
Top = 248
end
object main_jy_q: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select id,na'
'from jy')
Left = 72
Top = 248
end
object main_cl_q: TADOQuery
Connection = ADOConnection1
Parameters = <
item
Name = 'pid'
Attributes = [paNullable]
DataType = ftWideString
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'select id,na '
'from cl'
'where paid=:pid')
Left = 128
Top = 248
end
object temp1: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select st.id,st.co as '#36523#20221#35777',st.na as '#22995#21517',sex.na as '#24615#21035',st.bir as '#20986#29983#24180 +
#26376',cl.na as '#29677#32423',st.age as '#24180#40836',st.high as '#36523#39640', st.eyel as '#35270#21147#65288#24038#65289',st.e' +
'yer as '#35270#21147#65288#21491#65289',st.addr as '#20303#22336',st.tel as '#30005#35805',st.htel as '#25163#26426',jy.na as ' +
#23601#19994#21333#20301',st.photo'
'from st,sex,jy,cl'
'where st.sex=sex.id and st.cl=cl.id and st.jy=jy.id')
Left = 304
Top = 248
end
object temp2: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select st.id,st.co as '#36523#20221#35777',st.na as '#22995#21517',sex.na as '#24615#21035',st.bir as '#20986#29983#24180 +
#26376',cl.na as '#29677#32423',st.age as '#24180#40836',st.high as '#36523#39640', st.eyel as '#35270#21147#65288#24038#65289',st.e' +
'yer as '#35270#21147#65288#21491#65289',st.addr as '#20303#22336',st.tel as '#30005#35805',st.htel as '#25163#26426',jy.na as ' +
#23601#19994#21333#20301',st.photo'
'from st,sex,jy,cl'
'where st.sex=sex.id and st.cl=cl.id and st.jy=jy.id')
Left = 336
Top = 248
end
object temp3: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select st.id,st.co as '#36523#20221#35777',st.na as '#22995#21517',sex.na as '#24615#21035',st.bir as '#20986#29983#24180 +
#26376',cl.na as '#29677#32423',st.age as '#24180#40836',st.high as '#36523#39640', st.eyel as '#35270#21147#65288#24038#65289',st.e' +
'yer as '#35270#21147#65288#21491#65289',st.addr as '#20303#22336',st.tel as '#30005#35805',st.htel as '#25163#26426',jy.na as ' +
#23601#19994#21333#20301',st.photo'
'from st,sex,jy,cl'
'where st.sex=sex.id and st.cl=cl.id and st.jy=jy.id')
Left = 368
Top = 248
end
object infocl_q: TADOQuery
Connection = ADOConnection1
Parameters = <>
SQL.Strings = (
'select *'
'from cl')
Left = 264
Top = 216
end
object da_infocl: TDataSource
DataSet = infocl_q
Left = 264
Top = 272
end
end