#MD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\TatClothStk.dprID:\Dp10Repo\项目代码\D10szXIANGYING\A00通用窗体\U_EmployeeSel.pas|l6UnilADOQueryBaseTempbtn44tobtn52Closebtn61 interfaceelsebtn19EofFRCodebtn34if FormDestroywith FormCreatebtn20 declarationsMessagesbtn63没有定义数据integer Connection btn1ClickCopybtn50btn28 U_BaseHelpbtn8Adddobtn48DBFRNameFNamebtn53 TfrmBaseHelpNextFormsActionibtn35 ScrollBox1ADOTmpbtn24Dialogsorderbtn51GraphicsControlsTObjectImgListFCode网络连接失败btn37FormShowVclbtn57TrimTruebtn64falsearrayfrombtn18select ModalResultbtn9VisibleSenderbtn3Systembtn43Buttonsclassbtn25implementationnotbtn4try ImageList Connectedbtn45caHidejbtn36btn27 SY_Employeebybtn2btn32btn42Windowsbtn31btn60ADOQueryBaseCmd U_DataLinkIsEmptybtn54thensqlEENamebegin TSpeedButton提示btn40recordbtn15btn56 procedureTfrmEmployeeSel TADOQueryIDYESstringbtn6btn16btn59btn46 DConStringvarEECodewhileExit InitEmployeeFPostincCaptionbtn55publicPostSysUtilstypeConnectionStringexceptbtn33dfmbtn22VariantsOpenbtn39btn1btn41BBTADOConnectionunitADOConnection1 U_EmployeeSelbtn14ADODBbtn11Firstbtn17ofwhereAsStringbtn7btn47btn23frmEmployeeSel fieldbynameClearbtn12btn10btn21btn5Classes TCloseActionbtn30Length TScrollBoxprivateendbtn26R是否要再次连接forbtn38Hintbtn62btn29 FormCloseFdDy Applicationbtn49btn13 MessageBox inheritedbtn58usesID:\Dp10Repo\项目代码\D10szXIANGYING\A00通用窗体\U_LabelMapSet.pasT}l6UnilADOQueryBaseTemp Controller TcxTextEditTcxGridDBTableView cxButtonEditCloseLMSql1cxCheckComboBoxToolButton12Click 清空数据 cxDataStoragecxInplaceContainerMSqlBooleanif FormDestroywithcxGridCustomTableView FormCreate 保存失败 declarations FocusedColumnToolButton6ClickIntegerA ConnectionExecSQLActiveToolButton3ClickcxDropDownEdit删除所有列 FFiltration2TcxGridPopupMenuTBCloseIDYESexceptToolBar1SelfcxGridTEditSet RM_GridReport cxControlsFormsBestFitMaxWidth cxGridLevel2cxGridPopupMenu sql字段EditingControllerIniFilesDialogs U_ZDYHelpMenus ModalResultcxLookAndFeelsLabel2as Tv1Column2ControlsTObjectprivateTcxGridGraphicsToolWincxLookAndFeelPainters ToolButton3Vcl FFiltration1cxFilterUPdate cxNavigatortrimFormShow RM_Datasetfalse v2Column1InitGridLMNamefromSystemselect ToolButton1cxGridCustomView ReadCxGridToolButton7ClickSenderLMIDcxDBData v2Column12add cxGraphicsmvalueelseFilterFieldName cxTextEdit IdTCPClientcxDBTL SDofilterRM_Class TToolButtonTV2Click cxCalendarclassADO_2DNameDS_1 IdComponentLabel1 SInitCDSData ADOQueryTempdxScrollbarAnnotationsTLabel ImageList1IdFTP ImageList Connected cxGridLevel1 cxSplittercasecxGridCustomPopupMenu#v2Column8PropertiesEditValueChanged ToolButton2Value SCreateCDSCreateAllItems ADOQueryCmd BeginTransDBClient让列宽自适应ADODBWindows ToolButton6type cxMaskEditADOQueryBaseCmdImgListIdTCPConnectionvalues 标签管理TPanel SGetFilterssqlcxTabControl1Change FFieldNamebegincxStylescxGridTableView提示ToolButton2Click cxCustomDatathenClasses v2Column8ExtCtrls Tv1Column1 quotedstr procedureMessages TADOQuery TBCloseClick TDataSourcestring TCloseActioncxEditdxSkinsDefaultPainters DConStringDataControllervar GetfieldsStdCtrlsTcxGridToExcelComCtrls ToolButton7TBRafreshClick DataBindingendcxGrid1cxPCIsSql1ActionShowEditCaptioncxTL U_LabelMapSetcxGridPopupMenu2public dxDateRangesEdittimePostSysUtilsU_RTFun ToolButton5 CommitTranscxDatadfmTToolBarcaFreefinallyVariantsIsEmptyOpen RM_SystemToolButton4ClickToolBar2确定要删除数据吗 ApplyBestFit FiltrationTADOConnection ToolButton12CDS_1 RollbackTransADOConnection1ToolButton1ClickLMSql2DisableControls U_BaseHelpCustomerChangeimplementation cxGridLevel TBRafresh EditingTextof ApplicationTfrmLabelMapSet TcxGridLevel MessageBoxPanel1 RM_CommoncxGridDBTableViewLMTypeExitFLMTypeIcxCustomGridDataController ClearItemsCleargetdatecxGrid2 ADOQueryMainAsStringintodeleteTClientDataSetdxBarBuiltInMenuDeleteAllItemsdotrue interfaceTform cxCheckBox BS_Label_Mapinsert ToolButton4execConnectionStringR WriteCxGrid fieldbynameRM_e_Xls dxSkinsCore cxClassesShellAPIunitEnableControls U_DataLinkIdBaseComponent FormClose TImageListTcxGridDBColumnEdit FFiltration3wherefrmLabelMapSetLMSql3DS_2ToolButton5ClickEditerFillertrycxTLDataDBTv1创建数据源中的所有列usesVD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pasWD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.pasRD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothInList.pasHD:\Dp10Repo\项目代码\D10szXIANGYING\A00通用窗体\U_LabelPrint.pas*D:\Dp10Repo\public10\design\U_BaseList.pas.D:\Dp10Repo\public10\design\U_BaseDataLink.pas1D:\Dp10Repo\public10\design\U_cxGridCustomCss.pasΘA6A6A6 GetBValueclGraycdsDependOnData clGreyDarkelseTResourceStreamBooleanMulDivwith TColorScheme TStringFieldBitMapIntegerTCustomDrawItemB9D9DDdoDB cdsGradient procedureBDF3BottomGraphicsItoconstToBE1FFFFCanvasTopEABE84csGoldToR hInstancearrayTypesFalse clGreenBrightC56A31ToGclSilverD5FEclGreen TBkImagesIFDEFF8E4D8bkiEgyptFromBTFontsvtMasterTUserDefinedBitMapsFillRectTCustomDrawingStyleArrclGold RT_RCDATAbkiSky clBlueZdy2trybkiUserDefined clYellowLightbeginToColorENDIF cdaFooterCellABitmapARectACF0AFValue bkiMyFace TViewTypeU_cxGridCustomCssRWindowsFreeBytecsGreyTColorifF4DFC4forthencdaIndicatorCellB clGreyLight clGreenDarkcdaPartBackGroundcdaColumnHeaderClasses IsVertical clGreenLightSetStringFieldValueString clBlueDark DrawGradient clBlueSkyTFont clBlueZdy3var FromColorEBC4A4RGB AStepCountTRectCustomDrawAreaincE887cdaCellRsDD4B clBlueBright clBlueZdy1FF953DDELPHI6SysUtilstypeTBitmapclGreenObscuredF0E7E0finally ColorSchemecsGreen GetGValue cdaGroupCell TColorSchemesFromRCreatecdsDefaultDrawing clGoldDarkunitAValueF9EDDFimplementation clSilverDarkC9F5CBofAFieldTCustomDrawingStyleRight clBlueZdyFromGAssignLoadImageFromResTColorSchemeArrSR GetRValueAResNameclWhite clBlueZdy4GTCanvas interfaceclasscsBlueHend cdsBkImagecxEditPaintUtilsTCustomDrawAreaColorLeft clBlueLightbkiTileF7EAD9vtDetailE2EFF1ViewTypecxVerTBkImageLoadFromStreamf7f7f7BrushusesJD:\Dp10Repo\项目代码\D10szXIANGYING\A00通用窗体\U_ClothInfoSel.pasY{l6UnilADOQueryBaseTempLabel3ADOConnection1CloseDS_1 Applicationelse cxDataStorageTrimcxInplaceContainerBCIIDif FormDestroywithcxGridCustomTableView FormCreatePanel4 FonePurple declarationsC_CodeMessagesfwhereIntegerTCBNOR1 Connection ToolButton1 Button1ClickSkyBlue TComboBoxActiveIsEmptyAdddoTcxGridPopupMenuDBIDYESItemsexceptToolBar1cxDBTLcxGridTEdit CurrentPage cxDBTreeList1Text全部Forms U_DataLinkcxGridPopupMenu ShowMessagemathFCTTypeGraphicsLabel14DialogsDisableControlscxLookAndFeels TBCloseClickControlsTObjectprivatenotTcxGridComCtrls网络连接失败ToolWincxLookAndFeelPaintersFormShowTcxStyleRepositoryRed梭织cxFilter WriteCxGrid cxGrid1Level1 cxNavigatorButton1 TfrmBaseHelpDS_TreeRowColorendfalse pageIndexfrom Tv1Column8Label4select ModalResultcxGridCustomView ReadCxGridLocateSenderPanel7cxDBDataTcxDBTreeListColumn cxGraphicsdxBarBuiltInMenuFilterC_Name Tv1Column11CDS_Tree cxTextEdit RecordsNumberSystemQHuangSePwhere TextSHuangSecxDBTreeList1DblClickC_WidthU_ClothInfoSel SInitCDSDatadxScrollbarAnnotations Tv1Column3 ImageList1try ImageList C_NameChange坯布cahideTButton cxCustomDataP_BS_CloInfo_GetButton2cxGridCustomPopupMenuFoneRedv1CYNoSetFocus BS_Cloth_TypeLBCPAP1 ADOQueryCmdDBClientDefaultinWindowsFree v1Column3 cxMaskEditcriteriaADOQueryBaseCmdTLabel frmZDYHelpImgListcxBlueTPanel SGetFiltersSQL TBSaveClickbegincxStylescxGridTableView提示 U_BaseHelp TcxDBTreeList v1Column1ClassesTBSaveTv1ExtCtrls Tv1Column1 TV1DblClick procedureThreeColorBase TADOQuery Connected TDataSourcestring TCloseActionMBCIID handBlackdxSkinsDefaultPainters AsInteger是否要再次连接DataControllervar ADOQueryTempStdCtrlsi C_GramWeightcxEditinttostrcxGrid1ActionpublicCaptioncxTLGPM_1 dxSkinsCore 单位名称 FoneClMaroonTcxGridDBTableViewfrmClothInfoSelSysUtilstypeConnectionString SHuangSeCu v1Column12InitTreecxDatadfmExpandFilteredfinallyVariantsFontBluepageSize TotalCountCDS_1TADOConnectionthenunit针织ToolButton1Click Tv1Column2OpenandADODBimplementation cxGridLevelU_RTFun TcxGridLevelPanel1cxGridDBTableViewv1SSelTcxStyleInitGridClearcxTLdxBarBuiltInMenu ADOQueryMainAsString TCBNOR1ChangeTClientDataSetLabel8 cxControlstruePanel3 interfaceclass cxCheckBox通用TfrmClothInfoSelexec quotedstr Button2ClickRStrToInt FieldByName自定义数据 SCreateCDS cxClasses dxDateRangesSHuangSeTBClose DConStringEnableControls U_BaseInput TToolButtonCTID FormClose TImageListTcxGridDBColumn ADOQueryTreeceilwhere MessageBoxTToolBar inherited v1Column9cxTLDataCTType SDofilterLabel9 cxDBTreeList1cxDBTreeListColumn2uses+D:\Dp10Repo\public10\design\U_globalVar.pasΘconstend WM_CloseFormvaruses gUserName gDllFileNameMessages interfaceWM_USERimplementation U_globalVarstringunitgUserIdSD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothOutEdit.pasTD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothEDCDLook.pasVD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList3.pasRD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothInEdit.pas+D:\Dp10Repo\public10\design\U_BaseInput.pas0D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas*D:\Dp10Repo\public10\design\U_BaseHelp.pasLD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_DataLink.pasUD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothRKHZList2.pasSD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothOutList.pasMD:\Dp10Repo\项目代码\D10szXIANGYING\A00通用窗体\U_TatClothInfoSel.pas]iu4nilADOQueryBaseTempLabel3cxGridDBColumn3 cxGraphicsCloseTEdit cxControlselse cxDataStorageTrimcxInplaceContainerFCoTypeBCIIDBooleanif FormDestroywithcxGridCustomTableView FormCreatePanel4 cxGridLevel1 declarationsC_CodeMessagesfwhereIntegerATCBNOR1 Connection ToolButton1U_TatClothInfoSel Button1ClickSkyBlue TComboBoxActiveAdddoTcxGridPopupMenuDBIDYESItemsexceptToolBar1cxBluecxGridPM_1 CurrentPage cxDBTreeList1execForms cxGridLevel2cxGridPopupMenu ShowMessagemathGraphics TfrmBaseHelpDialogsMenus ModalResult TV3DblClickN1ClickFilterasControlsFoneRedImgListnotLabel14网络连接失败AFocusedRecordToolWincxLookAndFeelPaintersFormShowVclTcxStyleRepositoryRed U_BaseInput梭织cxFilter cxGrid1Level1 cxNavigatorButton1DS_TreeRowColorfalseDS_2 pageIndexfrom TPopupMenuLabel4selectTcxGridcxGridCustomView cxCustomDataLocateSenderPanel7cxDBDataTcxDBTreeListColumncahidedxBarBuiltInMenuC_ColorDefaultC_NamecxDBTLTcxStylefrmTatClothInfoSel cxTextEdit RecordsNumberSystemTv2QHuangSePwhere TextSHuangSecxDBTreeList1DblClick TcxGridLevelCTNameC_Width SInitCDSDatacxGridDBColumn1dxScrollbarAnnotationsTLabel ImageList1try ImageList ConnectedTButtonDelete ReadCxGridP_BS_CloInfo_GetButton2CTTypecxGridCustomPopupMenuv1CYNoSetFocusdfm BS_Cloth_TypeLBCPAP1 ADOQueryCmdDBClient v1Column3Text cxCheckBoxFreeAppendtype cxMaskEditInitTreeDS_1ADOQueryBaseCmdTV3 frmZDYHelp U_DataLinkIsEmptyTPanel SGetFiltersSQLcxData TBSaveClick SCreateCDSbegincxStylescxGridTableView提示 U_BaseHelpTcxCustomGridTableView TcxDBTreeList v1Column1ClassesTv1ExtCtrlscxLookAndFeels BS_Cloth_Info procedureThreeColorBase TADOQuery TBCloseClick TDataSourcestring TCloseActionMBCIID handBlackdxSkinsDefaultPainters AsInteger DConStringDataControllervar ADOQueryTempStdCtrlsi C_GramWeightExitTv1SSelinttostrcxGrid1ActionpublicCaptioncxTLthenTcxGridDBTableView dxSkinsCore 单位名称 FoneClMaroon FonePurplepostSysUtilsU_RTFunConnectionString SHuangSeCu v1Column12GPM_1 TMenuItemtrueExpandFilteredfinallyVariantscxGridDBColumn6FontBluepageSize是否要再次连接CDS_1C_MXMFcxGridDBColumn4TADOConnectionunitADOConnection1ToolButton1ClickWindows DataSource3andADODBimplementation cxGridLevel ApplicationStrToIntPanel1cxGridDBTableViewTBSaveOpencxGridDBColumn7InitGridTObjectClearAPrevFocusedRecordcxGrid2 ADOQueryMainAsStringvarchar SDofilter BS_Cloth_mf TCBNOR1Change TotalCountLabel8TfrmTatClothInfoSel InitGrid2criteriaPanel3cxGrid3 interfaceclassprivate Tv2C_Color C_NameChangeendTcxCustomGridRecordcxEdit quotedstr Button2ClickRCDS_Tree WriteCxGrid FieldByName自定义数据Tv1FocusedRecordChangedN1 cxClasses dxDateRangesSHuangSeTBCloseComCtrlsEnableControlsTClientDataSet TToolButtonCDS_2CTID FormClose TImageListANewItemRecordFocusingChangedTcxGridDBColumn ADOQueryTreeceilwhereCDS_SubcxGridDBColumn5 MessageBoxTToolBarcast inherited v1Column9cxTLDatacxTLdxBarBuiltInMenuDisableControlsLabel9 cxDBTreeList1cxDBTreeListColumn2usesND:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_GetDllForm.pasND:\Dp10Repo\项目代码\D10szXIANGYING\E00梭织通用窗体\U_TatPlanSel.pasl6UnilADOQueryBaseTempv1DeliveryDateLabel3 cxGraphicsClosev1MPRTKZ cxControls cxDataStorage v1Column7 Tv1Column5FCoTypeTBSaveif FormDestroywithcxGridCustomTableView FormCreate C_ColorNo declarations Tv1Column11 Connection Tat_Plan_Sub U_TatPlanSelA 提示信息 v1Column5TEditLabel5VariantsActiveAdddoTcxGridPopupMenuTBCloseexceptToolBar1 procedurecxGridDialogs SInitCDSDataTextFormsC_CodecxGridPopupMenu ShowMessage Tv1Column3Label7Graphics TfrmBaseHelpinner ModalResultcxLookAndFeelsLabel2ControlsTObjectImgListTcxGrid网络连接失败 v1Column4ToolWincxLookAndFeelPaintersFormShowTcxStyleRepositoryC_ColorCustNamecxFilter cxGrid1Level1 cxNavigator v1OrderNo v1PRTOrderQtytruefalseSysUtilsfromcxStyle1Label4select ToolButton1cxGridCustomView cxCustomDataSendercxDBData U_BaseHelpSystemv1ConNodxBarBuiltInMenu cxTextEditC_Name SDofilter cxCalendarDS_1stringLabel1TLabel ImageList1try ImageList Connected SGetFilters ReadCxGridcxStyleRepository1cxGridCustomPopupMenu SCreateCDS ADOQueryCmdDBClientWindows v1Column3cxStylesADOQueryBaseCmd U_DataLinkcahideTPanelisnullsql TBSaveClickbegincxGridTableView v1Column1ClassesTv1ExtCtrls Tv1Column1 Tv1DblClick FAuthorityMessages v1MPRTSpec TBCloseClick TDataSource cxGridLevel TCloseActiondxSkinsDefaultPainters DConStringvar ADOQueryTempStdCtrlsComCtrls TADOQueryGPM_1cxGrid1ActionTrimpublicthenjoin dxSkinsCore 单位名称 dxDateRangesTcxGridDBTableViewTfrmTatPlanSeltypeConnectionStringcxDatadfmfinally MessageBoxLabel6Open OrderNoChange v1OrdDefStr1CDS_1 C_PatternTADOConnectionunitv1MPRTCodeNameADOConnection1ToolButton1Click Tv1Column2DisableControlsADODBimplementationU_RTFun TcxGridLevelPanel1cxGridDBTableViewInitGridClearon ADOQueryMain v1PRTColor Tat_Plan_Main v1Column6 Tv1Column4TClientDataSetLabel8 interfaceclass cxCheckBoxstatusendcxEditprivateRv1MPRTMF WriteCxGrid自定义数据 cxClasses frmTatPlanSelOrderNoEnableControls U_BaseInput TToolButtonB FormClose TImageListTcxGridDBColumn applicationwhereTcxStyleTToolBarMainId inheritedDBConNouses0D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pasΘh Get_ValueI64helperjiendInt64"实现delphi原生的JSON操作为DateUtil PairExists Set_ValueI64typeQQstringTypesread Collections Get_ValueDclassClasses 操作方式usesI64Boolean作者for Get_ValueIFalse然后在增加 uSZHN_JSON Set_ValueIPairNameTJSONObjectHelperAsDoubleExitjs Set_ValueSpropertyifjoja TJSONNumber procedurejn定义字段读取函数首先查找有没有该字段 Set_ValueB TryGetValue TJSONArrayDjb时间 TJSONString 如果有A TDateTimeInteger interface TJSONObjectValue Set_ValueA Get_ValueSResult AsBoolean PairValueSystem Set_ValueDprivateBpublic如果没有free TJSONBoolCreate判断某个字段是否存在 Get_ValueAValuesAsInt64writeAsInt Get_ValueB RemovePairimplementation功能SelfRemoveO则直接删除就会产生内存泄露thenbeginnil Get_ValueOfunctionunitJSONAddPairvarSGenericsSysUtils Set_ValueOFreesensoraselseIND:\Dp10Repo\项目代码\D10szXIANGYING\A00通用窗体\U_AttachmentUpload.pasļzl6UnilADOQueryBaseTempfkeyNO cxGraphics ShellExecuteclose cxControlsFlagelse cxDataStorageBooleanif FormDestroywithcxGridCustomTableView FormCreate TcxButton SaveDialogHandle ConnectionTADOBlobStreamQuit 提示信息 SaveToFile U_BaseHelp正在下载数据 ADOQueryTmpAdddoDBDItemsexceptSelfcxGrid mCreationTimeWBIDmaxNoFormscxButton3ClickGraphics TfrmBaseHelpasDialogstryMenuscxLookAndFeelsFJ FilesotherControlsTObjectSelectednot SHFILEINFOATcxGridTIcon网络连接失败 v1Column4U_RTFun SaveToStreamcxLookAndFeelPaintersUnCompressionStreamProcessMessagesCompressionStream cxButton3cxFilterexecsql cxNavigatorfinallytrimFormShow declarationsFalsewhereDNamefrom v1Column2 TOpenDialogSystemselect ModalResult GetFileInfoVisibleSenderfrmAttachmentUploadcxDBData TSaveDialog TListItemcahide quotedstr IdTCPClientcafreeffSelCountIdFTP1 FileNameClick ListView1 U_DataLink IdComponentappenddxScrollbarAnnotations ImageList1IdFTP无法连接文件服务器 ImageList Connected cxCustomDatafType取最大号失败TFIDIdExplicitTLSClientServerBasepchar SW_SHOWNORMALValue ADOQueryCmdbmRead BeginTransADODBWindowsExtractFileNameFree v1Column3cxStylesADOQueryBaseCmdFEditAuthority 附件查看IdTCPConnectionIsEmptycxButton1ClickthensqlbegincxGridTableView提示 v1Column1Classes cxButton1ExtCtrls Tv1DblClick procedureMessages TADOQueryPicSvr TDataSourcestring TCloseAction fFilePathdxSkinsDefaultPainters正在保存数据 DConStringInitDatavarStdCtrlsComCtrlsthree获取文件信息TFDateintegerCardinalcxGrid1ActionListItemCaptionPanel2 dxSkinsCorepublic dxDateRangesTcxGridDBTableViewpostSysUtilstypeConnectionStringUsername CommitTranscxDatadfm附件保存失败 mWriteTimeVariantsopen LoadFromFileCountExecute sFieldNameCreatePanel2DblClickListView1DblClickTADOConnection cxButtonsunit RollbackTransADOConnection1U_AttachmentUploadIconandcxGridCustomViewimplementationshellapiHostinfo applicationFJStream TcxGridLevel MessageBoxPanel1cxGridDBTableViewExitTcxGridDBColumnClearMB_ICONWARNING TListView DataSource1 cxButton2FileNamedeleteTFType OpenDiaLogConnectU_CompressionFun tblobfieldtrue fFileNameAsString interfaceclassTv1 TMemoryStream正在上传数据 mfileSizecxEditprivateR fieldbyname附件文件不存在 cxClassesFJ_FileImgList TdateTimeendcxButton2ClickIdBaseComponent FormClose TImageList 请稍等GetLSNo cxGrid1Level1TfrmAttachmentUpload cxGridLevelCreateDirectoryPasswordGetFillerLoadFromStreamDirectoryExistsfIdTIdFTPTPanelusesHD:\Dp10Repo\项目代码\D10szXIANGYING\A00通用窗体\U_CompanySel.pas6D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pasΘjPositiontry级别TempTCompressionLevelendReadDBSizeOf clFastest TMemoryStreamADODBSystemTimeToDateTimestringZLibClearGraphics FindFirstClasses tdatetimeusesShlObj nDestStreamByteTDecompressionStreamvarcxShellTreeView 压缩流elseVariants GetFileInfoCompressionStream _SystemTimeTCompressionStreamSizeftCreationTime cxControlsif 创建时间Fd cxShellCommon nSrcCount cxContainerarray CreationTimeACompressionLevelToolWin interfaceWindows TSearchRecuntil FindClose _FileTime ASrcStream faAnyFileOleCtnrsrepeat procedureof mfileSize 修改时间 WriteTime clDefaultFileTimeToLocalFileTimeftLastWriteTimeCreate vSearchRecFindDataFileTimeToSystemTimeMessagesfinally 访问时间WritenCompressionLevelInteger SaveToStream nTmpStreamclNoneU_CompressionFunDialogsControlsmFileSysUtilscaseimplementationnBufUnCompressionStreamthenbegincxShellListViewStdCtrlsTctfunctionunit 解压缩流LoadFromStreamclMaxFormsBtnEdit读入实际大小Free 开始压缩 CovFileDate#释放后nDestStream才会有数据ftLastAccessTimeComCtrlsXD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas_ lnilTfrmLabelPrint AIsFooter cxGraphicsSUMCloseissp RM_System TBExportClickelse cxDataStorage Tv1Column5TDataSetNextBooleanifwithcxGridCustomTableViewPM_1 JYTypeChange frmLabelPrintlstCust declarationsC_CODETfrmTatClothStkHZListSEL Tv1Column1Integer ToolButton4Checked AsBooleanLabel5ActivecxDropDownEditAdddoTcxGridPopupMenu 成品仓库TBClose MessageBoxcxGridDBBandedTableViewToolBar1ClipbrdcxGrid PM11ClickTEdit CurrentPage SInitCDSDatatextN1ClickFormsendTimecxGridPopupMenu showmessageMath Tv1Column3GraphicsCharBegDateDialogsMenus AFilterTextLabel2FilterStrUtilsControlsTObjectImgListnotTcxGrid TfrmBaseHELPToolWincxLookAndFeelPaintersFormShowVclc_color FFiltration1cxFilter TStringList cxGrid1Level1 cxNavigator MovePanelTrim SCreateCDS RM_DatasetFalsefrom cxClassesTBExportSystemselect ModalResultcxGridCustomView cxCustomDataLocateSendercxDBData U_BaseHelpU_RTFuncahidedxBarBuiltInMenu cxTextEditC_Name TradeClothStk SDofilterRM_Class RecordsNumber TToolButtoncxLookAndFeels cxCalendar FormCreateIntToStrC_widthFirst#Tv1DataControllerFilterBeforeChangeconstdxScrollbarAnnotationsTLabelDisableControlstry ImageList ReadCxGridorderNoKeyPresscxGridCustomPopupMenuTcxDBDataFilterCriteriaby U_BaseList ADOQueryTempDBClientstkMeterWindowsFree ADOQueryCmdcxStylesDateTime U_DataLinkbegtimeU_TatClothStkHZListSEL TCheckBoxTPanelADataSet SGetFilterssqlcxDatacxPageControl1Change TCBNORChangebegincxGridTableView提示ToolButton2ClickthenAAClassesTv1ExtCtrlsfrmTatClothStkHZListSEL quotedstr procedureMessages TADOQuery TBCloseClick TDataSourcestring TCloseActionIOTimedxSkinsDefaultPainters AsIntegerDataControllervarSelOKNoStdCtrlsEnableControls C_GramWeightVariantTBRafreshClickcxEditSGetServerDateTimeSSelcxGrid1cxPC没有选择数据Action ConNoMChangeCaption v1Column23GPM_1 v1Column22 dxSkinsCorepublic dxDateRangesTcxGridDBTableViewyyyySysUtilstypeexitBTv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText StkYardageTcxDataSummaryItem TMenuItemdfmC_NameKeyPressFilteredfinallyVariantsIsEmptyOpenCOUNTWSqlToolButton4ClickPM11Createwhile ShowModalunitFLMTypeToolButton1Click Tv1Column2DS_1andCDS_1ADODBimplementation cxGridLevel Tv1Column6dd Application TcxGridLevelPanel1selfcxGridDBTableViewcxGridBandedTableViewTv1isspInitGridClear ADOQueryMainAsString TBRafreshDB Tv1Column4 TotalCountEof v1Column10 cxControlstrue interfaceclass cxCheckBoxJSTcxGridToExcelMM RM_GridReport ToolButton1privateIsJYTimeRCIID WriteCxGrid FieldByNameRM_e_XlsgroupN1 U_LabelPrintKeyFormatDateTime TPopupMenu BTLPClickComCtrlsAValueTClientDataSetendcanshu1 FormCloseTcxGridDBColumnEndDatewhereAText RM_CommonTToolBarTDateTimePicker inherited BTNPClick SetStatus IsJYTimeClickV_Tat_Cloth_Stkuses2D:\Dp10Repo\public10\design\U_WindowFormdesign.pas4;U\ Properties IsToolBarListThTcxStyleValues clPanelBack ColumnHide ColumnTypeintegerU_cxGridCustomCssWidthTcxlabel U_DataLink ColumnName DrawGradient mGridTypetrim选择中行的第列的值cdaColumnHeadermGridDBTableView"TcxCustomGridIndicatorItemViewInfo ControlNameFileNamepublic gDllFileNamenewProcedureNamemSqlappend fFontSize Parameters2U_WindowFormdesign'保存窗口表格信息时发生错误 cxbsNormal作废不显示 cxTimeEditconst GridIndex fontColorsql mdesignCodeFBF6F2 函数功能ThandleBrushADODB fFormNameYSetCxGridColumnBestWidthnot OnDblClickfor查询数据增强countfinally退出App设置toolbar按钮权限参数locate TcxgroupBoxShiftKey ATextRectFiltered Createman clFormBack fWhatDesign panel背景TObjecthwndItems cxGraphics ColorScheme cxMRUEdittoelseisaddexit ControllerTdatetimePickerSenderStyle mGridWidthTpanelTcxGridIndicatorRowItemViewInfoTcxGridTableViewHeaderAlignmentHorz刷新 fFormCaptionExeNameDataSet TADOQuerycxStyle_gridFootTcxPageControlSysUtilsParentCtrlType GridRecord containerCtrl 设置项目 TcxTabControl TRANSPARENT关闭 mMinWidth控件3根据界面设置信息初始化窗口控件信息fDllName ControlClassIniFilesInitSqlSizelevelCreateCxGridColumnControlComObjADOQCmdGetProcAddress programInibooleanGetColumnByFieldNameAsStringExtractFilePath 未启用beginMessagesfalsecnt InitCtrlData*保存父容器控件信息时发生错误fromTformTcxStyle ColumnCountdllGridViewHeightComCtrlsprivate 字体大小UNameTRectTToolBarAutoDataSetFilterShowEdit 高级查询 DefLeftPos fieldByNamemdefaultGetItemByFieldNameasTColorcxStylesADOTmpmIsDrawGridHeader放弃 LoadLibrary ControlHeightandTlabelcxGridViewKeyDownProcedureParam mAvgWidthADoneMinWidth初始化控件的默认数据保存当前控件信息输入编辑窗口 Components ValueType AsIntegerclBlackWindowsCtl3DclosestdcallHeaderMenusBtnEditpos SetBkModeForms cxClassescxStyle_active TShiftState ADOQueryCmdmFormTextFlatdoSD_ErpStyleParam TScrollBoxDialogsIsShowColumnfilterIsDrawGridHeader$保存窗口表格列的原始信息StdCtrlsWord cxGroupBoxcxMemoebsFlatSD_FormControl_Design_sub FColorSchemeAStyle TcomBoBox cxButtons StyleCodeG这个if段是为了在行号处把把选中的行号跟别的区分开 groupByBox FileExistsFindItemByNamecxEditColorSD_FormControl_Design FooterFlag TwinControl cxCustomDatamCaptionmFormId ScrollbarMode TextColordivformNamecxStyle_GridEvenRow ShowMessage EditValuetry DataBindingvtMastercontinueDNamenilsumACanvas SW_SHOWNORMAL ADOQueryTmpfontSizeGraphicsselectnamedataBaseValues PAnsiCharADOCmdSD_FormGrid_DesignViewInfousesGetMaxIdTButtonpost ATextToDraw headStyleDrawTextiorderEditing查询IsOrderTBitBtnOpenGridDesignWin mParentCtrlInitContainerControlsTControlParentCtrlName TcxButtonEditTag mfieldNameoptionsCustomize自动响应过滤TWindowFormDeSignC4EFFFTcxGridColumnHeaderViewInfoDXCOREcxGridTableViewAdd ControlCount QueryDataPlustv1 InflateRect TSpeedButtoncxStyle_gridGroupBoxcxCurrencyEditLookAndFeelPainterCustomDrawcxGridHeader ColumnFilterD5FEvar保存控件位置信息 WinFormDesignfIsShowColumnfilterorClasses mGridName'初始化窗口按钮权限发生错误OnSelectionChanged TcxGridSiteBounds Parameters1gridNameActiveXimplementationonDesignDblClickTcxGridDBTableView 新的列resultGridTypeViewsmWidthmWinType ADBColumnNextopenRight ControlTop ControlLeftwhereCanvas WhatDesign contentOdd BorderStyleTEdit配置文件名 procedureDataType mCxGridViewTcxCustomGridTableViewdll时发生错误cxLookAndFeelscxGridViewSelectionChanged TgroupBox soDescending 输出文字查看class$初始化控件数据时发生错误exceptClear ControlWidth cxBordersAllIsHasDesignRightVisibleSaveContainerControInfoDBEXEOnCustomDrawIndicatorCellfFormIdsy_user FieldName其它界面信息设置max canDesign窗口背景色Focusing OnKeyDown contentEvennewhTfReadOnlyuserid SelectedRowsC6D9F9 TcxComboBoxclRedcxLabel 过滤图标 TcxCanvas查询条件窗口宋体 窗口设计CreateFooterColLeftTinifilewithbBottomFooter mfontSizeAIndicatorViewInfo DefTopPos!获取操作权限时发生错误 BeginUpdatemValueOptions cxButtonEditFieldsDate CreateColumn TcxcheckBox ClassNameIsEmpty 窗口样式DefWidth cxTextEdit mCalcWidth动态创建CxGrid列cxPcunit mStyleCode AIsVertical设置了取数SQL的控件TextAreaBounds宽度type MessageBox 窗口设置FDFAF9 DefHeightGetSelectedRowIndexSetValueFocusedRowIndexFreeDrawSortingMarkCaption strCaption TColorSchemesTFarProcendfiltergetChgDefaultValue GotoFirstSetFormOperRightgIsCustomDrawGridHeader TcxGridLevelpchar designCodevk_f12formIdFAF8F7 TapplicationksselReadINIFileSetInfothenstylesControlsGetSelectedCount TcxtimeeditTop ButtonCountcreatorvaCenterDrawFilterDropDownButtonEofcxGridCustomView FilteringHiddenmParentcxGridDBTableViewdcode cxCalendardowntoGetBeginColumnWidthidxUID TcxDateEditAssignedValuesColumns TRadioButtoninactivemRightCaptionsIsCustomBackColorUSERNAME mOperRightmIsCustomBackColorvalid DefaultValuebright DrawHeader optionsView RTComboBox$初始化窗口控件时发生错误 子信息 GridDesignCreatee ReadInteger cxGridLevel SortOrder FooterType mParentHeightComponentCountEditingController FreeLibrary FieldCount 提示信息Buttons application AsDateTime LookAndFeel oldCaptionExtCtrlscolumnfilteringcxGrideditIsCtl3D DConString AsBoolean DesigntypeList ParentHeightTabOrder 高级过滤 ItemIndex clToolBarBack soAscendingFontJiffsBold表格头分隔线 quotedStr判断列是否已存在TcxGridWinExecDefaultCaptionPostEditingData FormStyleInit RecordCountmCtl3Dis defTabOrdercxStyle_selectionConnectionStringtaCenter 权限控制 TcxButtonGotoNextTMyFuncAddFlag systemsetFormH 可不用 FocusedRowINIIndexARect输入过滤intTostr GetDllFormcxGridCustomTableViewA EndUpdatebywhile mColumnNamecxGridDBBandedTableViewTpOpenContainerDesign调用RtDesign TcxTextEdit显示控件设计窗口cdsDefaultDrawinglengthParamstr sbmClassicTitle!cxGridViewCustomDrawIndicatorCellF3FBFB U_globalVarmCtrlstrFieldInitType找不到RtDesign selectionTcxgrouptruecxLookAndFeelPaintersHandle TcheckBoxIndexOfbtopTcxGridDBColumnSaveFormGridInfo 警告信息 ColumnOrderdataController mContrlNameDrawEdgecxStyle_GridOddRowcxDBDatacxDropDownEdit打开表格设计窗口 表格设计TCustomDrawingStyleArr HasFooteraCVSD_FormGrid_MainColumn AViewInfoSelectedFCustomDrawingStyle cxCheckBox_AutoSize 创建footer mToolBarListIdvalueRtDesign 排序标识 OffsetRectfunction interface mDesigntype DllFileName详细string ContentBounds-D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pasUD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCKHZList3.pasLD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_iniParam.pas} l6UA U_iniParam配置文件名endstringfunctionFreeuses MBDYDllName ReadStringBooleanvartrue读取ini文件设置参数INIelseFilenamebParam1 文件名判断InI文件是否存在ifTinifile programIni procedure WriteString PortNoStr参数端口Dll文件不能包含字母 JZCRS323C ReadINIFile写设置信息到INI文件 DZCDYDllNameinteger生产车间配置 interfaceDLL WriteINIFilebParam2ResultFileExtractFilePathParamstr 机台个数 FileExistsIniFiles码表调用Dll文件 IsINIFilecreatefalse卷条码机台标志SCXFlagcom1iParam2implementationSysUtilsthenbegin$根据此标志获取卷条码前缀unit!判断InI配置文件是否存在 端口号SCXCount电子秤调用Dll文件 生产线DllNamePD:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_KHCompanySel.pas