不需BDE也不需ODBC的小型資料庫管理軟體(附程式碼) |
|
|
|
領航天使
站長   發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
dbse.zip 24/03/2002 28 KB
原作者:Dhruv Matani
這個程式可以將您的朋友連絡資料存在.dat檔中,並可依照姓名查詢資料,
完全不必用到Delphi的任何資料庫元件(如TTable/TQuery/ADOTable...)
也就是不用安裝BDE或設定ODBC等...,是一個小型的資料庫管理程式喔!
您可利用此範例程式提供的函數,寫一個小型的資料庫管理軟體!
對了!這程式也提供開機自動執行與生日到了列出壽星名單自動提醒的功能喔! Compile in Delphi 5.0 with exe file and source file! 原文說明:
This is a program which stores information about your contacts and uses a .dat file as the database. You can enter the name, address, telephone number, email address and birthdate of your contacts. A nifty feature about this program is that it automatically reminds you if one of your contact's birthday is approaching. You can also search your contact list for particular information.
------
～～～Delphi K.Top討論區站長～～～  附加檔案：00018621_dbase.zip
|
|
領航天使
站長 發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
轉貼vampirejs 會員來信: 發現了搜尋功能會有找到了較後面的資料，就無法往前重新搜尋…(必需關閉搜尋視窗後，再重新執行)…
所以…我將程式碼做了以下的修改，讓搜尋的功能可以重覆使用… procedure TfrmSearch.cmdFindClick(Sender: TObject);
var
recno: integer;
tmember: tdata;
SearchStr: string[30];
Found: boolean; begin
Found:=false;
SearchStr:=fname.Text;
seek(frminput.f,0); <---將flag初始化
while not eof(frminput.f) do begin
------
～～～Delphi K.Top討論區站長～～～ |
發表時間：2002-06-03 20:20:44
IP:192.168.xxx.xxx 未訂閱
系統時間：2024-05-19 4:18:24
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |