全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1669
推到 Plurk!
推到 Facebook!

請問一下如何在DB 增加四種功能呢~~

缺席
hotdogtome
一般會員


發表:2
回覆:5
積分:1
註冊:2006-12-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-12-30 00:48:47 IP:61.225.xxx.xxx 訂閱
這題是我自己正在寫的題目....但參考了相關書籍...
還是不太懂如何在我寫的程式裡..去增加instert delete Query Update 和讓輸入者可以手動輸入查詢..然後在顯示出結果...
不好意思..因為小弟真的有點束手無策...所以上來想請問大大的幫助....
小弟是從內部直接把資料庫資料讀出來...而不用SQL語法寫出上面這些指令...而是要用delphi語法寫...
最下面一段是小弟想到用的方法...不知道可不可行..還在試...希望有大大可以幫我想想看....或者和小弟討論一下...

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls, Mask;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
Bevel1: TBevel;
research: TLabel;
MaskEdit1: TMaskEdit;
MaskEdit2: TMaskEdit;
MaskEdit3: TMaskEdit;
Label2: TLabel;
Label1: TLabel;
Label3: TLabel;
Table1BDEDesigner: TIntegerField;
Table1FruiteName: TStringField;
Table1Price: TIntegerField;
Table1Count: TIntegerField;
Button1: TButton;
TCust = record
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//procedure TForm1.FormClose(sender: Tobject; var Action: TCloseAction);
//var
// modidied : Boolean = False;
// cust : Tcust;
// F: file of TCust;
// row : integer;
//begin
// if modified then
// if MessageDlg('儲存變更?',mtConfirmation,mbOKCancel,0) = mrok then
// Begin
// Assignfile(F,datafile)
end.

附加檔案:459546efaf54b_Delphi.rar
taihao
一般會員


發表:1
回覆:13
積分:2
註冊:2005-11-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-12-30 02:40:15 IP:61.221.xxx.xxx 訂閱
Sorry attach file 也看過了.但不知所云.

g9221712
高階會員


發表:145
回覆:344
積分:162
註冊:2006-07-06

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-12-30 05:13:15 IP:220.134.xxx.xxx 訂閱
我建議你從ADO元件下手,因為你用的是access 的資料庫,你需要熟悉一下資料庫的操作,而非文字檔的概念!
若你在學校,我建議你去找一本書:「Delphi 資料庫程式設計」文魁資訊 楊宗誌,介紹這一本是因為他很薄,
而且你要的問題解答他都有,還有你放到版上的文件,對你的幫助其實不大! 因為很難看出你要作啥!
只知道你的需求而已,下點苦工吧!
------
「人們所以覺得寂寞,是因為他們會築牆,卻不會搭橋。」
程式寫的越久,卻發現自己越來越不會寫程式!
hotdogtome
一般會員


發表:2
回覆:5
積分:1
註冊:2006-12-18

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-01-03 20:23:51 IP:61.225.xxx.xxx 訂閱
不好意思..因為最近在趕著另一個程式作業...忘記了先前有發表的這個問題...所以現在才回... 抱歉抱歉...
小弟本來是想說把資料庫的表單讀出來後...可以在我設定的框框裡面直接修改..刪除或者是新增一筆資料..
然後當把顯示資料的欄位關掉時候..他會說..是否儲存更動的資料..按是之後..便會把資料覆蓋過原始的資料...來模擬這些功能..
因為我是參考delphi6 資料庫程式設計(松崗)...不過好像很多本書比較常用的都是教SQL語法...
比較少教用deilhi語法去寫這些功能...
大大提的這本書..不知道是不是他這些功能是用delphi語法教呢??明天我會去圖書館借借看有沒有....
謝謝大大的提醒餒...感激不盡 >"<
不過不知道有沒有大大會寫類似這樣的功能呢??
g9221712
高階會員


發表:145
回覆:344
積分:162
註冊:2006-07-06

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-01-03 23:13:24 IP:220.134.xxx.xxx 訂閱
看你要用sql 語法來操作資料庫、還是ado語法、BDE 的TABLE或query語法都可以操作資料庫!
重點是看不到你資料庫的關聯和key值條件,也看不到你對欄位的詳細定義,
這樣寫資料庫,蠻容易造成大家的誤解的!也無法幫到你的忙!
------
「人們所以覺得寂寞,是因為他們會築牆,卻不會搭橋。」
程式寫的越久,卻發現自己越來越不會寫程式!
hotdogtome
一般會員


發表:2
回覆:5
積分:1
註冊:2006-12-18

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-01-05 19:14:44 IP:61.225.xxx.xxx 訂閱
        我想這位大大可能太急而因此沒看清楚我說的....
在第一篇時候有說明了不用SQL哦~~~~
...而用Table,Query,DBEdit也是都可以的...
我想用那種方式表示出來是都可以的吧..能用SQL或者其他語言寫出來的功能就是DB吧^^""
所以如果大大只要用delphi語法寫出來..用哪種方法只要不碰觸SQL事都可以的不是嗎^^~~~
c 也分很多種方式去寫個loop...switch..難道用哪種方法寫會不同嗎??
而所要的功能也是有表示出來的.....是需要在我的DBGird(欄位)裡可以去新增,刪除和修改這四個功能..
而第二次在回應時也說明了""不用SQL""...大大可能沒看清楚哦~~~
希望大大能花點時間看清楚一些些哦...
來這發表問題只是想知道別人是否有其他種方法可以教導在下...
再下若說不清楚..可以請再下說明更清楚...
畢竟看過很多delph的書..幾乎都是用sql語法寫出資料庫的基本查詢,新增,刪除或修改...
在下確實是有花工夫才來這發問...和請教..

bestlong
站務副站長


發表:126
回覆:734
積分:512
註冊:2002-10-19

發送簡訊給我
#7 引用回覆 回覆 發表時間:2007-01-05 21:47:36 IP:211.20.xxx.xxx 訂閱
不知道你看過的 Delphi 書籍是那幾本?
我看過大部分有談到處理資料庫的都一定會談到 TTable 與 TQuery 兩個元件的使用
若真要列出談到這兩個元件較深入的 [Delphi 進銷存程式設計 - 文魁出版] 可以算是首選
另外一本 [Delphi 與資料庫開發手札-存貨財務會計系統 - 上奇出版] 談到更多 ADO dbExpress
李維大師也出一本 [Delphi 5.x ADO/MTS/COM 高級程序設計篇] 也可參考
------
http://blog.bestlong.idv.tw/
http://www.bestlong.idv.tw/
http://delphi-ktop.bestlong.idv.tw/
g9221712
高階會員


發表:145
回覆:344
積分:162
註冊:2006-07-06

發送簡訊給我
#8 引用回覆 回覆 發表時間:2007-01-05 21:52:20 IP:220.134.xxx.xxx 訂閱
....
------
「人們所以覺得寂寞,是因為他們會築牆,卻不會搭橋。」
程式寫的越久,卻發現自己越來越不會寫程式!
hotdogtome
一般會員


發表:2
回覆:5
積分:1
註冊:2006-12-18

發送簡訊給我
#9 引用回覆 回覆 發表時間:2007-01-07 15:40:47 IP:61.225.xxx.xxx 訂閱
bestlong大大 所參考的書籍正式在下目前在看的 "delphi 進銷程式設計" 這本書 P107 範例 確實有說到了如何去描繪出這些功能,在下才疏學淺看了幾本書籍 供大大參考,
delphi 電子商務網站精通實務 陳燦煌編著
delphi6應用程式建置 作者:Paul Kimmel
delphi6 資料庫程式設計 陳俊源編著
和手上現在正在使用的delphi 進銷程式設計..僅此幾本相關書籍...
而今天在論壇上發問其實並沒有所謂的要結果或是source意味..
令人比較無法了解的是....有問題時.似乎大家都當作是大家都可以找到自己的問題癥結所在..
提供個幾本書就打發走一個人想再論壇上求得疑問的答案,
看過許多人...學得了一些知識..就開始翹二郎腿..述說自己以前多辛苦..都要提問者自己去找答案...
在下學c 時也是一樣...從恐龍本開始k起..才慢慢能向進階做起....
令人叫不悅的..當別人有問題時..某些人便會說你去參考某某書籍...但那些書籍卻都未曾提及作者的問題...
甚至這些書籍是作者自己查驗過後還是沒有也決問題的....
程式這種就是多練習多學習和多問...只要抓到了精隨就可以讓自己更進一步的深入..
而回答的人也不管發問者是以何種心態發問..
在下或許心胸較狹窄...思慮欠周
但想想自己學其他語言也是從基本學習..總不希望知道解答時只聽到一句..請去參考某某書籍..自行理解...
諸如此類不負責任的話語....否則回答的人也可以選擇不回答...
若要回答是不是應該負責任點....
comlpain 這麼多只是因為小弟也是從事相關工作..而有此感覺...
如果要回答提問者的問題...就自己認真點或者是真正想替提問者解決問題...
否則那些人可以不需要浪費寶貴時間來告訴提問者自己有多厲害...而令人不齒...
在此謝謝 bestlong 大大回答..雖然已經自行先找到此書籍了..依然感謝...
當然這問題也已經是寫程式本身就存在的問題也跟人品有關...
但在下確實很看不起那種三言兩語就拍拍屁股走人的自以為是傢伙...
""不懂就請別裝懂""....學習請教也不丟臉....不是嗎.....
想想自己以前的辛苦...相信可以體會入門的新手想求得解答的心情....
謝謝辛苦看完如此冗長的文章......在此感謝 感激不盡~~~
bestlong
站務副站長


發表:126
回覆:734
積分:512
註冊:2002-10-19

發送簡訊給我
#10 引用回覆 回覆 發表時間:2007-01-08 00:53:48 IP:211.20.xxx.xxx 訂閱
無論新手老手都有需要解答的問題,不是嗎? 
若是你覺得別人回答問題不夠慎重仔細,也別太計較免的傷身
就我個人而言
若以發問者的角色來思考,會擔心問題敘述的內容是否足夠完整讓觀看者可以理解問題點。若是有任何形式的回覆只要是善意的都是需要感謝的,無論是否解決了問題。
------
http://blog.bestlong.idv.tw/
http://www.bestlong.idv.tw/
http://delphi-ktop.bestlong.idv.tw/
g9221712
高階會員


發表:145
回覆:344
積分:162
註冊:2006-07-06

發送簡訊給我
#11 引用回覆 回覆 發表時間:2007-01-08 11:10:03 IP:220.134.xxx.xxx 訂閱
雪龍前輩:
我來對號入座一下,hotdogtome大大您可能在講我吧!
但是花了時間開了你寫的範例,提供書籍給你參考,
不然你住哪,若離我家很近的話,你可以來找我!(我說真的,我的個人資料有信箱,歡迎私底下聯繫!
,若找不到我住的地方,我也可以給你電話!)
但是我們有時、尤其是我自己「總是以為自己用了最好的方式、問了對的問題」
標題:「請問一下如何在DB 增加四種功能呢?」 我的建議啦!
先簡化問題,先學會新增在找.....一步一步來,我提供書籍的名稱,是因為書籍真的講的很清楚,
並無所謂「自侍而高」,況且我自己問題也很多啊!怎麼高的起來!
只是你遭遇的問題,真的透過書籍就可以解決! 我自己有時也會很急啊!
遇到前輩沒回,我也會很失望,但是我總會想,人家有給提示就不錯了!
「Delphi 資料庫程式設計」文魁資訊 楊宗誌 這一本真的介紹的超簡單、超詳細
說真的「令人叫不悅的..當別人有問題時..某些人便會說你去參考某某書籍...但那些書籍卻都未曾提及作者的問題.」
大家提供的書籍,你真的去看了嗎?「都未曾提及作者的問題」,那介紹給你看作啥!
ktop是一個好地方,說真的我自己很菜、問的問題也很不好,但是每次收到有人回應,我都很感謝!
我之所以打「bestlong前輩,您是好人!」是因為,我自己一直獲得bestlong協助,而bestlong也一直直想提供幫
大家的方法,但是你介紹給你的書籍去看了嗎? 提供給你的書籍中,你有哪些看不懂的,這樣的程度的幫忙,
你覺得符不符合,幫你的標準!
那我跟您深恩的道歉! 很難過造成您的不好觀感,我會改進的!
------
「人們所以覺得寂寞,是因為他們會築牆,卻不會搭橋。」
程式寫的越久,卻發現自己越來越不會寫程式!
hotdogtome
一般會員


發表:2
回覆:5
積分:1
註冊:2006-12-18

發送簡訊給我
#12 引用回覆 回覆 發表時間:2007-01-08 23:44:57 IP:61.225.xxx.xxx 訂閱
ㄜ......不好意思拉....
因為那天真的突然看到這回答..真的不是很開心....
因為自己也是個學生...像同學之間就有很多人明明寫出來了就是不教,就說XXX書你可以看啊....
可是看完後可能他要表達意思在裡面....可是我們真的剛摸不是很懂....真的不會...
總會想說請他可以教我們如何做...也許學習動機不好...但我自己教導別人確實是降...
不然至少會慢慢的教他....所以可能看到後就覺得觸景傷情吧.....
真的很不好意思.....對您這樣生氣...也造成彼此誤會.....
不過到最後我還是用了TQUERY的作法...也把這程式完成了...還是很謝謝各位..~~
暗黑破壞神
版主


發表:9
回覆:2301
積分:1627
註冊:2004-10-04

發送簡訊給我
#13 引用回覆 回覆 發表時間:2007-01-09 00:22:28 IP:218.170.xxx.xxx 訂閱
堅持不用 SQL?
什麼是 SQL?
TQuery 就是 SQL 嗎?
只用 TTable 就算不用 SQL?
有些觀念是要想清楚的。

你要用 TTable 去做建查更刪。
有想一下 TTable 有那些功能嗎?
它有 Append, FindKey, FindFirst, Edit, Delete,這幾個函數(以C的說法)
你有去了解它們了嗎?只是按個 Alt F1, 就可以查到的東西。
把它們的 help 看一看,你的問題應該就能解決了。

反而是你現在對 SQL 的定義有些不清楚了。這又是另一個題目的問題了。

因為你是學生。所以我們希望你要由基礎開始。而基礎除了語言之外,就是你所用的工具所給你的”額外功能”
TTable, TQuery.....etc 這些個”元件”就是你所用的工具所給你的額外功能。
你要去了解你用的工具。要去熟悉它。
而不是說大家愛開書單。
學生就是要多看多試。。。。。。真的有很多要講,老了。懶得打太多字了。
bestlong
站務副站長


發表:126
回覆:734
積分:512
註冊:2002-10-19

發送簡訊給我
#14 引用回覆 回覆 發表時間:2007-01-09 08:51:28 IP:60.248.xxx.xxx 訂閱
若是已解決自己的問題,最好是說明一下你的解決過程與方法
這樣這篇主題對你自己與別人才有意義

------
http://blog.bestlong.idv.tw/
http://www.bestlong.idv.tw/
http://delphi-ktop.bestlong.idv.tw/
系統時間:2024-05-19 3:00:08
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!