摘要: FindFirst是用来寻找目标目录下的第一个文件,FindNext则是寻找下一个TSearchRec是一个文件信息的纪录,当FindFirst返回SearchRec时,你可以通过SearchRec.Name获取文件名,以及SearchRec.Size获取文件大小等信息。 TSearchRec类型定 阅读全文
posted @ 2019-09-27 14:50 大米粥11 阅读(266) 评论(0) 推荐(0) 编辑
摘要: 1.判断字符串是否为整型,非整型默认为0 strtointdef(p_InStr,0)=0 阅读全文
posted @ 2019-09-12 11:32 大米粥11 阅读(81) 评论(0) 推荐(0) 编辑
摘要: --依据已知表说明批量更新数据库表说明信息,创建存储过程,进行调用/****** Object: StoredProcedure [dbo].[UpTableDescription] Script Date: 09/09/2019 10:30:11 ******/SET ANSI_NULLS ONG 阅读全文
posted @ 2019-09-10 09:00 大米粥11 阅读(256) 评论(0) 推荐(0) 编辑
摘要: --插入表说明EXEC sys.sp_addextendedproperty @name=N'MS_Description', -- sysname @value = '系统参数' , -- sql_variant @level0type = N'SCHEMA', -- varchar(128) @ 阅读全文
posted @ 2019-09-10 08:57 大米粥11 阅读(568) 评论(0) 推荐(0) 编辑
摘要: Windows目录对话框是一个标准的WindowsUI控件,其可以列出一个目录列表,并且可以显示新增按钮。由于Delphi中并没有提供对于该控件的封装,所以打开它是个问题。网上有多种方法,试举几例: 1、使用Win31目录下的DriverList、DirectoryList、FileList和Fil 阅读全文
posted @ 2019-09-09 16:33 大米粥11 阅读(457) 评论(0) 推荐(0) 编辑
摘要: '******************************************************************************'* File: pdm2excel.vbs'* Purpose: 分目录递归,查找当前PDM下所有表,并导出Excel'* Title: ' 阅读全文
posted @ 2019-09-09 14:53 大米粥11 阅读(245) 评论(0) 推荐(0) 编辑
摘要: PowerDesigner 同时 Ctrl + Shift + X 快速打开VB窗口 '开始Option Explicit Dim mdl ' the current modeldim rwIndex dim tableNamedim StableNamedim colnamedim tabledi 阅读全文
posted @ 2019-09-09 14:51 大米粥11 阅读(547) 评论(0) 推荐(0) 编辑
摘要: --取SQL 数据库中的表的字段说明和表说明--http://social.technet.microsoft.com/Forums/zh-CN/sqlserverzhchs/thread/2a90ca5d-85b8-4597-b72b-94762c2dcac7--http://msdn.micro 阅读全文
posted @ 2019-09-09 14:48 大米粥11 阅读(4181) 评论(0) 推荐(0) 编辑