數(shù)據(jù)庫(kù)系統(tǒng)課程設(shè)計(jì)報(bào)告正文

1、目 錄1緒 論11.1項(xiàng)目簡(jiǎn)介11.2設(shè)計(jì)目的11.3設(shè)計(jì)內(nèi)容11.4應(yīng)用范圍12需求分析22.1數(shù)據(jù)需求22.2事務(wù)需求22.3詳細(xì)功能分析22.4數(shù)據(jù)字典22.5開(kāi)發(fā)運(yùn)行環(huán)境22.6安全保障23概念設(shè)計(jì)33.1實(shí)體及聯(lián)系抽象33.2E-R圖33.3關(guān)系模式34邏輯設(shè)計(jì)44.1各表功能44.2各表結(jié)構(gòu)44.3表關(guān)系圖45物理設(shè)計(jì)45.1物理存儲(chǔ)45.2完整性約束45.3視圖設(shè)計(jì)55.4觸發(fā)器設(shè)計(jì)56系統(tǒng)實(shí)現(xiàn)與維護(hù)66.1模塊166.2模塊266.3模塊367總 結(jié)77.1系統(tǒng)實(shí)現(xiàn)程度77.2問(wèn)題及難點(diǎn)77.3收獲與體會(huì)7哈爾濱工業(yè)大學(xué)（威海）數(shù)據(jù)庫(kù)系統(tǒng)課程設(shè)計(jì)報(bào)告1 緒 論1.1 項(xiàng)目簡(jiǎn)介此

2、系統(tǒng)是一個(gè)面向中小型賓館，旅館，招待所的客房管理系統(tǒng)，實(shí)現(xiàn)對(duì)客房的管理，顧客的管理，賓館日常工作的管理，簡(jiǎn)單實(shí)用。1.2 設(shè)計(jì)目的方便中小型賓館實(shí)現(xiàn)對(duì)客房的管理，為用戶考慮，程序包含客房管理所需的所有功能，卻也是簡(jiǎn)單短小，成本低廉，真正為小成本中小型賓館切身利益考慮。1.3 設(shè)計(jì)內(nèi)容實(shí)現(xiàn)服務(wù)員用賬號(hào)密碼登錄功能，對(duì)客房的按照多種條件的信息查詢和顯示，顧客入住的信息登記，顧客信息的多種方式查詢，顧客的退房操作，客房信息的增刪改查，銷(xiāo)售信息的報(bào)表顯示與打印，數(shù)據(jù)庫(kù)的備份。1.4 應(yīng)用范圍本系統(tǒng)適用于中小型旅館，賓館，招待所的前臺(tái)服務(wù)人員，用來(lái)對(duì)賓館日常工作的操作， 49 / 512 需求分析2.1

3、 數(shù)據(jù)需求系統(tǒng)需要處理哪些數(shù)據(jù)1：新用戶登記信息（顧客或者內(nèi)部成員（身份證號(hào)，姓名，性別，電話 ，訂房信息 等）2：舊用戶信息（顧客或者內(nèi)部成員（身份證號(hào)，姓名，性別，電話 ，訂房信息 等）3：賓館客房信息（數(shù)量，價(jià)格，容量，是否滿員等）4：金融信息（余額，繳費(fèi)記錄，轉(zhuǎn)賬信息等）2.2 事務(wù)需求系統(tǒng)涉及哪些人員，各能做什么事務(wù) 經(jīng)理和董事長(zhǎng)：綜合管理，可以操作內(nèi)部成員的一切功能，并且可以在報(bào)表中查看賓館近幾個(gè)月的收入情況.前臺(tái)人員：完成顧客的登記，訂房，退房，賬戶查詢，人員查詢，賓館狀態(tài)查詢（房間信息，訂單信息，金錢(qián)交易）.2.3 詳細(xì)功能分析用visio畫(huà)出總的功能模塊圖及各子系統(tǒng)的詳細(xì)功能

4、模塊圖，并用語(yǔ)言描述 數(shù)據(jù)庫(kù)備份與恢復(fù)形成業(yè)務(wù)賬單流水，打印功能供經(jīng)理查詢賓館客房管理系統(tǒng)服務(wù)員信息管理客房信息管理顧客信息管理改查刪增改查刪增查詢登記登出按退房日期按入住日期按姓名按身份證2.4 數(shù)據(jù)字典屬性介紹屬性介紹IDnumber人員信息主碼，唯一標(biāo)識(shí)一個(gè)人員name房間訂單中的訂房人的名字keyword登錄口令datestar訂房起始日期gname人員姓名dateend訂房結(jié)束日期gsex人員性別alreadymoney已經(jīng)支付的房間的訂單金額gtelephone人員電話號(hào)碼othermoney房間訂單還需要支付的金額gadress人員住宿地址team團(tuán)隊(duì)訂房標(biāo)記gjob人員身份ji

5、ngliren訂房的經(jīng)理人borntime人員的生日makedate房間訂單下單日期gsalary人員的薪水（非內(nèi)部成員此項(xiàng)為0）indexx團(tuán)隊(duì)訂房訂單索引gdate登記日期roomdescribe團(tuán)隊(duì)訂房所有房間描述kindsname物品種類(lèi)主碼dingdaninfo訂餐訂單的詳情jobkind優(yōu)惠活動(dòng)主碼，對(duì)應(yīng)于人員的身份already餐飲訂單狀態(tài)標(biāo)記（是否處理）zhekou折扣程度（0折10折）dateget餐飲訂單下單日期otherdescribe其他優(yōu)惠活動(dòng)詳情描述fromID轉(zhuǎn)賬人IDkinds房間的級(jí)別toID轉(zhuǎn)賬目的人IDdescribe房間配置的描述moneyvalue轉(zhuǎn)賬

6、金額thingname雜物姓名主碼IDope充值記錄中充值操作人IDthingpicture雜物快照（照片路徑）isorfull房間是否滿員標(biāo)識(shí)price各種物品的價(jià)格roomtelephone房間的電話號(hào)碼roomID房間號(hào)主碼roompicture房間快照（路徑）canpeoplenum房間的容量（可以住幾個(gè)人）2.5 開(kāi)發(fā)運(yùn)行環(huán)境所用DBMS、開(kāi)發(fā)工具及編程語(yǔ)言等使用sql server 2008構(gòu)建數(shù)據(jù)庫(kù), PB12.0開(kāi)發(fā)， sql server語(yǔ)言及PB編程語(yǔ)言2.6 安全保障如何保障系統(tǒng)的安全性人員登錄都需要有密碼和口令不同職務(wù)的人功能不同有數(shù)據(jù)庫(kù)備份功能，保障數(shù)據(jù)安全3 概念設(shè)

7、計(jì)3.1 實(shí)體及聯(lián)系抽象分析有哪些實(shí)體及聯(lián)系，各有哪些屬性，聯(lián)系是什么類(lèi)型的。Room（r_number, r_kind, r_bed, r_price, r_status, r_describe）;Customer (IDnumber, name, sex, phone, orderdate, money, datestart, dateend, roomid, remarks);Manage(ID, password, age, phone, position);Roomnumber(roomnumber);Room_status(roomid, begintime, endtime, c

8、ustomerID, customername, price)3.2 E-R圖采用從下到上的策略，先畫(huà)出各部分E-R圖，最后合成總的E-R圖，并注意做優(yōu)化電話號(hào)碼容納的人員數(shù)快照種類(lèi)價(jià)格滿員標(biāo)記 房間房間號(hào)管理照片 服務(wù)員賬戶余額賬戶人名賬戶人身份證號(hào)管理房間 服務(wù)員服務(wù)員 服務(wù)員入住登記備注退房日期顧客入住日期身份證號(hào)性別姓名名余額手機(jī)號(hào)3.3 關(guān)系模式把E-R圖轉(zhuǎn)換為關(guān)系模式，并畫(huà)出關(guān)系模式圖。盡量規(guī)范到3NF。Room（r_number, r_kind, r_bed, r_price, r_status, r_describe）;Customer (IDnumber, name, sex

9、, phone, orderdate, money, datestart, dateend, roomid, remarks);Manage(ID, password, age, phone, position);Roomnumber(roomnumber);Room_status(roomid, begintime, endtime, customerID, customername, price)4 邏輯設(shè)計(jì)4.1 各表功能給出數(shù)據(jù)庫(kù)所有表的名稱(chēng)及各自功能表名稱(chēng)功能Manage存儲(chǔ)服務(wù)員，經(jīng)理等管理人員信息Room存儲(chǔ)房間信息Customer存儲(chǔ)顧客詳細(xì)信息Roomnumber存儲(chǔ)房間總數(shù)

10、信息Roomstatus存儲(chǔ)房間狀態(tài)信息給出各表的詳細(xì)字段組成，包括數(shù)據(jù)類(lèi)型、長(zhǎng)度、主外碼、約束等。4.2 表關(guān)系圖在SQL Server中直接找到關(guān)系圖并截取出來(lái)。5 物理設(shè)計(jì)5.1 物理存儲(chǔ)給出數(shù)據(jù)庫(kù)文件的存儲(chǔ)位置、如何備份、還原等數(shù)據(jù)庫(kù)存儲(chǔ)位置：C:Program FilesMicrosoft SQL ServerMSSQL10_50.MSSQLSERVERMSSQLDATA備份：在sql server 2008中點(diǎn)擊數(shù)據(jù)庫(kù)，右鍵任務(wù)，選擇備份，選擇備份位置，備份名，即可還原：在sql server 2008中點(diǎn)擊數(shù)據(jù)庫(kù)，右鍵任務(wù)，選擇還原，輸入備份的數(shù)據(jù)庫(kù)名，選擇存放路徑，即可5.2

11、完整性約束主鍵: 不能重復(fù)，唯一標(biāo)識(shí)鍵外鍵：約束內(nèi)容，不能超出要求的范圍范圍約束：在固定的集合中選擇（例如：性別，年齡等）默認(rèn)約束：在用戶不輸入數(shù)據(jù)的情況下，自動(dòng)的給其附一個(gè)值（例如性別默認(rèn)為“男性”）。5.3 視圖設(shè)計(jì)本系統(tǒng)無(wú)視圖5.4 觸發(fā)器設(shè)計(jì)本系統(tǒng)無(wú)觸發(fā)器6 系統(tǒng)實(shí)現(xiàn)與維護(hù)6.1 模塊1給出主要功能部分的系統(tǒng)界面截圖及核心代碼來(lái)，并給出必要的描述說(shuō)明。按功能模塊來(lái)分節(jié)。登錄模塊string s_code , s_passint i_counts_code = sle_id.texts_pass = sle_password.textselect count(*)into :i_coun

12、tfrom Managerwhere ID =:s_code and password=:s_pass ;if i_count > 0 then open(test1) close(w_login)else messagebox('提示','用戶名或密碼錯(cuò)誤，請(qǐng)重新輸入！')end if6.2 模塊2截取當(dāng)前操作窗畫(huà)面的快捷鍵為 Alt + PrtSc，然后Ctrl + V粘貼到要放入的地方即可?？头款A(yù)訂1，按房間號(hào)查詢string r_id, r_kind, r_bed, r_price,r_status, r_describestring r_idii

13、nt t=1 if sle_id.text="" then messagebox("error","請(qǐng)輸入房間號(hào)！")returnend ifr_idi=trim(sle_id.text)lv_id.deleteitems() /清空l(shuí)v控件declare r_cursor cursor for /定義游標(biāo)select *from roomwhere room.r_number=:r_idi;open r_cursor; /打開(kāi)游標(biāo) if sqlca.sqlcode<>0 then messagebox("提示&

14、quot;,"游標(biāo)打開(kāi)錯(cuò)誤！")end ifdo while true fetch r_cursor /取數(shù)到自己定義的變量中into :r_id, :r_kind, :r_bed, :r_price, :r_status, :r_describe;if sqlca.sqlcode<>0 then exitend iflv_id.additem(string(r_id), t)lv_id.setitem(t, 2, string(r_kind)lv_id.setitem(t, 3, string(r_bed)lv_id.setitem(t, 4, string(

15、r_price)lv_id.setitem(t, 5, string(r_status)lv_id.setitem(t, 6, string(r_describe)t=t+1loop /循環(huán)close r_cursor; /關(guān)閉游標(biāo)2，按類(lèi)別查詢string r_id, r_kind, r_bed, r_price,r_status, r_describestring r_kindiint t=1 if ddlb_kind.text="" then messagebox("error","請(qǐng)選擇房間類(lèi)型！")returnend ifr

16、_kindi=trim(ddlb_kind.text)lv_kind.deleteitems() /清空l(shuí)v控件declare r_cursor cursor for /定義游標(biāo)select *from roomwhere room.r_kind=:r_kindi;open r_cursor; /打開(kāi)游標(biāo) if sqlca.sqlcode<>0 then messagebox("提示","游標(biāo)打開(kāi)錯(cuò)誤！")end ifdo while true fetch r_cursor /取數(shù)到自己定義的變量中into :r_id, :r_kind, :

17、r_bed, :r_price, :r_status, :r_describe;if sqlca.sqlcode<>0 then exitend iflv_kind.additem(string(r_id), t)lv_kind.setitem(t, 2, string(r_kind)lv_kind.setitem(t, 3, string(r_bed)lv_kind.setitem(t, 4, string(r_price)lv_kind.setitem(t, 5, string(r_status)lv_kind.setitem(t, 6, string(r_describe)t

18、=t+1loop /循環(huán)close r_cursor; /關(guān)閉游標(biāo)3，按床位查詢string b_id, b_kind, b_bed, b_price,b_status, b_describestring r_bediint t=1 if sle_bed.text="" then messagebox("error","請(qǐng)輸入床位數(shù)！")returnend ifr_bedi=trim(sle_bed.text)lv_bed.deleteitems() /清空l(shuí)v控件declare r_cursor cursor for /定義游標(biāo)se

19、lect *from roomwhere room.r_bed=:r_bedi;open r_cursor; /打開(kāi)游標(biāo) if sqlca.sqlcode<>0 then messagebox("提示","游標(biāo)打開(kāi)錯(cuò)誤！")end ifdo while true fetch r_cursor /取數(shù)到自己定義的變量中into :b_id, :b_kind, :b_bed, :b_price, :b_status, :b_describe;if sqlca.sqlcode<>0 then exitend iflv_bed.addit

20、em(string(b_id), t)lv_bed.setitem(t, 2, string(b_kind)lv_bed.setitem(t, 3, string(b_bed)lv_bed.setitem(t, 4, string(b_price)lv_bed.setitem(t, 5, string(b_status)lv_bed.setitem(t, 6, string(b_describe)t=t+1loop /循環(huán)close r_cursor; /關(guān)閉游標(biāo)4，按價(jià)格查詢string r_id, r_kind, r_bed, r_price,r_status, r_describestr

21、ing r_pricei, r_pricejint t=1 if sle_low.text="" then messagebox("error","請(qǐng)輸入最低價(jià)！")returnend if if sle_high.text="" then messagebox("error","請(qǐng)輸入最高價(jià)！")returnend ifr_pricei=trim(sle_low.text)r_pricej=trim(sle_high.text)lv_price.deleteitems()

22、/清空l(shuí)v控件declare r_cursor cursor for /定義游標(biāo)select *from roomwhere room.r_price>=:r_pricei and room.r_price<=:r_pricej;open r_cursor; /打開(kāi)游標(biāo) if sqlca.sqlcode<>0 then messagebox("提示","游標(biāo)打開(kāi)錯(cuò)誤！")end ifdo while true fetch r_cursor /取數(shù)到自己定義的變量中into :r_id, :r_kind, :r_bed, :r_pr

23、ice, :r_status, :r_describe;if sqlca.sqlcode<>0 then exitend iflv_price.additem(string(r_id), t)lv_price.setitem(t, 2, string(r_kind)lv_price.setitem(t, 3, string(r_bed)lv_price.setitem(t, 4, string(r_price)lv_price.setitem(t, 5, string(r_status)lv_price.setitem(t, 6, string(r_describe)t=t+1lo

24、op /循環(huán)close r_cursor; /關(guān)閉游標(biāo)6.3 模塊3圖片要頂格居中放置，要有圖標(biāo)題，放在圖下面。圖片大小要適中，不要超出頁(yè)寬。顧客登記入?。? /登記顧客信息8 9 string r_id, c_id, c_name, c_sex, c_phone, c_orderdata, c_money, c_remark10 date c_orderdate, c_datestart, c_dateend1112 if sle_roomid.text="" or isNULL (sle_roomid.text) then /取出房間號(hào)選擇13 messagebox (

25、"缺少數(shù)據(jù)","請(qǐng)輸入房間號(hào)")14 sle_roomid.setfocus ()15 return16 end if17 r_id=trim (sle_roomid.text)18 19 string status20 select room.r_status21 into :status22 from room23 where r_number=:r_id;24 if status='已售出' then 25 messagebox("error","此房間已售出，請(qǐng)核對(duì)后重新輸入")26 sle

26、_roomid.setfocus () 27 end if282930 if sle_name.text="" or isNULL (sle_name.text) then /取出姓名選擇31 messagebox ("缺少數(shù)據(jù)","請(qǐng)輸入姓名")32 sle_name.setfocus ()33 return34 end if35 c_name=trim (sle_name.text)3637 if sle_id.text="" or isNULL (sle_id.text) then /取出身份證號(hào)選擇38 m

27、essagebox ("缺少數(shù)據(jù)","請(qǐng)輸入身份證號(hào)")39 sle_id.setfocus ()40 return41 end if42 c_id=trim (sle_id.text)4344 if rb_man.checked then /取出性別選擇45 c_sex=rb_man.text46 elseif rb_woman.checked then47 c_sex=rb_woman.text48 end if4950 if sle_phone.text="" or isNULL (sle_phone.text) then /取

28、出手機(jī)號(hào)選擇51 messagebox ("缺少數(shù)據(jù)","請(qǐng)輸入手機(jī)號(hào)")52 sle_phone.setfocus ()53 return54 end if55 c_phone=trim (sle_phone.text)5657 if sle_orderdate.text<>"" and not isNull (sle_orderdate) then /輸入預(yù)訂日期，可以為空58 if isDate (sle_orderdate.text) then59 c_orderdate=date (sle_orderdate.t

29、ext)60 return 61 end if62 end if6364 if sle_money.text="" or isNULL (sle_money.text) then /取出賬戶余額選擇65 messagebox ("缺少數(shù)據(jù)","請(qǐng)輸入預(yù)付房錢(qián)")66 sle_money.setfocus ()67 return68 end if69 c_money=trim (sle_money.text)7071 if sle_datestart.text<>"" and not isNull (sl

30、e_datestart) then /輸入入住日期72 if isDate (sle_datestart.text) then73 c_datestart=date (sle_datestart.text)74 else 75 messagebox("輸入數(shù)據(jù)錯(cuò)誤","請(qǐng)使用“年-月-日”的日期格式")76 sle_datestart.setfocus ()77 return 78 end if79 end if8081 if sle_dateend.text<>"" and not isNull (sle_dateend

31、) then /輸入退房日期82 if isDate (sle_dateend.text) then83 c_dateend=date (sle_dateend.text)84 else 85 messagebox("輸入數(shù)據(jù)錯(cuò)誤","請(qǐng)使用“年-月-日”的日期格式")86 sle_dateend.setfocus ()87 return 88 end if89 end if9091 insert into customer /向數(shù)據(jù)庫(kù)寫(xiě)入數(shù)據(jù)92 values93 (:c_id,94 :c_name,95 :c_sex,96 :c_phone,97 :

32、c_orderdate,98 :c_money,99 :c_datestart,100 :c_dateend,101 :r_id,102 :c_remark);103 104 sle_roomid.text="" /數(shù)據(jù)輸入完成后，清空輸入控件105 sle_id.text=""106 sle_name.text=""107 sle_phone.text=""108 sle_orderdate.text=""109 sle_money.text=""110 sle_dates

33、tart.text=""111 sle_dateend.text=""112 mle_remark.text=""113 114 update room /將登記的房間狀態(tài)設(shè)為“已售出”115 set r_status="已售出"116 where r_number=:r_id;117 messagebox("成功","顧客登記成功！")118 119 sle_roomid.setfocus () /將光標(biāo)放到”房間號(hào)“輸入120 欄6,4模塊四查詢顧客信息1，按姓名查詢/按

34、姓名查詢顧客信息string c_roomid, c_id, c_name, c_sex, c_phone, c_orderdata, c_money, c_remark /定義變量date c_orderdate, c_datestart, c_dateendint t=1string r_idiif sle_name.text="" then messagebox("error","請(qǐng)輸入顧客姓名")returnend ifr_idi=trim(sle_name.text)lv_name.deleteitems() /清空l(shuí)v控件

35、declare c_cursor cursor for /定義游標(biāo)select *from customerwhere =:r_idi;open c_cursor; /打開(kāi)游標(biāo)if sqlca.sqlcode<>0 then messagebox("error","游標(biāo)打開(kāi)錯(cuò)誤")end ifdo while truefetch c_cursorinto :c_id, :c_name, :c_sex, :c_phone, :c_orderdate, :c_money, :c_datestart, :c_dateend

36、, :c_roomid, :c_remark; /取數(shù)據(jù)到變量if sqlca.sqlcode<>0 thenexitend iflv_name.additem(string(c_id), t) /數(shù)據(jù)顯示lv_name.setitem(t, 2, string(c_name)lv_name.setitem(t, 3, string(c_sex)lv_name.setitem(t, 4, string(c_phone)lv_name.setitem(t, 5, string(c_orderdate)lv_name.setitem(t, 6, string(c_money)lv_na

37、me.setitem(t, 7, string(c_datestart)lv_name.setitem(t, 8, string(c_dateend)lv_name.setitem(t, 9, string(c_roomid)lv_name.setitem(t, 10, string(c_remark) t=t+1loopclose c_cursor; /關(guān)閉游標(biāo)2,按身份證號(hào)查/按身份證號(hào)查詢顧客信息string c_roomid, c_id, c_name, c_sex, c_phone, c_orderdata, c_money, c_remark /定義變量date c_orderda

38、te, c_datestart, c_dateendint t=1string r_idiif sle_id.text="" then messagebox("error","請(qǐng)輸入顧客姓名")returnend ifr_idi=trim(sle_id.text)lv_id.deleteitems() /清空l(shuí)v控件declare c_cursor cursor for /定義游標(biāo)select *from customerwhere customer.IDnumber=:r_idi;open c_cursor; /打開(kāi)游標(biāo)if sql

39、ca.sqlcode<>0 then messagebox("error","游標(biāo)打開(kāi)錯(cuò)誤")end ifdo while truefetch c_cursorinto :c_id, :c_name, :c_sex, :c_phone, :c_orderdate, :c_money, :c_datestart, :c_dateend, :c_roomid, :c_remark; /取數(shù)據(jù)到變量if sqlca.sqlcode<>0 thenexitend iflv_id.additem(string(c_id), t) /數(shù)據(jù)顯示

40、lv_id.setitem(t, 2, string(c_name)lv_id.setitem(t, 3, string(c_sex)lv_id.setitem(t, 4, string(c_phone)lv_id.setitem(t, 5, string(c_orderdate)lv_id.setitem(t, 6, string(c_money)lv_id.setitem(t, 7, string(c_datestart)lv_id.setitem(t, 8, string(c_dateend)lv_id.setitem(t, 9, string(c_roomid)lv_id.setite

41、m(t, 10, string(c_remark) t=t+1loopclose c_cursor; /關(guān)閉游標(biāo)3，按性別查詢/按性別查詢顧客信息string c_roomid, c_id, c_name, c_sex, c_phone, c_orderdata, c_money, c_remark /定義變量date c_orderdate, c_datestart, c_dateendint t=1string r_sexiif ddlb_sex.text="" then messagebox("error","請(qǐng)輸入顧客姓名")

42、returnend ifr_sexi=trim(ddlb_sex.text)lv_sex.deleteitems() /清空l(shuí)v控件declare c_cursor cursor for /定義游標(biāo)select *from customerwhere customer.sex=:r_sexi;open c_cursor; /打開(kāi)游標(biāo)if sqlca.sqlcode<>0 then messagebox("error","游標(biāo)打開(kāi)錯(cuò)誤")end ifdo while truefetch c_cursorinto :c_id, :c_name,

43、:c_sex, :c_phone, :c_orderdate, :c_money, :c_datestart, :c_dateend, :c_roomid, :c_remark; /取數(shù)據(jù)到變量if sqlca.sqlcode<>0 thenexitend iflv_sex.additem(string(c_id), t) /數(shù)據(jù)顯示lv_sex.setitem(t, 2, string(c_name)lv_sex.setitem(t, 3, string(c_sex)lv_sex.setitem(t, 4, string(c_phone)lv_sex.setitem(t, 5,

44、string(c_orderdate)lv_sex.setitem(t, 6, string(c_money)lv_sex.setitem(t, 7, string(c_datestart)lv_sex.setitem(t, 8, string(c_dateend)lv_sex.setitem(t, 9, string(c_roomid)lv_sex.setitem(t, 10, string(c_remark) t=t+1loopclose c_cursor; /關(guān)閉游標(biāo)4，按手機(jī)號(hào)查詢/按手機(jī)號(hào)查詢顧客信息string c_roomid, c_id, c_name, c_sex, c_ph

45、one, c_orderdata, c_money, c_remark /定義變量date c_orderdate, c_datestart, c_dateendint t=1string r_phoneiif sle_phone.text="" then messagebox("error","請(qǐng)輸入顧客姓名")returnend ifr_phonei=trim(sle_phone.text)lv_phone.deleteitems() /清空l(shuí)v控件declare c_cursor cursor for /定義游標(biāo)select *from customerwhere customer