fxstj.dfm.~27~
来自「delphi2007开发的汽车配件进销存系统.实用级的源码.」· ~27~ 代码 · 共 235 行
~27~
235 行
object frmxstj: Tfrmxstj
Left = 0
Top = 0
Caption = #38144#21806#32479#35745
ClientHeight = 479
ClientWidth = 810
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object cxPageControl1: TcxPageControl
AlignWithMargins = True
Left = 3
Top = 3
Width = 804
Height = 473
ActivePage = cxTabSheet1
Align = alClient
ShowFrame = True
TabOrder = 0
ExplicitLeft = -2
ExplicitTop = -2
ClientRectBottom = 472
ClientRectLeft = 1
ClientRectRight = 803
ClientRectTop = 26
object cxTabSheet1: TcxTabSheet
Caption = #25253#34920
ImageIndex = 0
ExplicitLeft = 0
ExplicitWidth = 663
ExplicitHeight = 398
DesignSize = (
802
446)
object DBGridEh1: TDBGridEh
Left = 3
Top = 72
Width = 796
Height = 371
Anchors = [akLeft, akTop, akRight, akBottom]
Color = clWhite
DataSource = DM.ds9
EvenRowColor = clInactiveCaptionText
FixedColor = clWhite
Flat = False
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'Tahoma'
FooterFont.Style = []
FooterRowCount = 1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
SumList.Active = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 'xsdh'
Footer.FieldName = 'xsdh'
Footer.ValueType = fvtCount
Footers = <>
end
item
EditButtons = <>
FieldName = 'bm'
Footers = <>
Width = 100
end
item
EditButtons = <>
FieldName = 'pm'
Footers = <>
Width = 130
end
item
EditButtons = <>
FieldName = 'gg'
Footers = <>
end
item
EditButtons = <>
FieldName = 'cd'
Footers = <>
Visible = False
Width = 100
end
item
EditButtons = <>
FieldName = 'sl'
Footer.FieldName = 'sl'
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = 'jj'
Footers = <>
Visible = False
end
item
DisplayFormat = #65509'0.00'
EditButtons = <>
FieldName = 'dj'
Footers = <>
end
item
DisplayFormat = #65509'0.00'
EditButtons = <>
FieldName = 'je'
Footer.DisplayFormat = #65509'0.00'
Footer.FieldName = 'je'
Footer.ValueType = fvtSum
Footers = <>
end
item
EditButtons = <>
FieldName = 'rq'
Footers = <>
end>
end
object cxGroupBox1: TcxGroupBox
Left = 3
Top = 8
TabOrder = 1
Height = 51
Width = 190
object cxLabel1: TcxLabel
Left = 8
Top = 21
Caption = #24403#21069#26085#26399':'
Transparent = True
end
object cxDateEdit1: TcxDateEdit
Left = 60
Top = 19
TabOrder = 1
Width = 121
end
end
object cxGroupBox2: TcxGroupBox
Left = 199
Top = 8
Enabled = False
TabOrder = 2
Height = 51
Width = 303
object cxLabel2: TcxLabel
Left = 10
Top = 21
Caption = #36215
Transparent = True
end
object cxDateEdit2: TcxDateEdit
Left = 30
Top = 19
TabOrder = 1
Width = 120
end
object cxDateEdit3: TcxDateEdit
Left = 174
Top = 19
TabOrder = 2
Width = 126
end
object cxLabel3: TcxLabel
Left = 156
Top = 21
Caption = #27490
Transparent = True
end
end
object cxRadioButton2: TcxRadioButton
Left = 210
Top = 6
Width = 73
Height = 17
Caption = #21306#38388#25253#34920
TabOrder = 3
OnClick = cxRadioButton2Click
Transparent = True
end
object cxRadioButton1: TcxRadioButton
Left = 11
Top = 7
Width = 66
Height = 17
Caption = #26085#25253#34920
Checked = True
TabOrder = 4
TabStop = True
OnClick = cxRadioButton1Click
Transparent = True
end
object Button1: TButton
Left = 508
Top = 36
Width = 72
Height = 23
Caption = #32479#35745
TabOrder = 5
OnClick = Button1Click
end
object cxCheckBox1: TcxCheckBox
Left = 508
Top = 13
Caption = #20998#31867#32479#35745
TabOrder = 6
Transparent = True
Width = 73
end
end
end
object PopupMenu1: TPopupMenu
Left = 352
Top = 320
object N1: TMenuItem
Caption = #21024#38500
OnClick = N1Click
end
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?