D7DJmingqing/检验管理/U_MJSJFX.dfm

768 lines
21 KiB
Plaintext
Raw Normal View History

2025-07-19 17:09:06 +08:00
object frmMJSJFX: TfrmMJSJFX
Left = 203
Top = 172
Width = 1726
Height = 817
Align = alClient
Caption = #24067#21305#31649#29702
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1710
Height = 30
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBClose: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 30
Width = 1710
Height = 34
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
Visible = False
object Label1: TLabel
Left = 33
Top = 12
Width = 53
Height = 12
Caption = #35746' '#21333' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 33
Top = 48
Width = 7
Height = 12
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Ma: TLabel
Left = 304
Top = 88
Width = 6
Height = 12
Caption = 'M'
end
object Label7: TLabel
Left = 223
Top = 88
Width = 24
Height = 12
Caption = #21407#30721
end
object Label5: TLabel
Left = 308
Top = 116
Width = 6
Height = 12
Caption = 'M'
end
object Label8: TLabel
Left = 223
Top = 120
Width = 24
Height = 12
Caption = #24133#23485
end
object Label9: TLabel
Left = 316
Top = 112
Width = 12
Height = 12
Caption = 'cm'
end
object Label3: TLabel
Left = 331
Top = 100
Width = 24
Height = 12
Caption = #20811#37325
end
object Label11: TLabel
Left = 412
Top = 100
Width = 24
Height = 12
Caption = 'g/'#13217
end
object Label13: TLabel
Left = 439
Top = 120
Width = 24
Height = 12
Caption = #36192#36865
end
object OrderNo: TEdit
Left = 88
Top = 8
Width = 149
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnKeyPress = OrderNoKeyPress
end
object MJQty1: TEdit
Left = 248
Top = 84
Width = 54
Height = 20
TabOrder = 1
end
object MJFK: TEdit
Left = 248
Top = 116
Width = 54
Height = 20
TabOrder = 3
end
object MJSJKZ: TEdit
Left = 356
Top = 96
Width = 54
Height = 20
TabOrder = 2
end
object MJQty2: TEdit
Left = 464
Top = 116
Width = 54
Height = 20
TabOrder = 4
end
end
object Panel2: TPanel
Left = 0
Top = 64
Width = 1710
Height = 714
Align = alClient
Caption = 'Panel2'
TabOrder = 2
object Label4: TLabel
Left = 508
Top = 144
Width = 36
Height = 12
Caption = 'Label4'
end
object Panel4: TPanel
Left = 1
Top = 1
Width = 569
Height = 712
Align = alLeft
TabOrder = 0
object cxGrid3: TcxGrid
Left = 1
Top = 25
Width = 567
Height = 686
Align = alClient
TabOrder = 0
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
Images = DataLink_TradeManage.ThreeImgList
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradeManage.TextSHuangSe
object cxGridDBColumn7: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'MjXH'
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'SOrddefstr1'
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #20013#25991#39068#33394
DataBinding.FieldName = 'prtcolor'
HeaderAlignmentHorz = taCenter
Width = 74
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #23458#25143#35746#21333#21495
DataBinding.FieldName = 'khorderno'
HeaderAlignmentHorz = taCenter
Width = 77
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = #25171#21367#26102#38388
DataBinding.FieldName = 'filltime'
HeaderAlignmentHorz = taCenter
Width = 76
end
object TV3Column1: TcxGridDBColumn
Caption = #38271#24230
DataBinding.FieldName = 'MJLen'
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV3Column2: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'mjqty4'
HeaderAlignmentHorz = taCenter
Width = 65
end
object TV3Column3: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'mjmaoz'
HeaderAlignmentHorz = taCenter
Width = 65
end
end
object cxGridLevel3: TcxGridLevel
GridView = TV3
end
end
object Panel5: TPanel
Left = 1
Top = 1
Width = 567
Height = 24
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #25552#20132#36807#24555#25968#25454
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
end
object Panel6: TPanel
Left = 570
Top = 1
Width = 1139
Height = 712
Align = alClient
Caption = 'Panel6'
TabOrder = 1
object cxGrid1: TcxGrid
Left = 1
Top = 415
Width = 1137
Height = 296
Align = alClient
TabOrder = 0
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource4
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradeManage.TextSHuangSe
object TV1Column6: TcxGridDBColumn
Caption = #36873#20013
DataBinding.FieldName = 'SSel'
HeaderAlignmentHorz = taCenter
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'mjxh'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'mjid'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'SOrddefstr1'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #20013#25991#39068#33394
DataBinding.FieldName = 'prtcolor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #23458#25143#35746#21333#21495
DataBinding.FieldName = 'khorderno'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #21024#38500#26102#38388
DataBinding.FieldName = 'deltime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object TV1Column1: TcxGridDBColumn
Caption = #21024#38500#20154
DataBinding.FieldName = 'deler'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object TV1Column2: TcxGridDBColumn
Caption = #38271#24230
DataBinding.FieldName = 'mjlen'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object TV1Column3: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'mjqty4'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object TV1Column4: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'mjmaoz'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object TV1Column5: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'MJstr4'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV1
end
end
object Panel7: TPanel
Left = 1
Top = 391
Width = 1137
Height = 24
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #21024#38500#25968#25454
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object Panel9: TPanel
Left = 1
Top = 1
Width = 1137
Height = 24
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #20462#25913#25968#25454
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object cxGrid4: TcxGrid
Left = 1
Top = 25
Width = 1137
Height = 129
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource3
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradeManage.TextSHuangSe
object TV4Column1: TcxGridDBColumn
Caption = #25805#20316#20154
DataBinding.FieldName = 'Operor'
HeaderAlignmentHorz = taCenter
Width = 59
end
object TV4Column2: TcxGridDBColumn
Caption = #25805#20316#26102#38388
DataBinding.FieldName = 'OperTime'
HeaderAlignmentHorz = taCenter
Width = 141
end
object cxGridDBColumn19: TcxGridDBColumn
Caption = #35760#24405
DataBinding.FieldName = 'OPEvent'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taRightJustify
Width = 767
end
end
object cxGridLevel4: TcxGridLevel
GridView = TV4
end
end
object Panel8: TPanel
Left = 1
Top = 279
Width = 1137
Height = 24
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #37325#25171#25968#25454
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
object cxGrid2: TcxGrid
Left = 1
Top = 303
Width = 1137
Height = 88
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradeManage.TextSHuangSe
object cxGridDBColumn13: TcxGridDBColumn
Caption = #25805#20316#20154
DataBinding.FieldName = 'Operor'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #25805#20316#26102#38388
DataBinding.FieldName = 'OperTime'
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #35760#24405
DataBinding.FieldName = 'OPEvent'
HeaderAlignmentHorz = taCenter
Width = 834
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
object Panel3: TPanel
Left = 1
Top = 154
Width = 1137
Height = 24
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #36339#21495#25968#25454
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
end
object cxGrid5: TcxGrid
Left = 1
Top = 178
Width = 1137
Height = 101
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
object Tv5: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource5
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradeManage.TextSHuangSe
object cxGridDBColumn20: TcxGridDBColumn
Caption = #25805#20316#20154
DataBinding.FieldName = 'Operor'
HeaderAlignmentHorz = taCenter
Width = 59
end
object cxGridDBColumn21: TcxGridDBColumn
Caption = #25805#20316#26102#38388
DataBinding.FieldName = 'OperTime'
HeaderAlignmentHorz = taCenter
Width = 141
end
object cxGridDBColumn22: TcxGridDBColumn
Caption = #35760#24405
DataBinding.FieldName = 'OPEvent'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taRightJustify
Width = 767
end
end
object cxGridLevel5: TcxGridLevel
GridView = Tv5
end
end
object PBhuif: TButton
Left = 804
Top = 416
Width = 181
Height = 85
Caption = #24674#22797#25968#25454
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
OnClick = PBhuifClick
end
end
end
object ADOTmp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 832
Top = 72
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 312
Top = 200
end
object ADOCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 832
Top = 40
end
object DataSource1: TDataSource
DataSet = Order_YC
Left = 380
Top = 200
end
object Order_YC: TClientDataSet
Aggregates = <>
Params = <>
Left = 344
Top = 200
end
object Order_CD: TClientDataSet
Aggregates = <>
Params = <>
Left = 832
Top = 396
end
object DataSource2: TDataSource
DataSet = Order_CD
Left = 904
Top = 404
end
object Order_XG: TClientDataSet
Aggregates = <>
Params = <>
Left = 668
Top = 136
end
object DataSource3: TDataSource
DataSet = Order_XG
Left = 716
Top = 140
end
object DataSource4: TDataSource
DataSet = Order_Del
Left = 856
Top = 572
end
object Order_Del: TClientDataSet
Aggregates = <>
Params = <>
Left = 812
Top = 556
end
object Order_TH: TClientDataSet
Aggregates = <>
Params = <>
Left = 1272
Top = 300
end
object DataSource5: TDataSource
DataSet = Order_TH
Left = 1324
Top = 300
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 728
Top = 564
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 640
Top = 528
end
end