object frmCPRK_Other: TfrmCPRK_Other Left = 146 Top = 162 Width = 1146 Height = 508 Caption = #20837#24211#20449#24687 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 ToolBar1: TToolBar Left = 0 Top = 0 Width = 1130 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_TradeManage.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object TBSave: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 14 OnClick = TBSaveClick end object TBClose: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end end object Panel1: TPanel Left = 0 Top = 29 Width = 1130 Height = 76 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label1: TLabel Left = 24 Top = 20 Width = 52 Height = 12 Caption = #20837#24211#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 356 Top = 124 Width = 26 Height = 12 Caption = #24211#20301 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 804 Top = 20 Width = 54 Height = 12 Caption = #25968' '#37327 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label16: TLabel Left = 184 Top = 20 Width = 52 Height = 12 Caption = #20837#24211#31867#22411 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 352 Top = 20 Width = 52 Height = 12 Caption = #36864#36135#23458#25143 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 804 Top = 48 Width = 52 Height = 12 Caption = #22797#21046#34892#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 24 Top = 48 Width = 54 Height = 12 Caption = #22791' '#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object CRTIME: TDateTimePicker Left = 80 Top = 16 Width = 90 Height = 20 Date = 41505.718929398150000000 Format = 'yyyy-MM-dd' Time = 41505.718929398150000000 TabOrder = 0 end object kcKw: TBtnEditA Left = 384 Top = 120 Width = 133 Height = 20 TabOrder = 1 OnBtnClick = kcKwBtnClick end object Edit1: TEdit Left = 856 Top = 16 Width = 80 Height = 20 TabOrder = 2 OnKeyPress = Edit1KeyPress end object CRType: TComboBox Left = 240 Top = 16 Width = 90 Height = 20 Style = csDropDownList ItemHeight = 12 TabOrder = 3 Items.Strings = ( #26399#21021#20837#24211 #36864#36135#20837#24211) end object CustomerNoName: TBtnEditC Tag = 2 Left = 412 Top = 16 Width = 298 Height = 20 Hint = 'CustomerNo' ReadOnly = True TabOrder = 4 OnBtnUpClick = CustomerNoNameBtnUpClick OnBtnDnClick = CustomerNoNameBtnDnClick end object Edit2: TEdit Left = 856 Top = 44 Width = 80 Height = 20 TabOrder = 5 OnKeyPress = Edit2KeyPress end object note: TEdit Left = 80 Top = 44 Width = 629 Height = 20 TabOrder = 6 end end object cxGrid1: TcxGrid Left = 0 Top = 134 Width = 1130 Height = 275 Align = alTop TabOrder = 2 object Tv1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item Format = 'C_Code' Column = v1Column1 end> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = v1Column5 end item Kind = skSum Column = v1ClothUnit end item Kind = skSum Column = v1money end> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.FocusCellOnCycle = True OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnSorting = False OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.Indicator = True Styles.Header = DataLink_TradeManage.Default object v1MJXH: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'MJXH' HeaderAlignmentHorz = taCenter Width = 60 end object v1MJId: TcxGridDBColumn Caption = #21367#26465#30721 DataBinding.FieldName = 'MJId' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 88 end object v1Column8: TcxGridDBColumn Caption = #26412#21378#32568#21495 DataBinding.FieldName = 'BCGangNo' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 66 end object v1Column1: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_CodeName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1Column1PropertiesButtonClick Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Styles.Header = DataLink_TradeManage.Default Width = 100 end object v1PRTSpec: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' HeaderAlignmentHorz = taCenter Options.Sorting = False Styles.Header = DataLink_TradeManage.handBlack Width = 124 end object v1PRTKZ: TcxGridDBColumn Caption = #38376#24133'(cm)' DataBinding.FieldName = 'MFQty' Visible = False HeaderAlignmentHorz = taCenter Options.Sorting = False Styles.Header = DataLink_TradeManage.handBlack Width = 80 end object v1PRTColor: TcxGridDBColumn Caption = #20811#37325'(g/'#13217')' DataBinding.FieldName = 'KZQty' Visible = False HeaderAlignmentHorz = taCenter Options.Sorting = False Styles.Header = DataLink_TradeManage.handBlack Width = 78 end object v1ClothQty: TcxGridDBColumn Caption = #35745#20215#21333#20301 DataBinding.FieldName = 'PriceUnit' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True Visible = False HeaderAlignmentHorz = taCenter Options.Sorting = False Styles.Header = DataLink_TradeManage.handBlack Width = 69 end object v1C_Color: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1C_ColorPropertiesButtonClick Properties.OnEditValueChanged = v1C_ColorPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 80 end object v1CRType: TcxGridDBColumn Caption = #31561#32423 DataBinding.FieldName = 'CPType' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsEditFixedList Properties.Items.Strings = ( #27491#21697 #19968#31561#27425#21697 #20108#31561#27425#21697) Properties.ReadOnly = False HeaderAlignmentHorz = taCenter Width = 60 end object v1Column5: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'RollNum' HeaderAlignmentHorz = taCenter Styles.Header = DataLink_TradeManage.Default Width = 97 end object v1ClothUnit: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'Qty' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '0.00' Properties.OnEditValueChanged = v1PricePropertiesEditValueChanged HeaderAlignmentHorz = taCenter Styles.Header = DataLink_TradeManage.handBlack Width = 115 end object v1Column2: TcxGridDBColumn Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'QtyUnit' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( 'M' 'Kg') HeaderAlignmentHorz = taCenter Styles.Header = DataLink_TradeManage.Default Width = 64 end object v1Column3: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'price' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '0.00' Visible = False HeaderAlignmentHorz = taCenter Styles.Header = DataLink_TradeManage.Default Width = 46 end object v1Price: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1PricePropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 80 end object v1money: TcxGridDBColumn Tag = 1 Caption = #37329#39069 DataBinding.FieldName = 'Money' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Header = DataLink_TradeManage.handBlack Width = 100 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object ToolBar2: TToolBar Left = 0 Top = 105 Width = 1130 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_TradeManage.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 3 object ToolButton1: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 103 Visible = False OnClick = ToolButton1Click end object ToolButton2: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 107 OnClick = ToolButton2Click end end object ADOQueryTmp: TADOQuery Connection = DataLink_TradeManage.ADOLink Parameters = <> Left = 436 end object ADOQueryCmd: TADOQuery Connection = DataLink_TradeManage.ADOLink Parameters = <> Left = 652 Top = 20 end object DataSource1: TDataSource DataSet = CDS_main Left = 536 Top = 5 end object CDS_main: TClientDataSet Aggregates = <> Params = <> Left = 360 Top = 116 end object ADOQueryTemp: TADOQuery Connection = DataLink_TradeManage.ADOLink LockType = ltReadOnly Parameters = <> Left = 684 end end