[Delphi]進銷存程式(含原始碼) |
|
superlevin
高階會員 發表:181 回覆:313 積分:180 註冊:2003-01-12 發送簡訊給我 |
各位好:
我是一位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 發送簡訊給我 |
引言: 各位好: 我是一位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 發送簡訊給我 |
引言: 精神可佳,站長佩服您喔! 站長的測試經過! 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 發送簡訊給我 |
|
bookworm
中階會員 發表:63 回覆:161 積分:82 註冊:2002-08-03 發送簡訊給我 |
|
jackkcg
站務副站長 發表:891 回覆:1050 積分:848 註冊:2002-03-23 發送簡訊給我 |
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 發送簡訊給我 |
|
xwing
初階會員 發表:17 回覆:56 積分:44 註冊:2002-12-31 發送簡訊給我 |
引言:hi~ 你有把 GPL 修款放進去嗎? 放進去比較好喔.. 如果大家中MS太深的人不知道什麼叫GPL的話 簡單說GPL的軟体就是 open source,雖然你可以拿去用 也可以拿去賣,但是你對該軟体所做的任何修改,都必須要以GPL的方式釋出 也就是說無論你改了什麼,你改過的地方都要釋出原始碼。 這樣才叫"自由"軟体. : ) ------------ 保持感恩的心..引言: 好像還要增加一個pro的AliasName到data\node.db 寫得真的很好,我要多多學習!恩~在程式碼資料夾中,有程式碼說明及操作說明檔!可能是沒設定好的問題囉~謝謝!
------
------------ 我是瘦鵝... |
xwing
初階會員 發表:17 回覆:56 積分:44 註冊:2002-12-31 發送簡訊給我 |
|
superlevin
高階會員 發表:181 回覆:313 積分:180 註冊:2003-01-12 發送簡訊給我 |
|
chih
版主 發表:48 回覆:1186 積分:639 註冊:2002-04-02 發送簡訊給我 |
看了一下..你的版權宣告..這樣大家要修改是不是會有觸犯ㄋ??
因為你裡面有提到:
本公司允許國立勤益技術學院資訊管理科(系)在其專題應用程式中,不限次數的使用本程式;並可將本程式傳送給其他使用者。
是不是只能國立勤益技術學院資訊管理科(系)使用ㄋ??
unit Main; // ----------------------------------------------------------------------------- // 程式名稱:Main.pas // 製 作 群:Duck Studio ~林壽山、李雅雯、蕭淑如、王伯元、周冠汝、王姿茜 // 聯絡電話:04-25332038、0921-789779~壽山 // 電子郵件:superlevin.tw@yahoo.com.tw~壽山 // // 撰 寫 者:壽山、雅雯、淑如、伯元、冠汝、姿茜 // 類 別:主畫面程式 // 最後修改日期:2002/3/28 // // 版權宣告:本程式、及與本程式相關之檔案,其智慧財產權皆屬於Duck Studio製作群 // 共同所有。基於技術共享的原則,本公司允許國立勤益技術學院資訊管理科 // (系)在其專題應用程式中,不限次數的使用本程式;並可將本程式傳 // 送給其他使用者。然而,Duck Studio製作群對本程式仍保有著作權,任何 // 修改或是擴充本程式之程式碼的行為,在未獲得製作群之允許之前,皆屬 // 違法之行為,製作群保留追訴的權力。 // // 功能描述: // ----------------------------------------------------------------------------- interface 引言:引言:謝謝您的建議!我正在GPL放入程式中了~謝謝!引言: PS.您開放原始碼,其他的團員同意嗎? ~~~Delphi K.Top討論區站長~~~用 GPL 條款就OK..雖然很多人昧著良心 : ) ------------ 保持感恩的心.. |
superlevin
高階會員 發表:181 回覆:313 積分:180 註冊:2003-01-12 發送簡訊給我 |
引言: 看了一下..你的版權宣告..這樣大家要修改是不是會有觸犯ㄋ?? 因為你裡面有提到: 本公司允許國立勤益技術學院資訊管理科(系)在其專題應用程式中,不限次數的使用本程式;並可將本程式傳送給其他使用者。 是不是只能國立勤益技術學院資訊管理科(系)使用ㄋ??感謝您的提醒~我已經將所有程式碼的部份~改放上GPL了!謝謝!unit Main; // ----------------------------------------------------------------------------- // 程式名稱:Main.pas // 製 作 群:Duck Studio ~林壽山、李雅雯、蕭淑如、王伯元、周冠汝、王姿茜 // 聯絡電話:04-25332038、0921-789779~壽山 // 電子郵件:superlevin.tw@yahoo.com.tw~壽山 // // 撰 寫 者:壽山、雅雯、淑如、伯元、冠汝、姿茜 // 類 別:主畫面程式 // 最後修改日期:2002/3/28 // // 版權宣告:本程式、及與本程式相關之檔案,其智慧財產權皆屬於Duck Studio製作群 // 共同所有。基於技術共享的原則,本公司允許國立勤益技術學院資訊管理科 // (系)在其專題應用程式中,不限次數的使用本程式;並可將本程式傳 // 送給其他使用者。然而,Duck Studio製作群對本程式仍保有著作權,任何 // 修改或是擴充本程式之程式碼的行為,在未獲得製作群之允許之前,皆屬 // 違法之行為,製作群保留追訴的權力。 // // 功能描述: // ----------------------------------------------------------------------------- interface
------
林壽山 網站: http://superlevin.ifengyuan.tw mail: superlevin@gmail.com |
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
看過程式後幾點看法:
1.基本的程式觀念都滿正確的,具有寫程式的天份
2.資料表的開立很都滿得宜的,具有合理的關聯式架構
3.所有的Form均為自動產生,這一點比較差,會造成程式一執行時開啟速度很慢,應該全部改為程式去Create Form
(除了主Form之外)
4.類似功能的Form太多,應該可以共用,採用參數化的方式去共用同類型的Form,如:銷貨單與銷貨退回單就可以共用,如此可以加快軟體的開發! 以上只是個人看法,加油喔! ~~~Delphi K.Top討論區站長~~~
------
~~~Delphi K.Top討論區站長~~~ |
superlevin
高階會員 發表:181 回覆:313 積分:180 註冊:2003-01-12 發送簡訊給我 |
引言: 看過程式後幾點看法: 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 發送簡訊給我 |
|
xwing
初階會員 發表:17 回覆:56 積分:44 註冊:2002-12-31 發送簡訊給我 |
|
superlevin
高階會員 發表:181 回覆:313 積分:180 註冊:2003-01-12 發送簡訊給我 |
|
pkwen
一般會員 發表:0 回覆:1 積分:0 註冊:2003-01-17 發送簡訊給我 |
|
a6475
高階會員 發表:67 回覆:230 積分:154 註冊:2002-09-15 發送簡訊給我 |
|
superlevin
高階會員 發表:181 回覆:313 積分:180 註冊:2003-01-12 發送簡訊給我 |
引言:引言: 好像還要增加一個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 發送簡訊給我 |
|
TATSU
版主 發表:50 回覆:135 積分:62 註冊:2003-01-16 發送簡訊給我 |
可以講解你的 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 發送簡訊給我 |
|
superlevin
高階會員 發表:181 回覆:313 積分:180 註冊:2003-01-12 發送簡訊給我 |
引言: 大家好, 當我下載後,並用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 發送簡訊給我 |
|
pcplayer99
尊榮會員 發表:146 回覆:790 積分:632 註冊:2003-01-21 發送簡訊給我 |
我没下载SOURCE来看,但逐个看了这里的每个贴。感觉这个程式用的是 BDE,PARADOX,因此有人在问BDE如何设置。
个人觉得,BDE的确有点过时了。不过,不管用 BDE 还是别的什么,最好把和 DataBase 打交道的部分独立出来,做分层开发。这样就可以很方便的切换 DataBase。也就是说,一开始就把它规划为 N-Tier 会比较好些。 做 ERP,最麻烦的是业务逻辑。作为一个写程式的人,如何能够充分了解企业的业务逻辑,如何设计出真正适合企业实际运作逻辑的业务逻辑,这是一个很大的问题。最好是在企业里呆过,知道企业是如何运作的,设计出来的逻辑才会比较切合实际。 至于纯技术部分,代码切割为 N-TIER, 并且把各个模块切割成包(BPL),相似的 FORM 采用 FORM 继承的方式,等等。业务逻辑复杂,最好把复杂的业务逻辑设计为class,采用 class 继承的方式,等等。 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |