object frmOrderInPut_New: TfrmOrderInPut_New Left = 188 Top = 136 Width = 1066 Height = 557 Caption = #29983#20135#25351#31034#21333#26032 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnShow = FormShow PixelsPerInch = 107 TextHeight = 13 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1050 Height = 29 ButtonHeight = 30 ButtonWidth = 79 Caption = 'ToolBar1' Color = clBtnFace EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] Images = DataLink_MYSC.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object TBSave: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 5 OnClick = TBSaveClick end object TBClose: TToolButton Left = 83 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object ScrollBox1: TScrollBox Left = 0 Top = 29 Width = 1050 Height = 199 Align = alTop BevelInner = bvNone BevelOuter = bvNone Color = clBtnFace Ctl3D = False ParentColor = False ParentCtl3D = False TabOrder = 1 object Label1: TLabel Left = 38 Top = 54 Width = 110 Height = 21 Caption = #25351#31034#21333#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Left = 305 Top = 54 Width = 88 Height = 21 Caption = #21512#21516#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 567 Top = 15 Width = 110 Height = 21 Caption = #19979#21333#26085#26399#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label14: TLabel Left = 38 Top = 15 Width = 90 Height = 21 Caption = #23458' '#25143#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 38 Top = 94 Width = 110 Height = 21 Caption = #20135#21697#21517#31216#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 38 Top = 132 Width = 90 Height = 21 Caption = #22791' '#27880#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 800 Top = 214 Width = 56 Height = 13 Caption = #19994#21153#21592#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label2: TLabel Left = 567 Top = 54 Width = 110 Height = 21 Caption = #24037#33402#20449#24687#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object MLConNo: TBtnEditC Tag = 2 Left = 389 Top = 49 Width = 150 Height = 30 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 3 OnBtnUpClick = MLConNoBtnUpClick OnBtnDnClick = KHNameBtnDnClick end object MLOrderNo: TEdit Tag = 2 Left = 138 Top = 51 Width = 126 Height = 27 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object OrdDate: TDateTimePicker Tag = 2 Left = 673 Top = 11 Width = 146 Height = 29 BevelInner = bvNone Date = 40916.670856296290000000 Format = 'yyyy-MM-dd' Time = 40916.670856296290000000 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object KHName: TBtnEditC Tag = 2 Left = 138 Top = 10 Width = 401 Height = 30 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 2 OnBtnUpClick = KHNameBtnUpClick OnBtnDnClick = KHNameBtnDnClick end object MLCodeName: TBtnEditC Tag = 2 Left = 138 Top = 90 Width = 291 Height = 30 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnBtnUpClick = MLCodeNameBtnUpClick OnBtnDnClick = KHNameBtnDnClick end object MLCodeNo: TEdit Tag = 2 Left = 431 Top = 91 Width = 108 Height = 27 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 5 end object MLNote: TMemo Tag = 2 Left = 138 Top = 131 Width = 401 Height = 56 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ScrollBars = ssVertical TabOrder = 6 end object YWY: TBtnEditC Tag = 2 Left = 869 Top = 210 Width = 232 Height = 21 TabOrder = 7 Visible = False OnBtnUpClick = YWYBtnUpClick OnBtnDnClick = KHNameBtnDnClick end object GYNote: TMemo Tag = 2 Left = 673 Top = 52 Width = 351 Height = 135 Hint = 'GYNote/'#24037#33402#20449#24687 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ScrollBars = ssVertical TabOrder = 8 OnDblClick = GYNoteDblClick end end object Panel1: TPanel Left = 0 Top = 228 Width = 727 Height = 289 Align = alClient TabOrder = 2 object ToolBar2: TToolBar Left = 1 Top = 1 Width = 725 Height = 29 ButtonHeight = 30 ButtonWidth = 123 Caption = 'ToolBar1' Color = clBtnFace EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] Images = DataLink_MYSC.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object ToolButton1: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 12 OnClick = ToolButton1Click end object ToolButton2: TToolButton Left = 83 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 13 OnClick = ToolButton2Click end object ToolButton3: TToolButton Left = 166 Top = 0 Caption = #19968#38190#26367#25442 ImageIndex = 102 OnClick = ToolButton3Click end end object cxGrid1: TcxGrid Left = 1 Top = 30 Width = 725 Height = 258 Align = alClient TabOrder = 1 object Tv1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = v1Qty end item Kind = skSum end item Kind = skSum end> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.FocusCellOnCycle = True OptionsCustomize.ColumnFiltering = False OptionsData.Deleting = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = cxStyle1 Styles.Inactive = cxStyle1 Styles.IncSearch = cxStyle1 Styles.Selection = cxStyle1 Styles.Header = cxStyle1 object v1XHNo: TcxGridDBColumn Caption = #24207#21495 DataBinding.FieldName = 'XHNo' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 64 end object v1MLColor: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'MLColor' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = False Properties.OnButtonClick = v1PRTColorPropertiesButtonClick HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 99 end object v1MLColorNo: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'MLColorNo' HeaderAlignmentHorz = taCenter Width = 113 end object v1QtyUnit: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 57 end object v1Qty: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'Qty' HeaderAlignmentHorz = taCenter Width = 103 end object v1MLHX: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'MLHX' HeaderAlignmentHorz = taCenter Width = 150 end object v1MXNote: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'MXNote' HeaderAlignmentHorz = taCenter Width = 127 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end end object Panel2: TPanel Left = 727 Top = 228 Width = 323 Height = 289 Align = alRight TabOrder = 3 Visible = False object cxGrid2: TcxGrid Left = 1 Top = 30 Width = 321 Height = 258 Align = alClient TabOrder = 0 object TV2: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = DSCON DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.FocusCellOnCycle = True OptionsCustomize.ColumnFiltering = False OptionsData.Deleting = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = cxStyle1 Styles.Inactive = cxStyle1 Styles.IncSearch = cxStyle1 Styles.Selection = cxStyle1 Styles.Header = cxStyle1 object V2GXXHNo: TcxGridDBColumn Caption = #24207#21495 DataBinding.FieldName = 'GXXHNo' HeaderAlignmentHorz = taCenter Width = 50 end object V2GXName: TcxGridDBColumn Caption = #24037#24207#21517#31216 DataBinding.FieldName = 'GXName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = V2GXNamePropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 99 end object V2GXNote: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'GXNote' HeaderAlignmentHorz = taCenter Width = 167 end end object cxGridLevel1: TcxGridLevel GridView = TV2 end end object ToolBar3: TToolBar Left = 1 Top = 1 Width = 321 Height = 29 ButtonHeight = 30 ButtonWidth = 79 Caption = 'ToolBar1' Color = clBtnFace EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] Images = DataLink_MYSC.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 1 object ToolButton4: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 12 OnClick = ToolButton4Click end object ToolButton5: TToolButton Left = 83 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 13 OnClick = ToolButton5Click end end end object ADOTemp: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> Left = 1251 Top = 33 end object ADOCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 1312 Top = 181 end object DataSource1: TDataSource DataSet = Order_Sub Left = 1252 Top = 94 end object Order_Sub: TClientDataSet Aggregates = <> Params = <> Left = 1274 Top = 159 end object ADOQuery1: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 1256 Top = 125 end object CDS_JGMX: TClientDataSet Aggregates = <> Params = <> Left = 986 Top = 464 end object DSCON: TDataSource DataSet = CDS_JGMX Left = 957 Top = 464 end object cxGridPopupMenu1: TcxGridPopupMenu PopupMenus = <> Left = 1251 Top = 63 end object ADOQueryCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 1288 Top = 121 end object ADOQueryTmp: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 1316 Top = 211 end object cxStyleRepository1: TcxStyleRepository object cxStyle1: TcxStyle AssignedValues = [svFont] Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] end end end