?? smg_db.dfm
字號:
object frmSMGDB: TfrmSMGDB
OldCreateOrder = False
Left = 227
Top = 117
Height = 409
Width = 507
object tblDeliver: TADOTable
Connection = ADO
CursorType = ctStatic
TableName = 'Deliver'
Left = 32
Top = 8
end
object tblReport: TADOTable
Connection = ADO
TableName = 'Report'
Left = 32
Top = 72
end
object tblServerType: TADOTable
Connection = ADO
TableName = 'ServerType'
Left = 32
Top = 144
end
object qryDeliver: TADOQuery
Connection = ADO
Parameters = <>
Left = 120
Top = 8
end
object qryReport: TADOQuery
Connection = ADO
Parameters = <>
Left = 120
Top = 72
end
object qryServerType: TADOQuery
Connection = ADO
CursorType = ctStatic
Parameters = <
item
Name = 'pSPNumber'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 10
Value = Null
end
item
Name = 'pSvcType'
Size = -1
Value = Null
end>
SQL.Strings = (
'select * from ServerType'
'where (SPNumber=:pSPNumber)and(SvcType=:pSvcType)'
'Order by SPNumber')
Left = 120
Top = 144
end
object tblSubmit: TADOTable
Connection = ADO
TableName = 'Submit'
Left = 32
Top = 216
end
object qrySubmit: TADOQuery
Connection = ADO
Parameters = <>
Left = 120
Top = 216
end
object qryBind: TADOQuery
Connection = ADO
CursorType = ctStatic
Parameters = <
item
Name = 'pSPNumber'
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 10
Value = Null
end
item
Name = 'pUserName'
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 15
Value = Null
end
item
Name = 'pPassWord'
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 15
Value = Null
end>
SQL.Strings = (
'select * from Bind'
'where (SPNumber=:pSPNumber)and'
' (UserName=:pUserName)and'
' (PassWord=:pPassWord)'
'ORDER BY SPNumber')
Left = 216
Top = 8
end
object ADO: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Password=best#!@007;Persist Security Info=Tr' +
'ue;User ID=best;Initial Catalog=SMGDB'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 32
Top = 312
end
object tblBind: TADOTable
Connection = ADO
TableName = 'Bind'
Left = 216
Top = 72
end
object UpTryAll: TADOQuery
Connection = ADO
Parameters = <
item
Name = '0'
Attributes = [paSigned, paNullable]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end>
SQL.Strings = (
'update Register'
'set Try=:0')
Left = 248
Top = 248
end
object qryRegister: TADOQuery
Connection = ADO
CursorType = ctStatic
Parameters = <
item
Name = 'pSvcType'
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 10
Value = Null
end
item
Name = 'pSPNumber'
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 10
Value = Null
end>
SQL.Strings = (
'select * from Register'
'where (SvcType=:pSvcType)and'
' (SPNumber=:pSPNumber)'
'Order by RecNo,SPNumber,SvcType')
Left = 336
Top = 248
end
object qrySvcContent: TADOQuery
Connection = ADO
CursorType = ctStatic
Parameters = <
item
Name = 'pSvcType'
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 10
Value = Null
end>
SQL.Strings = (
'select * from SvcContent'
'where SvcType=:pSvcType')
Left = 416
Top = 248
end
object qryScheduleSend: TADOQuery
Connection = ADO
CursorType = ctStatic
Parameters = <
item
Name = '1'
Attributes = [paSigned]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end>
SQL.Strings = (
'select * from ScheduleSendData'
'where Flag=:1'
'Order by RecNo,SPNumber,SvcType,Flag')
Left = 264
Top = 168
end
object UpScheduleSend: TADOQuery
Connection = ADO
Parameters = <>
SQL.Strings = (
'Update ScheduleSendData'
'set Flag=:0'
'where RecNo=:pRecNo')
Left = 360
Top = 152
end
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -