?? sjrc_un.dfm
字號:
Height = 20
TabOrder = 6
SkinData = bsSkinData1
SkinDataName = 'combobox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 20
UseSkinFont = True
DataField = 'fhyd'
DataSource = dsbaseinfo
ListBoxDefaultItemHeight = 20
ListBoxUseSkinFont = True
ListBoxUseSkinItemHeight = True
KeyField = 'fid'
ListField = 'fna'
ListSource = ds_hyd
end
object bsSkinButton1: TbsSkinButton
Left = 448
Top = 56
Width = 81
Height = 73
TabOrder = 7
SkinData = bsSkinData1
SkinDataName = 'resizebutton'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #28155#21152#25163#26426#20018#21495
NumGlyphs = 1
Spacing = 1
OnClick = bsSkinButton1Click
end
object bsSkinDBLookupComboBox5: TbsSkinDBLookupComboBox
Left = 90
Top = 38
Width = 121
Height = 20
TabOrder = 8
SkinData = bsSkinData1
SkinDataName = 'combobox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 20
UseSkinFont = True
DataField = 'fsjcsid'
DataSource = dstemp
ListBoxDefaultItemHeight = 20
ListBoxUseSkinFont = True
ListBoxUseSkinItemHeight = True
KeyField = 'fid'
ListField = 'fna'
ListSource = ds_sjcs
end
object bsSkinDBLookupComboBox6: TbsSkinDBLookupComboBox
Left = 90
Top = 38
Width = 121
Height = 20
TabOrder = 9
SkinData = bsSkinData1
SkinDataName = 'combobox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 20
UseSkinFont = True
ListBoxDefaultItemHeight = 20
ListBoxUseSkinFont = True
ListBoxUseSkinItemHeight = True
KeyField = 'fid'
ListField = 'fna'
ListSource = ds_sjcs2
end
object bsSkinDBLookupComboBox7: TbsSkinDBLookupComboBox
Left = 90
Top = 59
Width = 121
Height = 20
TabOrder = 10
SkinData = bsSkinData1
SkinDataName = 'combobox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 20
UseSkinFont = True
DataField = 'fsjxh'
DataSource = dsbaseinfo
ListBoxDefaultItemHeight = 20
ListBoxUseSkinFont = True
ListBoxUseSkinItemHeight = True
KeyField = 'fid'
ListField = 'fmodel'
ListSource = ds_sjxh2
end
end
object bsSkinGroupBox4: TbsSkinGroupBox [3]
Left = 0
Top = 195
Width = 554
Height = 208
TabOrder = 2
SkinData = bsSkinData1
SkinDataName = 'groupbox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RealHeight = -1
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = True
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = #25163#26426#20837#24211#21333#25454#65306
Align = alBottom
object bsSkinDBGrid2: TbsSkinDBGrid
Left = 1
Top = 23
Width = 533
Height = 165
TabOrder = 2
SkinData = bsSkinData1
SkinDataName = 'grid'
UseSkinFont = True
UseSkinCellHeight = True
HScrollBar = bsSkinScrollBar4
VScrollBar = bsSkinScrollBar3
GridLineColor = clWindowText
DefaultCellHeight = 20
UseColumnsFont = False
DefaultRowHeight = 17
MouseWheelSupport = False
SaveMultiSelection = False
PickListBoxSkinDataName = 'listbox'
PickListBoxCaptionMode = False
Align = alClient
DataSource = dstemp
ReadOnly = True
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = bsSkinDBGrid2CellClick
Columns = <
item
Expanded = False
FieldName = 'fid'
Title.Caption = #36827#36135#27969#27700#21495
Width = 50
Visible = True
end
item
Expanded = False
FieldName = 'fsjxh'
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'fjbpz'
Title.Caption = #22522#26412#37197#32622
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'fnum'
Title.Caption = #36827#36135#25968#37327'('#21488')'
Width = 69
Visible = True
end
item
Expanded = False
FieldName = 'fmon'
Title.Caption = #36827#36135#20215#26684'('#20803'/'#21488')'
Width = 78
Visible = True
end
item
Expanded = False
FieldName = 'fhylx'
Title.Caption = #36135#28304#31867#22411
Width = 54
Visible = True
end
item
Expanded = False
FieldName = 'fhyd'
Title.Caption = #36135#28304#22320
Width = 47
Visible = True
end
item
Expanded = False
FieldName = 'fmemo'
Title.Caption = #22791#27880
Width = 90
Visible = True
end>
end
object bsSkinScrollBar3: TbsSkinScrollBar
Left = 534
Top = 23
Width = 19
Height = 165
TabOrder = 0
Visible = False
SkinData = bsSkinData1
SkinDataName = 'vscrollbar'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 19
DefaultHeight = 0
UseSkinFont = True
Both = False
BothMarkerWidth = 19
BothSkinDataName = 'bothhscrollbar'
CanFocused = False
Align = alRight
Kind = sbVertical
PageSize = 1
Min = 1
Max = 25
Position = 1
SmallChange = 1
LargeChange = 1
end
object bsSkinScrollBar4: TbsSkinScrollBar
Left = 1
Top = 188
Width = 552
Height = 19
TabOrder = 1
Visible = False
SkinData = bsSkinData1
SkinDataName = 'hscrollbar'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 19
UseSkinFont = True
Both = False
BothMarkerWidth = 19
BothSkinDataName = 'bothhscrollbar'
CanFocused = False
Align = alBottom
Kind = sbHorizontal
PageSize = 0
Min = 0
Max = 0
Position = 0
SmallChange = 127
LargeChange = 127
end
end
inherited ALToolbar: TActionList
OnChange = ALToolbarChange
end
inherited bsSkinMessage1: TbsSkinMessage
Left = 96
end
inherited wwLookupDlg: TwwLookupDialog
Selected.Strings = (
'fsjxh'#9'20'#9#25163#26426#22411#21495#9'F')
LookupTable = qtemp
end
inherited spgetid: TADOStoredProc
Left = 392
end
inherited qbaseinfo: TADOTable
IndexFieldNames = 'fid'
MasterFields = 'fid'
MasterSource = dstemp
TableName = 'thrc'
end
inherited qtemp: TADOQuery
CursorType = ctStatic
SQL.Strings = (
'select tsjxh.fid as fsjxhid,tsjcs.fid as fsjcsid,thyd.fna as fhy' +
'd,thrc.fid,ltrim(rtrim(tsjcs.fna))+ltrim(rtrim(tsjxh.fmodel)) as' +
' fsjxh,thrc.fnum,tjbpz.fname as fjbpz,thrc.fmon,thylx.fname as f' +
'hylx,thrc.fdate,thrc.fmemo'
'from thrc,tsjcs,tsjxh,tjbpz,thylx,thyd'
'where tsjcs.fid=tsjxh.fsjcs and thrc.fsjxh=tsjxh.fid and tjbpz.f' +
'id=thrc.fjbpz and thylx.fid=thrc.fhylx and thyd.fid=thrc.fhyd an' +
'd fnum>1'
'order by thrc.fid desc')
end
object qry_sjcs: TADOQuery
Connection = dm.ADOConnection1
CursorType = ctStatic
BeforeRefresh = qtempBeforeRefresh
AfterRefresh = qtempAfterRefresh
Parameters = <>
SQL.Strings = (
'select * from tsjcs'
'where fuse='#39'T'#39
'order by tsjcs.fid')
Left = 48
Top = 320
end
object ds_sjxh: TDataSource
DataSet = ado_sjxh
Left = 168
Top = 304
end
object tjbpz: TADOQuery
Active = True
Connection = dm.ADOConnection1
CursorType = ctStatic
BeforeRefresh = qtempBeforeRefresh
AfterRefresh = qtempAfterRefresh
Parameters = <>
SQL.Strings = (
'select * from tjbpz'
'where tjbpz.fuse='#39'T'#39
'order by fid')
Left = 96
Top = 312
end
object ds_jbpz: TDataSource
DataSet = tjbpz
Left = 144
Top = 384
end
object thylx: TADOQuery
Connection = dm.ADOConnection1
CursorType = ctStatic
BeforeRefresh = qtempBeforeRefresh
AfterRefresh = qtempAfterRefresh
Parameters = <>
SQL.Strings = (
'select * from thylx'
'order by thylx.fid')
Left = 208
Top = 320
end
object ds_hylx: TDataSource
DataSet = thylx
Left = 224
Top = 384
end
object thyd: TADOQuery
Connection = dm.ADOConnection1
CursorType = ctStatic
BeforeRefresh = qtempBeforeRefresh
AfterRefresh = qtempAfterRefresh
Parameters = <>
SQL.Strings = (
'select * from thyd'
'where thyd.fuse='#39'T'#39' and thyd.fid>'#39'HY02'#39
'order by thyd.fid')
Left = 256
Top = 320
end
object ds_hyd: TDataSource
DataSet = thyd
Left = 304
Top = 384
end
object ado_sjxh: TADOTable
Active = True
Connection = dm.ADOConnection1
CursorType = ctStatic
IndexFieldNames = 'fsjcs'
MasterFields = 'fid'
MasterSource = ds_sjcs
TableName = 'tsjxh'
Left = 136
Top = 308
end
object ds_sjcs: TDataSource
DataSet = tblsjcs
Left = 104
Top = 356
end
object tblsjcs: TADOTable
Connection = dm.ADOConnection1
IndexFieldNames = 'fid'
MasterFields = 'fsjcsid'
MasterSource = dstemp
TableName = 'tsjcs'
Left = 72
Top = 360
end
object tblsjcs2: TADOTable
Connection = dm.ADOConnection1
Filter = 'fuse='#39'T'#39
Filtered = True
IndexFieldNames = 'fid'
TableName = 'tsjcs'
Left = 224
Top = 40
end
object ds_sjcs2: TDataSource
DataSet = tblsjcs2
Left = 264
Top = 44
end
object tblsjxh2: TADOTable
Active = True
Connection = dm.ADOConnection1
CursorType = ctStatic
IndexFieldNames = 'fsjcs'
MasterFields = 'fid'
MasterSource = ds_sjcs2
TableName = 'tsjxh'
Left = 424
Top = 156
end
object ds_sjxh2: TDataSource
DataSet = tblsjxh2
Left = 456
Top = 152
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -