Q&A
jshang
这个作者很懒,什么都没留下…
展开
-
trigger for update
触发器在 for update 时 select from inserted 或 deleted 都可以在select语句中是没有updated的。(learn from Piip)原创 2006-01-14 15:43:00 · 1008 阅读 · 0 评论 -
用delphi动态创建的access表,设置其字段的“是否允许空字符串”为真
var access:OleVariant; begin access := CreateOleObject(ADOX.Catalog); access.Create(Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/zz/temp.mdb); access:=null; try原创 2007-12-20 09:45:00 · 2482 阅读 · 0 评论 -
快捷菜单
问题如下:把数据库里的数据用来动态生成菜单项,但是我不知道怎样判断我单击了哪个菜单项,所有的单击事件都指向了N1Click过程,因为我不知道会随数据库的数据产生多少菜单项。procedure TDBXP_RKD.edt_spmcClick(Sender: TObject);vari_spmc,count_spmc:integer;begin with dm_dbxp.qry_spmc do be转载 2006-05-20 17:38:00 · 1100 阅读 · 0 评论 -
在原数据库的基础上强制还原一数据库
在原数据库的基础上强制还原一数据库,其中“移至物理文件名”也改变了(新数据库文件与原数据库不在同一路经) 的sql语句怎么写啊,谢谢 !--------------------------------------------------------------------------------------------------------------------answered1原创 2006-05-15 10:19:00 · 1418 阅读 · 0 评论 -
面向对象的程序(http://blog.csdn.net/qi_jianzhou/archive/2006/03/31/646124.aspx)
在做一个查询时,我用到了面向对象的一些知识,现在总结一下 程序中需要查询功能,查询要灵活,界面统一。这样许多的查询窗体的界面都是一样的,要是一个窗体一个窗体的做,而且界面是一样的,就是功能不同,很累的,我就想该怎么做省事呢?想到了Delphi 的窗体继承的特性,对,我可以先做一个模板,然后让别的窗体继承这个窗体,不就达到界面的统一了,而且继承的窗体也可以在原窗体的基础上再添加控件,好就这么转载 2006-04-07 08:25:00 · 1029 阅读 · 1 评论 -
format函数的使用
function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas功能 返回按指定方式格式化一个数组常量的字符形式说明 这个函数是我在Delphi中用得最多的函数,现在就列举几个例子给你个直观的理解"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型Format(x=转载 2006-04-07 08:20:00 · 1194 阅读 · 0 评论 -
delphi调用sql存储过程,并获取结果
delphi调用sql存储过程,并获取结果 adostoredproc1.Close; adostoredproc1.ProcedureName:=sp_thchl; adostoredproc1.Parameters.Clear; adostoredproc1.Parameters.CreateParameter(out,ftInteger,pdoutput,1,1);原创 2006-03-03 09:17:00 · 1392 阅读 · 0 评论 -
压缩数据库日志
压缩数据库日志方法:DUMP TRANSACTION [数据库名] WITH NO_LOGBACKUP LOG [数据库名] WITH NO_LOGDBCC SHRINKDATABASE([数据库名]) 程序里面的方法:压缩数据库日志--1.清空日志exec(DUMP TRANSACTION [+@dbname+] WITH NO_LOG) --2.截断事务日志:exec(原创 2006-02-24 09:41:00 · 849 阅读 · 0 评论 -
怎么把Listview中的记录前checkbox打钩的记录选出来
procedure TForm1.Button1Click(Sender: TObject);varI: Integer;begin Caption:=; For i:= 0 to ListView1.Items.Count-1 do begin if ListView1.Items[i原创 2006-02-14 20:14:00 · 1462 阅读 · 0 评论 -
游标小样
cursor example declare @i int , @a varchar(20)declare cur_cursor cursor for select a from table1set @i=1while @ibegin open cur_cursor fetch cur_cursor原创 2006-01-21 21:27:00 · 701 阅读 · 0 评论 -
关于汉字换行问题
procedure QrDbTextOnPrint(sender: TObject; var Value: String); var i : integer; begin FMemo := TMemo.Create(FWinControl); FMemo.Parent := se转载 2008-01-14 19:09:00 · 825 阅读 · 0 评论