D7wmhengming/坯布码单待检(PBMDDJ.dll)/U_MJManageNewFDNewLable.dfm

1291 lines
32 KiB
Plaintext
Raw Permalink Normal View History

2025-04-16 09:11:01 +08:00
object frmMJManageNewFDNewLable: TfrmMJManageNewFDNewLable
Left = 76
Top = 32
Width = 1286
Height = 700
Caption = #25104#21697#26816#39564
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClick = FormClick
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object cxGrid3: TcxGrid
Left = 203
Top = 81
Width = 360
Height = 580
Align = alLeft
TabOrder = 0
object Tv3: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
OnCellClick = Tv3CellClick
DataController.DataSource = DataSource3
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
Column = v3Column2
end
item
Kind = skSum
Column = v3Column4
end
item
Kind = skCount
Column = v3Column1
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = cxStyle4
Styles.IncSearch = cxStyle4
Styles.Selection = cxStyle4
object cxGridDBColumn1: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
Styles.Content = cxStyle5
Styles.Header = cxStyle5
Width = 92
end
object v3Column2: TcxGridDBColumn
Caption = #31859#25968#37327
DataBinding.FieldName = 'MJLen'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle3
Styles.Footer = cxStyle3
Styles.Header = cxStyle3
Width = 72
end
object v3Column4: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'MJMaoZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle3
Styles.Footer = cxStyle3
Styles.Header = cxStyle3
Width = 61
end
object v3Column3: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'MJType'
Options.Editing = False
Styles.Content = cxStyle5
Styles.Header = cxStyle5
Width = 53
end
object v3Column1: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'MJXH'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle4
Styles.Footer = cxStyle4
Styles.Header = cxStyle4
Width = 57
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv3
end
end
object Panel2: TPanel
Left = 0
Top = 81
Width = 203
Height = 580
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Label9: TLabel
Left = 160
Top = 159
Width = 15
Height = 22
Caption = 'M'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
OnClick = Label9Click
end
object Label3: TLabel
Left = 160
Top = 246
Width = 26
Height = 22
Caption = 'cm'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 160
Top = 109
Width = 28
Height = 22
Caption = 'KG'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 19
Top = 155
Width = 40
Height = 23
Caption = #38271#24230
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 19
Top = 242
Width = 40
Height = 23
Caption = #24133#23485
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 19
Top = 109
Width = 40
Height = 23
Caption = #27611#37325
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 19
Top = 339
Width = 40
Height = 23
Caption = #27491#21697
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 104
Top = 339
Width = 40
Height = 22
Caption = #27425#21697
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 358
Top = 54
Width = 15
Height = 22
Caption = 'M'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 207
Top = 58
Width = 60
Height = 23
Caption = #21407#25968#37327
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Visible = False
end
object Label15: TLabel
Left = 81
Top = 282
Width = 5
Height = 22
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Visible = False
end
object Label22: TLabel
Left = 160
Top = 289
Width = 36
Height = 22
Caption = 'g/'#13217
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label23: TLabel
Left = 19
Top = 288
Width = 40
Height = 23
Caption = #20811#37325
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 19
Top = 201
Width = 40
Height = 23
Caption = #36192#36865
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label28: TLabel
Left = 19
Top = 390
Width = 40
Height = 22
Caption = #22810#25340
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label26: TLabel
Left = 103
Top = 437
Width = 40
Height = 22
Caption = #20986#32440
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label29: TLabel
Left = 204
Top = 14
Width = 58
Height = 23
Caption = #26588' '#21495
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Visible = False
end
object Label30: TLabel
Left = 19
Top = 18
Width = 40
Height = 23
Caption = #30382#37325
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label31: TLabel
Left = 160
Top = 63
Width = 28
Height = 22
Caption = 'KG'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label32: TLabel
Left = 19
Top = 63
Width = 40
Height = 23
Caption = #20928#37325
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label33: TLabel
Left = 160
Top = 18
Width = 28
Height = 22
Caption = 'KG'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label34: TLabel
Left = 19
Top = 438
Width = 40
Height = 22
Caption = #20221#25968
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object MJFK: TEdit
Left = 63
Top = 237
Width = 90
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnChange = MJFKChange
OnClick = MJLenMaClick
OnKeyPress = MJstr3KeyPress
end
object MJLen: TEdit
Left = 63
Top = 146
Width = 90
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnChange = MJLenChange
OnClick = MJLenMaClick
OnExit = MJLenExit
OnKeyPress = MJLenKeyPress
end
object MJMaoZ: TEdit
Left = 63
Top = 100
Width = 90
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnChange = MJMaoZChange
OnClick = MJLenMaClick
OnExit = MJMaoZExit
OnKeyPress = MJMaoZKeyPress
end
object BTPrint: TButton
Left = 3
Top = 492
Width = 83
Height = 54
Caption = #25171#21360
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnClick = BTPrintClick
OnKeyPress = BTPrintKeyPress
end
object Button5: TButton
Left = 115
Top = 492
Width = 83
Height = 54
Caption = #37325#25171
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
OnClick = Button5Click
end
object Edit3: TEdit
Left = 64
Top = 329
Width = 39
Height = 43
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 10
Text = #8730
OnClick = Edit3Click
OnKeyPress = MJstr3KeyPress
end
object Edit4: TEdit
Left = 142
Top = 329
Width = 40
Height = 43
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 11
OnClick = Edit4Click
OnKeyPress = MJstr3KeyPress
end
object MJQty1: TEdit
Left = 261
Top = 49
Width = 90
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Visible = False
OnClick = MJLenMaClick
OnKeyPress = MJstr3KeyPress
end
object MJSJKZ: TEdit
Left = 63
Top = 279
Width = 90
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
OnChange = MJFKChange
OnClick = MJLenMaClick
OnKeyPress = MJstr3KeyPress
end
object MJQty2: TEdit
Left = 63
Top = 192
Width = 90
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnChange = MJQty2Change
OnKeyPress = MJQty2KeyPress
end
object Edit5: TEdit
Left = 64
Top = 380
Width = 39
Height = 43
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 12
OnClick = Edit5Click
OnKeyPress = MJstr3KeyPress
end
object Edit6: TEdit
Left = 142
Top = 427
Width = 40
Height = 43
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 13
Text = #8730
OnClick = Edit6Click
OnKeyPress = MJstr3KeyPress
end
object MJstr3: TEdit
Left = 261
Top = 9
Width = 90
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Visible = False
OnClick = MJLenMaClick
OnKeyPress = MJstr3KeyPress
end
object MJQty3: TEdit
Left = 63
Top = 9
Width = 90
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = MJLenMaClick
OnExit = MJQty3Exit
OnKeyPress = MJstr3KeyPress
end
object MJQty4: TEdit
Left = 63
Top = 54
Width = 90
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnChange = MJQty4Change
OnExit = MJQty4Exit
OnKeyPress = MJQty4KeyPress
end
object ComboBox1: TComboBox
Left = 64
Top = 430
Width = 39
Height = 40
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ItemHeight = 32
ItemIndex = 0
ParentFont = False
TabOrder = 15
Text = '1'
Items.Strings = (
'1'
'2'
'3'
'4')
end
object MJLenMa: TEdit
Left = 181
Top = 146
Width = 68
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 16
Visible = False
OnClick = MJLenMaClick
OnExit = MJLenExit
OnKeyPress = MJLenKeyPress
end
object DuoPinNote: TEdit
Left = 102
Top = 387
Width = 80
Height = 32
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'Arial Narrow'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 17
OnClick = MJLenMaClick
OnKeyPress = MJQty2KeyPress
end
object ZSUnit: TComboBox
Left = 151
Top = 195
Width = 53
Height = 37
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 29
ItemIndex = 0
ParentFont = False
TabOrder = 18
Text = 'KG'
Items.Strings = (
'KG'
'M'
'Y')
end
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 1270
Height = 81
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Panel5: TPanel
Left = 2
Top = 2
Width = 1266
Height = 77
Align = alClient
TabOrder = 0
object Panel6: TPanel
Left = 1
Top = 31
Width = 1264
Height = 48
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label1: TLabel
Left = 9
Top = 16
Width = 80
Height = 19
Caption = #25195#25551#20837#21475
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 653
Top = 15
Width = 42
Height = 20
Caption = #32568#21495
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label16: TLabel
Left = 1088
Top = 13
Width = 42
Height = 12
Caption = 'Label16'
Visible = False
end
object Label24: TLabel
Left = 357
Top = 15
Width = 63
Height = 20
Caption = #35746#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label25: TLabel
Left = 509
Top = 15
Width = 42
Height = 20
Caption = #39068#33394
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label35: TLabel
Left = 997
Top = 15
Width = 80
Height = 19
Caption = #33258#21160#21462#20540
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label36: TLabel
Left = 805
Top = 15
Width = 60
Height = 19
Caption = #25353#32568#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object APID: TEdit
Left = 88
Top = 12
Width = 185
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = APIDClick
OnKeyPress = APIDKeyPress
end
object BTAdd: TButton
Left = 1211
Top = 8
Width = 46
Height = 25
Caption = #26032#22686
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Visible = False
OnClick = BTAddClick
end
object BTEdit: TButton
Left = 1155
Top = 8
Width = 38
Height = 25
Caption = #20462#25913
TabOrder = 2
Visible = False
OnClick = BTEditClick
end
object Button3: TButton
Left = 272
Top = 13
Width = 63
Height = 25
Caption = #30830#23450
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = Button3Click
end
object Edit7: TEdit
Left = 968
Top = 12
Width = 28
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 4
Text = #8730
Visible = False
OnClick = Edit7Click
end
object Edit8: TEdit
Left = 776
Top = 12
Width = 28
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 5
Visible = False
OnClick = Edit8Click
end
end
object ToolBar1: TToolBar
Left = 1
Top = 1
Width = 1264
Height = 30
ButtonHeight = 30
ButtonWidth = 95
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_CYZZ.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = ToolButton1Click
end
object TBCD: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #30133#28857#31649#29702
ImageIndex = 22
Visible = False
OnClick = TBCDClick
end
object ToolButton2: TToolButton
Left = 150
Top = 0
Caption = #25351#31034#21333#20449#24687
ImageIndex = 25
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 245
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
end
end
object Panel7: TPanel
Left = 563
Top = 81
Width = 707
Height = 580
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 3
object Panel1: TPanel
Left = 2
Top = 2
Width = 703
Height = 576
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object BZNote: TRichEdit
Left = 2
Top = 2
Width = 699
Height = 259
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
end
object RMPreview1: TRMPreview
Left = 2
Top = 261
Width = 699
Height = 313
Align = alClient
BevelOuter = bvLowered
Caption = 'Insert After'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 1
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
end
end
end
object cxStyleRepository1: TcxStyleRepository
Left = 608
Top = 8
object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont]
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle2: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Pitch = fpFixed
Font.Style = [fsBold]
TextColor = clDefault
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 400
end
object DataSource1: TDataSource
DataSet = Order_MJ
Left = 672
end
object Order_MJ: TClientDataSet
Aggregates = <>
Params = <>
Left = 560
Top = 8
end
object ADOQueryMain: TADOQuery
Connection = DataLink_CYZZ.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 576
end
object ADOCmd: TADOQuery
Connection = DataLink_CYZZ.ADOLink
Parameters = <>
Left = 536
end
object ADOTmp: TADOQuery
Connection = DataLink_CYZZ.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 576
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = ADOQueryPrint
Left = 648
end
object RM2: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 464
ReportData = {}
end
object DataSource2: TDataSource
DataSet = CDS_MJCD
Left = 696
end
object CDS_MJCD: TClientDataSet
Aggregates = <>
Params = <>
Left = 744
end
object DataSource3: TDataSource
DataSet = CDS_MJID
Left = 1000
Top = 296
end
object CDS_MJID: TClientDataSet
Aggregates = <>
Params = <>
Left = 1016
Top = 312
end
object Timer1: TTimer
Interval = 100
Left = 944
Top = 320
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_CYZZ.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 720
end
object cxStyleRepository2: TcxStyleRepository
Left = 312
object cxStyle3: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBlue
end
end
object cxStyleRepository3: TcxStyleRepository
Left = 344
object cxStyle4: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clRed
end
end
object cxStyleRepository4: TcxStyleRepository
Left = 104
object cxStyle5: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clOlive
end
end
object cxStyleRepository5: TcxStyleRepository
Left = 280
object cxStyle6: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end
object cxGridPopupMenu2: TcxGridPopupMenu
PopupMenus = <>
Left = 616
Top = 587
end
object ADOQueryMainDSC: TADOQuery
Connection = DataLink_CYZZ.ADOLink
LockType = ltReadOnly
Parameters = <>
SQL.Strings = (
'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,'
' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,'
' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' +
'e WM.APId=A.APId and len(WM.MJID)>8),'
' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' +
'FB_MJJY WM where WM.APId=A.APId )>0 '
' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' +
'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty'
'from WFBOrder_Sub_AnPai A '
'inner join WFBOrder_Sub B on A.SubId=B.SubId'
'inner join WFBOrder_Main C on A.MainId=C.MainId'
'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 +
' '
'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1'
'')
Left = 840
Top = 144
end
object ADOQueryLabel: TADOQuery
Connection = DataLink_CYZZ.ADOLink
LockType = ltReadOnly
Parameters = <>
SQL.Strings = (
'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,'
' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,'
' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' +
'e WM.APId=A.APId and len(WM.MJID)>8),'
' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' +
'FB_MJJY WM where WM.APId=A.APId )>0 '
' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' +
'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty'
'from WFBOrder_Sub_AnPai A '
'inner join WFBOrder_Sub B on A.SubId=B.SubId'
'inner join WFBOrder_Main C on A.MainId=C.MainId'
'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 +
' '
'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1'
'')
Left = 827
Top = 459
end
object RMGridReport1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
ModalPreview = False
ShowProgress = False
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
Preview = RMPreview1
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 676
Top = 450
ReportData = {}
end
end