- 博客(4)
- 资源 (1)
- 收藏
- 关注
原创 使用API函数获取磁盘空间及磁盘类型
procedure TForm1.Button1Click(Sender: TObject);var RootPath : string; Sed_Cluster, Bytes_Sec, Free_Clusters, Total_Clusters : DWord;begin Memo1.Clear; RootPath := C:/; if RootPath begin Get
2004-12-22 23:43:00 2902 2
原创 如何在ASP+Access应用中防范mdb文件被下载。
4招防范MDB文件被下载:第一招:尽量取复杂的文件名;第二招:改文件扩展名为ASA或ASP,可以使在IE中无法下载,但如果没有第四招的配合,使用FlashGet等软件同样可以下载;第三招:文件名以“#”开头,可以防止以SQL注入方式猜测文件名;第四招:在数据库中创建一个表,一个字段即可,填入类似的内容,这样当IE或FlashGet解释脚本代码时必定会报错,所以数据库不会被下载。
2004-12-21 22:21:00 1431
原创 类似Access查找中的记忆功能
procedure TComLocateFrm.LocateBtnClick(Sender: TObject);var setLoOptions : TLocateOptions; i : Integer; slKeys : TStrings;begin if ComboBox1.Items.IndexOf(ComboBox1.Text) try slKeys := TStr
2004-12-21 21:47:00 1315
原创 用DBGrid控件配合数据集组件的Sort属性实现“点击标题栏自动排序功能”。
很多朋友在使用DBGrid控件时,抱怨没有点击标题栏便可自动排序的功能,实际上通过ADOQuery或其它数据集组件的Sort属性配合DBGrid的OnTitleClick事件,可以方便地实现此功能。因为Sort属性可以让活动数据集按指定的字段进行排序,也可以选择排序方式(升序/降序),所以我们只要在OnTitleClick事件中设置排序字段和排序方式即可,如以下代码:procedu
2004-12-20 20:14:00 3227 1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人