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

[Delphi]進銷存程式(含原始碼)

 
superlevin
高階會員


發表:181
回覆:313
積分:180
註冊:2003-01-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-01-12 08:25:49 IP:210.58.xxx.xxx 未訂閱
各位好: 我是一位20歲的學生,這個進銷存程式是我在二專畢業所做的畢業專題。為什麼要公佈出來呢?雖然這個程式對各位來說是一個像玩具般的程式,但對我而言,這是一個對我曾是極大挑戰的專題。因為,這個程式,是從無到有,趕了一個月所做出來的一個程式。我知道寫得並非不是很好,但是~我一直由衷的希望它有朝一日真的變成一個大軟體,但是~有一點,我學delphi至今仍未滿一年,所以,今天我將我所寫的程式碼釋放出來。我希望,能夠集思廣義,讓這個程式變得更好、更茁壯。所以,我希望能夠效法GNU計畫一樣,將所有原始碼附上,讓所有人都能更改、閱讀。而唯一的限制就是,不管做任何修改,都以自由軟體基金會所公佈的條例為主軸。獨佔會減低創新的原動力,我也希望以後的任何人在program可以直接由先人所創作的基礎上蓋起高樓。希望大家一起與我追求..我的構想是以mailing list的方式,組織一個虛擬團隊。 我的mail是 im913310@ocit.edu.tw 發表人 - superlevin 於 2003/01/12 21:20:54 發表人 - superlevin 於 2003/01/13 09:49:33 發表人 - superlevin 於 2003/01/13 09:58:04
------
林壽山
網站: http://superlevin.ifengyuan.tw
mail: superlevin@gmail.com
附加檔案:24860_download.html
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-01-12 09:37:21 IP:202.39.xxx.xxx 未訂閱
引言: 各位好: 我是一位20歲的學生,這個進銷存程式是我在二專畢業所做的畢業專題。為什麼要公佈出來呢?雖然這個程式對各位來說是一個像玩具般的程式,但對我而言,這是一個對我曾是極大挑戰的專題。因為,這個程式,是從無到有,趕了一個月所做出來的一個程式。我知道寫得並非不是很好,但是~我一直由衷的希望它有朝一日真的變成一個大軟體,但是~有一點,我學delphi至今仍未滿一年,所以,今天我將我所寫的程式碼釋放出來。我希望,能夠集思廣義,讓這個程式變得更好、更茁壯。所以,我希望能夠效法GNU計畫一樣,將所有原始碼附上,讓所有人都能更改、閱讀。而唯一的限制就是,不管做任何修改,都以自由軟體基金會所公佈的條例為主軸。獨佔會減低創新的原動力,我也希望以後的任何人在program可以直接由先人所創作的基礎上蓋起高樓。希望大家一起與我追求..我的構想是以mailing list的方式,組織一個虛擬團隊。 我的mail是 im913310@ocit.edu.tw
精神可佳,站長佩服您喔! 站長的測試經過! LOGO.PAS程式中 uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, OleCtrls, ShockwaveFlashObjects_TLB; 以上紅色部分要拿掉程式才可以Compile, 還有要設定一個MS的ODBC資料來源名稱,指向\data\msdb.mdb 還有在BDE中設一個PIF的AliasName指\data目錄(trees.db) 用Delphi 5.0可以執行! 以您的年齡來說,寫這樣的程式算是很好了喔, 這軟體已經不能稱為玩具了,稍作修改就可以給公司運用了喔! 加油喔superlevin! PS.您開放原始碼,其他的團員同意嗎? ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
superlevin
高階會員


發表:181
回覆:313
積分:180
註冊:2003-01-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-01-12 09:48:24 IP:210.58.xxx.xxx 未訂閱
引言: 精神可佳,站長佩服您喔! 站長的測試經過! LOGO.PAS程式中 uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, OleCtrls, ShockwaveFlashObjects_TLB; 以上紅色部分要拿掉程式才可以Compile, 還有要設定一個MS的ODBC資料來源名稱,指向\data\msdb.mdb 還有在BDE中設一個PIF的AliasName指\data目錄(trees.db) 用Delphi 5.0可以執行! 以您的年齡來說,寫這樣的程式算是很好了喔, 這軟體已經不能稱為玩具了,稍作修改就可以給公司運用了喔! 加油喔superlevin! PS.您開放原始碼,其他的團員同意嗎? ~~~Delphi K.Top討論區站長~~~
謝謝站長!ShockwaveFlashObjects_TLB這是當時我想加入flash所放進去的~後來因為專題在即,而放棄加上的!恩~在設資料來源的方面,我也注意到了!謝謝站長的鼓勵~希望往後多多指教! 恩~其他團員都同意了!因為所有的source code都是我一手包辦的~^^
------
林壽山
網站: http://superlevin.ifengyuan.tw
mail: superlevin@gmail.com
bookworm
中階會員


發表:63
回覆:161
積分:82
註冊:2002-08-03

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-01-12 10:27:58 IP:210.85.xxx.xxx 未訂閱
好像還要增加一個pro的AliasName到data\node.db 寫得真的很好,我要多多學習!
bookworm
中階會員


發表:63
回覆:161
積分:82
註冊:2002-08-03

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-01-12 10:37:37 IP:210.85.xxx.xxx 未訂閱
順便問個問題。我看過很多人都寫過地址輔助輸入的東西 請問這些原始資料是從哪取得的呢?
jackkcg
站務副站長


發表:891
回覆:1050
積分:848
註冊:2002-03-23

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-01-12 11:44:35 IP:61.64.xxx.xxx 未訂閱
banson1716 上傳    輸入地址欄位全自動取得台灣郵政及電話區號  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=24105    不知是否是你要的     庵記的郵政總局網站好像有開放此東西    你的  【發表】[Delphi]進銷存程式(含原始碼)< >< >< >< >< >可真是粉好ㄛ< > *************************************************************************** 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好
------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind
superlevin
高階會員


發表:181
回覆:313
積分:180
註冊:2003-01-12

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-01-12 12:46:13 IP:210.58.xxx.xxx 未訂閱
引言: 好像還要增加一個pro的AliasName到data\node.db 寫得真的很好,我要多多學習!
恩~在程式碼資料夾中,有程式碼說明及操作說明檔!可能是沒設定好的問題囉~謝謝!
------
林壽山
網站: http://superlevin.ifengyuan.tw
mail: superlevin@gmail.com
xwing
初階會員


發表:17
回覆:56
積分:44
註冊:2002-12-31

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-01-12 17:24:18 IP:163.25.xxx.xxx 未訂閱
引言:
引言: 好像還要增加一個pro的AliasName到data\node.db 寫得真的很好,我要多多學習!
恩~在程式碼資料夾中,有程式碼說明及操作說明檔!可能是沒設定好的問題囉~謝謝!
hi~ 你有把 GPL 修款放進去嗎? 放進去比較好喔.. 如果大家中MS太深的人不知道什麼叫GPL的話 簡單說GPL的軟体就是 open source,雖然你可以拿去用 也可以拿去賣,但是你對該軟体所做的任何修改,都必須要以GPL的方式釋出 也就是說無論你改了什麼,你改過的地方都要釋出原始碼。 這樣才叫"自由"軟体. : ) ------------ 保持感恩的心..
------
------------
我是瘦鵝...
xwing
初階會員


發表:17
回覆:56
積分:44
註冊:2002-12-31

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-01-12 17:26:02 IP:163.25.xxx.xxx 未訂閱
引言: PS.您開放原始碼,其他的團員同意嗎? ~~~Delphi K.Top討論區站長~~~
用 GPL 條款就OK..雖然很多人昧著良心 : ) ------------ 保持感恩的心..
------
------------
我是瘦鵝...
superlevin
高階會員


發表:181
回覆:313
積分:180
註冊:2003-01-12

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-01-12 19:04:01 IP:210.58.xxx.xxx 未訂閱
引言:
引言: PS.您開放原始碼,其他的團員同意嗎? ~~~Delphi K.Top討論區站長~~~
用 GPL 條款就OK..雖然很多人昧著良心 : ) ------------ 保持感恩的心..
謝謝您的建議!我正在GPL放入程式中了~謝謝!
------
林壽山
網站: http://superlevin.ifengyuan.tw
mail: superlevin@gmail.com
chih
版主


發表:48
回覆:1186
積分:639
註冊:2002-04-02

