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.

286 lines
7.1 KiB
Plaintext

11 months ago
object fra_op_card: Tfra_op_card
Left = 0
Top = 0
Width = 441
Height = 268
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object bsSkinGroupBox1: TbsSkinGroupBox
Left = 0
Top = 0
Width = 441
Height = 268
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
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = True
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = #21333#35777#20449#24687
Align = alClient
object dxDBGrid1: TdxDBGrid
Left = 1
Top = 23
Width = 439
Height = 244
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
KeyField = 'CA_ID'
ShowSummaryFooter = True
SummaryGroups = <>
SummarySeparator = ', '
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
DataSource = t_op_card1
Filter.Criteria = {00000000}
OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoMultiSelect, edgoTabThrough, edgoVertThrough]
OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
object dxDBGrid1Column1: TdxDBGridButtonColumn
Width = 160
BandIndex = 0
RowIndex = 0
FieldName = #21333#35777#21517#31216
SummaryFooterType = cstCount
Buttons = <
item
Default = True
end>
OnButtonClick = dxDBGrid1Column1ButtonClick
end
object dxDBGrid1Column2: TdxDBGridMaskColumn
Width = 115
BandIndex = 0
RowIndex = 0
FieldName = #21333#35777#21495#30721
end
object dxDBGrid1Column3: TdxDBGridDateColumn
Width = 82
BandIndex = 0
RowIndex = 0
FieldName = #25509#21333#26085#26399
end
object dxDBGrid1Column4: TdxDBGridDateColumn
Width = 79
BandIndex = 0
RowIndex = 0
FieldName = #36865#21333#26085#26399
end
object dxDBGrid1Column5: TdxDBGridCheckColumn
Width = 53
BandIndex = 0
RowIndex = 0
FieldName = #26159#21542#22238#21333
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object dxDBGrid1Column6: TdxDBGridDateColumn
Width = 78
BandIndex = 0
RowIndex = 0
FieldName = #22238#21333#26085#26399
end
object dxDBGrid1Column7: TdxDBGridCheckColumn
Width = 53
BandIndex = 0
RowIndex = 0
FieldName = #26159#21542#36824#21333
ValueChecked = 'True'
ValueUnchecked = 'False'
end
object dxDBGrid1Column8: TdxDBGridDateColumn
Width = 76
BandIndex = 0
RowIndex = 0
FieldName = #36824#21333#26085#26399
end
object dxDBGrid1Column9: TdxDBGridMaskColumn
Width = 285
BandIndex = 0
RowIndex = 0
FieldName = #22791#27880
end
end
end
object t_op_card: TADOQuery
Connection = frm_main.db
CursorType = ctStatic
BeforeInsert = t_op_cardBeforeInsert
AfterInsert = t_op_cardAfterInsert
BeforePost = t_op_cardBeforePost
Parameters = <
item
Name = #32534#21495
DataType = ftString
NumericScale = 255
Precision = 255
Size = 12
Value = Null
end>
SQL.Strings = (
'select * from t_op_card where '#32534#21495'=:'#32534#21495)
Left = 200
Top = 128
end
object t_op_card1: TDataSource
DataSet = t_op_card
Left = 200
Top = 160
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 = 57
Top = 32
end
object PopupMenu1: TPopupMenu
AutoHotkeys = maManual
OwnerDraw = True
Left = 280
Top = 120
object N1: TMenuItem
Caption = #28155#21152#21333#35777
OnClick = N1Click
end
object N2: TMenuItem
Caption = '-'
end
object N3: TMenuItem
Caption = #20445#23384#20462#25913
OnClick = N3Click
end
object N5: TMenuItem
Caption = '-'
end
object N4: TMenuItem
Caption = #21024#38500#21333#35777
OnClick = N4Click
end
object N6: TMenuItem
Caption = '-'
end
object N7: TMenuItem
Caption = #25918#24323#20462#25913
OnClick = N7Click
end
object N8: TMenuItem
Caption = '-'
end
object N9: TMenuItem
Caption = #30830#35748#36865#21333
object N14: TMenuItem
Caption = #24403#21069#30830#35748
OnClick = N14Click
end
object N17: TMenuItem
Caption = '-'
end
object N15: TMenuItem
Caption = #25152#36873#30830#35748
OnClick = N15Click
end
object N18: TMenuItem
Caption = '-'
end
object N16: TMenuItem
Caption = #25152#26377#30830#35748
OnClick = N16Click
end
end
object N10: TMenuItem
Caption = '-'
end
object N11: TMenuItem
Caption = #30830#35748#22238#21333
object N19: TMenuItem
Caption = #24403#21069#30830#35748
OnClick = N19Click
end
object N20: TMenuItem
Caption = '-'
end
object N21: TMenuItem
Caption = #25152#36873#30830#35748
OnClick = N21Click
end
object N22: TMenuItem
Caption = '-'
end
object N23: TMenuItem
Caption = #25152#26377#30830#35748
OnClick = N23Click
end
end
object N12: TMenuItem
Caption = '-'
end
object N13: TMenuItem
Caption = #30830#35748#36824#21333
object N24: TMenuItem
Caption = #24403#21069#30830#35748
OnClick = N24Click
end
object N25: TMenuItem
Caption = '-'
end
object N26: TMenuItem
Caption = #25152#36873#30830#35748
OnClick = N26Click
end
object N27: TMenuItem
Caption = '-'
end
object N28: TMenuItem
Caption = #25152#26377#30830#35748
OnClick = N28Click
end
end
end
end