📄 empworklist.dfm
字号:
object EmpWorkList_Form: TEmpWorkList_Form
Left = 1
Top = 170
Width = 798
Height = 375
Caption = #21592#24037#25805#20316#26126#32454#34920
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 790
Height = 29
ButtonHeight = 25
Caption = 'ToolBar1'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object BitBtn1: TBitBtn
Left = 0
Top = 2
Width = 75
Height = 25
Caption = #25171#21360
TabOrder = 0
OnClick = BitBtn1Click
Kind = bkRetry
end
object BitBtn2: TBitBtn
Left = 75
Top = 2
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 1
OnClick = BitBtn2Click
Kind = bkClose
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 329
Width = 790
Height = 19
Panels = <
item
Text = #24403#21069#31383#20307
Width = 60
end
item
Text = #21592#24037#25805#20316#26126#32454
Width = 80
end>
end
object Panel1: TPanel
Left = 0
Top = 29
Width = 790
Height = 43
Align = alTop
Caption = 'Panel1'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
object GroupBox1: TGroupBox
Left = 1
Top = 1
Width = 152
Height = 41
Align = alLeft
Caption = #26399#21495#65306
TabOrder = 0
object ComboBox1: TComboBox
Left = 13
Top = 14
Width = 131
Height = 20
ItemHeight = 12
TabOrder = 0
end
end
object GroupBox2: TGroupBox
Left = 153
Top = 1
Width = 636
Height = 41
Align = alClient
Caption = #21592#24037#65306
TabOrder = 1
object ClientButton1: TRadioButton
Left = 4
Top = 14
Width = 29
Height = 15
Caption = '1'
TabOrder = 0
Visible = False
OnClick = ClientButton1Click
end
object ClientButton2: TRadioButton
Left = 32
Top = 14
Width = 29
Height = 15
Caption = '2'
TabOrder = 1
Visible = False
OnClick = ClientButton2Click
end
object ClientButton3: TRadioButton
Left = 61
Top = 14
Width = 31
Height = 15
Caption = '3'
TabOrder = 2
Visible = False
OnClick = ClientButton3Click
end
object ClientButton4: TRadioButton
Left = 91
Top = 14
Width = 31
Height = 15
Caption = '4'
TabOrder = 3
Visible = False
OnClick = ClientButton4Click
end
object ClientButton5: TRadioButton
Left = 119
Top = 14
Width = 31
Height = 15
Caption = '5'
TabOrder = 4
Visible = False
OnClick = ClientButton5Click
end
object ClientButton6: TRadioButton
Left = 147
Top = 14
Width = 31
Height = 15
Caption = '6'
TabOrder = 5
Visible = False
OnClick = ClientButton6Click
end
object ClientButton7: TRadioButton
Left = 174
Top = 15
Width = 31
Height = 13
Caption = '7'
TabOrder = 6
Visible = False
OnClick = ClientButton7Click
end
object ClientButton8: TRadioButton
Left = 200
Top = 14
Width = 31
Height = 15
Caption = '8'
TabOrder = 7
Visible = False
OnClick = ClientButton8Click
end
object ClientButton9: TRadioButton
Left = 227
Top = 14
Width = 31
Height = 15
Caption = '9'
TabOrder = 8
Visible = False
OnClick = ClientButton9Click
end
object ClientButton10: TRadioButton
Left = 255
Top = 14
Width = 31
Height = 15
Caption = '10'
TabOrder = 9
Visible = False
OnClick = ClientButton10Click
end
object ClientButton11: TRadioButton
Left = 289
Top = 14
Width = 31
Height = 15
Caption = '11'
TabOrder = 10
Visible = False
OnClick = ClientButton11Click
end
object ClientButton12: TRadioButton
Left = 321
Top = 14
Width = 31
Height = 15
Caption = '12'
TabOrder = 11
Visible = False
OnClick = ClientButton12Click
end
object ClientButton13: TRadioButton
Left = 353
Top = 14
Width = 31
Height = 15
Caption = '13'
TabOrder = 12
Visible = False
OnClick = ClientButton13Click
end
object ClientButton14: TRadioButton
Left = 386
Top = 14
Width = 31
Height = 15
Caption = '14'
TabOrder = 13
Visible = False
OnClick = ClientButton14Click
end
object ClientButton15: TRadioButton
Left = 419
Top = 14
Width = 31
Height = 15
Caption = '15'
TabOrder = 14
Visible = False
OnClick = ClientButton15Click
end
object ClientButton16: TRadioButton
Left = 453
Top = 14
Width = 31
Height = 15
Caption = '16'
TabOrder = 15
Visible = False
OnClick = ClientButton16Click
end
object ClientButton17: TRadioButton
Left = 486
Top = 14
Width = 31
Height = 15
Caption = '17'
TabOrder = 16
Visible = False
OnClick = ClientButton17Click
end
object ClientButton18: TRadioButton
Left = 519
Top = 14
Width = 31
Height = 15
Caption = '18'
TabOrder = 17
Visible = False
OnClick = ClientButton18Click
end
object ClientButton19: TRadioButton
Left = 552
Top = 14
Width = 31
Height = 15
Caption = '19'
TabOrder = 18
Visible = False
OnClick = ClientButton19Click
end
object ClientButton20: TRadioButton
Left = 584
Top = 14
Width = 31
Height = 15
Caption = '20'
TabOrder = 19
Visible = False
OnClick = ClientButton20Click
end
end
end
object Panel2: TPanel
Left = 0
Top = 72
Width = 790
Height = 257
Align = alClient
Caption = 'Panel2'
TabOrder = 3
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 788
Height = 255
Align = alClient
DataSource = DataSource1
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDrawDataCell = DBGrid1DrawDataCell
OnDrawColumnCell = DBGrid1DrawColumnCell
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = #26399#21495
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #24405#20837#24207#21495
Title.Alignment = taCenter
Width = 52
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #25805#20316#31867#22411
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #25805#20316#26041#24335
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #20107#21153#21517#31216
Title.Alignment = taCenter
Width = 120
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #38144#21806#26041#24335
Title.Alignment = taCenter
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #25805#20316#20869#23481
Title.Alignment = taCenter
Width = 240
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #21333#20215
Title.Alignment = taCenter
Width = 60
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = #37329#39069
Title.Alignment = taCenter
Width = 80
Visible = True
end>
end
end
object DataSource1: TDataSource
DataSet = emplistsp
Left = 384
Top = 3
end
object aminallist: TADOQuery
Connection = NumberMangerMain.NumberManger_Adocon
Parameters = <>
Left = 426
Top = 7
end
object emplistsp: TADOStoredProc
Connection = NumberMangerMain.NumberManger_Adocon
CursorType = ctStatic
LockType = ltBatchOptimistic
ProcedureName = 'EmpWorkListReport_P;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@SalePeriod'
Attributes = [paNullable]
DataType = ftString
Size = 8
Value = Null
end
item
Name = '@ClientId'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = Null
end>
Left = 464
Top = 8
object emplistspDSDesigner: TStringField
FieldName = #26399#21495
Size = 8
end
object emplistspDSDesigner2: TIntegerField
FieldName = #23458#25143#20869#30721
end
object emplistspDSDesigner3: TStringField
FieldName = #21592#24037#22995#21517
Size = 13
end
object emplistspDSDesigner4: TIntegerField
FieldName = #24405#20837#24207#21495
end
object emplistspDSDesigner5: TStringField
FieldName = #25805#20316#31867#22411
Size = 8
end
object emplistspDSDesigner6: TStringField
FieldName = #25805#20316#26041#24335
Size = 8
end
object emplistspDSDesigner7: TStringField
FieldName = #20107#21153#21517#31216
Size = 8
end
object emplistspDSDesigner8: TStringField
FieldName = #38144#21806#26041#24335
Size = 8
end
object emplistspDSDesigner9: TStringField
FieldName = #25805#20316#20869#23481
Size = 125
end
object emplistspDSDesigner10: TBCDField
FieldName = #21333#20215
Precision = 19
end
object emplistspDSDesigner11: TBCDField
FieldName = #37329#39069
Precision = 19
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -