📄 frmgoodscatemanage.dfm
字号:
object FormGoodsCate: TFormGoodsCate
Left = 192
Top = 127
Width = 544
Height = 375
Caption = #36135#29289#31181#31867#32500#25252
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
KeyPreview = True
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 12
object Label1: TLabel
Left = 32
Top = 104
Width = 48
Height = 12
Caption = #32534#21495'(&I):'
FocusControl = DBEdtId
end
object Label2: TLabel
Left = 248
Top = 104
Width = 54
Height = 12
Caption = #21517#31216'(&N)'#65306
FocusControl = DBEdtName
end
object Label3: TLabel
Left = 24
Top = 128
Width = 48
Height = 12
Caption = #22791#27880'(&R):'
FocusControl = DBMemo1
end
object LCDBOperatTool1: TLCDBOperatTool
Left = 24
Top = 8
Width = 489
Height = 33
VisibleBtn = [tbAdd, tbEdit, tbPost, tbCancel]
EnabledBtn = [tbAdd, tbDel, tbEdit]
DelConfirmId = 'PurchaseDepartGoodsCateManage'
DataSource = DSGoodsCate
end
object DBEdtId: TDBEdit
Left = 88
Top = 96
Width = 121
Height = 20
DataField = 'Id'
DataSource = DSGoodsCate
TabOrder = 1
end
object DBEdtName: TDBEdit
Left = 312
Top = 96
Width = 121
Height = 20
DataField = 'Name'
DataSource = DSGoodsCate
TabOrder = 2
end
object DBMemo1: TDBMemo
Left = 24
Top = 144
Width = 497
Height = 49
DataField = 'Remark'
DataSource = DSGoodsCate
TabOrder = 3
end
object DBGrid1: TDBGrid
Left = 16
Top = 200
Width = 505
Height = 137
DataSource = DSGoodsCate
ReadOnly = True
TabOrder = 4
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object DBNavigator1: TDBNavigator
Left = 40
Top = 56
Width = 424
Height = 25
DataSource = DSGoodsCate
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 5
end
object SocketConGoodsCate: TSocketConnection
Connected = True
ServerGUID = '{28A1C838-C5E4-4D19-AC4C-056F8C8B13B4}'
ServerName = 'GoodsCateData.mtsGoodsCateObj'
Address = '127.0.0.1'
Left = 128
Top = 96
end
object cdsGoodsCate: TClientDataSet
Active = True
Aggregates = <>
Params = <>
ProviderName = 'dspGoodsCate'
RemoteServer = SocketConGoodsCate
Left = 176
Top = 96
object cdsGoodsCateId: TWideStringField
DisplayLabel = #32534#21495
FieldName = 'Id'
ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
Size = 10
end
object cdsGoodsCateName: TWideStringField
DisplayLabel = #21517#31216
FieldName = 'Name'
end
object cdsGoodsCateRemark: TMemoField
DisplayLabel = #22791#27880
FieldName = 'Remark'
BlobType = ftMemo
end
end
object DSGoodsCate: TDataSource
DataSet = cdsGoodsCate
Left = 232
Top = 96
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -