📄 u_empworktime.~dfm
字号:
end
object Button1: TButton
Left = 256
Top = 9
Width = 41
Height = 22
Caption = #26376#22577#34920
TabOrder = 10
OnClick = SpeedButton6Click
end
object Button2: TButton
Left = 256
Top = 33
Width = 41
Height = 22
Caption = #26376#22577#34920
TabOrder = 11
OnClick = SpeedButton6Click
end
object DBMemo1: TDBMemo
Left = 496
Top = 46
Width = 161
Height = 63
DataField = 'memo'
DataSource = GS_DM.DS_gs_memo
TabOrder = 12
end
object DBEdit1: TDBEdit
Left = 576
Top = 24
Width = 81
Height = 21
DataField = 'datemonth'
DataSource = GS_DM.DS_gs_memo
ReadOnly = True
TabOrder = 13
end
object CheckBox2: TCheckBox
Left = 496
Top = 8
Width = 169
Height = 14
Caption = #38364#32879#24037#26178#22577#34920#20013#30340#35498#26126#20449#24687
TabOrder = 14
OnClick = CheckBox2Click
end
end
object PageControl1: TPageControl
Left = 0
Top = 113
Width = 634
Height = 235
ActivePage = TabSheet1
Align = alClient
TabIndex = 0
TabOrder = 1
object TabSheet1: TTabSheet
Caption = #28687#35261'/'#20462#25913
object Splitter1: TSplitter
Left = 0
Top = 297
Width = 626
Height = 3
Cursor = crVSplit
Align = alTop
ResizeStyle = rsLine
end
object DBGrid1: TDBGrid
Left = 0
Top = 300
Width = 626
Height = 93
Align = alClient
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'name'
Width = 47
Visible = True
end
item
Expanded = False
FieldName = 'ZB_time'
Title.Caption = #27491#29677
Width = 35
Visible = True
end
item
Expanded = False
FieldName = 'JB_time'
Title.Caption = #21152#29677
Width = 33
Visible = True
end
item
Expanded = False
FieldName = 'ZBsj_time'
Width = 50
Visible = True
end
item
Expanded = False
FieldName = 'JBsj_time'
Width = 54
Visible = True
end
item
Expanded = False
FieldName = 'ZBbj_time'
Width = 35
Visible = True
end
item
Expanded = False
FieldName = 'JBbj_time'
Width = 35
Visible = True
end
item
Expanded = False
FieldName = 'TBJ'
Visible = True
end
item
Expanded = False
FieldName = 'CD_time'
Width = 35
Visible = True
end
item
Expanded = False
FieldName = 'CD_int'
Width = 34
Visible = True
end
item
Expanded = False
FieldName = 'ZT_time'
Width = 34
Visible = True
end
item
Expanded = False
FieldName = 'ZT_int'
Width = 32
Visible = True
end
item
Expanded = False
FieldName = 'KG_time'
Width = 50
Visible = True
end
item
Expanded = False
FieldName = 'KG_int'
Width = 24
Visible = True
end
item
Expanded = False
FieldName = 'GS_time'
Width = 38
Visible = True
end
item
Expanded = False
FieldName = 'DL_time'
Width = 36
Visible = True
end
item
Expanded = False
FieldName = 'GX_time'
Width = 32
Visible = True
end
item
Expanded = False
FieldName = 'J_time'
Width = 27
Visible = True
end
item
Expanded = False
FieldName = 'K_time'
Width = 25
Visible = True
end
item
Expanded = False
FieldName = 'GC_time'
Title.Caption = #20844#24046
Width = 29
Visible = True
end>
end
object DBGrid2: TDBGrid
Left = 0
Top = 0
Width = 626
Height = 297
Align = alTop
DataSource = DataSource1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
ReadOnly = True
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = DBGrid2DblClick
Columns = <
item
Expanded = False
FieldName = 'workday'
Visible = True
end
item
Expanded = False
FieldName = 'yjbm_name'
Visible = True
end
item
Expanded = False
FieldName = 'ejbm_name'
Width = 52
Visible = True
end
item
Expanded = False
FieldName = 'work_num'
Width = 52
Visible = True
end
item
Expanded = False
FieldName = 'name'
Width = 52
Visible = True
end
item
Color = clYellow
Expanded = False
FieldName = 'ZB'
Visible = True
end
item
Color = clYellow
Expanded = False
FieldName = 'JB'
Visible = True
end
item
Expanded = False
FieldName = 'moringup'
Width = 51
Visible = True
end
item
Expanded = False
FieldName = 'moringdown'
Width = 49
Visible = True
end
item
Expanded = False
FieldName = 'afternoonup'
Visible = True
end
item
Expanded = False
FieldName = 'afternoondown'
Width = 50
Visible = True
end
item
Expanded = False
FieldName = 'eveningup'
Visible = True
end
item
Expanded = False
FieldName = 'eveningdown'
Width = 51
Visible = True
end
item
Expanded = False
FieldName = 'teamsid'
Visible = True
end>
end
object StatusBar1: TStatusBar
Left = 0
Top = 188
Width = 626
Height = 19
Panels = <
item
Text = #30070#21069#35352#37636#32317#25976':'
Width = 80
end
item
Width = 30
end
item
Text = #29376#24907':'
Width = 40
end
item
Width = 30
end>
SimplePanel = False
end
end
end
object DataSource1: TDataSource
DataSet = GS_DM.V_empworktime
OnDataChange = DataSource1DataChange
Left = 68
Top = 281
end
object Query1: TQuery
Left = 44
Top = 233
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -