畢業(yè)設(shè)計（論文）Delphi程序電腦公司管理系統(tǒng)設(shè)計

1、重慶大學(xué)計算機學(xué)院計算機及應(yīng)用畢業(yè)設(shè)計重慶xx電腦公司管理系統(tǒng)設(shè)計人員：劉?。篸elphi7.0設(shè)計曾黎：uml設(shè)計李鈴：sql數(shù)據(jù)庫表設(shè)計 目錄一、 前言一、 課題名稱二、 開發(fā)背景三、 使用的主技術(shù)及技術(shù)現(xiàn)狀二、 需求分析三、 電腦公司信息管理系統(tǒng)dfd圖四、 uml建模過程一、 業(yè)務(wù)用例模型二、 業(yè)務(wù)用例圖五、 數(shù)據(jù)庫設(shè)計六、 源程序七、 總結(jié)八、 參考文獻 一、 前言：一、課題名稱：電腦公司信息管理系統(tǒng)二、開發(fā)背景： 隨著個人計算機的普及，電腦行業(yè)的迅速發(fā)展，使得電腦銷售行業(yè)的竟?fàn)幵絹碓郊ち?。怎樣才能在激烈的竟?fàn)幹刑岣吖具\行效率，保持竟?fàn)巸?yōu)勢？伴隨著計算機技術(shù)在各行各業(yè)日益廣泛和深入

2、的應(yīng)用，會計電算化的概念也早已經(jīng)不僅僅限于甩帳，即使用一套財務(wù)軟件代替原來的手工記帳，在對于系統(tǒng)進行了適當(dāng)?shù)闹煤?，一旦登入憑證資料，執(zhí)行審核和記帳的功能后，將自動產(chǎn)生需要的各種總明細帳。計算機產(chǎn)業(yè)硬件和軟件的更新和升級及管理工作在經(jīng)濟領(lǐng)域地位的日益提高，是兩個不斷前進著的車輪，在各自發(fā)展的進程中，又彼此促進和推動著，將會計電算化推向一個新的高度?；仡櫸迥曛畠?nèi)財務(wù)軟件在國內(nèi)運用情況，我們可以得出這樣的結(jié)論：95年是實行手工記帳向計算機記帳的轉(zhuǎn)變的一年，主要解決的問題是甩帳；96年中大多數(shù)企業(yè)使用網(wǎng)絡(luò)版windows操作平臺下的財務(wù)軟件取代單用戶版dos支持的財務(wù)軟件，使一套軟件可以同時被多個用戶

3、使用，并提高了系統(tǒng)運行的速度和穩(wěn)定性；97年后，人們強調(diào)的是財務(wù)軟件的管理功能，除了帳務(wù)系統(tǒng)之外，企業(yè)的生產(chǎn)、經(jīng)營的業(yè)務(wù)活動也必需納入計算機系統(tǒng)的全局管理，建立包括財務(wù)、生產(chǎn)、采購、銷售、倉儲等在內(nèi)的子系統(tǒng)，各個系統(tǒng)之間共享數(shù)據(jù)，實現(xiàn)無縫連接，對于企業(yè)整體生產(chǎn)經(jīng)營運作實現(xiàn)整體管理的要求被提上議事日程；98年國內(nèi)南北兩大財務(wù)軟件公司，北京用友和深圳金蝶分別推出了自己的決策支持型管理軟件erp 和 k3 ，標(biāo)志著國內(nèi)企業(yè)會計電算化水平更進一步的提高。因此必須使用先進的管理方式對公司進行管理，而先進的管理方式在很大程度上依賴于信息管理系統(tǒng)的使用。本系統(tǒng)包括電腦配件的進銷存管理、客戶關(guān)系管理、產(chǎn)品售后

4、服務(wù)管理、公司人事管理四大部分。本系統(tǒng)實施后可使公司節(jié)省更多的人力、物力、財力，使公司經(jīng)營運作物流更清晰、經(jīng)營狀況更詳細準(zhǔn)確，使公司的經(jīng)營管理體系更加科學(xué)化、規(guī)范化、合理化。三、使用的主要技術(shù)及技術(shù)現(xiàn)狀：本系統(tǒng)采用sql2000做為后臺數(shù)據(jù)庫系統(tǒng)，使用delphi7.0設(shè)計前臺應(yīng)用程序，使用uml作為分析畫圖軟件。sql2000存在以下明顯優(yōu)點：sql是在1974年由boyce和chamberlin提出，并在ibm公司研制關(guān)系數(shù)據(jù)庫管理系統(tǒng)原型system r 上實現(xiàn)的。它的前身是1972年提出的square（specifying queries asrelational expression

5、)語言，1974年修改為sequel（structured english query language），簡稱sql。經(jīng)各公司的不斷修改、擴充和完善，sql已得到解決業(yè)界的認(rèn)可。1986年10月，美國國家標(biāo)準(zhǔn)局（american national standard institute,ansi）的數(shù)據(jù)庫委員x3h2批準(zhǔn)了sql作為關(guān)系數(shù)據(jù)庫語言美國標(biāo)準(zhǔn)。同年，公布了sql標(biāo)準(zhǔn)文本（簡稱sql-86）。1987年，國際標(biāo)準(zhǔn)化組織（international organization for standardization,iso）也通過了這一標(biāo)準(zhǔn)。目前，各個數(shù)據(jù)庫廠商都有各自的sql軟件或與s

6、ql的接口軟件，并開發(fā)了各種圖形界面的輸入輸出軟件，報表生成器，軟件開發(fā)工具等，大大方便了應(yīng)用程序的開發(fā)，并且使得開發(fā)出的應(yīng)用程序的界面更豐富，更方便用戶的使用。 l sql的組成：數(shù)據(jù)定義(data definition)，數(shù)據(jù)操縱(data manipulation)，數(shù)據(jù)控制(data control)，嵌入式sql(embeded sql)l sql的特點：綜合統(tǒng)一、高度非過程化、面向集合的操作方式、以同一種語法結(jié)構(gòu)提供兩種使用方式、語言簡捷、易學(xué)易用。l 存取速度：在服務(wù)器級的數(shù)據(jù)庫中，效率還算相當(dāng)不錯。即使是單一表格數(shù)據(jù)記錄數(shù)在10萬條時，仍有相當(dāng)不劃的表現(xiàn)，但在單機使用時，數(shù)據(jù)不

7、多時，速度可能會比小型數(shù)據(jù)庫慢。l 容易使用：簡易的用戶接口，不需要背命令也能輕松操作，非常適合初中級人員使用。l 支持sql語言：現(xiàn)在的數(shù)據(jù)庫系統(tǒng)都使用這種語言，可以合程序開發(fā)上節(jié)省更多的時間。l 性能：microsoft sql server7.0后的版本可以在windows98或window nt等系統(tǒng)上運行，效率很高，也可以和多種數(shù)據(jù)庫格式溝通，而且自動備份等功能也相當(dāng)完善。l 網(wǎng)絡(luò)聯(lián)機：可利用odbc作為聯(lián)機工具，也可利用internet作為聯(lián)機方式，使用上更具靈活性。l 網(wǎng)絡(luò)安全：每個數(shù)據(jù)庫和表都可以設(shè)置權(quán)限。在使用上相當(dāng)好的防護措施。delphi是borland公司推出的一個激動

8、人心的windows應(yīng)用程序開發(fā)工具。它以易用、功能強大和穩(wěn)定可靠的特性以及擁有object pascal語言語法嚴(yán)謹(jǐn)、執(zhí)行效率高的特有優(yōu)點而深受廣大開發(fā)人員的表睞，是windows平臺下最好的開發(fā)工具之一。尤其在數(shù)據(jù)庫開發(fā)、分布計算和web應(yīng)用程序開發(fā)等方面，delphi更是體現(xiàn)出了它相對于其他開發(fā)工具在開發(fā)周期和執(zhí)行效率上的明顯優(yōu)勢。delphi7可以輕松的實現(xiàn)跨平臺，delphi7的模型驅(qū)動結(jié)構(gòu)和uml可視化設(shè)計的新特性使開發(fā)企業(yè)應(yīng)用程序變得更加快捷方便，delphi7的rad可視化服務(wù)器端web應(yīng)用程序開發(fā)技術(shù)使構(gòu)造動態(tài)web應(yīng)用程序變得輕而易舉?？傊?，delphi7相對于早期版本有很

9、大的改進，具體表現(xiàn)在：l 增加了intraweb組件，從而向程序員提供了更加高效的web應(yīng)用程序開發(fā)方式；l 增加了rave報表組件，在報表方面相對原有的quickreport系統(tǒng)組件有很相當(dāng)大的提高；l websnap技術(shù)更加完善；l 增強的datasnap技術(shù)，不但支持狀態(tài)無關(guān)的遠程數(shù)據(jù)模塊，而且提供了新的internetexpress組件，使得開發(fā)基于web的多層數(shù)據(jù)庫應(yīng)用大為簡便；l 增強的web servic技術(shù)；l 加強了對com/com+/.net的支持；l 新增了一些有時代特色的vcl組件，現(xiàn)在delphi支持xp風(fēng)格的界面開發(fā)；l ide、編譯器、調(diào)試工具上都有了很大的改進和

10、加強。uml的簡介：uml的產(chǎn)生：二、需求分析：l 公司人事管理 本部分的功能包括對公司人員的基本數(shù)據(jù)進行管理，在人員發(fā)生變化（轉(zhuǎn)正、調(diào)動、職務(wù)變動等）的情況下，能夠?qū)ζ鋽?shù)據(jù)進行修改，能對人員工資、獎金進行管理。公司領(lǐng)導(dǎo)有權(quán)對其人事、薪資信息進行分級查詢。l 進銷存管理本部分功能包括對貨品的進貨、銷售、庫存進行管理。能夠?qū)崿F(xiàn)原始數(shù)據(jù)的錄入、處理、存儲和輸出，完成訂貨管理、銷售管理、倉庫管理和統(tǒng)計分析的功能。l 客戶關(guān)系管理本部分功能包括對客戶所購產(chǎn)品信息進行管理、統(tǒng)計，分析；對客戶回訪信息進行管理。l 產(chǎn)品售后服務(wù)管理對用戶報修情況、產(chǎn)品退換貨情況、產(chǎn)品修復(fù)情況及產(chǎn)品報損情況進行管理。實現(xiàn)原始

11、數(shù)據(jù)的錄入、修改、存儲和統(tǒng)計功能。三、電腦公司信息管理系統(tǒng)dfd圖電腦公司信息管理系統(tǒng)頂層圖是和五個實體（顧客、報銷顧客、維修人員、經(jīng)理、商家）關(guān)聯(lián)。顧客向該系統(tǒng)提交一個購貨單，系統(tǒng)回返回一個購貨發(fā)票；報銷客戶提供報銷信息給系統(tǒng)由系統(tǒng)處理；維修人員，從系統(tǒng)中取得客戶維修信息單進行處理，處理后返回維修物件單給系統(tǒng)；經(jīng)理，隨時可以查詢系統(tǒng)所有信息；商家把到貨單提交給系統(tǒng)。電腦公司信息管理系統(tǒng)0層圖： 當(dāng)商家把貨送到后，將送貨單寫入到貨處理模塊，到貨處理模塊向到貨數(shù)據(jù)表|庫存數(shù)據(jù)表寫入相關(guān)數(shù)據(jù)以便查詢。當(dāng)顧客將購貨單寫入銷售系統(tǒng)模塊，銷售系統(tǒng)模塊向庫存數(shù)據(jù)表、銷售數(shù)據(jù)表、客戶信息表里寫入數(shù)據(jù)。當(dāng)顧客

12、將報修信息寫入維修處理模塊后，維修處理模塊向客戶信息表、報修信息表寫入數(shù)據(jù)，并打印客戶維修信息單。維修人員接維修信息單后，將維修物件單通過維修處理模塊寫入維修物件表里。經(jīng)理可以通過查詢處理模塊對到貨數(shù)據(jù)表、庫存數(shù)據(jù)表、銷售數(shù)據(jù)表，客戶信息表、報修信息表進行查詢。電腦公司管理系統(tǒng)銷售子系統(tǒng)流程圖：將顧客填寫的購貨單輸入客戶類別判斷模塊，寫入客戶信息表中，一：單位客戶，選擇支負的方式，a：掛賬，通過掛賬處理模塊將掛賬購貨單寫入單位掛賬表中，用單位客戶購貨單來更新庫存各銷售數(shù)據(jù)表。b：現(xiàn)金支付方式，直接用單位客戶購貨單更新庫存銷售數(shù)據(jù)表。二：個體客戶：a：一般客戶，用一般客戶購貨單更新庫存銷售數(shù)據(jù)表

