📄 captureprice_unit.dfm
字号:
inherited frmCapturePrice: TfrmCapturePrice
Left = 273
Top = 161
Caption = #23398#29983#32564#36153#31649#29702
ClientHeight = 377
ClientWidth = 498
OldCreateOrder = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel [0]
Left = 8
Top = 8
Width = 481
Height = 361
BevelInner = bvLowered
TabOrder = 0
object PageControl1: TPageControl
Left = 2
Top = 2
Width = 477
Height = 357
ActivePage = TabSheet1
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #32564#36153#36755#20837
object Panel2: TPanel
Left = 0
Top = 0
Width = 469
Height = 176
Align = alClient
BevelInner = bvLowered
TabOrder = 0
object DBGrid1: TDBGrid
Left = 2
Top = 2
Width = 465
Height = 172
Align = alClient
DataSource = DataPrice
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'ClassID'
Title.Alignment = taCenter
Title.Caption = #29677#32423#32534#21495
Width = 85
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'PriceName'
Title.Alignment = taCenter
Title.Caption = #36153#29992#21517#31216
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'StudentID'
Title.Alignment = taCenter
Title.Caption = #23398#21495
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Price'
Title.Alignment = taCenter
Title.Caption = #36153#29992#37329#39069
Width = 80
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Remark'
Title.Alignment = taCenter
Title.Caption = #22791#27880
Width = 200
Visible = True
end>
end
end
object Panel3: TPanel
Left = 0
Top = 176
Width = 469
Height = 154
Align = alBottom
BevelInner = bvLowered
TabOrder = 1
object Label1: TLabel
Left = 9
Top = 16
Width = 48
Height = 12
Caption = #29677' '#32423#65306
end
object Label2: TLabel
Left = 8
Top = 42
Width = 48
Height = 12
Caption = #23398' '#21495#65306
end
object Label3: TLabel
Left = 232
Top = 16
Width = 60
Height = 12
Caption = #36153#29992#21517#31216#65306
end
object Label4: TLabel
Left = 8
Top = 72
Width = 48
Height = 12
Caption = #22791' '#27880#65306
end
object Label5: TLabel
Left = 240
Top = 40
Width = 48
Height = 12
Caption = #36153' '#29992#65306
end
object cmbxClassName: TDBLookupComboBox
Left = 57
Top = 12
Width = 152
Height = 20
DataField = 'ClassID'
DataSource = DataPrice
KeyField = 'ClassID'
ListField = 'ClassID;ClaName'
ListSource = DataClassName
TabOrder = 0
end
object cmbxStudentID: TDBLookupComboBox
Left = 56
Top = 38
Width = 153
Height = 20
DataField = 'StudentID'
DataSource = DataPrice
KeyField = 'StudentID'
ListField = 'StudentID;StuName'
ListSource = DataStudentID
TabOrder = 1
end
object edtRemark: TDBMemo
Left = 56
Top = 64
Width = 407
Height = 49
DataField = 'Remark'
DataSource = DataPrice
TabOrder = 2
end
object btnAdd: TBitBtn
Left = 43
Top = 120
Width = 75
Height = 25
Caption = #28155#21152'(&A)'
TabOrder = 3
OnClick = btnAddClick
end
object btnModify: TBitBtn
Left = 123
Top = 120
Width = 75
Height = 25
Caption = #20462#25913'(&M)'
TabOrder = 4
OnClick = btnModifyClick
end
object btnDel: TBitBtn
Left = 203
Top = 120
Width = 75
Height = 25
Caption = #21024#38500'(&D)'
TabOrder = 5
OnClick = btnDelClick
end
object btnSave: TBitBtn
Left = 283
Top = 120
Width = 75
Height = 25
Caption = #20445#23384'(&S)'
TabOrder = 6
OnClick = btnSaveClick
end
object btnCancel: TBitBtn
Left = 363
Top = 120
Width = 75
Height = 25
Caption = #21462#28040'(&C)'
TabOrder = 7
OnClick = btnCancelClick
end
object cmbxPriceName: TDBComboBox
Left = 296
Top = 12
Width = 145
Height = 20
DataField = 'PriceName'
DataSource = DataPrice
ItemHeight = 12
Items.Strings = (
#23398#36153
#20070#26412#36153
#24037#26412#36153
#20854#20182#36153#29992)
TabOrder = 8
end
object edtPrice: TDBEdit
Left = 296
Top = 37
Width = 145
Height = 20
DataField = 'Price'
DataSource = DataPrice
TabOrder = 9
end
end
end
object TabSheet2: TTabSheet
Caption = #26597#35810
ImageIndex = 1
object Panel4: TPanel
Left = 0
Top = 0
Width = 469
Height = 65
Align = alTop
BevelInner = bvLowered
TabOrder = 0
object Label14: TLabel
Left = 17
Top = 11
Width = 48
Height = 12
Caption = #39033' '#30446#65306
end
object Label15: TLabel
Left = 161
Top = 11
Width = 48
Height = 12
Caption = #26465' '#20214#65306
end
object Label16: TLabel
Left = 273
Top = 11
Width = 24
Height = 12
Caption = #20540#65306
end
object cmbxItems: TComboBox
Left = 70
Top = 7
Width = 85
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 0
Items.Strings = (
#23398#21495
#22995#21517)
end
object cmbxCondition: TComboBox
Left = 217
Top = 7
Width = 52
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 1
Items.Strings = (
'>'
'<'
'='
'Like')
end
object cmbxValues: TComboBox
Left = 302
Top = 7
Width = 145
Height = 20
ItemHeight = 12
TabOrder = 2
end
object btnFind: TBitBtn
Left = 368
Top = 32
Width = 75
Height = 25
Caption = #26597#35810'(&F)'
TabOrder = 3
OnClick = btnFindClick
end
end
object Panel5: TPanel
Left = 0
Top = 65
Width = 469
Height = 265
Align = alClient
BevelInner = bvLowered
TabOrder = 1
object DBGrid2: TDBGrid
Left = 2
Top = 2
Width = 465
Height = 261
Align = alClient
DataSource = DataFindPrice
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'ClassID'
Title.Alignment = taCenter
Title.Caption = #29677#32423#32534#21495
Width = 150
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'PriceName'
Title.Alignment = taCenter
Title.Caption = #36153#29992#21517#31216
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'StudentID'
Title.Alignment = taCenter
Title.Caption = #23398#21495
Width = 100
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Price'
Title.Alignment = taCenter
Title.Caption = #36153#29992#37329#39069
Width = 80
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Remark'
Title.Alignment = taCenter
Title.Caption = #22791#27880
Width = 200
Visible = True
end>
end
end
end
end
end
inherited ActionList1: TActionList
Left = 64
Top = 128
end
inherited PopupMenu1: TPopupMenu
Left = 96
Top = 128
end
object DataPrice: TDataSource
Left = 126
Top = 129
end
object DataClassName: TDataSource
Left = 166
Top = 129
end
object DataStudentID: TDataSource
Left = 206
Top = 129
end
object DataFindPrice: TDataSource
Left = 248
Top = 128
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -