📄 u_buy.~dfm
字号:
object F_buy: TF_buy
Left = 204
Top = 193
Width = 696
Height = 480
Caption = '采购合同管理'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 673
Height = 441
ActivePage = TabSheet2
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '合同管理'
object Label1: TLabel
Left = 16
Top = 16
Width = 60
Height = 13
Caption = '合同列表：'
end
object Label8: TLabel
Left = 352
Top = 16
Width = 60
Height = 13
Caption = '合同明细：'
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 = '编号'
Visible = True
end
item
Expanded = False
FieldName = 'MERCHANT'
Title.Caption = '供货商'
Visible = True
end
item
Expanded = False
FieldName = 'START_DATE'
Title.Caption = '签署日期'
Visible = True
end>
end
object GroupBox2: TGroupBox
Left = 8
Top = 216
Width = 321
Height = 153
Caption = '合同详细资料'
TabOrder = 1
object Label2: TLabel
Left = 16
Top = 24
Width = 48
Height = 13
Caption = '编 号：'
end
object Label3: TLabel
Left = 16
Top = 48
Width = 48
Height = 13
Caption = '供货商：'
end
object Label4: TLabel
Left = 112
Top = 80
Width = 60
Height = 13
Caption = '签署日期：'
end
object Label5: TLabel
Left = 112
Top = 104
Width = 60
Height = 13
Caption = '发货日期：'
end
object Label6: TLabel
Left = 112
Top = 128
Width = 60
Height = 13
Caption = '完成日期：'
end
object Label7: TLabel
Left = 216
Top = 24
Width = 72
Height = 13
Caption = '合同总金额：'
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 = '执行状态'
DataField = 'STATE'
DataSource = DM_main.DS_buy
Items.Strings = (
'签署'
'已发货'
'完成')
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 = '编号'
Visible = True
end
item
Expanded = False
FieldName = 'PARTS'
Title.Caption = '零件'
Visible = True
end
item
Expanded = False
FieldName = 'UNIT_PRICE'
Title.Caption = '单价'
Visible = True
end
item
Expanded = False
FieldName = 'AMOUNT'
Title.Caption = '数量'
Visible = True
end>
end
object GroupBox3: TGroupBox
Left = 344
Top = 216
Width = 313
Height = 153
Caption = '明细资料'
TabOrder = 4
object Label9: TLabel
Left = 56
Top = 64
Width = 48
Height = 13
Caption = '零 件：'
end
object Label10: TLabel
Left = 56
Top = 88
Width = 48
Height = 13
Caption = '单 价：'
end
object Label11: TLabel
Left = 56
Top = 112
Width = 48
Height = 13
Caption = '数 量：'
end
object Label12: TLabel
Left = 56
Top = 40
Width = 48
Height = 13
Caption = '编 号：'
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 = '采购统计'
ImageIndex = 1
object Label13: TLabel
Left = 88
Top = 16
Width = 72
Height = 13
Caption = '时间范围：从'
end
object Label14: TLabel
Left = 232
Top = 16
Width = 12
Height = 13
Caption = '年'
end
object Label15: TLabel
Left = 296
Top = 16
Width = 24
Height = 13
Caption = '月到'
end
object Label18: TLabel
Left = 376
Top = 16
Width = 12
Height = 13
Caption = '月'
end
object B_print: TButton
Left = 560
Top = 8
Width = 83
Height = 25
Caption = '打印统计图'
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 = (
'采购额统计')
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 = '统计采购额'
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帮助'
TabOrder = 1
Kind = bkHelp
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -