object frmLabelAdd: TfrmLabelAdd Left = 191 Top = 109 Width = 997 Height = 612 BorderIcons = [biMaximize] Caption = #26631#31614#32534#36753 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object Panel1: TPanel Left = 0 Top = 28 Width = 413 Height = 513 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Label2: TLabel Left = 31 Top = 21 Width = 60 Height = 12 Caption = #26631#31614#25991#20214#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object Label3: TLabel Left = 31 Top = 95 Width = 60 Height = 12 Caption = #22791' '#27880#65306 end object Label9: TLabel Left = 31 Top = 71 Width = 60 Height = 12 Caption = #26631#31614#21517#31216#65306 Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object Label10: TLabel Left = 31 Top = 47 Width = 60 Height = 12 Caption = #26631#31614#31867#22411#65306 Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object LabelFileName: TBtnEditA Left = 92 Top = 17 Width = 260 Height = 20 ReadOnly = True TabOrder = 0 OnBtnClick = LabelFileNameBtnClick end object beizhu: TMemo Left = 92 Top = 92 Width = 257 Height = 149 ScrollBars = ssBoth TabOrder = 1 end object LabelCaption: TEdit Left = 92 Top = 67 Width = 258 Height = 20 ReadOnly = True TabOrder = 2 end object LabelType: TRTComboBox Tag = 99 Left = 92 Top = 43 Width = 260 Height = 20 Style = csDropDownList ItemHeight = 12 ItemIndex = 0 TabOrder = 3 Text = #20013#25991#26631#31614 Items.Strings = ( #20013#25991#26631#31614 #33521#25991#26631#31614 #20013#33521#25991#26631#31614) end end object ToolBar1: TToolBar Left = 0 Top = 0 Width = 981 AutoSize = True ButtonHeight = 30 ButtonWidth = 83 Caption = 'ToolBar2' Color = clBtnFace Flat = True Images = DataLink_CYZZ.ThreeImgList List = True ParentColor = False ShowCaptions = True TabOrder = 1 Transparent = False object Tsave: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384#26631#31614 ImageIndex = 5 OnClick = TsaveClick end object Tclose: TToolButton Left = 87 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TcloseClick end end object RMPreview1: TRMPreview Left = 428 Top = 32 Width = 553 Height = 541 Align = alRight BevelOuter = bvLowered Caption = #26631#31614#39044#35272 TabOrder = 2 OnDblClick = RMPreview1DblClick Options.RulerUnit = rmutScreenPixels Options.RulerVisible = False Options.DrawBorder = False Options.BorderPen.Color = clGray Options.BorderPen.Style = psDash end object ADOQueryCmd: TADOQuery Connection = DataLink_CYZZ.ADOLink CommandTimeout = 300 Parameters = <> Left = 512 Top = 208 end object OpenDialog1: TOpenDialog Filter = 'RMFl(*.rmf)|*.rmf' InitialDir = '.' Left = 200 Top = 4 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\' Preview = RMPreview1 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 = 336 Top = 8 ReportData = {} end object ADOQueryTmp: TADOQuery Connection = DataLink_CYZZ.ADOLink LockType = ltReadOnly CommandTimeout = 300 Parameters = <> Left = 528 Top = 184 end object RMGridReportDesigner1: TRMGridReportDesigner Left = 376 Top = 8 end object RMBarCodeObject1: TRMBarCodeObject Left = 280 Top = 4 end object RMBMPExport1: TRMBMPExport ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 Left = 408 Top = 8 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 = 440 Top = 8 end object RMDS_Main: TRMDBDataSet Visible = True AliasName = #26631#31614#25968#25454 Left = 498 Top = 72 end object RMDataDictionary1: TRMDataDictionary FieldFieldNames.TableName = 'TableName' FieldFieldNames.FieldName = 'FieldName' FieldFieldNames.FieldAlias = 'FieldAlias' Left = 562 Top = 72 end object ADOQuery1: TADOQuery Connection = DataLink_CYZZ.ADOLink Parameters = <> Left = 352 Top = 480 end object RMGridReport2: 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 Dataset = RMDS_Main CompressLevel = rmzcFastest CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False Left = 432 Top = 368 ReportData = {} end object ADOQueryCmdSC: TADOQuery Connection = DataLink_CYZZ.ADOLink Parameters = <> Left = 296 Top = 304 object ADOQueryCmdFileContent: TBlobField FieldName = 'Files' end object ADOQueryCmdFtFileName: TStringField FieldName = 'FileName' Size = 40 end object ADOQueryCmdFileEditDate: TDateTimeField FieldName = 'FileEditDate' end object ADOQueryCmdFileSize: TFloatField FieldName = 'FileSize' end object ADOQueryCmdFiller: TStringField FieldName = 'Filler' end object ADOQueryCmdLastEditTime: TDateTimeField FieldName = 'LastEditTime' end object ADOQueryCmdLastEditer: TStringField FieldName = 'LastEditer' end object ADOQueryCmdFileCreateDate: TDateTimeField FieldName = 'FileCreateDate' end object ADOQueryCmdchildPath: TStringField FieldName = 'FilePath' end object ADOQueryCmdFileType: TStringField FieldName = 'FileType' end end end