【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 本科生畢業(yè)設(shè)計(jì)（論文） 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)。 //打開文件讀出信 息 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//具有訪問者權(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