【導(dǎo)讀】通過(guò)對(duì)物資的計(jì)劃管理，可以完成一些計(jì)劃的事前存根，與實(shí)際形。成對(duì)比，避免采購(gòu)的盲目性。出入庫(kù)管理可以方便的查詢庫(kù)中的物資信息。管理可以保障酒店內(nèi)資金的劃分和資金的正常流動(dòng)。物資分析報(bào)表和資金匯總報(bào)。表可以方便的統(tǒng)計(jì)物資與資金的總體狀況。系統(tǒng)的特點(diǎn)是投資少，功能強(qiáng)，效率。論文共分為八章。第一章為前言部分，介紹了系統(tǒng)的概況及應(yīng)用領(lǐng)域。三章主要介紹了系統(tǒng)需求分析，對(duì)系統(tǒng)進(jìn)行了經(jīng)濟(jì)可行性和技術(shù)可行性分析。系統(tǒng)設(shè)計(jì)包括系統(tǒng)總體設(shè)計(jì)和邏輯結(jié)。在實(shí)現(xiàn)方面主要闡述了在開(kāi)發(fā)過(guò)程中出現(xiàn)的問(wèn)題及相應(yīng)的解決方案。六、七章是系統(tǒng)測(cè)試部分，系統(tǒng)測(cè)試是對(duì)系統(tǒng)中的各項(xiàng)功能進(jìn)行具體測(cè)試。

　　

【正文】 40 procedure panyClick(Sender: TObject)。 procedure FileOpenItemClick(Sender: TObject)。 procedure N3Click(Sender: TObject)。 procedure N5Click(Sender: TObject)。 procedure N4Click(Sender: TObject)。 procedure N17Click(Sender: TObject)。 procedure N16Click(Sender: TObject)。 procedure N7Click(Sender: TObject)。 procedure N8Click(Sender: TObject)。 procedure N10Click(Sender: TObject)。 procedure N12Click(Sender: TObject)。 procedure N13Click(Sender: TObject)。 procedure N14Click(Sender: TObject)。 procedure N20Click(Sender: TObject)。 procedure N21Click(Sender: TObject)。 procedure N22Click(Sender: TObject)。 private { Private declarations } procedure CreateMDIChild(const Name: string)。 procedure setPower(i:integer)。 public { Public declarations } end。 var MainForm: TMainForm。 本科生畢業(yè)設(shè)計(jì)（論文） 41 implementation {$R *.dfm} uses CHILDWIN, about,changePwd,registerCompany,authorization, needPlan,stockPlan,buyPlan,wzinfo,bminfo,addStock,deleteStock, queryWz,sendMoney,addMoney,checkMoney,moneyRep,WzRep,mingxi。 function checkPassword(s:string):integer。far。external 39。39。 function getUserName:string。external 39。39。 procedure (const Name: string)。 var Child: TMDIChild。 begin { create a new MDI child window } Child := (Application)。 := Name。 if FileExists(Name) then (Name)。 end。 procedure (Sender: TObject)。 begin Close。 end。 procedure (Sender: TObject)。 本科生畢業(yè)設(shè)計(jì)（論文） 42 begin 。 end。 procedure (Sender: TObject)。 var rt:integer。 begin rt:=checkPassword(39。物資管理系統(tǒng) 39。)。 if rt=0 then begin close。 。 end。 setPower(rt)。 end。 procedure (Sender: TObject)。 var rt:integer。 begin frmChangePwd:=(self)。 rt:=。 if rt=mrOk then //修改密碼 begin (getUserName)。 //調(diào)用修改密碼窗體對(duì)象的方法 end。 本科生畢業(yè)設(shè)計(jì)（論文） 43 。 end。 procedure (Sender: TObject)。 var rt:integer。 f:file。 s1,s2,s3,s4:string[160]。 begin frmRegisterCompany:=(self)。 if fileExists(39。39。) then //如果單位配置文件存在 begin assignFile(f,39。39。)。 reSet(f,1)。 //打開(kāi)文件讀出信息 blockRead(f,s1,60)。 blockRead(f,s2,100)。 blockRead(f,s3,12)。 blockRead(f,s4,28)。 :=s1。 :=s2。 :=s3。 :=s4。 closeFile(f)。 end。 rt:=。 if rt=mrOk then //錄入使用單位信息 begin 本科生畢業(yè)設(shè)計(jì)（論文） 44 。 //調(diào)用使用單位信息窗體對(duì)象的方法 end。 。 end。 procedure (Sender: TObject)。 begin frmAuthorization:=(self)。 。 end。 procedure (i: integer)。 begin if i=3 then//具有訪問(wèn)者權(quán)限 begin :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 end else if i=2 then //具有操作員權(quán)限 begin :=false。 :=false。 本科生畢業(yè)設(shè)計(jì)（論文） 45 end。 end。 procedure (Sender: TObject)。 begin frmNeedPlan:=(self)。 。 end。 procedure (Sender: TObject)。 begin frmStockPlan:=(self)。 。 end。 procedure (Sender: TObject)。 begin frmBuyPlan:=(self)。 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 本科生畢業(yè)設(shè)計(jì)（論文） 46 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 本科生畢業(yè)設(shè)計(jì)（論文） 47 end。 procedure (Sender: TObject)。 begin frmCheckMoney:=(self)。 。 end。 procedure (Sender: TObject)。 begin frmMoneyRep:=(self)。 。 end。 procedure (Sender: TObject)。 begin frmWzRep:=(self)。 。 end。 procedure (Sender: TObject)。 begin frmMingxi:=(self)。 。 end。 end. 本科生畢業(yè)設(shè)計(jì)（論文） 48 ③ 字符串加密源代碼： unit Func。 interface const C1 = 52845。 C2 = 22719。 function Encrypt(const S: String。 Key: Word): String。 function Decrypt(const S: String。 Key: Word): String。 function isMoney(s:string):boolean。 function isInteger(s: string): boolean。 implementation uses IdGlobal。 {字符串加密函數(shù)的實(shí)現(xiàn) } function Encrypt(const S: String。 Key: Word): String。 var I: byte。 begin setLength(result,length(s))。 for I := 1 to Length(S) do begin Result[I] := char(byte(S[I]) xor (Key shr 8))。 Key := (byte(Result[I]) + Key) * C1 + C2。 end。 end。 {字符串解密函數(shù)的實(shí)現(xiàn) } function Decrypt(const S: String。 Key: Word): String。 var I: byte。 begin setLength(result,length(s))。 for I := 1 to Length(S) do 本科生畢業(yè)設(shè)計(jì)（論文） 49 begin Result[I] := char(byte(S[I]) xor (Key shr 8))。 Key := (byte(S[I]) + Key) * C1 + C2。 end。 end。 {判斷是否為貨幣的函數(shù)實(shí)現(xiàn) } function isMoney(s: string): boolean。 var i:integer。 begin if length(s)=0 then begin result:=false。 exit。 end。 i:=1。 while i=length(s) do begin if (isNumeric(s[i])=false) and (s[i]39。.39。) then begin result:=false。 exit。 end。 i:=i+1。 end。 result:=true。 end。 {判斷是否為整數(shù)的函數(shù)實(shí)現(xiàn) } function isInteger(s: string): boolean。 var i:integer。 begin i:=1。 if length(s)=0 then 本科生畢業(yè)設(shè)計(jì)（論文） 50 begin result:=false。 exit。 end。 while i=length(s) do begin if (isNumeric(s[i])=false) then begin result:=false。 exit。 end。 i:=i+1。 end。 result:=true。 end。 end. 本科生畢業(yè)設(shè)計(jì)（論文） 51 附 錄 2：英文文獻(xiàn)及