📄 u_buy.dfm
字号:
object F_buy: TF_buy
Left = 204
Top = 193
Width = 696
Height = 480
Caption = #37319#36141#21512#21516#31649#29702
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
DesignSize = (
688
453)
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 673
Height = 441
ActivePage = TabSheet1
Anchors = [akLeft, akTop, akRight, akBottom]
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #21512#21516#31649#29702
object Label1: TLabel
Left = 16
Top = 16
Width = 60
Height = 13
Caption = #21512#21516#21015#34920#65306
end
object Label8: TLabel
Left = 352
Top = 16
Width = 60
Height = 13
Caption = #21512#21516#26126#32454#65306
end
object DBGrid1: TDBGrid
Left = 8
Top = 32
Width = 321
Height = 169
DataSource = DM_main.DS_buy
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ID'
ReadOnly = True
Title.Caption = #32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'MERCHANT'
Title.Caption = #20379#36135#21830
Visible = True
end
item
Expanded = False
FieldName = 'START_DATE'
Title.Caption = #31614#32626#26085#26399
Visible = True
end>
end
object GroupBox2: TGroupBox
Left = 8
Top = 216
Width = 321
Height = 153
Caption = #21512#21516#35814#32454#36164#26009
TabOrder = 1
object Label2: TLabel
Left = 16
Top = 24
Width = 48
Height = 13
Caption = #32534#12288#21495#65306
end
object Label3: TLabel
Left = 16
Top = 48
Width = 48
Height = 13
Caption = #20379#36135#21830#65306
end
object Label4: TLabel
Left = 112
Top = 80
Width = 60
Height = 13
Caption = #31614#32626#26085#26399#65306
end
object Label5: TLabel
Left = 112
Top = 104
Width = 60
Height = 13
Caption = #21457#36135#26085#26399#65306
end
object Label6: TLabel
Left = 112
Top = 128
Width = 60
Height = 13
Caption = #23436#25104#26085#26399#65306
end
object Label7: TLabel
Left = 216
Top = 24
Width = 72
Height = 13
Caption = #21512#21516#24635#37329#39069#65306
end
object DBEdit1: TDBEdit
Left = 80
Top = 20
Width = 121
Height = 21
DataField = 'ID'
DataSource = DM_main.DS_buy
Enabled = False
TabOrder = 0
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 80
Top = 44
Width = 121
Height = 21
DataField = 'MERCHANT'
DataSource = DM_main.DS_buy
KeyField = 'ID'
ListField = 'NAME'
ListSource = DM_main.DS_merchant
TabOrder = 1
end
object DBEdit2: TDBEdit
Left = 216
Top = 44
Width = 89
Height = 21
DataField = 'PRICES'
DataSource = DM_main.DS_buy
ReadOnly = True
TabOrder = 2
end
object DBEdit3: TDBEdit
Left = 184
Top = 76
Width = 121
Height = 21
DataField = 'START_DATE'
DataSource = DM_main.DS_buy
TabOrder = 3
end
object DBEdit4: TDBEdit
Left = 184
Top = 100
Width = 121
Height = 21
DataField = 'SEND_DATE'
DataSource = DM_main.DS_buy
TabOrder = 4
end
object DBEdit5: TDBEdit
Left = 184
Top = 124
Width = 121
Height = 21
DataField = 'END_DATE'
DataSource = DM_main.DS_buy
TabOrder = 5
end
object DBRadioGroup1: TDBRadioGroup
Left = 16
Top = 72
Width = 81
Height = 73
Caption = #25191#34892#29366#24577
DataField = 'STATE'
DataSource = DM_main.DS_buy
Items.Strings = (
#31614#32626
#24050#21457#36135
#23436#25104)
TabOrder = 6
Values.Strings = (
'0'
'1'
'2')
end
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 376
Width = 318
Height = 25
DataSource = DM_main.DS_buy
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
TabOrder = 2
end
object DBGrid2: TDBGrid
Left = 344
Top = 32
Width = 313
Height = 169
DataSource = DM_main.DS_buy_items
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ID'
ReadOnly = True
Title.Caption = #32534#21495
Visible = True
end
item
Expanded = False
FieldName = 'PARTS'
Title.Caption = #38646#20214
Visible = True
end
item
Expanded = False
FieldName = 'UNIT_PRICE'
Title.Caption = #21333#20215
Visible = True
end
item
Expanded = False
FieldName = 'AMOUNT'
Title.Caption = #25968#37327
Visible = True
end>
end
object GroupBox3: TGroupBox
Left = 344
Top = 216
Width = 313
Height = 153
Caption = #26126#32454#36164#26009
TabOrder = 4
object Label9: TLabel
Left = 56
Top = 64
Width = 48
Height = 13
Caption = #38646#12288#20214#65306
end
object Label10: TLabel
Left = 56
Top = 88
Width = 48
Height = 13
Caption = #21333#12288#20215#65306
end
object Label11: TLabel
Left = 56
Top = 112
Width = 48
Height = 13
Caption = #25968#12288#37327#65306
end
object Label12: TLabel
Left = 56
Top = 40
Width = 48
Height = 13
Caption = #32534#12288#21495#65306
end
object DBEdit6: TDBEdit
Left = 112
Top = 36
Width = 121
Height = 21
DataField = 'ID'
DataSource = DM_main.DS_buy_items
Enabled = False
TabOrder = 0
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 112
Top = 60
Width = 121
Height = 21
DataField = 'PARTS'
DataSource = DM_main.DS_buy_items
KeyField = 'ID'
ListField = 'NAME'
ListSource = DM_main.DS_parts
TabOrder = 1
end
object DBEdit7: TDBEdit
Left = 112
Top = 84
Width = 121
Height = 21
DataField = 'UNIT_PRICE'
DataSource = DM_main.DS_buy_items
TabOrder = 2
end
object DBEdit8: TDBEdit
Left = 112
Top = 108
Width = 121
Height = 21
DataField = 'AMOUNT'
DataSource = DM_main.DS_buy_items
TabOrder = 3
end
end
object DBNavigator2: TDBNavigator
Left = 344
Top = 376
Width = 312
Height = 25
DataSource = DM_main.DS_buy_items
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
TabOrder = 5
end
end
object TabSheet2: TTabSheet
Caption = #37319#36141#32479#35745
ImageIndex = 1
object Label13: TLabel
Left = 88
Top = 16
Width = 72
Height = 13
Caption = #26102#38388#33539#22260#65306#20174
end
object Label14: TLabel
Left = 232
Top = 16
Width = 12
Height = 13
Caption = #24180
end
object Label15: TLabel
Left = 296
Top = 16
Width = 24
Height = 13
Caption = #26376#21040
end
object Label18: TLabel
Left = 376
Top = 16
Width = 12
Height = 13
Caption = #26376
end
object B_print: TButton
Left = 560
Top = 8
Width = 83
Height = 25
Caption = #25171#21360#32479#35745#22270
TabOrder = 0
OnClick = B_printClick
end
object Chart1: TChart
Left = 16
Top = 40
Width = 633
Height = 361
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
#37319#36141#39069#32479#35745)
TabOrder = 1
object Series1: TBarSeries
Marks.ArrowLength = 20
Marks.Style = smsValue
Marks.Visible = True
SeriesColor = clRed
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
end
end
object B_stat: TButton
Left = 464
Top = 8
Width = 83
Height = 25
Caption = #32479#35745#37319#36141#39069
TabOrder = 2
OnClick = B_statClick
end
object i_year: TSpinEdit
Left = 168
Top = 11
Width = 57
Height = 22
MaxValue = 3000
MinValue = 1990
TabOrder = 3
Value = 2001
end
object i_start_month: TSpinEdit
Left = 248
Top = 11
Width = 41
Height = 22
MaxValue = 12
MinValue = 1
TabOrder = 4
Value = 1
end
object i_end_month: TSpinEdit
Left = 328
Top = 11
Width = 41
Height = 22
MaxValue = 12
MinValue = 1
TabOrder = 5
Value = 12
end
end
end
object BitBtn1: TBitBtn
Left = 600
Top = 0
Width = 75
Height = 25
HelpContext = 300
Caption = '&H'#24110#21161
TabOrder = 1
Kind = bkHelp
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -