object frm_CheckJiPrint: Tfrm_CheckJiPrint Left = 457 Top = 250 Width = 275 Height = 185 BorderIcons = [] Caption = #25104#26816#35760#24405#25171#21360 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object BtylPrint: TButton Left = 80 Top = 96 Width = 97 Height = 33 Caption = #39044#35272#25171#21360 TabOrder = 0 OnClick = BtylPrintClick end object RMGridReport1: TRMGridReport ThreadPrepareReport = True InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] ShowProgress = False 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 CompressLevel = rmzcFastest CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False Left = 152 Top = 8 ReportData = {} end object RMXLSExport1: TRMXLSExport ShowAfterExport = True ExportPrecision = 1 PagesOfSheet = 10 ExportImages = True ExportFrames = True ExportImageFormat = ifBMP JPEGQuality = 0 ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 CompressFile = False Left = 184 Top = 32 end object RMBMPExport1: TRMBMPExport ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 Left = 72 Top = 48 end object RMDS_Main: TRMDBDataSet Visible = True DataSet = ADOQueryTmp Left = 122 end object ADOConnection1: TADOConnection LoginPrompt = False Left = 152 Top = 40 end object ADOQueryTmp: TADOQuery Connection = ADOConnection1 LockType = ltReadOnly Parameters = <> Left = 24 Top = 40 end object RMDB_Other: TRMDBDataSet Visible = True DataSet = CDS_other Left = 192 Top = 72 end object CDS_other: TClientDataSet Aggregates = <> Params = <> Left = 120 Top = 64 object CDS_otherprinter: TStringField FieldName = 'printer' end object CDS_otherprintdate: TDateField FieldName = 'printdate' end object CDS_otherWorkClass: TStringField FieldName = 'WorkClass' Size = 40 end object CDS_otherbegDate: TStringField FieldName = 'begDate' end object CDS_otherendDate: TStringField FieldName = 'endDate' end end end