發送簡訊給我
#11 引用回覆 回覆 發表時間:2003-01-13 09:20:55 IP:211.74.xxx.xxx 未訂閱
看了一下..你的版權宣告..這樣大家要修改是不是會有觸犯ㄋ?? 因為你裡面有提到: 本公司允許國立勤益技術學院資訊管理科(系)在其專題應用程式中,不限次數的使用本程式;並可將本程式傳送給其他使用者。 是不是只能國立勤益技術學院資訊管理科(系)使用ㄋ??
unit Main;
// -----------------------------------------------------------------------------
// 程式名稱:Main.pas
// 製 作 群:Duck Studio ~林壽山、李雅雯、蕭淑如、王伯元、周冠汝、王姿茜
// 聯絡電話:04-25332038、0921-789779~壽山
// 電子郵件:superlevin.tw@yahoo.com.tw~壽山
//
// 撰 寫 者:壽山、雅雯、淑如、伯元、冠汝、姿茜
// 類    別:主畫面程式
// 最後修改日期:2002/3/28
//
// 版權宣告:本程式、及與本程式相關之檔案,其智慧財產權皆屬於Duck Studio製作群
//           共同所有。基於技術共享的原則,本公司允許國立勤益技術學院資訊管理科
//      (系)在其專題應用程式中,不限次數的使用本程式;並可將本程式傳
//           送給其他使用者。然而,Duck Studio製作群對本程式仍保有著作權,任何
//           修改或是擴充本程式之程式碼的行為,在未獲得製作群之允許之前,皆屬
//           違法之行為,製作群保留追訴的權力。
//
// 功能描述:
// -----------------------------------------------------------------------------    interface
引言:
引言:
引言: PS.您開放原始碼,其他的團員同意嗎? ~~~Delphi K.Top討論區站長~~~
用 GPL 條款就OK..雖然很多人昧著良心 : ) ------------ 保持感恩的心..
謝謝您的建議!我正在GPL放入程式中了~謝謝!
superlevin
高階會員


發表:181
回覆:313
積分:180
註冊:2003-01-12

發送簡訊給我
#12 引用回覆 回覆 發表時間:2003-01-13 09:59:36 IP:210.58.xxx.xxx 未訂閱
引言: 看了一下..你的版權宣告..這樣大家要修改是不是會有觸犯ㄋ?? 因為你裡面有提到: 本公司允許國立勤益技術學院資訊管理科(系)在其專題應用程式中,不限次數的使用本程式;並可將本程式傳送給其他使用者。 是不是只能國立勤益技術學院資訊管理科(系)使用ㄋ??
unit Main;
// -----------------------------------------------------------------------------
// 程式名稱:Main.pas
// 製 作 群:Duck Studio ~林壽山、李雅雯、蕭淑如、王伯元、周冠汝、王姿茜
// 聯絡電話:04-25332038、0921-789779~壽山
// 電子郵件:superlevin.tw@yahoo.com.tw~壽山
//
// 撰 寫 者:壽山、雅雯、淑如、伯元、冠汝、姿茜
// 類    別:主畫面程式
// 最後修改日期:2002/3/28
//
// 版權宣告:本程式、及與本程式相關之檔案,其智慧財產權皆屬於Duck Studio製作群
//           共同所有。基於技術共享的原則,本公司允許國立勤益技術學院資訊管理科
//      (系)在其專題應用程式中,不限次數的使用本程式;並可將本程式傳
//           送給其他使用者。然而,Duck Studio製作群對本程式仍保有著作權,任何
//           修改或是擴充本程式之程式碼的行為,在未獲得製作群之允許之前,皆屬
//           違法之行為,製作群保留追訴的權力。
//
// 功能描述:
// -----------------------------------------------------------------------------    interface
感謝您的提醒~我已經將所有程式碼的部份~改放上GPL了!謝謝!
------
林壽山
網站: http://superlevin.ifengyuan.tw
mail: superlevin@gmail.com
領航天使
站長


發表:12216
回覆:4186
積分:4084
註冊:2001-07-25

發送簡訊給我
#13 引用回覆 回覆 發表時間:2003-01-13 10:27:56 IP:210.202.xxx.xxx 未訂閱
看過程式後幾點看法: 1.基本的程式觀念都滿正確的,具有寫程式的天份 2.資料表的開立很都滿得宜的,具有合理的關聯式架構 3.所有的Form均為自動產生,這一點比較差,會造成程式一執行時開啟速度很慢,應該全部改為程式去Create Form (除了主Form之外) 4.類似功能的Form太多,應該可以共用,採用參數化的方式去共用同類型的Form,如:銷貨單與銷貨退回單就可以共用,如此可以加快軟體的開發! 以上只是個人看法,加油喔! ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~
superlevin
高階會員


發表:181
回覆:313
積分:180
註冊:2003-01-12

