object frmCGMian: TfrmCGMian Left = 211 Top = 68 Width = 1292 Height = 658 BorderIcons = [biSystemMenu] Caption = #26825#37319#36141#24405#20837 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object Label6: TLabel Left = 756 Top = 332 Width = 36 Height = 12 Caption = 'Label6' end object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1276 Height = 29 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_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 = 15 OnClick = TBSaveClick end object TBClose: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object Panel1: TPanel Left = 0 Top = 29 Width = 1276 Height = 127 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label1: TLabel Left = 375 Top = 27 Width = 68 Height = 16 Caption = #30331#35760#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 63 Top = 27 Width = 51 Height = 16 Caption = #20379#24212#21830 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 616 Top = 27 Width = 68 Height = 16 Caption = #20132#36135#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 80 Top = 69 Width = 34 Height = 16 Caption = #22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object CRTime: TDateTimePicker Tag = 2 Left = 451 Top = 23 Width = 120 Height = 24 Date = 41509.970132187500000000 Format = 'yyyy-MM-dd' Time = 41509.970132187500000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ParentFont = False TabOrder = 0 end object JHDate: TDateTimePicker Tag = 2 Left = 698 Top = 23 Width = 120 Height = 24 Date = 41509.970132187500000000 Format = 'yyyy-MM-dd' Time = 41509.970132187500000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ParentFont = False TabOrder = 1 end object Note: TMemo Tag = 2 Left = 119 Top = 62 Width = 565 Height = 36 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ScrollBars = ssVertical TabOrder = 2 end object GYSName: TBtnEditA Tag = 2 Left = 119 Top = 21 Width = 247 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 3 OnBtnClick = GYSNameBtnClick end end object cxGrid1: TcxGrid Left = 0 Top = 185 Width = 1276 Height = 434 Align = alClient TabOrder = 3 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item Format = 'C_Code' Column = v1CodeName end> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum Column = v1Qty end item Kind = skSum end item Kind = skSum end item Kind = skSum Column = v1Column2 end> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.FocusCellOnCycle = True OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.Indicator = True Styles.Header = DataLink_MYSC.Default object v1CodeName: TcxGridDBColumn Caption = #20844#21496#21697#21517 DataBinding.FieldName = 'CPName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1CodeNamePropertiesButtonClick HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 120 end object v1MF: TcxGridDBColumn Caption = #20379#24212#21830#21697#21517 DataBinding.FieldName = 'GYSCPName' HeaderAlignmentHorz = taCenter Width = 120 end object Tv1Column1: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'MF' HeaderAlignmentHorz = taCenter Width = 100 end object v1KZ: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'KZ' HeaderAlignmentHorz = taCenter Width = 100 end object v1Qty: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'Qty' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Options.Sorting = False Styles.Content = DataLink_MYSC.FontBlue Styles.Footer = DataLink_MYSC.FontBlue Styles.Header = DataLink_MYSC.FontBlue Width = 86 end object Tv1Column2: TcxGridDBColumn Caption = #21305#38271 DataBinding.FieldName = 'PiChang' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Styles.Content = DataLink_MYSC.FontBlue Styles.Footer = DataLink_MYSC.FontBlue Styles.Header = DataLink_MYSC.FontBlue Width = 72 end object v1Column2: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'ps' HeaderAlignmentHorz = taCenter Styles.Content = DataLink_MYSC.FontBlue Styles.Footer = DataLink_MYSC.FontBlue Styles.Header = DataLink_MYSC.FontBlue Width = 72 end object v1Note: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'MXNote' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1NotePropertiesButtonClick HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 179 end object Tv1Column3: TcxGridDBColumn Caption = #24037#21378#21697#21517#19982#36135#21495 DataBinding.FieldName = 'PMHH' HeaderAlignmentHorz = taCenter Width = 120 end object Tv1Column4: TcxGridDBColumn Caption = #36741#26009#22791#27880 DataBinding.FieldName = 'FLNote' HeaderAlignmentHorz = taCenter Width = 100 end object Tv1Column5: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = Tv1Column5PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 100 end object Tv1Column6: TcxGridDBColumn Caption = #23458#25143#32534#21495 DataBinding.FieldName = 'KHNo' HeaderAlignmentHorz = taCenter Width = 100 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object ToolBar2: TToolBar Left = 0 Top = 156 Width = 1276 Height = 29 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_MYSC.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 2 object ToolButton1: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 57 OnClick = ToolButton1Click end object ToolButton2: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 113 OnClick = ToolButton2Click end end object ADOQueryCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 350 Top = 221 end object ADOQueryTmp: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 387 Top = 220 end object DataSource1: TDataSource DataSet = CDS_Main Left = 392 Top = 266 end object CDS_Main: TClientDataSet Aggregates = <> Params = <> Left = 352 Top = 265 end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 562 Top = 4 end object ADOCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 317 Top = 219 end object ADOTemp: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 432 Top = 221 end object ADOQuery1: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 466 Top = 225 end end