You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

465 lines
11 KiB
Plaintext

object fra_sys_data: Tfra_sys_data
Left = 0
Top = 0
Width = 162
Height = 269
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object bsSkinGroupBox9: TbsSkinGroupBox
Left = 0
Top = 0
Width = 162
Height = 269
HintImageIndex = 0
TabOrder = 0
SkinData = frm_main.bsSkinData1
SkinDataName = 'groupbox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
ImagePosition = bsipDefault
TransparentMode = False
CaptionImageIndex = -1
RealHeight = -1
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = True
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Align = alClient
object bsSkinPanel1: TbsSkinPanel
Left = 1
Top = 23
Width = 160
Height = 25
HintImageIndex = 0
TabOrder = 0
SkinData = frm_main.bsSkinData1
SkinDataName = 'panel'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
ImagePosition = bsipDefault
TransparentMode = False
CaptionImageIndex = -1
RealHeight = -1
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvNone
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinPanel1'
Align = alTop
object bsSkinButton2: TbsSkinButton
Left = 3
Top = 0
Width = 70
Height = 24
HintImageIndex = 0
TabOrder = 0
SkinData = frm_main.bsSkinData1
SkinDataName = 'resizebutton'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
ImageIndex = -1
AlwaysShowLayeredFrame = False
UseSkinSize = True
UseSkinFontColor = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #36873#25321
NumGlyphs = 2
Spacing = 1
OnClick = bsSkinButton2Click
end
object bsSkinButton5: TbsSkinButton
Left = 75
Top = 0
Width = 70
Height = 24
HintImageIndex = 0
TabOrder = 1
SkinData = frm_main.bsSkinData1
SkinDataName = 'resizebutton'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
ImageIndex = -1
AlwaysShowLayeredFrame = False
UseSkinSize = True
UseSkinFontColor = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #20445#23384
NumGlyphs = 2
Spacing = 1
OnClick = bsSkinButton5Click
end
end
object dxDBGrid1: TdxDBGrid
Left = 1
Top = 73
Width = 160
Height = 159
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
KeyField = #32844#21592
SummaryGroups = <>
SummarySeparator = ', '
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 1
DataSource = t_op1
Filter.Criteria = {00000000}
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
object dxDBGrid1Column1: TdxDBGridMaskColumn
ReadOnly = True
Width = 53
BandIndex = 0
RowIndex = 0
FieldName = #32844#21592
end
object dxDBGrid1Column2: TdxDBGridCheckColumn
Caption = #21487#35270
Width = 34
BandIndex = 0
RowIndex = 0
FieldName = #26159#21542#21487#35270
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object dxDBGrid1Column3: TdxDBGridCheckColumn
Caption = #25805#20316
Sorted = csDown
Width = 35
BandIndex = 0
RowIndex = 0
FieldName = #26159#21542#25805#20316
ValueChecked = 'True'
ValueUnchecked = 'False'
end
end
object bsSkinPanel2: TbsSkinPanel
Left = 1
Top = 48
Width = 160
Height = 25
HintImageIndex = 0
TabOrder = 2
SkinData = frm_main.bsSkinData1
SkinDataName = 'panel'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
ImagePosition = bsipDefault
TransparentMode = False
CaptionImageIndex = -1
RealHeight = -1
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = False
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = 'bsSkinPanel2'
Align = alTop
object Label1: TLabel
Left = 7
Top = 7
Width = 48
Height = 12
Caption = #21487#35270#33539#22260
Transparent = True
end
object wwDBComboBox1: TwwDBComboBox
Left = 58
Top = 2
Width = 85
Height = 20
ShowButton = True
Style = csDropDown
MapList = False
AllowClearKey = False
DataField = #21487#35270#33539#22260
DataSource = t_sql1
DropDownCount = 8
ItemHeight = 0
Items.Strings = (
#20840#37096
#37096#38376
#20998#20844#21496
#36873#25321)
Sorted = False
TabOrder = 0
UnboundDataType = wwDefault
OnChange = wwDBComboBox1Change
end
end
object DBMemo1: TDBMemo
Left = 1
Top = 232
Width = 160
Height = 36
Align = alBottom
DataField = #35821#21477
DataSource = t_sql1
TabOrder = 3
end
end
object t_op: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
Parameters = <
item
Name = #22995#21517
DataType = ftString
NumericScale = 255
Precision = 255
Size = 10
Value = Null
end
item
Name = #23646#24615
DataType = ftString
NumericScale = 255
Precision = 255
Size = 20
Value = Null
end>
SQL.Strings = (
'select * from t_sys_code_data'
'where '#20154#21592'=:'#22995#21517' and '#23646#24615'=:'#23646#24615
'order by '#32844#21592)
Left = 40
Top = 168
end
object t_op1: TDataSource
DataSet = t_op
Left = 88
Top = 168
end
object PopupMenu1: TPopupMenu
OwnerDraw = True
Left = 56
Top = 96
object N1: TMenuItem
Caption = #21487#35270#25968#25454
object N8: TMenuItem
Caption = #20010#20154#25968#25454
OnClick = N8Click
end
object N7: TMenuItem
Caption = '-'
end
object N6: TMenuItem
Caption = #37096#38376#25968#25454
OnClick = N6Click
end
object N5: TMenuItem
Caption = '-'
end
object N19: TMenuItem
Caption = #20998#20844#21496#25968#25454
OnClick = N19Click
end
object N11: TMenuItem
Caption = '-'
end
object N4: TMenuItem
Caption = #20840#37096#25968#25454
OnClick = N4Click
end
object N3: TMenuItem
Caption = '-'
end
object N2: TMenuItem
Caption = #20840#37096#28165#31354
OnClick = N2Click
end
end
object N9: TMenuItem
Caption = '-'
end
object N10: TMenuItem
Caption = #25805#20316#25968#25454
object N18: TMenuItem
Caption = #20010#20154#25968#25454
OnClick = N18Click
end
object N17: TMenuItem
Caption = '-'
end
object N16: TMenuItem
Caption = #37096#38376#25968#25454
OnClick = N16Click
end
object N15: TMenuItem
Caption = '-'
end
object N20: TMenuItem
Caption = #20998#20844#21496#25968#25454
OnClick = N20Click
end
object N21: TMenuItem
Caption = '-'
end
object N14: TMenuItem
Caption = #20840#37096#25968#25454
OnClick = N14Click
end
object N13: TMenuItem
Caption = '-'
end
object N12: TMenuItem
Caption = #20840#37096#28165#31354
OnClick = N12Click
end
end
end
object XPMenu1: TXPMenu
Font.Charset = GB2312_CHARSET
Font.Color = clMenuText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Color = 15189677
IconBackColor = 15189677
MenuBarColor = 15189677
SelectColor = 14139102
SelectBorderColor = clHighlight
SelectFontColor = clMenuText
DisabledColor = clInactiveCaption
SeparatorColor = 13485965
CheckedColor = clHighlight
IconWidth = 24
DrawSelect = True
UseSystemColors = False
OverrideOwnerDraw = False
Gradient = True
FlatMenu = True
AutoDetect = True
Active = True
Left = 60
Top = 65492
end
object XPMenu2: TXPMenu
Font.Charset = GB2312_CHARSET
Font.Color = clMenuText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Color = 15189677
IconBackColor = 15189677
MenuBarColor = 15189677
SelectColor = 14139102
SelectBorderColor = clHighlight
SelectFontColor = clMenuText
DisabledColor = clInactiveCaption
SeparatorColor = 13485965
CheckedColor = clHighlight
IconWidth = 24
DrawSelect = True
UseSystemColors = False
OverrideOwnerDraw = False
Gradient = True
FlatMenu = True
AutoDetect = True
Active = True
Left = 289
Top = 56
end
object t_sql: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
AfterInsert = t_sqlAfterInsert
Parameters = <
item
Name = #22995#21517
DataType = ftString
NumericScale = 255
Precision = 255
Size = 10
Value = Null
end
item
Name = #23646#24615
DataType = ftString
NumericScale = 255
Precision = 255
Size = 20
Value = Null
end>
SQL.Strings = (
'select * from t_sys_code_sql'
'where '#20154#21592'=:'#22995#21517' and '#23646#24615'=:'#23646#24615)
Left = 124
Top = 100
end
object t_sql1: TDataSource
DataSet = t_sql
Left = 124
Top = 184
end
end