發送簡訊給我
#14 引用回覆 回覆 發表時間:2003-01-13 10:46:45 IP:210.58.xxx.xxx 未訂閱
引言: 看過程式後幾點看法: 1.基本的程式觀念都滿正確的,具有寫程式的天份 2.資料表的開立很都滿得宜的,具有合理的關聯式架構 3.所有的Form均為自動產生,這一點比較差,會造成程式一執行時開啟速度很慢,應該全部改為程式去Create Form (除了主Form之外) 4.類似功能的Form太多,應該可以共用,採用參數化的方式去共用同類型的Form,如:銷貨單與銷貨退回單就可以共用,如此可以加快軟體的開發! 以上只是個人看法,加油喔! ~~~Delphi K.Top討論區站長~~~
謝謝站長花時間閱讀程式! 第三、四點的建議,將持續改進!謝謝!
------
林壽山
網站: http://superlevin.ifengyuan.tw
mail: superlevin@gmail.com
danny
版主


發表:100
回覆:522
積分:595
註冊:2002-03-11

發送簡訊給我
#15 引用回覆 回覆 發表時間:2003-01-14 12:23:13 IP:210.202.xxx.xxx 未訂閱
引言: 我是一位20歲的學生,這個進銷存程式是我在二專畢業所做的畢業專題。
superlevin 不錯呦! 想不到您竟然是我學弟(不過我們那時沒有資管), 後生可畏, 加油 !!!
------
將問題盡快結案也是一種禮貌!
xwing
初階會員


發表:17
回覆:56
積分:44
註冊:2002-12-31

發送簡訊給我
#16 引用回覆 回覆 發表時間:2003-01-14 14:28:18 IP:163.25.xxx.xxx 未訂閱
引言:
引言: 我是一位20歲的學生,這個進銷存程式是我在二專畢業所做的畢業專題。
superlevin 不錯呦! 想不到您竟然是我學弟(不過我們那時沒有資管), 後生可畏, 加油 !!!
是啊...... 奇怪,這年頭年輕人真是愈來愈猛...本站還有一個14歲的 資訊~~真是沒有倫理的領域<-侯X(X捷)說的..果然是對的 ------------ 誰能賜給我腎虧的良藥呢?
------
------------
我是瘦鵝...
superlevin
高階會員


發表:181
回覆:313
積分:180
註冊:2003-01-12

發送簡訊給我
#17 引用回覆 回覆 發表時間:2003-01-14 22:13:29 IP:210.58.xxx.xxx 未訂閱
引言:
引言: 我是一位20歲的學生,這個進銷存程式是我在二專畢業所做的畢業專題。
superlevin 不錯呦! 想不到您竟然是我學弟(不過我們那時沒有資管), 後生可畏, 加油 !!!
您也是勤益的學長呀?真是失敬失敬! 呃~後生可畏?沒有啦!倒是我還有許 多地方需要各位前輩們請教才是!
------
林壽山
網站: http://superlevin.ifengyuan.tw
mail: superlevin@gmail.com
pkwen
一般會員


發表:0
回覆:1
積分:0
註冊:2003-01-17

發送簡訊給我
#18 引用回覆 回覆 發表時間:2003-01-17 17:47:31 IP:218.16.xxx.xxx 未訂閱
我也是一個學生,我看過你的程序。我覺得你的進銷存是初步體現出在銷售企業 中的應用,也能把企業的運行規則表現於程式中,但有些操作不方便,如一個訂貨單隻能進一樣商品!這樣就有點不符操作規范的了。這隻是我個人的一些意見 其中並沒什麼標準。有什麼不妥之外還請各位包含啊!
a6475
高階會員


發表:67
回覆:230
積分:154
註冊:2002-09-15

發送簡訊給我
#19 引用回覆 回覆 發表時間:2003-01-17 18:30:16 IP:61.229.xxx.xxx 未訂閱
引言: 好像還要增加一個pro的AliasName到data\node.db 寫得真的很好,我要多多學習!
請各一下,那個在BDE的pro和pif的type要設什麼? 為什麼我一直不能開啟... 月夜 光明 藍更愁
------
月夜 光明 藍更愁
superlevin
高階會員


發表:181
回覆:313
積分:180
註冊:2003-01-12

發送簡訊給我
#20 引用回覆 回覆 發表時間:2003-01-17 19:54:54 IP:210.58.xxx.xxx 未訂閱
引言:
引言: 好像還要增加一個pro的AliasName到data\node.db 寫得真的很好,我要多多學習!
請各一下,那個在BDE的pro和pif的type要設什麼? 為什麼我一直不能開啟... 月夜 光明 藍更愁 < face="Verdana, Arial, Helvetica"> Type選擇Standard(PARADOX)即可!如果您尚有任何疑問~請您mail給我!
------
林壽山
網站: http://superlevin.ifengyuan.tw
mail: superlevin@gmail.com
ricky123
一般會員