13、。b：購機客戶，將購機單通過剛強機處理模塊將客戶信息寫入客戶信息表中，并同時寫計算機配置信息到用戶計算機配置登記表中，同時用購機客戶購貨單來更新庫存銷售數(shù)據(jù)表。以上各部分都通過更新庫存銷售數(shù)據(jù)模塊獲得一個購貨單，用這個單子來打印用戶購貨收據(jù)并交給顧客。四、uml建模過程：一：業(yè)務(wù)用例模型：二：業(yè)務(wù)用例圖： 主要有銷售管理、查詢處理、到貨處理、維修修理四個用例。查詢處理模塊： 當(dāng)經(jīng)理發(fā)送一個查詢請求時，能過查詢處理模塊返回查詢后的信息銷售管理： 銷售人員通過處理銷售模塊和顧客交易。到貨處理： 當(dāng)商家把貨物送到時將送貨單寫入到貨處理模塊。維修處理： 維修處理模塊把客戶維修信息單送到維修人員，維修人

14、員接到后到維修處理模塊得到維修物件單。業(yè)務(wù)角色：顧客，派生出商家和保修客戶員工，派生出維修人員、銷售員各經(jīng)理。五、數(shù)據(jù)庫設(shè)計一、部門信息表：create table dbo.department (id int not null ,department varchar (50) collate chinese_prc_ci_as not null ) on primarygo二、員工信息表create table dbo.employee (id int not null ,name varchar (50) collate chinese_prc_ci_as not null ,sex ch

15、ar (10) collate chinese_prc_ci_as null ,age char (10) collate chinese_prc_ci_as null ,birthday datetime null ,address varchar (50) collate chinese_prc_ci_as null ,phone1 varchar (50) collate chinese_prc_ci_as null ,phone2 varchar (50) collate chinese_prc_ci_as null ,department varchar (50) collate c

16、hinese_prc_ci_as null ,education varchar (50) collate chinese_prc_ci_as null ,pydate datetime null ,xfznum char (18) collate chinese_prc_ci_as not null ,remark varchar (255) collate chinese_prc_ci_as null ) on primarygo三、廠家信息表create table pany (id int not null ,廠家名稱 varchar (50) collate chine

17、se_prc_ci_as not null ,聯(lián)系人 char (10) collate chinese_prc_ci_as null ,聯(lián)系電話1 char (10) collate chinese_prc_ci_as null ,聯(lián)系電話2 char (10) collate chinese_prc_ci_as null ,傳真電話 char (10) collate chinese_prc_ci_as null ,法人代表 char (10) collate chinese_prc_ci_as null ,公司地址 varchar (50) collate chinese_prc_ci_

18、as null ,郵編 char (10) collate chinese_prc_ci_as null ,代理產(chǎn)品 varchar (50) collate chinese_prc_ci_as null ,銀行開戶行名稱 char (10) collate chinese_prc_ci_as null ,銀行開戶行帳號 varchar (50) collate chinese_prc_ci_as null ) on primarygo四、銷售信息表create table dbo.saledetail (id uniqueidentifier not null ,銷售單號 int not n

19、ull ,商品編號 char (10) collate chinese_prc_ci_as null ,商品名稱 varchar (50) collate chinese_prc_ci_as null ,商品數(shù)量 int null ,單位 char (10) collate chinese_prc_ci_as null ,商品價格 money null ,合計金額 money null ) on primarygo五、產(chǎn)品信息表create table duct (id int not null ,產(chǎn)品名稱 varchar (50) collate chinese_prc_ci_

20、as not null ,產(chǎn)品編號 char (10) collate chinese_prc_ci_as not null ,型號 char (10) collate chinese_prc_ci_as null ,價格 money null ,單位 char (10) collate chinese_prc_ci_as null ,供貨商家 varchar (50) collate chinese_prc_ci_as null ) on primarygo六、銷售數(shù)量表create table dbo.salemaster (id uniqueidentifier not null ,銷售

21、單號 int not null ,銷售日期 datetime null ,總件數(shù) int null ,總金額 money null ,經(jīng)手人 varchar (50) collate chinese_prc_ci_as null ) on primarygo七、員工編號性別create table dbo.sex (id int not null ,sex char (10) collate chinese_prc_ci_as null ) on primarygo六、源程序：系統(tǒng)主界面：使用actionmanager控件對整個系統(tǒng)的菜單和工具欄按鈕進行管理，以下為actionmanager控

22、件的部分源代碼：procedure tfrm_main.ygxxexecute(sender: tobject);begin try frm_ygxx:=tfrm_ygxx.create(self); frm_ygxx.showmodal; finally frm_ygxx.free; end;end;procedure tfrm_main.formcreate(sender: tobject); /生成數(shù)據(jù)模塊begin frm_dmm:=tfrm_dmm.create(self);end;procedure tfrmmain.formclosequery(sender: tobject;

23、var canclose:：boolean);/關(guān)閉數(shù)據(jù)模塊begin frm_dmm.destroy;end;procedure tfrm_main.bmcsexecute(sender: tobject);begin try frm_bmcs:=tfrm_bmcs.create(self); frm_bmcs.showmodal; finally frm_bmcs.free; end;end;procedure tfrm_main.gsxxexecute(sender: tobject);begin try frm_gsxx:=tfrm_gsxx.create(self); frm_gsx

24、x.showmodal; finally frm_gsxx.free; end;end;procedure tfrm_main.spxxexecute(sender: tobject);begin try frm_spxx := tfrm_spxx.create(self); frm_spxx.showmodal; finally frm_spxx.free; end;end;procedure tfrm_main.sxkdexecute(sender: tobject);begin try frm_xskd:=tfrm_xskd.create(self); frm_xskd.showmoda

25、l; finally frm_xskd.free; end;end;員工信息維護窗體：在些窗體中能對員工信息進行增，刪，改、查詢操作。此窗體源代碼如下：procedure tfrm_ygxx.btn_findclick(sender: tobject); /查詢按鈕代碼var strname:string; sucess:bool;begin if trim(edit_name.text) then begin strname:=trim(edit_name.text); sucess:=adt_empy.locate(name,strname,locaseinsensitive,lopart

26、ialkey); if not sucess then begin showmessage(沒有查找到你需要查詢的員工資料!); edit_name.setfocus; end; end else begin showmessage(請輸入查詢的員工姓名); edit_name.setfocus; end; end;procedure tfrm_ygxx.btn_appdclick(sender: tobject); /增加按鈕代碼var maxnum:integer;begin dbe_name.enabled:=true; dblucbb_sex.enabled:=true; dtpick

27、_birthday.enabled:=true; dtpick_pydate.enabled:=true; dblcbb_dept.enabled:=true; dbe_age.enabled:=true; dbe_education.enabled:=true; dbe_sfzhm.enabled:=true; dbe_phone1.enabled:=true; dbe_phone2.enabled:=true; dbe_address.enabled:=true; dbe_remark.enabled:=true; dbe_birthday.visible:=false; dbe_pyda

28、te.visible:=false; dtpick_birthday.visible:=true; dtpick_pydate.visible:=true; dbe_id.enabled:=false; btn_appd.enabled:=false; btn_del.enabled:=false; btn_modi.enabled:=false; btn_save.enabled:=true; btn_canl.enabled:=true; btn_close.enabled:=true; dbe_name.setfocus; maxnum:=1; if adt_empy.recordcou

29、nt 0 then begin adt_empy.last; maxnum:=adt_empy.fieldbyname(id).asinteger + maxnum; adt_empy.append; adt_empy.fieldbyname(id).asinteger:=maxnum; end else begin adt_empy.append; adt_empy.fieldbyname(id).asinteger:=maxnum; end; dtpick_birthday.date:=now(); dtpick_pydate.date:=now();end;procedure tfrm_

30、ygxx.btn_delclick(sender: tobject); 刪除按鈕代碼begin dbe_birthday.visible:=true; dbe_pydate.visible:=true; dtpick_birthday.visible:=false; dtpick_pydate.visible:=false; dbe_id.enabled:=false; btn_appd.enabled:=true; btn_del.enabled:=true; btn_modi.enabled:=true; btn_save.enabled:=false; btn_canl.enabled:

31、=false; btn_close.enabled:=true; if idyes = application.messagebox(請的要刪除數(shù)據(jù)嗎？,員工信息管理,mb_yesno) then begin if adt_empy.recordcount 0 then begin adt_empy.delete; adt_empy.refresh; end else showmessage(沒有數(shù)據(jù)，不能刪除); end;end;procedure tfrm_ygxx.btn_saveclick(sender: tobject); 保存按鈕代碼begin if (trim(dbe_name.

32、text) ) and (trim(dbe_sfzhm.text) ) then begin if adt_empy.state in dsedit,dsinsert then begin adt_empy.fieldbyname(birthday).asdatetime:=dtpick_birthday.date; adt_empy.fieldbyname(pydate).asdatetime:=dtpick_pydate.date; adt_empy.post; adt_empy.refresh; dbe_name.enabled:=false; dblucbb_sex.enabled:=

33、false; dtpick_birthday.enabled:=false; dtpick_pydate.enabled:=false; dbe_birthday.enabled:=false; dblcbb_dept.enabled:=false; dbe_age.enabled:=false; dbe_education.enabled:=false; dbe_sfzhm.enabled:=false; dbe_phone1.enabled:=false; dbe_phone2.enabled:=false; dbe_address.enabled:=false; dbe_pydate.e

34、nabled:=false; dbe_remark.enabled:=false; dbe_birthday.visible:=true; dbe_pydate.visible:=true; dtpick_birthday.visible:=false; dtpick_pydate.visible:=false; dbe_id.enabled:=false; btn_appd.enabled:=true; btn_del.enabled:=true; btn_modi.enabled:=true; btn_save.enabled:=false; btn_canl.enabled:=false

35、; btn_close.enabled:=true; btn_appd.setfocus; end; end else begin showmessage(員工姓名或身份證號碼中沒有輸入數(shù)據(jù)，請重新輸入); dbe_birthday.visible:=false; dbe_pydate.visible:=false; dtpick_birthday.visible:=true; dtpick_pydate.visible:=true; end;end;procedure tfrm_ygxx.btn_canlclick(sender: tobject); / 取消按鈕代碼begin if ds_

36、empy.state in dsinsert,dsedit then if idyes = application.messagebox(你所做的操作沒有保存，真的要取消嗎？,員工信息維護,mb_yesno) then begin dbe_birthday.visible:=true; dbe_pydate.visible:=true; dtpick_birthday.visible:=false; dtpick_pydate.visible:=false; dbe_id.enabled:=false; btn_appd.enabled:=true; btn_del.enabled:=true

37、; btn_modi.enabled:=true; btn_save.enabled:=false; btn_canl.enabled:=false; btn_close.enabled:=true; adt_empy.cancel; adt_empy.refresh; dbe_name.enabled:=false; dblucbb_sex.enabled:=false; dtpick_birthday.enabled:=false; dtpick_pydate.enabled:=false; dbe_birthday.enabled:=false; dblcbb_dept.enabled:

38、=false; dbe_age.enabled:=false; dbe_education.enabled:=false; dbe_sfzhm.enabled:=false; dbe_phone1.enabled:=false; dbe_phone2.enabled:=false; dbe_address.enabled:=false; dbe_pydate.enabled:=false; dbe_remark.enabled:=false; end else begin dbe_name.enabled:=true; dblucbb_sex.enabled:=true; dtpick_bir

39、thday.enabled:=true; dtpick_pydate.enabled:=true; dbe_birthday.enabled:=false; dblcbb_dept.enabled:=true; dbe_age.enabled:=true; dbe_education.enabled:=true; dbe_sfzhm.enabled:=true; dbe_phone1.enabled:=true; dbe_phone2.enabled:=true; dbe_address.enabled:=true; dbe_pydate.enabled:=false; dbe_remark.

40、enabled:=true; btn_save.setfocus; end;end;procedure tfrm_ygxx.btn_modiclick(sender: tobject); /編輯按鈕代碼begin adt_empy.edit; dtpick_birthday.date:=adt_empy.fieldbyname(birthday).asdatetime; dtpick_pydate.date:=adt_empy.fieldbyname(pydate).asdatetime; dbe_name.enabled:=true; dblucbb_sex.enabled:=true; d

41、tpick_birthday.enabled:=true; dtpick_pydate.enabled:=true; dblcbb_dept.enabled:=true; dbe_age.enabled:=true; dbe_education.enabled:=true; dbe_sfzhm.enabled:=true; dbe_phone1.enabled:=true; dbe_phone2.enabled:=true; dbe_address.enabled:=true; dbe_remark.enabled:=true; dbe_name.setfocus; dbe_birthday.

42、visible:=false; dbe_pydate.visible:=false; dtpick_birthday.visible:=true; dtpick_pydate.visible:=true; dbe_id.enabled:=false; btn_appd.enabled:=false; btn_del.enabled:=false; btn_modi.enabled:=false; btn_save.enabled:=true; btn_canl.enabled:=true; btn_close.enabled:=true;end;廠家信息維護窗體：在些窗體中能對廠商信息進行增，

43、刪，改、查詢操作。此窗體源代碼如下：procedure tfrm_gsxx.set_dbedit_status(status:boolean); /自定義的設(shè)置編緝框狀態(tài)子函數(shù)begin db_name.enabled:=status; db_lxr.enabled:=status; db_phone1.enabled:=status; db_phone2.enabled:=status; db_phone3.enabled:=status; db_address.enabled:=status; db_yb.enabled:=status; db_produce.enabled:=statu

44、s; db_hrdb.enabled:=status; db_bank.enabled:=status; db_account.enabled:=status;end;procedure tfrm_gsxx.formcreate(sender: tobject); /打開 公司信息 表begin if not adt_company.active then adt_company.open;end;procedure tfrm_gsxx.formclosequery(sender: tobject; var canclose: boolean); begin /關(guān)閉公司信息表 adt_comp

45、any.close;end;procedure tfrm_gsxx.edt_findenter(sender: tobject);begin edt_find.selectall;end;procedure tfrm_gsxx.set_button_status(); /自定義按鈕狀態(tài)子函數(shù)begin btn_add.enabled := adt_company.state in dsbrowse; btn_delete.enabled := adt_company.state in dsbrowse; btn_modify.enabled := adt_company.state in ds

46、browse; btn_save.enabled := adt_company.state in dsedit,dsinsert; btn_cancel.enabled := adt_company.state in dsedit,dsinsert;end;procedure tfrm_gsxx.formshow(sender: tobject);begin set_button_status(); db_id.enabled := false; set_dbedit_status(false);end;procedure tfrm_gsxx.btn_addclick(sender: tobj

47、ect); /增加按鈕代碼var nummax:integer;begin nummax := 1; set_dbedit_status(true); if adt_company.filtered then adt_company.filtered:=false; if adt_company.recordcount 0 then begin adt_company.last; nummax := nummax + adt_company.fieldbyname(id).asinteger; adt_company.append; adt_company.fieldbyname(id).as

48、integer := nummax; db_name.setfocus; end else begin adt_company.append; adt_company.fieldbyname(id).asinteger := nummax; db_name.setfocus; end; set_button_status;end;procedure tfrm_gsxx.btn_cancelclick(sender: tobject); /取消按鈕代碼begin if idyes = application.messagebox(真的要取消操作嗎？,廠商信息維護,mb_yesno) then b

49、egin adt_company.cancel; set_button_status; btn_add.setfocus; set_dbedit_status(false); end else begin db_name.setfocus; set_button_status; end; if adt_company.filtered then adt_company.filtered:=false; end;procedure tfrm_gsxx.btn_saveclick(sender: tobject); /保存按鈕代碼begin if trim(db_name.text) = then

50、 begin showmessage(廠家名稱中無數(shù)據(jù)不能保存，請重新輸入!); db_name.setfocus; end else begin adt_company.post; adt_company.refresh; set_button_status; set_dbedit_status(false); end; if adt_company.filtered then adt_company.filtered:=false;end;procedure tfrm_gsxx.btn_deleteclick(sender: tobject); /刪除按鈕代碼begin if not ad

51、t_company.eof then begin if idyes = application.messagebox(請的要刪除些條紀(jì)錄嗎？,廠商信息維護,mb_yesno) then begin adt_company.delete; adt_company.refresh; set_button_status; end; btn_add.setfocus; set_dbedit_status(false); end else begin showmessage(沒有數(shù)據(jù)，不能刪除!); set_button_status; end; if adt_company.filtered then adt_company.filtered:=false;end;proced