【正文】 享。數(shù)據(jù)共享節(jié)省了大量人力物力，為數(shù)據(jù)庫(kù)系統(tǒng)的廣泛應(yīng)用奠定了基礎(chǔ)。 本應(yīng)用軟件的基本介紹 本應(yīng)用軟件先是打開一個(gè)啟動(dòng)窗口，就可以進(jìn)入應(yīng)用程序的主窗口了。 我下 vip 免費(fèi)資源網(wǎng) 2 本應(yīng)用程序的構(gòu)成和開發(fā)步驟 下面從軟件工程的角度介紹本程序的基本開發(fā)步驟。 應(yīng)用程序的主體：主要完成用戶的業(yè)務(wù)邏輯功能，如 客戶信息 ,產(chǎn)品信息查詢與統(tǒng)計(jì) 等信息 . 應(yīng)用程序的輔助部分：協(xié)助程序主體完成的一些工作。 可行性研究 任何一個(gè)系統(tǒng)或一項(xiàng)工程，在建立之前，必須首選進(jìn)行可行性分析，可行性分析包括兩層含義，一是可能性，二是必要性。下面從四方面來(lái)討論： 經(jīng)濟(jì)可行性 主要是只指算一個(gè)新的系統(tǒng)開發(fā)所需要的投資費(fèi)用和運(yùn)算費(fèi)用，并與估計(jì)的新系統(tǒng)收益進(jìn)行比較，看是否有利。 時(shí)間可行性 主要包括系統(tǒng)在目前環(huán)境下能否正常運(yùn)行，運(yùn)行后所引我下 vip 免費(fèi)資源網(wǎng) 起的各方面，以及這些變化對(duì)社會(huì)或人的因素所產(chǎn)生的影響。 技術(shù)可行性 利用現(xiàn)有的設(shè)備，軟件及技術(shù)人員，新 系統(tǒng)的目標(biāo)能否達(dá)到，這也是可行性研究中需要考慮的一個(gè)問題。本系統(tǒng)使用的 Delphi 普及性好，操作簡(jiǎn)單，用戶可以很快掌握使用方法，因此，在技術(shù)上是完全可行的。開發(fā)本系統(tǒng)的目標(biāo)不僅是提高工作效率，減輕勞動(dòng)強(qiáng)度，而且減少出錯(cuò)率，具有很好的社會(huì)意義。 ODBC 是數(shù)據(jù)庫(kù)的通用接口，其缺點(diǎn)是效率低；專用接口調(diào)用直接速度快，但是通用性差，如果用 ODBC 連接數(shù)據(jù)庫(kù)一般要兩個(gè)步驟： ； 。在創(chuàng)建數(shù)據(jù)源時(shí)可以通我下 vip 免費(fèi)資源網(wǎng) 過 BDE administrator 進(jìn)行創(chuàng)建，也可以通過系統(tǒng)控制面板中的 ODBC 數(shù) 據(jù)源進(jìn)行建立。接下來(lái)的工作是建表。你可以通過 Access 進(jìn)行建表，也可以通過在 Visual Basic 主程序中建表，也可以通過powerdesigner 進(jìn)行可視化的建立，不過用這種方法，在導(dǎo)入的時(shí)候要把數(shù)據(jù)庫(kù)要先斷開，否則數(shù)據(jù)庫(kù)的數(shù)據(jù)容易丟失。同時(shí)也要注意表的字段長(zhǎng)度和可否為空。如果字段名不同，同一字段長(zhǎng)度不同則主鍵和外鍵將會(huì)連接不上。我在程序開發(fā)的初期，同樣犯了這個(gè)錯(cuò)誤，導(dǎo)致數(shù)據(jù)庫(kù)出錯(cuò)，有時(shí)還要向表中新加入字段。 系統(tǒng)的總體設(shè)計(jì) 這個(gè)管理系統(tǒng)從 4 月 1 日開始著手設(shè)計(jì)開發(fā) ,經(jīng)過一段時(shí)我下 vip 免費(fèi)資源網(wǎng) 間的分析，并根據(jù)對(duì) 銷售 管理的具體要求及需要本軟件實(shí)現(xiàn)的功能，將本軟件分為 5 個(gè)大的模塊，分別是：第一部分：基本資料 ； 第二部分： 銷售管理 ； 第三部分： 查詢 與 統(tǒng)計(jì) ； 第四部分： 圖表分析 。Access 提供了 6 種用構(gòu)造數(shù)據(jù)庫(kù)系統(tǒng)的對(duì)象，根據(jù)本課題的需要，在這里選擇一個(gè)空的數(shù)據(jù)庫(kù)，命名 建立了一個(gè)數(shù)據(jù)庫(kù)名稱為 “ pn” ， 銷售 管理系統(tǒng)。它只是存放數(shù)據(jù)，對(duì)其中數(shù)據(jù)的修改要通過對(duì)應(yīng)的窗體來(lái)完成。 interface 我下 vip 免費(fèi)資源網(wǎng) uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, DB, ADODB。 Label1: TLabel。 Label3: TLabel。 sbtn_exit: TSpeedButton。 cmb_name: TComboBox。 ADOTable1: TADOTable。 procedure sbtn_enterClick(Sender: TObject)。 procedure cmb_rightChange(Sender: TObject)。 var Key: Char)。 var Key: Char)。 var Key: Char)。 private { Private declarations } public right,i:integer。 flag:boolean。 var frm_first: Tfrm_first。 {$R *.dfm} procedure (Sender: TObject)。 right:=。 password:=。 。 帳號(hào) 39。 權(quán)限 39。密碼 39。 。 if flag then begin if right=0 then begin :=true。39。 三 所 銷 售 管 理 39。39。 管 理 員39。(39。)39。 if right=1 then begin :=false。39。 三所 銷 售 管 理 39。39。 一 般 用 戶39。(39。)39。 :=39。 :=39。 。 close。此帳號(hào)不存在或密碼錯(cuò)誤 ,請(qǐng)從新輸入 !39。 :=39。 :=39。 。 end。 begin :=39。Data Source=39。\data\。Jet OLEDB:Database Password=8051339。 :=39。 :=true。 end。 var i:integer。 :=39。 if =0 then begin 。權(quán)限 =039。 if 5 then begin for i:=0 to do begin ([39。])。 end。帳號(hào) 39。 。 end。 :=39。 :=true。帳號(hào) 39。 。 end else begin for i:=0 to 4 do begin ([39。])。 end。 我下 vip 免費(fèi)資源網(wǎng) end。 procedure (Sender: TObject。 begin if key=13 then 。 procedure (Sender: TObject。 begin if key=13 then 。 procedure (Sender: TObject。 begin if key=13 then 我下 vip 免費(fèi)資源網(wǎng) 。 procedure (Sender: TObject)。 :=0。 close。 end。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls, mmsystem,ComCtrls, DB, ADODB。 Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 GroupBox2: TGroupBox。 edt_cpbh: TEdit。 cmb_cplb: TComboBox。 edt_fwf: TEdit。 edt_bgbh: TEdit。 Memo_bgnr: TMemo。 Image2: TImage。 edt_fwdh: TEdit。 edt_fwxm: TEdit。 sbtn_first: TSpeedButton。 sbtn_next: TSpeedButton。 sbtn_adding: TSpeedButton。 Image3: TImage。 ADODataSet1: TADODataSet。 sbtn_delete: TSpeedButton。 sbtn_print: TSpeedButton。 sbtn_exit: TSpeedButton。 edt_cpmc: TEdit。 procedure FormShow(Sender: TObject)。 procedure sbtn_firstClick(Sender: TObject)。 procedure sbtn_nextClick(Sender: TObject)。 procedure sbtn_postClick(Sender: TObject)。 procedure sbtn_deleteClick(Sender: TObject)。 procedure sbtn_exitClick(Sender: TObject)。 procedure sbtn_printClick(Sender: TObject)。 var Key: Char)。 var Key: Char)。 var Key: Char)。 var Key: Char)。 var Key: Char)。 var Key: Char)。 var Key: Char)。 var Key: Char)。 var Key: Char)。 var Key: Char)。 var Key: Char)。 var Key: Char)。 procedure showdata。 { Public declarations } end。 implementation uses unit_shfwglquerry, unit_main, unit_shfwreport。 begin 。 procedure (Sender: TObject)。 :=false。select * from shfwgl39。 if 1 then begin showmessage(39。)。 :=false。 end。 :=39。 :=true。 end。 begin playsound(39。,0,SND_ASYNC)。39。39。39。39。39。39。39。39。39。39。 :=now。 :=false。 :=false。 :=false。 :=true。 end。 我下 vip 免費(fèi)資源網(wǎng) begin with adodataset1 do begin :=fieldvalues[39。]。服務(wù)人員 39。 :=fieldvalues[39。]。服務(wù)項(xiàng)目 39。 :=fieldvalues[39。]。產(chǎn)品類別 39。 :=fieldvalues[39。]。服務(wù)費(fèi) 39。 :=fieldvalues[39。]。報(bào)告內(nèi)容 39。 :=strtodatetime(fieldvalues[39。])。終止時(shí)間 39。 end。/39。 end。 begin playsound(39。,0,SND_ASYNC)。 :=true。 :=false。 。 end。 begin playsound(39。,0,SND_ASYNC)。 if not then begin 。 :=true。 :=false。 :=true。 end。 :=false。 :=true。 end。 end。 begin playsound(39。,0,SND_ASYNC)。 if not then begin 。 :=true。 :=false。 :=true。 end。 :=false。 :=true。 我下 vip 免費(fèi)資源網(wǎng) end。 end。 begin playsound(39。,0,SND_ASYNC)。 :=false。 :=true。 。 end。 begin if adding=true then begin adding:=false。c:\windows\media\39。 我下 vip 免費(fèi)資源網(wǎng) with adodataset1 do begin append。39?？蛻艉?jiǎn)稱 39。無(wú) 39。客戶簡(jiǎn)稱 39。 end。39。服務(wù)人員 39。無(wú) 39。服務(wù)人員 39。 end。39。服務(wù)單號(hào) 39。無(wú) 39。服務(wù)單號(hào) 39。 end。39。服務(wù)項(xiàng)目 39。無(wú) 39。服務(wù)項(xiàng)目 39。 end。39。產(chǎn)品編號(hào) 39。無(wú) 39。產(chǎn)品編號(hào) 39。 end。39。產(chǎn)品名稱 39。無(wú) 39。產(chǎn)品名稱 39。 end。39。產(chǎn)品類別 39。無(wú) 39。產(chǎn)品類別 39。 end。39。服務(wù)費(fèi) 39。039。服務(wù)費(fèi) 39。 end。39。報(bào)告編號(hào) 39。無(wú) 39。報(bào)告編號(hào) 39。 end。39。報(bào)告內(nèi)容 39。無(wú) 39。報(bào)告內(nèi)容 39。 end。 開 始 時(shí) 間39。yyyymmdd39。 fieldvalues[39。]:=formatdatetime(39。,)。 end。 :=true。 :=false。 :=true。 :=true。 :=true。 end。 begin playsound(39。,0,SND_ASYNC)。確定要修改當(dāng)前記錄嗎 !39。修改記錄39。 if (=39。) then begin fieldvalues[39。]:=39。 end else begin fieldvalues[39。]:=trim()。 if (=39。) then begin fieldvalues[39。]:=39。 end 我下 vip 免費(fèi)資源網(wǎng) else begin fieldvalues[39