發表:3
回覆:7
積分:2
註冊:2002-09-14

發送簡訊給我
#21 引用回覆 回覆 發表時間:2003-01-19 09:05:49 IP:218.162.xxx.xxx 未訂閱
我下載了程式可是不能執行,BDE那裡要怎麼設定,使用手冊裡沒有說明,麻煩請說明一下................................
TATSU
版主


發表:50
回覆:135
積分:62
註冊:2003-01-16

發送簡訊給我
#22 引用回覆 回覆 發表時間:2003-01-20 04:00:24 IP:202.60.xxx.xxx 未訂閱
可以講解你的 BDE 設定讓我可以嘗試執行你的程式嗎? 我未執行已經見到有一個大問題,你的 SUB FORM 竟然全部是 AUTO CREATE,你會減低你的總程式的開啟時間,又會佔用大量的記憶體,盡可能用一個就 create 一個,如果你在 windows 98 的環境下,真的會當機。 procedure TMain.btnAboutClick(Sender: TObject); var fAbout : TfrmAbout ; begin fAbout := TfrmAbout.Create(self) ; fAbout.ShowModal ; fAbout.Free ; end;
luke
一般會員


發表:5
回覆:2
積分:1
註冊:2002-03-27

發送簡訊給我
#23 引用回覆 回覆 發表時間:2003-04-04 18:09:51 IP:211.73.xxx.xxx 未訂閱
大家好, 當我下載後,並用rar (Ver 2.7)解壓縮,只有目錄,沒有檔案.請問要如何解壓縮才正確.
superlevin
高階會員


發表:181
回覆:313
積分:180
註冊:2003-01-12

發送簡訊給我
#24 引用回覆 回覆 發表時間:2003-04-04 19:06:38 IP:211.76.xxx.xxx 未訂閱
引言: 大家好, 當我下載後,並用rar (Ver 2.7)解壓縮,只有目錄,沒有檔案.請問要如何解壓縮才正確. < face="Verdana, Arial, Helvetica"> 您好!這個壓縮檔是以Rar(Ver 3.0)所壓縮的~所以當您在解壓縮時,會發生錯誤。 請您參考這篇http://delphi.ktop.com.tw/topic.php?TOPIC_ID=24939 程式不是寫來玩的 而是要有價值
------
林壽山
網站: http://superlevin.ifengyuan.tw
mail: superlevin@gmail.com
ns2a2002
一般會員


發表:0
回覆:3
積分:0
註冊:2007-12-08

發送簡訊給我
#25 引用回覆 回覆 發表時間:2007-12-09 22:32:39 IP:59.127.xxx.xxx 訂閱
我沒辦法下載耶?該怎麼下載?
說真的....我本來也想寫這種專題的,不過是想用VB2005寫....
------
最早接觸的程式語言...就是delphi...
不過卻是學的最不專精的XD
pcplayer99
尊榮會員


發表:146
回覆:790
積分:632
註冊:2003-01-21

發送簡訊給我
#26 引用回覆 回覆 發表時間:2008-02-01 13:17:21 IP:218.18.xxx.xxx 訂閱
我没下载SOURCE来看,但逐个看了这里的每个贴。感觉这个程式用的是 BDE,PARADOX,因此有人在问BDE如何设置。

个人觉得,BDE的确有点过时了。不过,不管用 BDE 还是别的什么,最好把和 DataBase 打交道的部分独立出来,做分层开发。这样就可以很方便的切换 DataBase。也就是说,一开始就把它规划为 N-Tier 会比较好些。

做 ERP,最麻烦的是业务逻辑。作为一个写程式的人,如何能够充分了解企业的业务逻辑,如何设计出真正适合企业实际运作逻辑的业务逻辑,这是一个很大的问题。最好是在企业里呆过,知道企业是如何运作的,设计出来的逻辑才会比较切合实际。

至于纯技术部分,代码切割为 N-TIER, 并且把各个模块切割成包(BPL),相似的 FORM 采用 FORM 继承的方式,等等。业务逻辑复杂,最好把复杂的业务逻辑设计为class,采用 class 继承的方式,等等。
系統時間:2024-03-29 21:37:39
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!