📄 ydbrpw.dfm
字号:
inherited YDBrPWForm: TYDBrPWForm
Left = 168
Top = 134
Width = 618
Height = 375
Caption = #29983#20135#33021#21147#31649#29702
FormStyle = fsMDIChild
PixelsPerInch = 96
TextHeight = 12
inherited ToolBar: TToolBar
Width = 610
ButtonWidth = 55
object ToolButton1: TToolButton
Left = 0
Top = 2
Action = AddNewAction
end
object ToolButton2: TToolButton
Left = 55
Top = 2
Action = EditAction
end
object ToolButton3: TToolButton
Left = 110
Top = 2
Action = DeleteAction
end
object ToolButton12: TToolButton
Left = 165
Top = 2
Width = 8
Caption = 'ToolButton12'
ImageIndex = 5
Style = tbsSeparator
end
object ToolButton4: TToolButton
Left = 173
Top = 2
Action = PrintPreviewAction
end
object ToolButton5: TToolButton
Left = 228
Top = 2
Action = PrintAction
end
object ToolButton13: TToolButton
Left = 283
Top = 2
Width = 8
Caption = 'ToolButton13'
ImageIndex = 6
Style = tbsSeparator
end
object ToolButton6: TToolButton
Left = 291
Top = 2
Action = ExportAction
end
object ToolButton10: TToolButton
Left = 346
Top = 2
Width = 8
Caption = 'ToolButton10'
ImageIndex = 3
Style = tbsSeparator
end
object ToolButton7: TToolButton
Left = 354
Top = 2
Action = FiltrateAction
end
object ToolButton14: TToolButton
Left = 409
Top = 2
Action = CustomizeViewAction
end
object ToolButton8: TToolButton
Left = 464
Top = 2
Action = RefreshAction
end
object ToolButton11: TToolButton
Left = 519
Top = 2
Width = 8
Caption = 'ToolButton11'
ImageIndex = 4
Style = tbsSeparator
end
object ToolButton9: TToolButton
Left = 527
Top = 2
Action = ExitAction
end
end
inherited Panel1: TPanel
Width = 610
Height = 307
inherited PageControl: TPageControl
Top = 280
Width = 610
inherited TabSheet1: TTabSheet
Caption = #29983#20135#33021#21147
end
end
inherited DBGrid: TQLDBGrid
Width = 610
Height = 280
Columns = <
item
Expanded = False
FieldName = 'Class'
Title.Alignment = taCenter
Visible = True
end
item
Expanded = False
FieldName = 'Name'
Title.Alignment = taCenter
Visible = True
end
item
Expanded = False
FieldName = 'PowerIndex'
Title.Alignment = taCenter
Visible = True
end
item
Expanded = False
FieldName = 'Memo'
Title.Alignment = taCenter
Width = 165
Visible = True
end>
end
end
inherited ActionList: TActionList
Left = 24
Top = 80
end
inherited DataSource: TDataSource
DataSet = tblYDBrPW
Left = 88
end
object tblYDBrPW: TADODataSet
Connection = CommonData.acnConnection
CursorType = ctStatic
CommandText = 'select *'#13#10'from YDProductPower'#13#10'where RecordState<>'#39#21024#38500#39
Parameters = <>
Left = 72
Top = 80
object tblYDBrPWID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
Visible = False
end
object tblYDBrPWCreateDate: TDateTimeField
FieldName = 'CreateDate'
Visible = False
end
object tblYDBrPWCreateUserID: TIntegerField
FieldName = 'CreateUserID'
Visible = False
end
object tblYDBrPWRecordState: TStringField
FieldName = 'RecordState'
Visible = False
Size = 12
end
object tblYDBrPWClass: TStringField
DisplayLabel = #33021#21147#31867#21035
FieldName = 'Class'
end
object tblYDBrPWName: TStringField
DisplayLabel = #33021#21147#21517#31216
FieldName = 'Name'
end
object tblYDBrPWPowerIndex: TBCDField
DisplayLabel = #33021#21147#25351#25968
FieldName = 'PowerIndex'
Precision = 18
Size = 0
end
object tblYDBrPWMemo: TStringField
DisplayLabel = #22791#27880
FieldName = 'Memo'
Size = 40
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -