100 lines
1.9 KiB
Plaintext
100 lines
1.9 KiB
Plaintext
|
object FrameSapleInfo: TFrameSapleInfo
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 186
|
||
|
|
Height = 197
|
||
|
|
TabOrder = 0
|
||
|
|
object Label1: TLabel
|
||
|
|
Left = 4
|
||
|
|
Top = 162
|
||
|
|
Width = 36
|
||
|
|
Height = 13
|
||
|
|
Caption = #33457#21495#65306
|
||
|
|
end
|
||
|
|
object Label2: TLabel
|
||
|
|
Left = 4
|
||
|
|
Top = 179
|
||
|
|
Width = 36
|
||
|
|
Height = 13
|
||
|
|
Caption = #22871#25968#65306
|
||
|
|
end
|
||
|
|
object Image1: TImage
|
||
|
|
Left = 0
|
||
|
|
Top = 25
|
||
|
|
Width = 186
|
||
|
|
Height = 133
|
||
|
|
Align = alTop
|
||
|
|
Stretch = True
|
||
|
|
end
|
||
|
|
object Label3: TLabel
|
||
|
|
Left = 52
|
||
|
|
Top = 160
|
||
|
|
Width = 32
|
||
|
|
Height = 13
|
||
|
|
Caption = 'Label3'
|
||
|
|
end
|
||
|
|
object Label4: TLabel
|
||
|
|
Left = 52
|
||
|
|
Top = 178
|
||
|
|
Width = 32
|
||
|
|
Height = 13
|
||
|
|
Caption = 'Label4'
|
||
|
|
end
|
||
|
|
object cxTabControl1: TcxTabControl
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 186
|
||
|
|
Height = 25
|
||
|
|
Align = alTop
|
||
|
|
Style = 9
|
||
|
|
TabIndex = 1
|
||
|
|
TabOrder = 0
|
||
|
|
Tabs.Strings = (
|
||
|
|
'SO'#26679
|
||
|
|
#23458#25143#26679
|
||
|
|
#22823#36135#26679)
|
||
|
|
OnChange = cxTabControl1Change
|
||
|
|
ClientRectBottom = 25
|
||
|
|
ClientRectRight = 186
|
||
|
|
ClientRectTop = 20
|
||
|
|
end
|
||
|
|
object ADOQuery1: TADOQuery
|
||
|
|
Connection = ADOConnection1
|
||
|
|
LockType = ltReadOnly
|
||
|
|
CommandTimeout = 300
|
||
|
|
Parameters = <
|
||
|
|
item
|
||
|
|
Name = 'PP_YHNO'
|
||
|
|
DataType = ftString
|
||
|
|
Size = 20
|
||
|
|
Value = Null
|
||
|
|
end>
|
||
|
|
SQL.Strings = (
|
||
|
|
'select A.P_YHNO,A.Plates,C.picture,B.PatFile'
|
||
|
|
'from SD_Swplan A'
|
||
|
|
'inner join SD_SWDetail B on A.P_YHNO=B.P_YHNO'
|
||
|
|
' and A.P_YHNo=:PP_YHNO'
|
||
|
|
'inner join sd_swPicture c on C.patFile=B.patFile')
|
||
|
|
Left = 56
|
||
|
|
Top = 80
|
||
|
|
end
|
||
|
|
object DataSource1: TDataSource
|
||
|
|
DataSet = ADOQuery1
|
||
|
|
Left = 104
|
||
|
|
Top = 104
|
||
|
|
end
|
||
|
|
object ADOQueryTmp: TADOQuery
|
||
|
|
Connection = ADOConnection1
|
||
|
|
LockType = ltReadOnly
|
||
|
|
CommandTimeout = 300
|
||
|
|
Parameters = <>
|
||
|
|
Left = 96
|
||
|
|
Top = 16
|
||
|
|
end
|
||
|
|
object ADOConnection1: TADOConnection
|
||
|
|
LoginPrompt = False
|
||
|
|
Left = 32
|
||
|
|
Top = 48
|
||
|
|
end
|
||
|
|
end
|