- 博客(4)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 使用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
2877
2
原创 如何在ASP+Access应用中防范mdb文件被下载。
4招防范MDB文件被下载：第一招：尽量取复杂的文件名；第二招：改文件扩展名为ASA或ASP，可以使在IE中无法下载，但如果没有第四招的配合，使用FlashGet等软件同样可以下载；第三招：文件名以“#”开头，可以防止以SQL注入方式猜测文件名；第四招：在数据库中创建一个表，一个字段即可，填入类似的内容，这样当IE或FlashGet解释脚本代码时必定会报错，所以数据库不会被下载。
2004-12-21 22:21:00
1416
原创 类似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
1304
原创 用DBGrid控件配合数据集组件的Sort属性实现“点击标题栏自动排序功能”。
很多朋友在使用DBGrid控件时，抱怨没有点击标题栏便可自动排序的功能，实际上通过ADOQuery或其它数据集组件的Sort属性配合DBGrid的OnTitleClick事件，可以方便地实现此功能。因为Sort属性可以让活动数据集按指定的字段进行排序，也可以选择排序方式（升序/降序），所以我们只要在OnTitleClick事件中设置排序字段和排序方式即可，如以下代码：procedu
2004-12-20 20:14:00
3190
1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人