摘要: 原始地址: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 阅读(271) 评论(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 阅读(709) 评论(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 阅读(5041) 评论(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 阅读(143) 评论(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 阅读(2909) 评论(0) 推荐(0) 编辑
摘要: 单元接口部分引用 comobj 单元(uses )procedure TForm1.Button1Click(Sender: TObject);var excelx,excely : string; begin try ExcelApp := CreateOleObject('Excel.Application'); WorkBook := ExcelApp.WorkBooks.Open(opendialog.FileName);//使用opendialog对话框指定//excel档路径 ... 阅读全文
posted @ 2012-01-31 16:40 byronming 阅读(5576) 评论(0) 推荐(0) 编辑
摘要: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, DB, ADODB;typeTForm1 = class(TForm) OpenDialog1: TOpenDialog; Button1: TButton; Button2: TButton; Memo1: TMemo; ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; procedure Button1 阅读全文
posted @ 2012-01-30 17:38 byronming 阅读(582) 评论(0) 推荐(0) 编辑
摘要: 2、将Excel的数据导入SQL server :SELECT * into newtableFROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0', 'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]实例:SELECT * into newtableFROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',  阅读全文
posted @ 2012-01-30 17:14 byronming 阅读(334) 评论(0) 推荐(0) 编辑
摘要: 将Excel中的数据导入到SQL Server 2000数据库中来源:转载人气:11710录入时间:2006-4-151、打开企业管理器,打开要导入数据的数据库,在表上按右键,所有任务-->导入数据,弹出DTS导入/导出向导,按 下一步 , 2、选择数据源 Microsoft Excel 97-2000,文件名 选择要导入的xls文件,按 下一步 , 3、选择目的 用于SQL Server 的Microsoft OLE DB提供程序,服务器选择本地(如果是本地数据库的话,如 VVV),使用SQL Server身份验证,用户名sa,密码为空,数据库选择要导入数据的数据库(如 client) 阅读全文
posted @ 2012-01-30 16:38 byronming 阅读(320) 评论(0) 推荐(0) 编辑
摘要: --以下例子为MSDN上邹建大哥的例子,给你做下参考/*--同步两个数据库的示例 有数据 srv1.库名..author有字段:id,name,phone, srv2.库名..author有字段:id,name,telphone,adress 要求: srv1.库名..author增加记录则srv1.库名..author记录增加 srv1.库名..author的phone字段更新,则srv1.库名..author对应字段telphone更新 --*/ --大致的处理步骤 --1.在 srv1 上创建连接服务器,以便在 srv1 中操作 srv2,实现同步 exec sp_addlinkedse 阅读全文
posted @ 2012-01-13 16:42 byronming 阅读(209) 评论(0) 推荐(0) 编辑