02 2012 档案

摘要:在处理MSDE一些操作中。需要执行一些SQL脚本。有的是从SQLServer 2000中生成的SQL为后缀的脚本。在MSDE中没有企业管理器,操作都是在程序中完成的。所以用以下函数来执行SQL脚本。//执行一个SQL角本文件,文件只能是ANSI编码的。//如果文件是UNICODE编码的话,则会乱码。var s:string; sqltext : string; sqlfile : TextFile;begin if OpenDialog1.Execute then begin AssignFile(sqlfile, OpenDialog1.FileName); FileMode := 0; R 阅读全文
posted @ 2012-02-21 13:11 byronming 阅读(296) 评论(0) 推荐(0)
摘要://////////////////////////////////////////////////////////////////////////// // 函数: GetPYIndexStr(strChinese: string;bUpCase: Boolean = True): string; // // 函数功能:获取多个汉字的拼音首字符组成的字符串. // 例: GetPYIndexStr('程') 将返回'C'. // GetPYIndexStr('程序')将返回'CX'. // // 第二个参数决定返回大写还是小写 阅读全文
posted @ 2012-02-14 11:38 byronming 阅读(207) 评论(0) 推荐(0)
摘要:varMyReg:TRegIniFile;beginMyReg:=TRegIniFile.Create;tryMyReg.OpenKey('MyGridInfo',True);DBGridEh1.SaveGridLayout(MyReg);finallyMyReg.CloseKey;FreeAndNil(MyReg);end;end;//恢复:varMyReg:TRegIniFile;beginMyReg:=TRegIniFile.Create;tryMyReg.OpenKey('MyGridInfo',True);DBGridEh1.RestoreGridLa 阅读全文
posted @ 2012-02-10 14:22 byronming 阅读(1777) 评论(1) 推荐(0)
摘要:原始地址:http://blog.csdn.net/lwm08106542000/article/details/6594183运行截图//界面中,我们有时候需要,单条调整其记录顺序,上移,或者下移动某条记录的位置//本文中,提供的方法,可以供参考.//2011-07-09 09:30unit uMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, Grids, DBGrids, ADODB;type TfrmMai 阅读全文
posted @ 2012-02-09 15:05 byronming 阅读(288) 评论(0) 推荐(0)
摘要:procedure TDM.DataModuleCreate(Sender: TObject); var piececonfg:Tinifile; pathconfgstr,Providerstr,UserIDstr, Passwordstr,DataSourceStr,DatabaseNamestr :string; begin pathconfgstr:= ExtractFilePath(Application.ExeName); if pathconfgstr[length(pathconfgstr)]='/' then begin pathconfgstr:=pathc 阅读全文
posted @ 2012-02-09 14:32 byronming 阅读(742) 评论(1) 推荐(0)
摘要:Delphi TIniFile 类 操作ini配置文件2008年04月03日 星期四 上午 11:20一、有必要了解INI文件的结构:;注释[小节名]关键字=值...---- INI文件允许有多个小节,每个小节又允许有多个关键字, “=”后面是该关键字的值。---- 值的类型有三种:字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号,布尔真值用1表示,布尔假值用0表示。---- 注释以分号“;”开头。二、定义---- 1、在Interface的Uses节增加IniFiles;---- 2、在Var变量定义部分增加一行:myinifile:Tinifile;---- 然后,就可以对 阅读全文
posted @ 2012-02-09 11:54 byronming 阅读(5120) 评论(0) 推荐(0)
摘要:动态显示标题 with dbgrdh1 do begin Columns.Clear; for i:=0 to ADOQuery1.FieldCount-1 do with Columns.Add do begin FieldName:=ADOQuery1.Fields[i].FieldName; end; end;} 阅读全文
posted @ 2012-02-07 18:02 byronming 阅读(171) 评论(0) 推荐(0)
摘要:SET PARSEONLY检查每个 Transact-SQL 语句的语法并返回任何错误信息,但不编译和执行语句。语法SET PARSEONLY { ON | OFF }注释当 SET PARSEONLY 为 ON 时,Microsoft® SQL Server? 仅分析语句。当 SET PARSEONLY 为 OFF 时,SQL Server 编译并执行语句。SET PARSEONLY 的设置是在分析时设置,而不是在执行或运行时设置。在存储过程或触发器中不要使用 PARSEONLY。如果 OFFSETS 选项为 ON 而且没有出现错误,则 SET PARSEONLY 返回偏移量 阅读全文
posted @ 2012-02-03 17:27 byronming 阅读(3031) 评论(0) 推荐(0)