【正文】 TObject。 procedure (Sender: TObject。 procedure (Sender: TObject。 procedure (Sender: TObject。 type Tfrm_xiaoren = class(TForm) GroupBox1: TGroupBox。 edt_lldz: TEdit。 sbtn_delete: TSpeedButton。 StatusBar1: TStatusBar。 procedure Timer_updateTimer(Sender: TObject)。 procedure sbtn_postClick(Sender: TObject)。 var Key: Char)。 var Key: Char)。 begin Strtmp:=FormatDateTime(39。+FormatDateTime(39。,time)。 2:begin Strtmp:=Strtmp+39。 end。 星期六 39。 procedure (Sender: TObject)。 。 :=true。 。]。身份證號(hào) 39。 end。 :=false。c:\windows\media\39。 :=false。 :=true。 if 1 then exit。 我下 vip 免費(fèi)資源網(wǎng) :=true。 showdata。 :=true。c:\windows\media\39。 :=39。 :=false。 end。) then begin fieldvalues[39。 if (=39。]:=trim()。 end else begin fieldvalues[39。]:=39。) then begin fieldvalues[39。 if (=39。]:=trim()。 :=true。 end。刪除記錄39。39。 :=true。 。確定要修改當(dāng)前記錄嗎 !39。]:=39。) then begin fieldvalues[39。 if (=39。]:=trim()。 end else begin fieldvalues[39。]:=39。) then begin fieldvalues[39。 post。]:=trim()。 if (=39。) then begin fieldvalues[39。]:=39。 end else begin fieldvalues[39。]:=trim()。 if (=39。) then begin fieldvalues[39。,0,SND_ASYNC)。 if 1 then :=39。 :=false。39。確定要 刪除當(dāng)前記錄嗎 ?39。 :=true。 :=false。 end else begin fieldvalues[39。]:=trim()。 if (=39。) then begin fieldvalues[39。]:=39。 end else begin fieldvalues[39。]:=trim()。 if (=39。 :=true。 。 :=39。 procedure (Sender: TObject)。 :=false。 :=true。 :=false。c:\windows\media\39。 :=false。 end else begin 。 procedure (Sender: TObject)。 :=true。/39。]。 :=fieldvalues[39。c:\windows\media\39。 :=39。無(wú)記錄，先添加 39。+strtmp。 end。 4:begin Strtmp:=Strtmp+39。 星期日 39。 我下 vip 免費(fèi)資源網(wǎng) [3].Text:=formatdatetime(39。,Date)+39。 {$R *.dfm} procedure (Sender: TObject)。 var Key: Char)。 var Key: Char)。 procedure sbtn_lastClick(Sender: TObject)。 ADODataSet1: TADODataSet。 Image2: TImage。 sbtn_adding: TSpeedButton。 edt_xsymc: TEdit。 我下 vip 免費(fèi)資源網(wǎng) end. 查詢與統(tǒng)計(jì)界面與代碼設(shè)計(jì)實(shí)現(xiàn) 代碼設(shè)計(jì) : unit unit_xiaoren。 begin if key=13 then 。 begin if key=13 then 。 begin if key=13 then 。 begin if key=13 then 。 begin if key=13 then 。 begin if key=13 then 。 我下 vip 免費(fèi)資源網(wǎng) procedure (Sender: TObject)。 end。])。 end。銷售員名稱 39。 。 if 9 then begin for i:=0 to do begin ([39。 close。 procedure (Sender: TObject)。 :=true。 procedure (Sender: TObject)。 adding:=true。 :=now。 :=39。 :=39。刪除記錄39。 post。yyyymmdd39。無(wú) 39。報(bào)告編號(hào) 39。 end。39。產(chǎn)品類別 39。無(wú) 39。產(chǎn)品編號(hào) 39。 end。39。服務(wù)單號(hào) 39。無(wú) 39。客戶簡(jiǎn)稱 39。,mb_okcancel+mb_iconinformation)=idok then begin with adodataset1 do begin edit。 我下 vip 免費(fèi)資源網(wǎng) procedure (Sender: TObject)。 :=true。yyyymmdd39。 fieldvalues[39。) then begin fieldvalues[39。]:=39。 end else begin fieldvalues[39。]:=trim()。 if (=39。) then begin fieldvalues[39。]:=39。 end else begin fieldvalues[39。]:=trim()。 if (=39。) then begin fieldvalues[39。]:=39。 playsound(39。 :=true。 showdata。 :=true。 我下 vip 免費(fèi)資源網(wǎng) if 1 then exit。 :=true。 :=false。c:\windows\media\39。 :=false。 +inttostr()。開(kāi)始時(shí)間 39。])。 :=fieldvalues[39。服務(wù)單號(hào) 39。 procedure 。 :=false。 :=39。 :=39。 :=39。select * from shfwgl39。無(wú)記錄，先添加 39。 end。 private { Private declarations } public adding:boolean。 procedure edt_cpmcKeyPress(Sender: TObject。 我下 vip 免費(fèi)資源網(wǎng) procedure dtp_qitimeKeyPress(Sender: TObject。 procedure cmb_khjcKeyPress(Sender: TObject。 procedure sbtn_lastClick(Sender: TObject)。 我下 vip 免費(fèi)資源網(wǎng) Label12: TLabel。 lbl_position: TLabel。 GroupBox3: TGroupBox。 Label9: TLabel。 Label5: TLabel。 dtp_qitime: TDateTimePicker。 end else begin 。 end。 end。 end。 end else 我下 vip 免費(fèi)資源網(wǎng) begin 。 。39。密碼 39。Provider=。39。39。+39。 :=39。+39。 end。 while not do begin if (logname=[39。 implementation uses unit_main。 procedure edt_passwordKeyPress(Sender: TObject。 ADOConnection1: TADOConnection。 Label2: TLabel。 程序流程圖如下： 系統(tǒng)的詳細(xì)設(shè)計(jì) 程序登陸 主界面 基 本 資 料 銷售管理 查 詢 統(tǒng) 計(jì) 圖表分析 我下 vip 免費(fèi)資源網(wǎng) 進(jìn)入 Access 后要做的第一件事就是建立一個(gè)數(shù)據(jù)庫(kù)。建表的過(guò)程注意規(guī)范化命名規(guī)則，如表的字段名等等。 數(shù)據(jù)庫(kù)的建立和連接 這個(gè)程序采用的數(shù)據(jù)庫(kù)是 Microsoft Access2021， Delphi作為數(shù)據(jù)庫(kù)的前臺(tái)開(kāi)發(fā)工具，必須與后臺(tái)數(shù)據(jù)庫(kù)進(jìn)行連接，這樣才能控制和進(jìn)行操作數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)的連接方式有兩種， ODBC 和 ADO。本系統(tǒng)所需的軟硬件成本比較低，投資小，具有一定的通過(guò)性，因此 ，在經(jīng)濟(jì)上是可行的。主界面是一個(gè) 圖型界面 窗口，整個(gè)平臺(tái)顯示采用 人性化方式 ，可以非常方便的 客戶管理 ,產(chǎn)品管理 ,查詢與統(tǒng)計(jì)以及圖表分析 等 基本信息， 管理日常經(jīng)營(yíng)的 基本情況，通過(guò)各種條件查詢出 產(chǎn)品銷售 的基本信息，以及打印出查詢出的基本信息，總之 銷售管理日常工作中的 基本信息都會(huì)顯示在系統(tǒng)平臺(tái)上 ，大大提高了管理人員的工作效率。在它之前的文件系統(tǒng)雖然也能處理持久數(shù)據(jù)，但是文件系統(tǒng)不提供對(duì)任意部分?jǐn)?shù)據(jù)的快速訪問(wèn)，而這對(duì)數(shù)據(jù)量不斷增大的應(yīng)用來(lái)說(shuō)是至關(guān)重要的。數(shù)據(jù)庫(kù)管理系統(tǒng)是一種系統(tǒng)軟件，它的主要功能是維護(hù)數(shù)據(jù)庫(kù)并有效地訪問(wèn)數(shù)據(jù)庫(kù)中任意部分?jǐn)?shù)據(jù)。前些年，軟件界流行一句話叫“真正的程序員用 VC，聰明的程序員用 Delphi”。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。 它已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn)以及游戲娛樂(lè)等。利用 DELPHI 軟件及其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具，建立完整性強(qiáng)、安全性好的數(shù)據(jù)庫(kù)，開(kāi)發(fā)出功能完備，易使用的應(yīng)用程序。以前開(kāi)發(fā) Windows 應(yīng)用軟件是專業(yè)人員的工作，需要我下 vip 免費(fèi)資源網(wǎng) 掌握許多專業(yè)知識(shí)和經(jīng)過(guò)特殊的培訓(xùn)才能勝任。 因?yàn)楸救四芰τ邢蓿由蠒r(shí)間緊迫，所以設(shè)計(jì)出來(lái)的本系統(tǒng)可能功能比較簡(jiǎn)單，另外本系統(tǒng)是單機(jī)版，不能實(shí)現(xiàn)網(wǎng)絡(luò)互聯(lián)操作 ,這些都有待于我在以 后的工作學(xué)習(xí)中進(jìn)一步改進(jìn)。它通常由軟件、數(shù)據(jù)庫(kù)和數(shù)據(jù)管理員組成。數(shù)據(jù)庫(kù)管理員一般是由業(yè)務(wù)水平較高、資歷較深的人員擔(dān)任。由于對(duì)數(shù)據(jù)庫(kù)的操作都由數(shù)據(jù)庫(kù)管理系統(tǒng)完成，所以數(shù)據(jù)庫(kù)就可以獨(dú)立于具體的應(yīng)用程序而存在，從而數(shù)據(jù)庫(kù)又可以為多個(gè)用戶所共享。 應(yīng)用程序的主體：主要完成用戶的業(yè)務(wù)邏輯功能，如 客戶信息 ,產(chǎn)品信息查詢與統(tǒng)計(jì) 等信息 . 應(yīng)用程序的輔助部分：協(xié)助程序主體完成的一些工作。 技術(shù)可行性 利用現(xiàn)有的設(shè)備，軟件及技術(shù)人員，新 系統(tǒng)的目標(biāo)能否達(dá)到，這也是可行性研究中需要考慮的一個(gè)問(wèn)題。在創(chuàng)建數(shù)據(jù)源時(shí)可以通我下 vip 免費(fèi)資源網(wǎng) 過(guò) BDE administrator 進(jìn)行創(chuàng)建，也可以通過(guò)系統(tǒng)控制面板中的 ODBC 數(shù) 據(jù)源進(jìn)行建立。如果字段名不同，同一字段長(zhǎng)度不同則主鍵和外鍵將會(huì)連接不上。它只是存放數(shù)據(jù)，對(duì)其中數(shù)據(jù)的修改要通過(guò)對(duì)應(yīng)的窗體來(lái)完成。 sbtn_exit: TSpeedButton。 procedure cmb_rightChange(Sender: TObject)。 private { Private declarations } public right,i:integer。 right:=。 權(quán)限 39。39。(39。 三所 銷 售 管 理 39。)39。 close。 。\data\。 end。權(quán)限 =039。帳號(hào) 39。 :=true。])。 begin if key=13 then 。 begin if key=13 then 我下 vip 免費(fèi)資源網(wǎng) 。 end。