【導(dǎo)讀】立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。經(jīng)過調(diào)試、編譯與實現(xiàn)，該程序界面友好、程序設(shè)計風。格樸素，使用起來美觀大方、方便易用。尤其是系統(tǒng)的“查?？焖佟蚀_等優(yōu)點取代人工操作，提高了銷售管理工作效率。工作學(xué)習及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它。以前開發(fā)Windows應(yīng)用軟件是專業(yè)人員的工作，需要。掌握許多專業(yè)知識和經(jīng)過特殊的培訓(xùn)才能勝任。夠開發(fā)出功能強大、適合自己特殊需求的應(yīng)用程序了。銷售管理系統(tǒng)是典型的信。對于前者要求建立起數(shù)據(jù)一致性和完整。性強、數(shù)據(jù)安全性好的庫。都有待于我在以后的工作學(xué)習中進一步改進。它易學(xué)易用，如同VB，因而被稱為“第四代編程語。從1995年推出至今已經(jīng)經(jīng)歷了7個版本，運行在win9x或winme，win2021，winxp，這里把“VB”比作是傻瓜相機，Delphi是帶有自動功能。用VC，聰明的程序員用Delphi”。也有的把Delphi稱作VB. 它通常由軟件、數(shù)據(jù)庫和數(shù)據(jù)管理員組成。

　　

【正文】 public adding:boolean。 procedure showdata。 { Public declarations } 我下 vip 免費資源網(wǎng) end。 var frm_xiaoren: Tfrm_xiaoren。 implementation uses unit_xiaorenquerry, unit_main。 {$R *.dfm} procedure (Sender: TObject)。 var Strtmp:String。 begin Strtmp:=FormatDateTime(39。YYYY39。,Date)+39。 年39。+FormatDateTime(39。MM39。,Date)+39。 月 39。+FormatDateTime(39。DD39。,Date)+39。日 39。 [0].Text:=39。版權(quán) :中國核動力研究設(shè)計院三所 39。 我下 vip 免費資源網(wǎng) [3].Text:=formatdatetime(39。hh:mm:ss39。,time)。 [1].Text:=39。 總 共 有 銷 售39。+inttostr()+39。人 39。 case DayOfWeek(Now) of 1:begin Strtmp:=Strtmp+39。 星期日 39。 end。 2:begin Strtmp:=Strtmp+39。 星期一 39。 end。 3:begin Strtmp:=Strtmp+39。 星期二 39。 end。 4:begin Strtmp:=Strtmp+39。 星期三 39。 end。 5:begin Strtmp:=Strtmp+39。 星期四 39。 end。 6:begin Strtmp:=Strtmp+39。 星期五 39。 end。 我下 vip 免費資源網(wǎng) 7:begin Strtmp:=Strtmp+39。 星期六 39。 end。 end。 //:=Strtmp。 [2].Text:=39。 39。+strtmp。 end。 procedure (Sender: TObject)。 begin :=false。 :=39。select * from xiaoren39。 :=true。 if 1 then begin showmessage(39。無記錄，先添加 39。)。 。 :=false。 :=true。 abort。 我下 vip 免費資源網(wǎng) end。 :=false。 :=39。select * from xiaoren39。 :=true。 showdata。 :=true。 end。 procedure (Sender: TObject)。 begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 。 end。 procedure 。 begin with adodataset1 do begin :=fieldvalues[39。銷售員編號 39。]。 :=fieldvalues[39。銷售員名稱 39。]。 :=fieldvalues[39。手機 39。]。 :=fieldvalues[39。電子信箱 39。]。 我下 vip 免費資源網(wǎng) :=fieldvalues[39。身份證號 39。]。 :=fieldvalues[39。聯(lián)絡(luò)地址 39。]。 :=inttostr(on)+39。/39。 +inttostr()。 end。 end。 procedure (Sender: TObject)。 begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 :=true。 :=true。 :=false。 :=false。 if 1 then exit。 。 showdata。 end。 procedure (Sender: TObject)。 我下 vip 免費資源網(wǎng) begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 if 1 then exit。 if not then begin 。 :=true。 :=true。 end else begin 。 :=false。 :=false。 :=true。 :=true。 end。 if then begin 。 :=false。 :=false。 我下 vip 免費資源網(wǎng) :=true。 :=true。 end。 showdata。 end。 procedure (Sender: TObject)。 begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 if 1 then exit。 if not then begin 。 :=true。 :=true。 end else begin 。 :=false。 :=false。 :=true。 我下 vip 免費資源網(wǎng) :=true。 end。 if then begin 。 :=false。 :=false。 :=true。 :=true。 end。 showdata。 end。 procedure (Sender: TObject)。 begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 :=false。 :=false。 :=true。 :=true。 if 1 then exit。 。 我下 vip 免費資源網(wǎng) showdata。 end。 procedure (Sender: TObject)。 begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=true。 :=true。 我下 vip 免費資源網(wǎng) adding:=true。 end。 procedure (Sender: TObject)。 begin if adding=true then begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 with adodataset1 do begin append。 if (=39。39。) then begin fieldvalues[39。銷售員編號 39。]:=39。無 39。 end else begin fieldvalues[39。銷售員編號 39。]:=trim()。 end。 if (=39。39。) then begin 我下 vip 免費資源網(wǎng) fieldvalues[39。銷售員名稱 39。]:=39。無 39。 end else begin fieldvalues[39。銷售員名稱 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。身份證號 39。]:=39。無 39。 end else begin fieldvalues[39。身份證號 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。聯(lián)絡(luò)地址 39。]:=39。無 39。 end else begin 我下 vip 免費資源網(wǎng) fieldvalues[39。聯(lián)絡(luò)地址 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。手機 39。]:=39。無 39。 end else begin fieldvalues[39。手機 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。電子信箱 39。]:=39。無 39。 end else begin fieldvalues[39。電子信箱 39。]:=trim()。 end。 post。 end。 我下 vip 免費資源網(wǎng) 。 :=false。 :=false。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 end。 end。 procedure (Sender: TObject)。 begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 if (39。確定要 刪除當前記錄嗎 ?39。,39。刪除記錄39。,mb_okcancel+mb_iconinformation)=idok then begin if 2 then begin 我下 vip 免費資源網(wǎng) :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 。 :=false。 :=false。 :=true。 :=false。 :=true。 adding:=true。 end。 。 if 1 then :=39。0/039。 。 end。 end。 procedure (Sender: TObject)。 我下 vip 免費資源網(wǎng) begin playsound(39。c:\windows\media\39。,0,SND_ASYNC)。 if (39。確定要修改當前記錄嗎 !39。,39。修改記錄39。,mb_okcancel+mb_iconinformation)=idok then begin with adodataset1 do begin edit。 if (=39。39。) then begin fieldvalues[39。銷售員編號 39。]:=39。無 39。 end else begin fieldvalues[39。銷售員編號 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。銷售員名稱 39。]:=39。無 39。 end else 我下 vip 免費資源網(wǎng) begin fieldvalues[39。銷售員名稱 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。身份證號 39。]:=39。無 39。 end else begin fieldvalues[39。身份證號 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。聯(lián)絡(luò)地址 39。]:=39。無 39。 end else begin fieldvalues[39。聯(lián)絡(luò)地址 39。]:=trim()。 end。 我下 vip 免費資源網(wǎng) if (=39。39。) then begin fieldvalues[39。手機 39。]:=39。無 39。 end else begin fieldvalues[39。手機 39。]:=trim()。 end。 if (=39。39。) then begin fieldvalues[39。電子郵箱 39。]:=39。無 39。 end else begin fieldvalues[39。電子郵箱 39。]:=trim()。 end。 post。 end。