object frmCHHZList: TfrmCHHZList Left = 150 Top = 116 Width = 1060 Height = 614 Caption = #20986#36135#21512#35745#28165#21333 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 = 1044 AutoSize = True ButtonHeight = 30 ButtonWidth = 59 Caption = 'ToolBar1' Color = clSkyBlue Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_DDMD.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object TBRafresh: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #21047#26032 ImageIndex = 0 OnClick = TBRafreshClick end object TBFind: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #36807#28388 ImageIndex = 20 Visible = False OnClick = TBFindClick end object ToolButton2: TToolButton Left = 126 Top = 0 AutoSize = True Caption = #25512#36865 ImageIndex = 22 OnClick = ToolButton2Click end object ToolButton1: TToolButton Left = 189 Top = 0 AutoSize = True Caption = #23548#20986 ImageIndex = 26 OnClick = ToolButton1Click end object TBClose: TToolButton Left = 252 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object Panel1: TPanel Left = 0 Top = 32 Width = 1044 Height = 49 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label1: TLabel Left = 12 Top = 12 Width = 48 Height = 12 Caption = #25253#20851#26085#26399 end object Label16: TLabel Left = 371 Top = 11 Width = 24 Height = 12 Caption = #37096#38376 end object Label17: TLabel Left = 523 Top = 12 Width = 36 Height = 12 Caption = #21161' '#29702 end object Label2: TLabel Left = 674 Top = 10 Width = 24 Height = 12 Caption = #32452#38271 end object Label3: TLabel Left = 155 Top = 11 Width = 30 Height = 12 Caption = '-----' end object EndDate: TDateTimePicker Left = 184 Top = 9 Width = 86 Height = 20 Date = 40768.458268587970000000 Time = 40768.458268587970000000 TabOrder = 0 end object bm: TEdit Tag = 2 Left = 403 Top = 7 Width = 100 Height = 20 CharCase = ecUpperCase TabOrder = 1 OnChange = bmChange end object YWY: TEdit Tag = 2 Left = 564 Top = 7 Width = 100 Height = 20 CharCase = ecUpperCase TabOrder = 2 OnChange = YWYChange end object zz: TEdit Tag = 2 Left = 706 Top = 6 Width = 100 Height = 20 CharCase = ecUpperCase TabOrder = 3 OnChange = YWYChange end object BEGDATE: TDateTimePicker Left = 64 Top = 9 Width = 86 Height = 20 Date = 40768.458268587970000000 Time = 40768.458268587970000000 TabOrder = 4 end end object cxGrid2: TcxGrid Left = 0 Top = 141 Width = 1044 Height = 317 Align = alClient TabOrder = 2 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = < item Kind = skSum Position = spFooter end item Kind = skSum Position = spFooter end item Kind = skSum Position = spFooter end> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum FieldName = 'YEARusd' Column = TV1Column4 end item Kind = skSum FieldName = 'monthusd' Column = TV1Column2 end item Kind = skSum FieldName = 'WEEKUSD' Column = TV1Column15 end item Kind = skSum Column = TV1Column12 end item Kind = skSum Column = TV1Column13 end item Kind = skSum Column = TV1Column16 end> DataController.Summary.SummaryGroups = <> OptionsBehavior.GoToNextCellOnEnter = True OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.GroupFooters = gfAlwaysVisible Styles.Content = cxStyle1 Styles.Inactive = cxStyle1 Styles.IncSearch = cxStyle1 Styles.Selection = cxStyle1 Styles.Header = cxStyle1 object TV1Column8: TcxGridDBColumn Caption = #37096#38376 DataBinding.FieldName = 'bm' HeaderAlignmentHorz = taCenter Options.CellMerging = True Width = 75 end object TV1Column11: TcxGridDBColumn Caption = #32452#38271 DataBinding.FieldName = 'zz' HeaderAlignmentHorz = taCenter Options.CellMerging = True Width = 78 end object TV1Column14: TcxGridDBColumn Caption = #21161#29702 DataBinding.FieldName = 'YWY' HeaderAlignmentHorz = taCenter Width = 69 end object TV1Column9: TcxGridDBColumn Caption = #24066#22330 DataBinding.FieldName = 'TOCOUNTRY1' HeaderAlignmentHorz = taCenter Width = 76 end object TV1Column15: TcxGridDBColumn Caption = #21608#32047#35745'(USD)' DataBinding.FieldName = 'usdweekmoney' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '$,0.00;$-,0.00' HeaderAlignmentHorz = taCenter Width = 100 end object TV1Column2: TcxGridDBColumn Caption = #26376#32047#35745'(USD)' DataBinding.FieldName = 'usdmonthmoney' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '$,0.00;$-,0.00' HeaderAlignmentHorz = taCenter Width = 100 end object TV1Column4: TcxGridDBColumn Caption = #24180#32047#35745'(USD)' DataBinding.FieldName = 'usdYEARmoney' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '$,0.00;$-,0.00' HeaderAlignmentHorz = taCenter Width = 108 end object TV1Column6: TcxGridDBColumn Caption = #32452#21608#32047#35745'(USD)' DataBinding.FieldName = 'zWEEKUSD' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '$,0.00;$-,0.00' HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.CellMerging = True Width = 143 OnCompareRowValuesForCellMerging = TV1Column10CompareRowValuesForCellMerging end object TV1Column7: TcxGridDBColumn Caption = #32452#26376#32047#35745'(USD)' DataBinding.FieldName = 'ZMONTHUSD' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '$,0.00;$-,0.00' HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.CellMerging = True Width = 149 OnCompareRowValuesForCellMerging = TV1Column10CompareRowValuesForCellMerging end object TV1Column10: TcxGridDBColumn Caption = #32452#24180#32047#35745'(USD)' DataBinding.FieldName = 'ZYEARUSD' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '$,0.00;$-,0.00' HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.CellMerging = True Width = 135 OnCompareRowValuesForCellMerging = TV1Column10CompareRowValuesForCellMerging end object TV1Column5: TcxGridDBColumn DataBinding.FieldName = 'WEEKUSD' Visible = False Width = 70 end object TV1Column1: TcxGridDBColumn DataBinding.FieldName = 'YEARUSD' Visible = False Width = 70 end object TV1Column3: TcxGridDBColumn DataBinding.FieldName = 'MONTHUSD' Visible = False Width = 70 end object TV1Column12: TcxGridDBColumn DataBinding.FieldName = 'nfrmbw' Visible = False Width = 66 end object TV1Column13: TcxGridDBColumn DataBinding.FieldName = 'nfrmbm' Visible = False Width = 66 end object TV1Column16: TcxGridDBColumn DataBinding.FieldName = 'nfrmby' Visible = False Width = 66 end end object cxGridLevel1: TcxGridLevel GridView = TV1 end end object Panel2: TPanel Left = 0 Top = 458 Width = 1044 Height = 117 Align = alBottom TabOrder = 3 object Label4: TLabel Left = 27 Top = 7 Width = 144 Height = 24 Caption = #26412#21608#21512#35745'USD:' Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -24 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object Label5: TLabel Left = 28 Top = 34 Width = 120 Height = 24 Caption = #26376#21512#35745'USD:' Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -24 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object Label6: TLabel Left = 27 Top = 67 Width = 144 Height = 24 Caption = #24180#24230#24635#35745'USD:' Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -24 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end end object Panel3: TPanel Left = 0 Top = 81 Width = 1044 Height = 60 Align = alTop Caption = #20986' '#36135' '#28165' '#21333' '#27719' '#24635' '#34920 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -27 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 4 end object ADOQueryCmd: TADOQuery Connection = DataLink_DDMD.ADOLink Parameters = <> Left = 920 Top = 184 end object ADOQueryMain: TADOQuery Connection = DataLink_DDMD.ADOLink LockType = ltReadOnly Parameters = <> Left = 888 Top = 184 end object ADOQueryTemp: TADOQuery Connection = DataLink_DDMD.ADOLink LockType = ltReadOnly Parameters = <> Left = 952 Top = 184 end object DataSource1: TDataSource DataSet = CDS_Main Left = 925 Top = 217 end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> Left = 893 Top = 217 end object CDS_Main: TClientDataSet Aggregates = <> Params = <> Left = 957 Top = 217 end object PopupMenu1: TPopupMenu Left = 858 Top = 188 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click end object N2: TMenuItem Caption = #20840#24323 OnClick = N2Click end end object ClientDataSet1: TClientDataSet Aggregates = <> Params = <> Left = 777 Top = 299 end object cxGridPopupMenu2: TcxGridPopupMenu PopupMenus = <> Left = 883 Top = 487 end object DataSource2: TDataSource DataSet = ClientDataSet2 Left = 917 Top = 487 end object ClientDataSet2: TClientDataSet Aggregates = <> Params = <> Left = 949 Top = 487 end object RMXLSExport1: TRMXLSExport ShowDialog = False ShowAfterExport = True ExportPrecision = 1 PagesOfSheet = 100 ExportImages = True ExportFrames = True ExportImageFormat = ifBMP JPEGQuality = 0 ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 CompressFile = False Left = 1013 Top = 212 end object CDS_Print: TClientDataSet Aggregates = <> Params = <> Left = 252 Top = 364 end object RM1: TRMGridReport ThreadPrepareReport = True InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] DefaultCollate = False SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' PreviewOptions.RulerUnit = rmutScreenPixels PreviewOptions.RulerVisible = False PreviewOptions.DrawBorder = False PreviewOptions.BorderPen.Color = clGray PreviewOptions.BorderPen.Style = psDash Dataset = RMDBDataSet1 CompressLevel = rmzcFastest CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False Left = 256 Top = 300 ReportData = {} end object RMDBDataSet1: TRMDBDataSet Visible = True DataSet = ADOQueryMain Left = 256 Top = 336 end object ADOQueryPrint: TADOQuery Connection = DataLink_DDMD.ADOLink LockType = ltReadOnly Parameters = <> Left = 984 Top = 212 end object cxStyleRepository1: TcxStyleRepository PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svFont] Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] end end object cxStyleRepository2: TcxStyleRepository PixelsPerInch = 96 object cxStyle2: TcxStyle end end object IdHTTP1: TIdHTTP MaxLineAction = maException ReadTimeout = 0 AllowCookies = True ProxyParams.BasicAuthentication = False ProxyParams.ProxyPort = 0 Request.ContentLength = -1 Request.ContentRangeEnd = 0 Request.ContentRangeStart = 0 Request.ContentType = 'text/html' Request.Accept = 'text/html, */*' Request.BasicAuthentication = False Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)' HTTPOptions = [hoForceEncodeParams] Left = 348 Top = 172 end end