?? ubunit.dfm
字號:
' name=:foodposition_name,'
' capacity=:capacity,memo=:memo'
'where unit_id=:unit_id and site_id=:site_id'
' and depot_id=:depot_id'
' and foodposition_id=:foodposition_id')
Left = 464
Top = 120
ParamData = <
item
DataType = ftUnknown
Name = 'site_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'depot_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'foodposition_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'foodposition_name'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'capacity'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'memo'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'site_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'depot_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'foodposition_id'
ParamType = ptUnknown
end>
end
object Query1: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ent_site'
'where unit_id=:unit_id and site_id=:site_id')
Left = 184
Top = 280
ParamData = <
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'site_id'
ParamType = ptUnknown
end>
end
object Query2: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ent_depot_info'
'where unit_id=:unit_id and site_id=:site_id'
' and depot_id=:depot_id')
Left = 216
Top = 280
ParamData = <
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'site_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'depot_id'
ParamType = ptUnknown
end>
end
object Query3: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ent_fdposition_info'
'where unit_id=:unit_id and site_id=:site_id'
' and depot_id=:depot_id and foodposition_id=:foodposition_id')
Left = 248
Top = 280
ParamData = <
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'site_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'depot_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'foodposition_id'
ParamType = ptUnknown
end>
end
object Query4: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ent_site'
'where unit_id=:unit_id and site_name=:site_name')
Left = 184
Top = 320
ParamData = <
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'site_name'
ParamType = ptUnknown
end>
end
object depottypeQuery: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select depot_type'
'from ent_depottype')
Left = 8
Top = 128
end
object depottypeDataSource: TDataSource
DataSet = depottypeQuery
Left = 40
Top = 128
end
object Query5: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ent_depot_info'
'where unit_id=:unit_id and site_id=:site_id'
' and depot_name=:depot_name')
Left = 216
Top = 320
ParamData = <
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'site_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'depot_name'
ParamType = ptUnknown
end>
end
object Query6: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ent_fdposition_info'
'where unit_id=:unit_id and site_id=:site_id'
' and depot_id=:depot_id and name=:foodposition_name')
Left = 248
Top = 320
ParamData = <
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'site_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'depot_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'foodposition_name'
ParamType = ptUnknown
end>
end
object sitemodquery: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'update ent_site'
'set site_id=:site_id,site_name=:site_name,'
' site_address=:site_address,memo=:memo'
'where unit_id=:unit_id and site_id=:site_id')
Left = 400
Top = 120
ParamData = <
item
DataType = ftUnknown
Name = 'site_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'site_name'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'site_address'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'memo'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'site_id'
ParamType = ptUnknown
end>
end
object qryunit: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ENT_UNIT_INFO')
Left = 80
Top = 232
end
object qrysite: TQuery
AfterScroll = qrysiteAfterScroll
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ENT_SITE'
'where unit_id=:unitid')
Left = 80
Top = 264
ParamData = <
item
DataType = ftUnknown
Name = 'unitid'
ParamType = ptUnknown
end>
end
object qrydepot: TQuery
AfterScroll = qrydepotAfterScroll
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ENT_DEPOT_INFO'
'where unit_id=:unitid')
Left = 80
Top = 296
ParamData = <
item
DataType = ftUnknown
Name = 'unitid'
ParamType = ptUnknown
end>
end
object qryfdposition: TQuery
AfterScroll = qryfdpositionAfterScroll
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ENT_FDPOSITION_INFO'
'where unit_id=:unitid')
Left = 80
Top = 328
ParamData = <
item
DataType = ftUnknown
Name = 'unitid'
ParamType = ptUnknown
end>
end
object Query7: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ent_depot_info'
'where unit_id=:unit_id and site_id=:site_id')
Left = 384
Top = 280
ParamData = <
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'site_id'
ParamType = ptUnknown
end>
end
object Query8: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select * from ent_fdposition_info'
'where unit_id=:unit_id and site_id=:site_id'
' and depot_id=:depot_id')
Left = 384
Top = 320
ParamData = <
item
DataType = ftUnknown
Name = 'unit_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'site_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'depot_id'
ParamType = ptUnknown
end>
end
object Query9: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select distinct site_id,site_name'
'from ent_site'
'where unit_id=:unit_id'
'union select site_id=999,site_name='#39#25152#26377#24211#28857#39)
Left = 632
ParamData = <
item
DataType = ftInteger
Name = 'unit_id'
ParamType = ptUnknown
end>
end
object DataSource3: TDataSource
DataSet = Query9
Left = 632
Top = 32
end
object Query11: TQuery
DatabaseName = 'LYDB'
SQL.Strings = (
'select distinct depot_id,depot_name'
'from ent_depot_info'
'where unit_id=:unit_id'
'and site_id=:site_id'
'union select depot_id=999,depot_name='#39#25152#26377#20179#24211#39)
Left = 736
ParamData = <
item
DataType = ftInteger
Name = 'unit_id'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'site_id'
ParamType = ptUnknown
end>
end
object DataSource5: TDataSource
DataSet = Query11
Left = 736
Top = 32
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -