📄 fdeptgx.dfm.bak
字号:
object fdeptgxfm: Tfdeptgxfm
Left = 31
Top = 95
Width = 683
Height = 477
Caption = #23436#24037#25209#34399#37096#38272#24037#24207#26126#32048
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 16
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 675
Height = 66
Align = alTop
Caption = #26597#35426#26781#20214
TabOrder = 0
object Label1: TLabel
Left = 0
Top = 20
Width = 48
Height = 16
Caption = #32113#35336#26085#26399
end
object Label2: TLabel
Left = 128
Top = 21
Width = 12
Height = 16
Caption = #24180
end
object Label3: TLabel
Left = 194
Top = 20
Width = 12
Height = 16
Caption = #26376
end
object Label4: TLabel
Left = 216
Top = 16
Width = 48
Height = 16
Caption = #23436#24037#25209#34399
end
object SpinEdit1: TSpinEdit
Left = 64
Top = 16
Width = 64
Height = 26
MaxValue = 0
MinValue = 0
TabOrder = 0
Value = 0
end
object SpinEdit2: TSpinEdit
Left = 144
Top = 16
Width = 49
Height = 26
MaxValue = 12
MinValue = 1
TabOrder = 1
Value = 1
end
object Edit1: TEdit
Left = 283
Top = 12
Width = 116
Height = 24
TabOrder = 2
end
object Button1: TButton
Left = 469
Top = 10
Width = 49
Height = 25
Caption = #26597#35426
TabOrder = 3
OnClick = Button1Click
end
object Button2: TButton
Left = 519
Top = 10
Width = 50
Height = 25
Caption = #25171#21360
TabOrder = 4
OnClick = Button2Click
end
object Button3: TButton
Left = 622
Top = 10
Width = 49
Height = 25
Caption = #36864#20986
TabOrder = 5
OnClick = Button3Click
end
object BitBtn1: TBitBtn
Left = 569
Top = 10
Width = 52
Height = 25
Caption = 'EXCEL'
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = BitBtn1Click
end
object CheckBox1: TCheckBox
Left = 417
Top = 16
Width = 42
Height = 17
Caption = #36820#24037
TabOrder = 7
end
object CheckBox2: TCheckBox
Left = 418
Top = 34
Width = 47
Height = 17
Caption = #26178#24037
TabOrder = 8
end
object BitBtn2: TBitBtn
Left = 472
Top = 36
Width = 72
Height = 25
Caption = #25104#26412#34920
TabOrder = 9
OnClick = BitBtn2Click
end
object Button4: TButton
Left = 552
Top = 37
Width = 75
Height = 25
Caption = #21295#32317#34920
TabOrder = 10
OnClick = Button4Click
end
object CheckBox3: TCheckBox
Left = 216
Top = 40
Width = 65
Height = 17
Caption = #23436#24037#21542
Checked = True
State = cbChecked
TabOrder = 11
end
object CheckBox4: TCheckBox
Left = 288
Top = 40
Width = 57
Height = 17
Caption = #26085#26399#21542
Checked = True
State = cbChecked
TabOrder = 12
end
end
object Panel1: TPanel
Left = 0
Top = 66
Width = 675
Height = 384
Align = alClient
BevelInner = bvSpace
BevelOuter = bvLowered
TabOrder = 1
object GroupBox3: TGroupBox
Left = 2
Top = 2
Width = 671
Height = 380
Align = alClient
Caption = #37096#38272#24037#24207#26126#32048
TabOrder = 0
object DBGrid2: TDBGrid
Left = 2
Top = 18
Width = 667
Height = 360
Align = alClient
DataSource = finishdb
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'pno'
Title.Caption = #25209#34399
Width = 70
Visible = True
end
item
Expanded = False
FieldName = 'dept'
Title.Caption = #37096#38272
Width = 70
Visible = True
end
item
Expanded = False
FieldName = 'scgx'
Title.Caption = #24037#24207
Width = 68
Visible = True
end
item
Expanded = False
FieldName = 'pnonum'
Title.Caption = #33853#21934#25976
Width = 56
Visible = True
end
item
Expanded = False
FieldName = 'scprice'
Title.Caption = #25171#21934#20729
Width = 56
Visible = True
end
item
Expanded = False
FieldName = 'monthnum'
Title.Caption = #26412#26376#25976#37327
Width = 56
Visible = True
end
item
Expanded = False
FieldName = 'monthsum'
Title.Caption = #26412#26376#37329#38989
Width = 56
Visible = True
end
item
Expanded = False
FieldName = 'totalnum'
Title.Caption = #32047#35336#25976#37327
Width = 56
Visible = True
end
item
Expanded = False
FieldName = 'totalsum'
Title.Caption = #32047#35336#37329#38989
Width = 56
Visible = True
end
item
Expanded = False
FieldName = 'work_again_num'
Title.Caption = #36820#24037#25976#37327
Visible = True
end
item
Expanded = False
FieldName = 'work_again_per'
Title.Caption = #36820#24335#29575
Width = 43
Visible = True
end
item
Expanded = False
FieldName = 'mem'
Title.Caption = #20633#27880
Width = 150
Visible = True
end>
end
object Memo1: TMemo
Left = 192
Top = 112
Width = 185
Height = 257
Lines.Strings = (
'Memo1')
TabOrder = 1
Visible = False
end
end
end
object pnoqy: TQuery
DatabaseName = 're_data'
Left = 28
Top = 126
end
object saveqy: TQuery
DatabaseName = 're_data'
Left = 188
Top = 102
end
object schqy: TQuery
DatabaseName = 're_data'
Left = 140
Top = 94
end
object finishqy: TQuery
DatabaseName = 're_data'
Left = 146
Top = 138
end
object pnodb: TDataSource
DataSet = pnoqy
Left = 82
Top = 162
end
object finishdb: TDataSource
DataSet = finishqy
Left = 210
Top = 135
end
object finishrptqy: TQuery
DatabaseName = 're_data'
DataSource = pnodb
SQL.Strings = (
'select a. * ,c.pnonum,(a.totalsum*12/a.totalnum) totalprice,'
'case when (a.work_again_num/a.totalnum)*100>0 then str((a.work_' +
'again_num/a.totalnum)*100,4,2)+'#39'%'#39' end '
' work_again_per'
' from finishpno a inner join scdepts b on'
' a.dept=b.dept ,scpno c '
' where a.pno=:pno and c.pno=a.pno '
'order by a.pno ,b.deptcode')
Left = 90
Top = 202
ParamData = <
item
DataType = ftUnknown
Name = 'pno'
ParamType = ptUnknown
end>
end
object sch2: TQuery
DatabaseName = 're_data'
Left = 282
Top = 175
end
object ActionList1: TActionList
Left = 410
Top = 204
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -