📄 kc.~dfm
字号:
object Frm_KC: TFrm_KC
Left = 250
Top = 184
AutoScroll = False
Caption = #22522#26412#24211#23384
ClientHeight = 511
ClientWidth = 828
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 0
Width = 828
Height = 60
Align = alTop
BevelInner = bvLowered
Caption = #12304#24211#23384#36164#26009#12305
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object PC: TPageControl
Left = 0
Top = 60
Width = 828
Height = 451
Cursor = crHandPoint
ActivePage = TabSheet3
Align = alClient
Style = tsFlatButtons
TabOrder = 1
OnChange = PCChange
object TabSheet1: TTabSheet
Caption = #27169#22359#24211#23384
object Panel2: TPanel
Left = 0
Top = 0
Width = 820
Height = 113
Align = alTop
BevelInner = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 24
Top = 16
Width = 36
Height = 12
Caption = #21517#31216#65306
end
object Label2: TLabel
Left = 24
Top = 41
Width = 36
Height = 12
Caption = #22411#21495#65306
end
object Label3: TLabel
Left = 232
Top = 16
Width = 36
Height = 12
Caption = #25968#37327#65306
end
object Label4: TLabel
Left = 232
Top = 41
Width = 36
Height = 12
Caption = #35268#26684#65306
end
object Label5: TLabel
Left = 432
Top = 16
Width = 36
Height = 12
Caption = #22791#27880#65306
end
object XH0: TComboBox
Left = 59
Top = 37
Width = 130
Height = 20
DropDownCount = 50
ItemHeight = 0
TabOrder = 2
end
object GG0: TComboBox
Left = 268
Top = 37
Width = 130
Height = 20
DropDownCount = 50
ItemHeight = 0
TabOrder = 3
end
object bsSkinEdit1: TEdit
Left = 59
Top = 13
Width = 130
Height = 20
TabOrder = 0
end
object Nedit1: TEdit
Left = 267
Top = 13
Width = 130
Height = 20
TabOrder = 1
Text = '0'
OnKeyPress = Nedit1KeyPress
end
object Memo1: TMemo
Left = 472
Top = 13
Width = 213
Height = 85
ScrollBars = ssBoth
TabOrder = 4
end
object Btnadd: TButton
Left = 8
Top = 73
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #22686' '#21152
TabOrder = 5
OnClick = BtnaddClick
end
object btnmod: TButton
Left = 83
Top = 73
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #20462' '#25913
TabOrder = 6
OnClick = btnmodClick
end
object btnsave: TButton
Left = 158
Top = 73
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #20445' '#23384
Enabled = False
TabOrder = 7
OnClick = btnsaveClick
end
object btncancel: TButton
Left = 233
Top = 73
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #21462' '#28040
Enabled = False
TabOrder = 8
OnClick = btncancelClick
end
object btndelete: TButton
Left = 308
Top = 73
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #21024' '#38500
TabOrder = 9
OnClick = btndeleteClick
end
object btnreturn: TButton
Left = 383
Top = 73
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #36820' '#22238
TabOrder = 10
OnClick = btnreturnClick
end
end
object bsSkinDBGrid2: TDBGridEh
Left = 0
Top = 113
Width = 820
Height = 308
Align = alClient
AutoFitColWidths = True
DataSource = DSMoKuai
DrawMemoText = True
FooterColor = clInactiveCaptionText
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #23435#20307
FooterFont.Style = []
OddRowColor = clWindow
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDialogFind]
ReadOnly = True
SortLocal = True
SumList.Active = True
SumList.VirtualRecords = True
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnTitleBtnClick = bsSkinDBGrid2TitleBtnClick
Columns = <
item
EditButtons = <>
FieldName = 'name'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21517#31216
Title.SortIndex = 1
Title.SortMarker = smDownEh
Title.TitleButton = True
Width = 199
end
item
EditButtons = <>
FieldName = 'xh'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #22411#21495
Title.TitleButton = True
Width = 170
end
item
EditButtons = <>
FieldName = 'gg'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #35268#26684
Title.TitleButton = True
Width = 73
end
item
EditButtons = <>
FieldName = 'SL'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #25968#37327
Title.TitleButton = True
end
item
EditButtons = <>
FieldName = 'bz'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #22791#27880
Title.TitleButton = True
Width = 423
end>
end
end
object TabSheet2: TTabSheet
Caption = #21322#25104#21697#24211#23384
ImageIndex = 1
object Panel3: TPanel
Left = 0
Top = 0
Width = 820
Height = 113
Align = alTop
BevelInner = bvLowered
TabOrder = 0
object Label6: TLabel
Left = 24
Top = 16
Width = 36
Height = 12
Caption = #21517#31216#65306
end
object Label7: TLabel
Left = 24
Top = 41
Width = 36
Height = 12
Caption = #22411#21495#65306
end
object Label8: TLabel
Left = 232
Top = 16
Width = 36
Height = 12
Caption = #25968#37327#65306
end
object Label9: TLabel
Left = 232
Top = 41
Width = 36
Height = 12
Caption = #35268#26684#65306
end
object Label10: TLabel
Left = 432
Top = 16
Width = 36
Height = 12
Caption = #22791#27880#65306
end
object XH1: TComboBox
Left = 59
Top = 37
Width = 130
Height = 20
DropDownCount = 50
ItemHeight = 0
TabOrder = 2
end
object GG1: TComboBox
Left = 268
Top = 37
Width = 130
Height = 20
DropDownCount = 50
ItemHeight = 0
TabOrder = 3
end
object bsSkinEdit2: TEdit
Left = 59
Top = 13
Width = 130
Height = 20
TabOrder = 0
end
object NEdit2: TEdit
Left = 267
Top = 13
Width = 130
Height = 20
TabOrder = 1
Text = '0'
OnKeyPress = NEdit2KeyPress
end
object Memo2: TMemo
Left = 472
Top = 13
Width = 213
Height = 85
ScrollBars = ssBoth
TabOrder = 4
end
object Btnadd1: TButton
Left = 8
Top = 73
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #22686' '#21152
TabOrder = 5
OnClick = Btnadd1Click
end
object btnmod1: TButton
Left = 83
Top = 73
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #20462' '#25913
TabOrder = 6
OnClick = btnmod1Click
end
object btnsave1: TButton
Left = 158
Top = 73
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #20445' '#23384
Enabled = False
TabOrder = 7
OnClick = btnsave1Click
end
object btncancel1: TButton
Left = 233
Top = 73
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #21462' '#28040
Enabled = False
TabOrder = 8
OnClick = btncancel1Click
end
object btndelete1: TButton
Left = 308
Top = 73
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #21024' '#38500
TabOrder = 9
OnClick = btndelete1Click
end
object btnreturn1: TButton
Left = 383
Top = 73
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #36820' '#22238
TabOrder = 10
end
end
object DBGridEh1: TDBGridEh
Left = 0
Top = 113
Width = 820
Height = 308
Align = alClient
AutoFitColWidths = True
DataSource = DSBanChengPin
DrawMemoText = True
FooterColor = clInactiveCaptionText
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #23435#20307
FooterFont.Style = []
OddRowColor = clWindow
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDialogFind]
ReadOnly = True
SortLocal = True
SumList.Active = True
SumList.VirtualRecords = True
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnTitleBtnClick = DBGridEh1TitleBtnClick
Columns = <
item
EditButtons = <>
FieldName = 'name'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21517#31216
Title.SortIndex = 1
Title.SortMarker = smDownEh
Title.TitleButton = True
Width = 199
end
item
EditButtons = <>
FieldName = 'xh'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #22411#21495
Title.TitleButton = True
Width = 170
end
item
EditButtons = <>
FieldName = 'gg'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #35268#26684
Title.TitleButton = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -