【導(dǎo)讀】除文中已經(jīng)注明引用的內(nèi)容外，論文不含任。做出重要貢獻(xiàn)的個(gè)人和集體均已在文中以明確的方式標(biāo)明。本聲明的法律結(jié)果由作者承擔(dān)。順序撥打一組人的電話并將錄音播放給對方，以達(dá)到語音通知的功能。用Delphi軟件設(shè)計(jì)，可以錄入、刪除、修改用戶信息，可錄制、選擇廣播語音，撥號）的用戶組。基于GSM模塊的語音業(yè)務(wù)智能群呼系統(tǒng)提高了工作人員的辦公

　　

【正文】 sqldel(,)。 setdbgridwidth()。 end else (39。請選中 id 項(xiàng)刪除 39。,39。錯(cuò)誤39。,MB_ICONERROR+MB_OK)。 end。 {******************************************************** * 撥號 按鈕 * * * *********************************************************} procedure (Sender: TObject)。 var i:integer。 begin if true then begin showmessage(39。串口沒打開 39。)。 :=tabsheet2。 35 end else begin 。 :=false。 :=500。 :=true。 。//指針指向第一行記錄 :=0。 :=0。 mystr1:=39。39。 mystr2:=39。39。 kk:=0。 wait_time:=0。 flag:=0。 end。 end。 {******************************************************** * 列出所有人按鈕 * * * *********************************************************} procedure (Sender: TObject)。 begin :=39。select * from friends39。 try 。 except end。 setdbgridwidth()。 36 end。 {******************************************************** * 連接模塊按鈕 * * * *********************************************************} procedure (Sender: TObject)。 begin if =39。連接 GSM 模塊 39。 then begin :=39。斷開 39。 :=clred。 :=get()。 :=+39。,N,8,139。 :=0。 :=InputModetext。 :=1。//這個(gè)是發(fā)生中斷的字符數(shù)，為 0 就不產(chǎn)生onm 事件，默認(rèn)為 0 :=0。 := 256。 := 0。 :=true。 end else begin :=39。連接 GSM 模塊 39。 :=clwhite。 :=false。 end。 end。 {******************************************************** 37 * 呼叫失敗標(biāo)記 * * * *********************************************************} procedure ()。 begin :=39。update friends set statue=失敗 where id=39。+inttostr((39。id39。).Value)。 。 end。 {******************************************************** * 呼叫成功標(biāo)記 * * * *********************************************************} procedure ()。 begin :=39。update friends set statue=成功 where id=39。+inttostr((39。id39。).Value)。 。 end。 {******************************************************** * 掃描響應(yīng)函數(shù) * * * *********************************************************} procedure (strtt:string)。 begin if((findmystr(39。OK39。,strtt)=1) and (flag=1))then begin 38 flag:=2。 setcalled()。 :=。 。 。 mystr1:=39。39。 mystr2:=39。39。 end else if((findmystr(39。NO CARRIER39。,strtt)=1) and (flag=2))then begin flag:=0。 。 // 。 mystr1:=39。39。 mystr2:=39。39。 。 end。 end。 {******************************************************** * 串口中斷函數(shù) * * * *********************************************************} procedure (Sender: TObject)。 var str:string。 begin if =evreceive then begin str:=。 if(kk10)then 39 begin mystr1:=mystr1+str。 myscan(mystr2+mystr1)。 end else if kk=10 then begin mystr2:=39。39。 mystr2:=mystr2+str。 myscan(mystr1+mystr2)。 end else if kk19 then begin mystr2:=mystr2+str。 myscan(mystr1+mystr2)。 end else begin kk:=0。 mystr1:=39。39。 mystr1:=mystr1+str。 myscan(mystr2+mystr1)。 end。 kk:=kk+1。 end。 end。 {******************************************************** * 尋找字符串函數(shù) * * * *********************************************************} function (str1,str2:string):integer。 40 var flag,i,j:integer。 begin flag:=0。 for i:=1 to length(str2) do begin if (str2[i]=str1[1]) then begin flag:=1。 for j:=1 to length(str1) do begin if str2[i+j1]str1[j] then begin flag:=0。 break。 end。 end。 end end。 result:=flag。 end。 {******************************************************** * 狀態(tài)欄監(jiān)控函數(shù) * * * *********************************************************} procedure (Sender: TObject)。 begin :=39。kk=39。+inttostr(kk)+39。 wait_time=39。+inttostr(wait_time)+39。 flag=39。+inttostr(flag)+39。 39。 41 end。