D7XHshengfang/盛纺贸易管理/U_MJEdit.dfm
DESKTOP-E401PHE\Administrator 0cb161cfb3 ~
2025-04-30 23:58:03 +08:00

512 lines
11 KiB
Plaintext

object frmMJEdit: TfrmMJEdit
Left = 191
Top = 136
Width = 1147
Height = 688
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
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1131
Height = 30
ButtonHeight = 30
ButtonWidth = 83
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 ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 103
OnClick = ToolButton1Click
end
object ToolButton3: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 107
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 58
OnClick = ToolButton2Click
end
object ToolButton4: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20316#24223
ImageIndex = 48
OnClick = ToolButton4Click
end
object TBQPrint: TToolButton
Left = 252
Top = 0
AutoSize = True
Caption = #26631#31614#25171#21360
ImageIndex = 12
OnClick = TBQPrintClick
end
object TBClose: TToolButton
Left = 339
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 30
Width = 1131
Height = 74
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 25
Top = 16
Width = 52
Height = 12
Caption = #24067#21305#26465#30721
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 Label4: TLabel
Left = 459
Top = 20
Width = 24
Height = 12
Caption = #27611#37325
end
object M: TLabel
Left = 428
Top = 20
Width = 6
Height = 12
Caption = 'M'
OnDblClick = MDblClick
end
object Label6: TLabel
Left = 343
Top = 20
Width = 24
Height = 12
Caption = #38271#24230
end
object Ma: TLabel
Left = 296
Top = 100
Width = 6
Height = 12
Caption = 'M'
end
object Label7: TLabel
Left = 211
Top = 100
Width = 24
Height = 12
Caption = #21407#30721
end
object Label5: TLabel
Left = 332
Top = 104
Width = 6
Height = 12
Caption = 'M'
end
object Label8: TLabel
Left = 563
Top = 20
Width = 24
Height = 12
Caption = #24133#23485
end
object Label9: TLabel
Left = 644
Top = 20
Width = 12
Height = 12
Caption = 'cm'
end
object Label10: TLabel
Left = 540
Top = 20
Width = 12
Height = 12
Caption = 'Kg'
end
object Label3: TLabel
Left = 563
Top = 44
Width = 24
Height = 12
Caption = #20811#37325
end
object Label11: TLabel
Left = 644
Top = 44
Width = 24
Height = 12
Caption = 'g/'#13217
end
object Label13: TLabel
Left = 343
Top = 44
Width = 24
Height = 12
Caption = #36192#36865
end
object Label12: TLabel
Left = 459
Top = 44
Width = 24
Height = 12
Caption = #20928#37325
end
object Label14: TLabel
Left = 540
Top = 44
Width = 12
Height = 12
Caption = 'Kg'
end
object Label15: TLabel
Left = 231
Top = 20
Width = 24
Height = 12
Caption = #21367#21495
end
object Label16: TLabel
Left = 231
Top = 44
Width = 24
Height = 12
Caption = #32568#21495
end
object Label17: TLabel
Left = 25
Top = 48
Width = 52
Height = 12
Caption = #25171#21360#20221#25968
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object MJID: TEdit
Left = 80
Top = 10
Width = 110
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnKeyPress = MJIDKeyPress
end
object MJMaoZ: TEdit
Left = 484
Top = 16
Width = 54
Height = 20
TabOrder = 1
end
object MJLen: TEdit
Left = 368
Top = 16
Width = 54
Height = 20
TabOrder = 2
end
object RadioGroup1: TRadioGroup
Left = 680
Top = 3
Width = 153
Height = 58
Columns = 3
ItemIndex = 0
Items.Strings = (
#27491#21697
#27425#21697)
TabOrder = 3
end
object MJQty1: TEdit
Left = 236
Top = 100
Width = 54
Height = 20
TabOrder = 4
end
object MJFK: TEdit
Left = 588
Top = 16
Width = 54
Height = 20
TabOrder = 5
end
object MJSJKZ: TEdit
Left = 588
Top = 40
Width = 54
Height = 20
TabOrder = 6
end
object MJQty2: TEdit
Left = 368
Top = 40
Width = 54
Height = 20
TabOrder = 7
end
object MJQty4: TEdit
Left = 484
Top = 40
Width = 54
Height = 20
TabOrder = 8
end
object MJXH: TEdit
Left = 256
Top = 16
Width = 54
Height = 20
TabOrder = 9
end
object MJStr4: TEdit
Left = 256
Top = 40
Width = 54
Height = 20
TabOrder = 10
end
object FS: TComboBox
Left = 80
Top = 42
Width = 112
Height = 23
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 15
ItemIndex = 0
ParentFont = False
TabOrder = 11
Text = '1'
Items.Strings = (
'1'
'2'
'3'
'4')
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 104
Width = 1131
Height = 545
Align = alClient
TabOrder = 2
object Tv2: 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
Column = Tv2CDQty
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Header = DataLink_TradeManage.TextSHuangSe
object tv2CDType: TcxGridDBColumn
Caption = #30133#28857#21517#31216
DataBinding.FieldName = 'CDName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = tv2CDTypePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Content = DataLink_TradeManage.Default
Width = 144
end
object tv2CDWZ: TcxGridDBColumn
Caption = #20010#25968
DataBinding.FieldName = 'CDBeg'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = tv2CDWZPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Sorting = False
Styles.Content = DataLink_TradeManage.Default
Width = 96
end
object v2Column2: TcxGridDBColumn
Caption = #20844#26020#25968
DataBinding.FieldName = 'CDend'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Styles.Content = DataLink_TradeManage.Default
Width = 93
end
object Tv2CDQty: TcxGridDBColumn
Caption = #38271#24230
DataBinding.FieldName = 'CDQty'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Content = DataLink_TradeManage.Default
Width = 93
end
object Tv2CDReason: TcxGridDBColumn
Caption = #36127#36131#20154
DataBinding.FieldName = 'CDReason'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 131
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
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_MJ
Left = 528
Top = 200
end
object Order_MJ: TClientDataSet
Aggregates = <>
Params = <>
Left = 344
Top = 200
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 327
Top = 230
end
object RMDBMain: TRMDBDataSet
Visible = True
DataSet = ADOQueryPrint
Left = 541
Top = 160
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 = RMDBMain
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 397
Top = 244
ReportData = {}
end
end