📄 macc.dfm
字号:
inherited frmMacc: TfrmMacc
Left = 77
Top = 60
Width = 631
Height = 503
Caption = '库存台帐'
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Label3: TLabel [0]
Left = 10
Top = 35
Width = 50
Height = 11
Caption = '货币汇率:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
inherited sbBar: TStatusBar
Top = 435
Width = 623
end
inherited CoolBar1: TCoolBar
Width = 623
Bands = <
item
Control = tbMainBar
ImageIndex = -1
MinHeight = 35
Width = 623
end>
inherited tbMainBar: TToolBar
Width = 610
inherited tbAddHead: TToolButton
Visible = False
end
inherited tbDeleteHead: TToolButton
Visible = False
end
inherited tbQuery: TToolButton
Visible = False
end
end
end
object fpMacc2: TFloatPanel [3]
Left = 0
Top = 39
Width = 623
Height = 33
Align = alTop
Color = clWhite
Caption = 'fpMacc2'
ParentColor = False
TabOrder = 2
object Label9: TLabel
Left = 9
Top = 10
Width = 54
Height = 12
Caption = '货位代码:'
end
object labLgLocName: TLabel
Left = 256
Top = 13
Width = 6
Height = 12
end
object Label1: TLabel
Left = 324
Top = 10
Width = 54
Height = 12
Caption = '财务月份:'
end
object scMaccLocCode: TSDComboBox
Left = 63
Top = 3
Width = 250
Height = 20
Style = csDropDownList
Color = clWhite
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ItemHeight = 12
ParentCtl3D = False
ParentFont = False
TabOrder = 0
OnClick = scMaccLocCodeClick
KeyItem = cbItem2
end
object seMaccFmonth: TSDEdit
Left = 379
Top = 5
Width = 109
Height = 18
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 1
Text = 'seMaccFmonth'
SplitSymbol = ' | '
end
end
object sgMacc: TSDGrid [4]
Left = 0
Top = 72
Width = 381
Height = 363
Align = alLeft
Color = clWhite
Ctl3D = False
DefaultRowHeight = 20
FixedColor = 8564917
FixedCols = 0
RowCount = 4
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
ParentCtl3D = False
TabOrder = 3
OnClick = sgMaccClick
Columns = <
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '物料编码'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '年初数'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '期初数'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '本年收入数'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clNavy
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '本年发出数'
ColumnWidth = 0
end>
ColWidths = (
117
65
57
66
69)
end
object fpMacc1: TFloatPanel [5]
Left = 381
Top = 72
Width = 242
Height = 363
Align = alClient
Color = clWhite
ParentColor = False
TabOrder = 4
object Label2: TLabel
Left = 8
Top = 33
Width = 54
Height = 12
Caption = '年初数量:'
end
object Label4: TLabel
Left = 8
Top = 67
Width = 54
Height = 12
Caption = '期初数量:'
end
object sbPptt: TSpeedButton
Left = 10
Top = 231
Width = 51
Height = 22
Caption = '状态账'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
OnClick = sbPpttClick
end
object sbBatch: TSpeedButton
Left = 9
Top = 260
Width = 51
Height = 22
Caption = '批次账'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
OnClick = sbBatchClick
end
object sbDept: TSpeedButton
Left = 75
Top = 230
Width = 51
Height = 22
Caption = '部门账'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
OnClick = sbDeptClick
end
object sbSod: TSpeedButton
Left = 74
Top = 260
Width = 51
Height = 22
Caption = '订单账'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
OnClick = sbSodClick
end
object sbSug: TSpeedButton
Left = 9
Top = 289
Width = 51
Height = 22
Caption = '备货账'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
OnClick = sbSugClick
end
object Label10: TLabel
Left = 8
Top = 100
Width = 54
Height = 12
Caption = '本年收入:'
end
object Label11: TLabel
Left = 8
Top = 133
Width = 54
Height = 12
Caption = '本年发出:'
end
object seMaccBoyQty: TSDEdit
Left = 63
Top = 29
Width = 121
Height = 18
Ctl3D = False
MaxLength = 13
ParentColor = True
ParentCtl3D = False
TabOrder = 0
Text = '0'
DigLen = 4
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
object seMaccBopQty: TSDEdit
Left = 63
Top = 63
Width = 121
Height = 18
Ctl3D = False
MaxLength = 13
ParentColor = True
ParentCtl3D = False
TabOrder = 1
Text = '0'
DigLen = 4
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
object scMaccChk: TCheckBox
Left = 23
Top = 187
Width = 82
Height = 17
Caption = '初始化标志'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object seMaccIoyQty: TSDEdit
Left = 63
Top = 96
Width = 121
Height = 18
Ctl3D = False
MaxLength = 13
ParentColor = True
ParentCtl3D = False
TabOrder = 2
Text = '0'
DigLen = 4
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
object seMaccSoyQty: TSDEdit
Left = 63
Top = 129
Width = 121
Height = 18
Ctl3D = False
MaxLength = 13
ParentColor = True
ParentCtl3D = False
TabOrder = 3
Text = '0'
DigLen = 4
DataType = dtNumber
CharType = ctMathematic
SplitSymbol = ' | '
DefaultValue = '0'
end
end
inherited MainMenu1: TMainMenu
Left = 210
Top = 343
inherited muTools: TMenuItem
inherited muOptons: TMenuItem
Enabled = False
end
end
end
inherited ImageList1: TImageList
Left = 176
Top = 343
end
inherited RecPrintDlg: TPrintDialog
Left = 143
Top = 343
end
inherited PrnSetupDlg: TPrinterSetupDialog
Left = 243
Top = 343
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -