📄 fachdvd.dfm
字号:
inherited frmFaChDvd: TfrmFaChDvd
Left = 169
Top = 81
Width = 615
Height = 440
Caption = '累计折旧减少'
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
inherited sbBar: TStatusBar
Top = 372
Width = 607
end
inherited CoolBar1: TCoolBar
Width = 607
Bands = <
item
Control = tbMainBar
ImageIndex = -1
MinHeight = 35
Width = 607
end>
inherited tbMainBar: TToolBar
Width = 594
inherited tbCheck: TToolButton
Visible = True
end
end
end
object sgFaChDvd: TSDGrid [2]
Left = 0
Top = 39
Width = 313
Height = 300
Align = alLeft
Color = 50331647
Ctl3D = False
DefaultRowHeight = 22
FixedColor = 8564917
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing]
ParentCtl3D = False
TabOrder = 2
OnClick = sgFaChDvdClick
EvenGridColor = 50331647
OddGridColor = 50331647
Columns = <
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '变动单号'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '设备编码'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '设备名称'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '变动日期'
ColumnWidth = 0
end>
ColWidths = (
9
74
74
83
65)
end
object FloatPanel1: TFloatPanel [3]
Left = 313
Top = 39
Width = 294
Height = 300
Align = alClient
Color = 50331647
Caption = 'FloatPanel4'
ParentColor = False
TabOrder = 3
object Label1: TLabel
Left = 25
Top = 26
Width = 60
Height = 12
Caption = '变动单号:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 25
Top = 107
Width = 60
Height = 12
Caption = '设备编码:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 25
Top = 214
Width = 60
Height = 12
Caption = '变动原因:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 25
Top = 160
Width = 72
Height = 12
Caption = '旧累计折旧:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 25
Top = 80
Width = 60
Height = 12
Caption = '财务月份:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 25
Top = 53
Width = 60
Height = 12
Caption = '变动日期:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 94
Top = 270
Width = 60
Height = 12
Caption = '系统日期:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 25
Top = 187
Width = 72
Height = 12
Caption = '新累计折旧:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object labFaChgSysDate: TLabel
Left = 156
Top = 269
Width = 102
Height = 12
Caption = 'labFaDecCheckDate'
end
object Label8: TLabel
Left = 25
Top = 241
Width = 60
Height = 12
Caption = '对方科目:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 25
Top = 134
Width = 60
Height = 12
Caption = '设备名称:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object seFaChgCode: TSDEdit
Left = 92
Top = 21
Width = 120
Height = 18
Ctl3D = False
ImeName = '中文 (简体) - 智能 ABC'
ParentColor = True
ParentCtl3D = False
TabOrder = 0
Text = 'seFaChgCode'
OnKeyDown = seFaChgCodeKeyDown
SplitSymbol = ' | '
end
object chkFaChgPost: TCheckBox
Left = 25
Top = 268
Width = 59
Height = 17
Caption = '制凭证'
TabOrder = 7
end
object sdFaChgDate: TDateEdit
Left = 92
Top = 48
Width = 120
Height = 18
LineOffset = 2
LineColor = clGreen
LineVisible = False
CDate = '2001-04-26'
InitDate = '2001-04-26'
ModalResult = 0
TabOrder = 1
Color = 50331647
Ctl3D = False
ParentCtl3D = False
end
object scFaChgFMonth: TSDComboBox
Left = 92
Top = 74
Width = 120
Height = 20
Color = 50331647
Ctl3D = False
ImeName = '中文 (简体) - 智能 ABC'
ItemHeight = 12
ParentCtl3D = False
TabOrder = 2
Text = 'scFaChgFMonth'
end
object seFaChgODval: TSDEdit
Left = 92
Top = 154
Width = 120
Height = 18
Ctl3D = False
ImeName = '中文 (简体) - 智能 ABC'
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 9
Text = 'seFaChgODval'
SplitSymbol = ' | '
end
object seFaChgDesc: TSDEdit
Left = 92
Top = 210
Width = 174
Height = 18
Ctl3D = False
ImeName = '中文 (简体) - 智能 ABC'
ParentColor = True
ParentCtl3D = False
TabOrder = 5
Text = 'seFaChgDesc'
SplitSymbol = ' | '
end
object seFaChgOGlkm: TSDEdit
Left = 92
Top = 235
Width = 120
Height = 18
Ctl3D = False
ImeName = '中文 (简体) - 智能 ABC'
ParentColor = True
ParentCtl3D = False
TabOrder = 6
Text = 'seFaChgOGlkm'
CharType = ctMathematic
OnButtonClick = seFaChgOGlkmButtonClick
ButtonVisible = True
SplitSymbol = ' | '
end
object seFaChgNDval: TSDEdit
Left = 92
Top = 181
Width = 120
Height = 18
Ctl3D = False
MaxLength = 13
ParentColor = True
ParentCtl3D = False
TabOrder = 4
Text = '0'
DigLen = 2
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
object seFaChgFadn: TSDEdit
Left = 93
Top = 101
Width = 120
Height = 18
Ctl3D = False
ImeName = '中文 (简体) - 智能 ABC'
ParentColor = True
ParentCtl3D = False
TabOrder = 3
Text = 'seFaChgFadn'
OnKeyDown = seFaChgFadnKeyDown
OnButtonClick = seFaChgFadnButtonClick
ButtonVisible = True
SplitSymbol = ' | '
end
object seFaChgFadnName: TSDEdit
Left = 92
Top = 127
Width = 120
Height = 18
Ctl3D = False
ImeName = '中文 (简体) - 智能 ABC'
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 8
Text = 'seFaChgFadnName'
SplitSymbol = ' | '
end
end
object FloatPanel3: TFloatPanel [4]
Left = 0
Top = 339
Width = 607
Height = 33
Align = alBottom
Color = 50331647
Enabled = False
Caption = 'FloatPanel3'
ParentColor = False
TabOrder = 4
object Label14: TLabel
Left = 429
Top = 7
Width = 48
Height = 12
Caption = '操作员:'
end
object labFaChgUser: TLabel
Left = 477
Top = 7
Width = 72
Height = 12
Caption = 'labFaChgUser'
end
object Label11: TLabel
Left = 252
Top = 9
Width = 60
Height = 12
Caption = '审核日期:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object labFaChgChecker: TLabel
Left = 142
Top = 8
Width = 90
Height = 12
Caption = 'labFaChgChecker'
end
object Label9: TLabel
Left = 93
Top = 8
Width = 48
Height = 12
Caption = '审核人:'
end
object labFaChgCheckDate: TLabel
Left = 313
Top = 8
Width = 102
Height = 12
Caption = 'labFaChgCheckDate'
end
object chkFaChgCheck: TCheckBox
Left = 24
Top = 5
Width = 61
Height = 17
Caption = '审核'
Checked = True
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 0
end
end
inherited PrnSetupDlg: TPrinterSetupDialog
Left = 539
Top = 111
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -