📄 u_sale.dfm
字号:
object F_sale: TF_sale
Left = 204
Top = 134
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_sale
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_sale
Enabled = False
TabOrder = 0
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 80
Top = 44
Width = 121
Height = 21
DataField = 'MERCHANT'
DataSource = DM_main.DS_sale
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_sale
ReadOnly = True
TabOrder = 2
end
object DBEdit3: TDBEdit
Left = 184
Top = 76
Width = 121
Height = 21
DataField = 'START_DATE'
DataSource = DM_main.DS_sale
TabOrder = 3
end
object DBEdit4: TDBEdit
Left = 184
Top = 100
Width = 121
Height = 21
DataField = 'SEND_DATE'
DataSource = DM_main.DS_sale
TabOrder = 4
end
object DBEdit5: TDBEdit
Left = 184
Top = 124
Width = 121
Height = 21
DataField = 'END_DATE'
DataSource = DM_main.DS_sale
TabOrder = 5
end
object DBRadioGroup1: TDBRadioGroup
Left = 16
Top = 72
Width = 81
Height = 73
Caption = '执行状态'
DataField = 'STATE'
DataSource = DM_main.DS_sale
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_sale
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_sale_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_sale_items
Enabled = False
TabOrder = 0
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 112
Top = 60
Width = 121
Height = 21
DataField = 'PARTS'
DataSource = DM_main.DS_sale_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_sale_items
TabOrder = 2
end
object DBEdit8: TDBEdit
Left = 112
Top = 108
Width = 121
Height = 21
DataField = 'AMOUNT'
DataSource = DM_main.DS_sale_items
TabOrder = 3
end
end
object DBNavigator2: TDBNavigator
Left = 344
Top = 376
Width = 312
Height = 25
DataSource = DM_main.DS_sale_items
VisibleButtons = [nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
TabOrder = 5
end
end
object TabSheet2: TTabSheet
Caption = '销售统计'
ImageIndex = 1
object Label13: TLabel
Left = 104
Top = 16
Width = 72
Height = 13
Caption = '时间范围：从'
end
object Label14: TLabel
Left = 256
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 B_stat: TButton
Left = 464
Top = 8
Width = 83
Height = 25
Caption = '统计销售额'
TabOrder = 1
OnClick = B_statClick
end
object DBChart1: TDBChart
Left = 8
Top = 48
Width = 649
Height = 353
AllowPanning = pmNone
AllowZoom = False
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
BackWall.Pen.Visible = False
Title.Text.Strings = (
'产品销售统计')
AxisVisible = False
ClipPoints = False
Frame.Visible = False
View3DOptions.Elevation = 315
View3DOptions.Orthogonal = False
View3DOptions.Perspective = 0
View3DOptions.Rotation = 360
View3DWalls = False
TabOrder = 2
object Series1: TPieSeries
Marks.ArrowLength = 8
Marks.Style = smsLabelPercentTotal
Marks.Visible = True
DataSource = DM_main.Q_sale_stat
SeriesColor = clRed
XLabelsSource = 'PARTS'
OtherSlice.Text = 'Other'
PieValues.DateTime = False
PieValues.Name = 'Pie'
PieValues.Multiplier = 1
PieValues.Order = loNone
PieValues.ValueSource = 'SUM'
end
end
object i_start_date: TMaskEdit
Left = 184
Top = 12
Width = 65
Height = 21
EditMask = '!0000-!90-90;1;_'
MaxLength = 10
TabOrder = 3
Text = ' - - '
end
object i_end_date: TMaskEdit
Left = 280
Top = 12
Width = 65
Height = 21
EditMask = '!0000-!90-90;1;_'
MaxLength = 10
TabOrder = 4
Text = ' - - '
end
end
end
object BitBtn1: TBitBtn
Left = 600
Top = 0
Width = 75
Height = 25
HelpContext = 400
Caption = '&H帮助'
TabOrder = 1
Kind = bkHelp
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -