【導(dǎo)讀】符合?？飘厴I(yè)設(shè)計(jì)論文要求，業(yè)經(jīng)本委員會(huì)評(píng)審認(rèn)可。計(jì)算機(jī)信息處理技術(shù)的普及已徹底改變了許多公司的經(jīng)。貨、庫存、記賬以及其他活動(dòng)。銷售管理系統(tǒng)是企業(yè)管理機(jī)制中的重。要組成部分，通過對(duì)企業(yè)銷售管理系統(tǒng)的銷售管理機(jī)制進(jìn)行調(diào)查研究，系統(tǒng)中解決了企業(yè)管理事務(wù)中的進(jìn)貨、銷售、存貨等情況的問題以及相關(guān)統(tǒng)計(jì)工作。本系統(tǒng)中包含六個(gè)功能模塊：。系統(tǒng)管理、人員管理、后臺(tái)管理、前臺(tái)銷售、報(bào)表統(tǒng)計(jì)和幫助。速、高效地開發(fā)出Windows系統(tǒng)下的應(yīng)用程序。后端的開發(fā)工具是。較高的完整性，一致性和安全性。

　　

【正文】 then begin :=false。 :=false。 end else begin :=true。 :=true。 end。 end。 procedure (Sender: TObject)。 begin if then begin :=false。 :=false。 end else 浙江工業(yè)大學(xué)?？飘厴I(yè)設(shè)計(jì)論文 35 begin :=true。 :=true。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin with datamodule1 do begin if =39。39。 then begin :=39。Provider=。Data Source=39。+extractfilepath()+39。\date\。Persist Security Info=False39。 :=true。 if not then 。 。 end。 end。 if 1 then begin :=false。 :=false。 end。 if 2 then begin :=false。 :=false。 :=false。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 浙江工業(yè)大學(xué)專科畢業(yè)設(shè)計(jì)論文 36 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin with do begin close。 。 (39。select sum(s_p_price) as TDResult from sell_back_t where year(s_time)=year(now()) and month(s_time)=month(now()) and day(s_time)=day(now())39。)。 Open。 messagebox(handle,PChar(39。今日銷售額為 39。+FieldByName(39。TDResult39。).AsString+39。 元。 39。),39。今日盤點(diǎn) 39。,MB_ICONinformation+mb_ok)。 end。 end。 procedure (Sender: TObject)。 begin with datamodule1 do begin 。 。 :=extractfilepath()+39。39。 。 。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 浙江工業(yè)大學(xué)?？飘厴I(yè)設(shè)計(jì)論文 37 procedure (Sender: TObject)。 begin with do begin close。 。 (39。select sum(s_p_price) as TDResult from sell_back_t39。)。 Open。 messagebox(handle,PChar(39。 歷 史 記 錄 中 共 統(tǒng) 計(jì) 銷 售 額 ： 39。+FieldByName(39。TDResult39。).AsString+39。 元。 39。),39。 銷售統(tǒng)計(jì)39。,MB_ICONinformation+mb_ok)。 end。 if messagebox(handle,39。歷史記錄刪除后不能被恢復(fù)，銷售數(shù)據(jù)將被置空！是否清除？ 39。,39。確定清空 39。,mb_iconinformation+mb_yesno)=IDNo then exit。 with do begin mandtext:=39。delete from sell_back_t39。 execute。 showmessage(39。清空歷史記錄的操作成功，為了防止數(shù)據(jù)庫過大，建議您定期清空歷史記錄！！ 39。)。 end。 。 end。 procedure (Sender: TObject)。 begin with datamodule1 do begin 。 。 :=extractfilepath()+39。39。 。 。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 浙江工業(yè)大學(xué)專科畢業(yè)設(shè)計(jì)論文 38 end。 end. backup_From: Tbackup_From。 DataFile: String。 implementation {$R *.dfm} procedure (Sender: TObject)。 var i: integer。 begin DataFile := GetCurrentDir+39。\date\39。 try if not then exit。 if FileExists(+39。.mdb39。) then begin if Messagebox(handle,39。 存 在 數(shù) 據(jù) 庫 重 名 ， 是 否 覆 蓋 ？ 39。,39。 存盤選項(xiàng)39。,mb_iconquestion+mb_yesno)=IDNo then Exit。 end else begin for i:= to do := i。 CopyFile(PChar(DataFile),PChar(+39。.mdb39。),True)。 Messagebox(handle,39。數(shù)據(jù)庫備份成功！ 39。,39。備份數(shù)據(jù) 39。,mb_iconinformation+mb_ok)。 end。 except Messagebox(handle,39。警告：數(shù)據(jù)庫備份失?。?39。,39。存盤錯(cuò)誤 39。,mb_iconwarning+mb_ok)。 end。 end。 procedure (Sender: TObject)。 var i: integer。 begin DataFile := extractfilepath()+39。\date\39。 try if not then exit。 if Messagebox(handle,39。 警 告 ： 現(xiàn) 有 數(shù) 據(jù) 有 可 能 丟 失 ， 確 定 還 原 ？ 39。,39。 確 定 還 原39。,mb_iconquestion+mb_yesno)=IDNo then Exit。 for i:= to do := i。 CopyFile(PChar(),PChar(DataFile),true)。 Messagebox(handle,39。數(shù)據(jù)庫還原成功！ 39。,39。還原數(shù)據(jù) 39。,mb_iconinformation+mb_ok)。 except 浙江工業(yè)大學(xué)?？飘厴I(yè)設(shè)計(jì)論文 39 Messagebox(handle,39。警告：數(shù)據(jù)庫還原失??！ 39。,39。讀取錯(cuò)誤 39。,mb_iconwarning+mb_ok)。 end。 end。 procedure (Sender: TObject)。 begin close。 end。 end. Login_Form: TLogin_Form。 implementation uses Main。 {$R *.dfm} procedure (Sender: TObject)。 var ADOQuery1: TADOQuery。 sqlstr:string。 begin ADOQuery1:= (self)。 :=39。Provider=。Data Source=39。+extractfilepath()+39。\date\。Persist Security Info=False39。 。 (39。select * from use_t39。)。 。 with adoquery1 do begin close。 。 sqlstr:=39。select * from use_t where 1=139。 if ((39。39。)and (39。39。)) then begin sqlstr:=sqlstr+39。and use_name=39。39。39。++39。39。39。39。 sqlstr:=sqlstr+39。and use_psw=39。39。39。++39。39。39。39。 (sqlstr)。 prepared。 open。 if recordcount0 then begin UseName:=[1].asstring。 UseType:=[3].asinteger。 sndplaysound(pchar(GetCurrentDir+39。\sound\39。),snd_async)。 浙江工業(yè)大學(xué)?？飘厴I(yè)設(shè)計(jì)論文 40 freeandnil(adoquery1)。 。 end else begin showmessage(39。密碼或用戶名不正確 39。)。 i:=i+1。 if i=3 then begin showmessage(39。你是非法用戶，請(qǐng)不要盜用別人的軟件 39。)。 。 end。 end。 end else begin if =39。39。 then showmessage(39。用戶名不能為空 39。)。 if =39。39。then showmessage(39。密碼不能為空 39。)。 end。 end。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 var adoquery2:tadoquery。 begin i:=0。 ADOQuery2:= (self)。 :=39。Provider=。Data Source=39。+extractfilepath()+39。\date\。Persist Security Info=False39。 。 (39。select * from use_t39。)。 。 with adoquery2 do begin if not active then open。 first。 浙江工業(yè)大學(xué)專科畢業(yè)設(shè)計(jì)論文 41 while not Eof do begin ([1].asstring)。 next。 end。 end。 := 0。 freeandnil(adoquery2)。 end。 end. PType_Form: TPType_Form。 implementation uses d