📄 fmain.~dfm
字号:
item
Description = #22825
Value = '2'
end
item
Description = #26376
Value = '3'
end
item
Description = #24180
Value = '4'
end>
DataBinding.FieldName = 'accounttype'
end
end
object cxGrid5Level1: TcxGridLevel
GridView = cxGrid5DBTableView1
end
end
end
object TabSheet2: TTabSheet
Caption = #21512#21516#21327#35758
ImageIndex = 5
object cxGrid8: TcxGrid
Left = 0
Top = 0
Width = 603
Height = 176
Align = alClient
PopupMenu = PopupMenu9
TabOrder = 0
LookAndFeel.Kind = lfFlat
object cxGrid8DBTableView1: TcxGridDBTableView
OnDblClick = cxGrid8DBTableView1DblClick
DataController.DataSource = r_staffcontractDataSource
DataController.Filter.Criteria = {FFFFFFFF0000000000}
DataController.KeyFieldNames = 'id'
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.ColumnAutoWidth = True
OptionsView.GroupByBox = False
object cxGrid8DBTableView1DBColumn1: TcxGridDBColumn
Caption = #21512#21516#21517#31216
Options.Editing = False
SortOrder = soAscending
Width = 120
DataBinding.FieldName = 'cname'
end
object cxGrid8DBTableView1DBColumn2: TcxGridDBColumn
Caption = #36215#22987#26085#26399
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
Width = 80
DataBinding.FieldName = 'cstartdate'
end
object cxGrid8DBTableView1DBColumn3: TcxGridDBColumn
Caption = #32467#26463#26085#26399
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
Width = 80
DataBinding.FieldName = 'cenddate'
end
end
object cxGrid8Level1: TcxGridLevel
GridView = cxGrid8DBTableView1
end
end
end
object TabSheet3: TTabSheet
Caption = #39046#29992#35760#24405
ImageIndex = 6
object cxGrid9: TcxGrid
Left = 0
Top = 0
Width = 603
Height = 176
Align = alClient
PopupMenu = PopupMenu10
TabOrder = 0
LookAndFeel.Kind = lfFlat
object cxGrid9DBTableView1: TcxGridDBTableView
OnDblClick = N143Click
DataController.DataSource = p_w_toolsSource
DataController.Filter.Criteria = {FFFFFFFF0000000000}
DataController.KeyFieldNames = 'id'
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.ColumnAutoWidth = True
OptionsView.GroupByBox = False
object cxGrid9DBTableView1DBColumn1: TcxGridDBColumn
Caption = #29992#21697#21517#31216
PropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.KeyFieldNames = 'id'
Properties.ListColumns = <
item
FieldName = 'w_name'
end>
Properties.ListSource = w_toolsSource
Options.Editing = False
Width = 120
DataBinding.FieldName = 'w_id'
end
object cxGrid9DBTableView1DBColumn2: TcxGridDBColumn
Caption = #39046#29992#26102#38388
Options.Editing = False
Width = 80
DataBinding.FieldName = 'u_Date'
end
object cxGrid9DBTableView1DBColumn3: TcxGridDBColumn
Caption = #25968#37327
Options.Editing = False
Width = 40
DataBinding.FieldName = 'u_account'
end
end
object cxGrid9Level1: TcxGridLevel
GridView = cxGrid9DBTableView1
end
end
end
object TabSheet6: TTabSheet
Caption = #22521#35757#35760#24405
ImageIndex = 7
object cxGrid7: TcxGrid
Left = 0
Top = 0
Width = 603
Height = 176
Align = alClient
PopupMenu = PopupMenu8
TabOrder = 0
LookAndFeel.Kind = lfFlat
object cxGrid7DBTableView1: TcxGridDBTableView
DataController.DataSource = r_staffteachidDataSource
DataController.Filter.Criteria = {FFFFFFFF0000000000}
DataController.KeyFieldNames = 'id'
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.ColumnAutoWidth = True
OptionsView.GroupByBox = False
object cxGrid7DBTableView1DBColumn1: TcxGridDBColumn
Caption = #22521#35757#21517#31216
PropertiesClassName = 'TcxLookupComboBoxProperties'
Properties.KeyFieldNames = 'id'
Properties.ListColumns = <
item
FieldName = 'teachname'
end>
Properties.ListSource = r_staffteachDataSource
Options.Editing = False
Width = 80
DataBinding.FieldName = 'teachid'
end
object cxGrid7DBTableView1DBColumn2: TcxGridDBColumn
Caption = #22521#35757#25104#32489
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#20248#31168
#21512#26684
#33391#22909
#24046)
Width = 80
DataBinding.FieldName = 'teachresult'
end
object cxGrid7DBTableView1DBColumn3: TcxGridDBColumn
Caption = #22791#27880
PropertiesClassName = 'TcxMemoProperties'
Properties.ReadOnly = False
Properties.ScrollBars = ssBoth
SortOrder = soAscending
Width = 300
DataBinding.FieldName = 'memo'
end
end
object cxGrid7Level1: TcxGridLevel
GridView = cxGrid7DBTableView1
end
end
object Agent1: TAgent
Left = 248
Top = 64
Width = 32
Height = 32
ControlData = {020200004F0300004F030000}
end
end
object TabSheet4: TTabSheet
Caption = #22270#29255#36164#26009
ImageIndex = 3
object Splitter3: TSplitter
Left = 381
Top = 0
Height = 176
Align = alRight
end
object cxGrid4: TcxGrid
Left = 0
Top = 0
Width = 381
Height = 176
Align = alClient
PopupMenu = PopupMenu5
TabOrder = 0
LookAndFeel.Kind = lfFlat
object cxGrid4DBTableView1: TcxGridDBTableView
DataController.DataSource = r_staffpictSource
DataController.DetailKeyFieldNames = 'memo'
DataController.Filter.Criteria = {FFFFFFFF0000000000}
DataController.KeyFieldNames = 'id'
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.ColumnAutoWidth = True
OptionsView.GroupByBox = False
object cxGrid4DBTableView1DBColumn1: TcxGridDBColumn
Caption = #22270#29255#35828#26126
SortOrder = soAscending
Width = 300
DataBinding.FieldName = 'memo'
end
end
object cxGrid4Level1: TcxGridLevel
GridView = cxGrid4DBTableView1
end
end
object DBImage1: TDBImage
Left = 384
Top = 0
Width = 219
Height = 176
Align = alRight
DataField = 'pict'
DataSource = r_staffpictSource
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Stretch = True
TabOrder = 1
OnDblClick = DBImage1DblClick
end
end
object TabSheet8: TTabSheet
Caption = #33258#23450#20041
ImageIndex = 7
object cxSpreadSheetBook1: TcxSpreadSheetBook
Left = 0
Top = 0
Width = 603
Height = 176
Align = alClient
DefaultStyle.Brush.BackgroundColor = 57
DefaultStyle.Brush.ForegroundColor = 57
DefaultStyle.Font.Name = #23435#20307
DefaultStyle.Font.Size = 9
DefaultStyle.Font.Charset = GB2312_CHARSET
DefaultStyle.Format = 34
HeaderFont.Charset = GB2312_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -12
HeaderFont.Name = #23435#20307
HeaderFont.Style = []
PopupMenu = sheetpopup
RowHeaderWidth = 35
OnActiveSheetChanging = cxSpreadSheetBook1ActiveSheetChanging
OnClick = cxSpreadSheetBook1Click
end
end
object TabSheet9: TTabSheet
Caption = #26410#23450#20041#25968#25454
ImageIndex = 8
object cxGrid6: TcxGrid
Left = 0
Top = 0
Width = 603
Height = 176
Align = alClient
PopupMenu = PopupMenu7
TabOrder = 0
LookAndFeel.Kind = lfFlat
object cxGridDBTableView1: TcxGridDBTableView
OnDblClick = cxGridDBTableView1DblClick
DataController.DataSource = nosetdatasource
DataController.Filter.Criteria = {FFFFFFFF0000000000}
DataController.KeyFieldNames = 'id'
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.ColumnAutoWidth = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
object cxGridDBColumn1: TcxGridDBColumn
Caption = #22995#21517
SortOrder = soAscending
Width = 58
DataBinding.FieldName = 'name'
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #24615#21035
Width = 46
DataBinding.FieldName = 'sex'
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #32852#31995#30005#35805
Width = 78
DataBinding.FieldName = 'Telephone'
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #20837#32844#26085#26399
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
Width = 52
DataBinding.FieldName = 'intime'
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #30005#23376#37038#20214
Width = 126
DataBinding.FieldName = 'Email'
end
end
object cxGridLevel1: TcxGridLevel
GridView = cxGridDBTableView1
end
end
end
end
end
end
object cbMain: TControlBar
Left = 0
Top = 0
Width = 775
Height = 56
Align = alTop
AutoSize = True
DockSite = False
PopupMenu = TMenu
TabOrder = 2
object tbsStandart: TToolBar
Left = 11
Top = 2
Width = 174
Height = 22
AutoSize = True
Caption = #25991#20214
DragKind = dkDock
EdgeBorders = []
Flat = True
Images = imgStandart
ParentShowHint = False
ShowHint = True
TabOrder = 0
object tbsNew: TToolButton
Left = 0
Top = 0
Hint = #24314#31435#26032#30340#25968#25454#25991#20214
Action = actNew
end
object tbsOpen: TToolButton
Tag = 1
Left = 23
Top = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -