object frmZHCPInPut: TfrmZHCPInPut Left = 189 Top = 134 Width = 997 Height = 702 Caption = #20844#21496#20135#21697#24405#20837 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 981 Height = 30 ButtonHeight = 30 ButtonWidth = 79 Caption = 'ToolBar1' Color = clBtnFace EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] Images = DataLink_Contract.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object Label26: TLabel Left = 0 Top = 0 Width = 36 Height = 30 Caption = ' ' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object TBSave: TToolButton Left = 36 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 5 OnClick = TBSaveClick end object ToolButton1: TToolButton Left = 119 Top = 0 AutoSize = True Caption = #25171#21360 ImageIndex = 14 OnClick = ToolButton1Click end object TBClose: TToolButton Left = 202 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object Panel3: TPanel Left = 0 Top = 30 Width = 981 Height = 634 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Image11: TImage Left = 367 Top = 88 Width = 57 Height = 49 Visible = False end object Image22: TImage Left = 353 Top = 260 Width = 75 Height = 57 Visible = False end object Label5: TLabel Left = 577 Top = 336 Width = 64 Height = 15 Caption = #21407#22270#35828#26126 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 131 Top = 335 Width = 64 Height = 15 Caption = #21407#22270#35828#26126 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 579 Top = 384 Width = 59 Height = 15 Caption = #24037' '#33402 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 124 Top = 384 Width = 59 Height = 15 Caption = #21697' '#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 124 Top = 440 Width = 59 Height = 15 Caption = #22791' '#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Panel6: TPanel Left = 520 Top = 48 Width = 294 Height = 274 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Image1: TImage Left = 200 Top = 208 Width = 75 Height = 57 Visible = False OnDblClick = Image1DblClick end end object Panel5: TPanel Left = 2 Top = 2 Width = 977 Height = 39 Align = alTop TabOrder = 1 object Label12: TLabel Left = 208 Top = 12 Width = 66 Height = 15 Caption = #20811' '#37325#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label14: TLabel Left = 28 Top = 12 Width = 66 Height = 15 Caption = #38376' '#24133#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label15: TLabel Left = 161 Top = 11 Width = 22 Height = 17 Caption = 'CM' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Cambria' Font.Style = [fsBold] ParentFont = False end object Label16: TLabel Left = 338 Top = 11 Width = 33 Height = 17 Caption = 'g/'#13217 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Cambria' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 388 Top = 12 Width = 48 Height = 15 Caption = #25104#20221#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 655 Top = 12 Width = 48 Height = 15 Caption = #32534#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object ZIKZ: TEdit Tag = 2 Left = 277 Top = 9 Width = 60 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object ZIMF: TEdit Tag = 2 Left = 100 Top = 9 Width = 60 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 Text = '150' end object ZICF: TEdit Tag = 2 Left = 435 Top = 8 Width = 207 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 2 Text = '100%P' end object ZIID: TEdit Tag = 9 Left = 702 Top = 8 Width = 111 Height = 23 Color = clMenu Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 3 end end object Panel8: TPanel Left = 437 Top = 48 Width = 86 Height = 274 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 2 object Label1: TLabel Left = 10 Top = 48 Width = 68 Height = 16 Caption = #26631#31614#22270#29255 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Button1: TButton Left = 5 Top = 101 Width = 75 Height = 56 Caption = #36873#25321#22270#29255 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = Button1Click end end object Panel66: TPanel Left = 12 Top = 48 Width = 247 Height = 274 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 3 object Image2: TImage Left = 161 Top = 208 Width = 75 Height = 57 Visible = False OnDblClick = Image2DblClick end end object Panel2: TPanel Left = 258 Top = 48 Width = 86 Height = 274 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 4 object Label3: TLabel Left = 10 Top = 48 Width = 68 Height = 16 Caption = #23454#29289#22270#29255 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Button2: TButton Left = 5 Top = 101 Width = 75 Height = 56 Caption = #36873#25321#22270#29255 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = Button2Click end end object Panel1: TPanel Left = 359 Top = 176 Width = 249 Height = 41 BevelOuter = bvNone Caption = #27491#22312#22788#29702#25968#25454#65292#35831#31245#21518#12290#12290#12290 Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 5 Visible = False end object Edit1: TEdit Tag = 99 Left = 437 Top = 356 Width = 377 Height = 23 Color = clMenu Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 6 end object Edit2: TEdit Tag = 99 Left = 14 Top = 356 Width = 323 Height = 23 Color = clMenu Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = #23435#20307 Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 7 end object ZIGY: TMemo Tag = 9 Left = 437 Top = 407 Width = 377 Height = 136 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 8 end object ZIName: TEdit Tag = 9 Left = 14 Top = 407 Width = 323 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 9 end object Note: TMemo Tag = 9 Left = 14 Top = 456 Width = 323 Height = 88 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 10 end end object ADOTemp: TADOQuery Connection = DataLink_Contract.ADOLink LockType = ltReadOnly Parameters = <> Left = 584 Top = 5 end object ADOCmd: TADOQuery Connection = DataLink_Contract.ADOLink Parameters = <> Left = 552 Top = 5 end object ADOQuery1: TADOQuery Connection = DataLink_Contract.ADOLink Parameters = <> Left = 728 Top = 5 end object CDS_PRT: TClientDataSet Aggregates = <> Params = <> Left = 700 Top = 6 end object RM1: TRMGridReport ThreadPrepareReport = True InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] 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 = RMDBMain CompressLevel = rmzcFastest CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False Left = 757 Top = 5 ReportData = {} end object ODPat: TOpenDialog Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] Left = 484 Top = 5 end object IdFTP1: TIdFTP MaxLineAction = maException ReadTimeout = 0 ProxySettings.ProxyType = fpcmNone ProxySettings.Port = 0 Left = 517 Top = 4 end object SaveDialog1: TSaveDialog Left = 457 Top = 5 end object adoqueryPicture: TADOQuery Connection = DataLink_Contract.ADOLink Parameters = <> Left = 615 Top = 5 end object RMDBMain: TRMDBDataSet Visible = True DataSet = CDS_PRT Left = 657 Top = 5 end object ADOQueryCmd: TADOQuery Connection = DataLink_Contract.ADOLink Parameters = <> Left = 208 Top = 208 end end