§å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Trêng ®¹i häc vinh Khoa C«ng nghƯ th«ng tin §å ¸n tèt nghiƯp Tªn §å ¸n: Qu¶n lý kh¸ch s¹n theo m« h×nh server/client Gi¸o viªn híng dÉn Sinh viªn thùc hiƯn Ths Lª V¨n Minh §êng Xu©n Trêng Líp 45 K - Khoa CNTT Vinh, th¸ng 5/2009 Gi¸o viªn híng dÉn: Ths Lª V¨n Minh Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Lêi nãi ®Çu Trong c«ng cc ®ỉi míi kh«ng ngõng cđa khoa häc kü tht c«ng nghƯ, nhiỊu lÜnh vùc ®· vµ ®ang ph¸t triĨn vỵt bËc ®Ỉc biƯt lµ lÜnh vùc c«ng nghƯ th«ng tin Qu¶n lý b»ng hƯ thèng m¸y tÝnh ®ỵc h×nh thµnh tõ nhu vỊ tèc ®é qu¶n lý còng nh sù ph¸t triĨn vỊ cđa x· héi yªu cÇu cao vỊ tèc ®é xư lý, qu¶n lý ®ång bé nhanh chãng, chia sỴ tµi nguyªn còng nh dïng chung ngn d÷ liƯu, ®ì tèn thêi gian c«ng søc ChÝnh v× nh÷ng vai trß rÊt quan träng cđa m¸y tÝnh víi nhu cÇu cđa cc sèng ngêi vµ b»ng nh÷ng kiÕn thøc ®· ®ỵc häc ë trêng em ®· chän ®å ¸n: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Do thêi gian vµ kiÕn thøc cã h¹n nªn ®å ¸n cßn h¹n chÕ, rÊt mong ®ỵc sù gãp ý cđa c¸c thÇy c« gi¸o vµ nhãm sinh viªn Em xin ch©n thµnh c¶m ¬n thÇy gi¸o Ths: Lª V¨n Minh ®· tËn t×nh gióp ®ì ®Ĩ chóng em hoµn thµnh ch¬ng tr×nh nµy Xin tr©n träng c¶m ¬n! Vinh, ngµy 14 th¸ng 05 n¨m 2009 Sinh viªn thùc hiƯn §êng Xu©n Trêng Gi¸o viªn híng dÉn: Ths Lª V¨n Minh Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Mơc lơc Trang Ch¬ng I : PH©N TÝCH & THIÕt KÕ HƯ THèNG CH¬ng tr×nh qu¶n lý kh¸ch s¹n .5 I Ph©n tÝch ®¸nh gi¸ hiƯn tr¹ng 1- Kh¶o s¸t hiƯn tr¹ng Mơc tiªu x©y dùng ch¬ng tr×nh QLKS §Ỉc t¶ bµi to¸n .9 Qui tr×nh qu¶n lý nh sau 11 II M« h×nh ho¸ d÷ liƯu 12 M« h×nh ho¸ quan niƯm d÷ liƯu 12 b M« h×nh quan hƯ d÷ liƯu bµi to¸n qu¶n lý kh¸ch s¹n 16 M« h×nh tỉ chøc d÷ liƯu 17 M« h×nh vËt lý d÷ liƯu .18 Dienthoai .20 III M« h×nh ho¸ xư lý 23 M« h×nh ho¸ th«ng lỵng: 23 M« h×nh quan niƯm xư lý .24 M« h×nh tỉ chøc xư lý lµ m« h×nh liªn hoµn c¸c biÕn cè, c«ng viƯc vµ c¸c biÕn cè,c«ng viƯc nµy ®ỵc ®Ỉt t¹i vÞ trÝ lµm viƯc thĨ Nh÷ng biÕn cè kh«ng xt ph¸t tõu mét n¬i lµm viƯc nµo ta ®Ỉt trªn ®êng ph©n c¸ch gi÷a hai n¬i lµm viƯc 28 M« h×nh tỉ chøc xư lý m« h×nh kh¸ch s¹n: .28 Gọi : Nhập dòch vụ 36 Ch¬ng II: néi dung ch¬ng tr×nh 37 I Ng«n ng÷ lËp tr×nh Visual Basic 37 II-M¤ H×NH CLIENT – SERVER 39 Giíi thiƯu m« h×nh Client – Server : .39 M« h×nh Client – Server : 39 Truy cËp d÷ liƯu Visual Basic : 41 C¸ch kÕt nèi d÷ liƯu th«ng qua OLE DB VB : 41 III- Giao diƯn – M· lƯnh (Code) cđa mét sè modun ch¬ng tr×nh QLKS .45 Form thiÕt kÕ – bè trÝ s¬ ®å phßng 45 Form bè trÝ (giao) phßng cho kh¸ch: 47 Form th«ng tin phßng: .54 Ch¬ng III : KÕT LN – H¦íNG PH¸T TRIĨN 67 I KÕt ln 67 II H¦íNG PH¸T TRIĨN .67 Lêi c¶m ¬n .72 Tµi liƯu tham kh¶o 73 Gi¸o viªn híng dÉn: Ths Lª V¨n Minh Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Giíi thiƯu chung §«i nÐt vỊ Kh¸ch s¹n Bu ®iƯn Cưa Lß NghƯ An N¨m 1996, ®ỵc sù thèng nhÊt cđa Tỉng c«ng ty Bu chÝnh ViƠn th«ng NghƯ An (nay lµ TËp ®oµn Bu chÝnh ViƠn th«ng ViƯt Nam ), Trung t©m qu¶n lý C«ng tr×nh lỵi thc Tỉng c«ng ty Bu chÝnh ViƯt Nam thµnh lËp Nhµ kh¸ch Bu ®iƯn Cưa Lß vµo ngµy 01/05/1996 nh»m mơc ®Ých phơc vơ c¸c bé c«ng nh©n viªn nghµnh tham quan nghØ m¸t hµnh n¨m Nhµ kh¸ch Bu ®iƯn Cưa Lß cã ®Þa chØ: 02 §êng B×nh Minh, thÞ x· Cưa Lß, N¨m 2002 Trung t©m qu¶n lý C«ng tr×nh lỵi ®ỉi thµnh Tỉng C«ng ty Cp Du lÞch vµ th¬ng m¹i Bu ®iƯn ViƯt Nam theo m« h×nh qu¶n lý Tỉng c«ng ty vµ Nhµ kh¸ch Bu ®iƯn Cưa Lß ®ỉi thµnh Kh¸ch s¹n Bu ®iƯn Cưa Lß, trùc thc Tỉng C«ng ty CP du lÞch vµ Th¬ng m¹i Bu ®iƯn ViƯt Nam TÝnh ®Õn Kh¸ch s¹n Bu ®iƯn Cưa Lß ®· ho¹t ®éng ®ỵc 13 n¨m, mỈc dï ph¶i tr¶i qua nh÷ng bíc khã kh¨n nhng b»ng sù nç lùc cđa c¸n bé c«ng nh©n viªn còng nh sù quan t©m cđa Tỉng c«ng ty CP Du lÞch vµ th¬ng m¹i Bu ®iƯn ViƯt Nam nãi riªng vµ tËp ®oµn Bu chÝnh ViƠn th«ng ViƯt Nam nãi chung, Kh¸ch s¹n Bu ®iƯn Cưa Lß ngµy ®· lín m¹nh vỊ mäi mỈt, lỵng kh¸ch lu tró còng nh sư dơng c¸c dÞch vơ cđa Nhµ kh¸ch ngµy cµng nhiỊu Víi nhng thµnh qu¶ nh vËy, Kh¸ch s¹n Bu ®iƯn ®· kh«ng ngõng n©ng cao tr×nh ®é chuyªn m«n còng nh c¬ së vËt chÊt, ®Õn phÇn lín c¸c phßng lµm viƯc ®· trang bÞ m¸y tÝnh ®Ĩ hç trỵ cho c«ng viƯc kinh doanh MỈc dï vËy, víi tÝnh n¨ng cßn mang tÝnh thđ c«ng chđ u lµ sư dơng Word vµ Excel, ch¾c ch¾n sÏ kh«ng ®¸p øng ®ỵc tÇm qu¶n lý cđa doanh nghiƯp ®ang trªn ®µ ph¸t triĨn ChÝnh v× vËy qua thêi gian thùc tËp ë ®©y, em ®· cè g¾ng kh¶o s¸t hƯ thèng cò vµ m¹nh d¹n thùc hiƯn mét ch¬ng tr×nh qu¶n lý b»ng m¸y tÝnh víi chøc n¨ng hoµn thiƯn h¬n, ch¬ng tr×nh ®ỵc viÕt b»ng ng«n ng÷ Visual Basic theo m« h×nh Server/Client ®Ĩ thùc hiƯn mét sè c«ng viƯc vỊ vÊn ®Ị qu¶n lý cđa Kh¸ch s¹n nh qu¶n lý phßng, qu¶n lý vỊ dÞch vơ víi CSDL sư dơng lµ Microsoft Acces Gi¸o viªn híng dÉn: Ths Lª V¨n Minh Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic S¬ ®å qu¶n lý cđa kh¸ch s¹n Bu ®iƯn Cưa Lß Gi¸m ®èc P.Gi¸m ®èc LƠ t©n TC/ H.chÝnh Nhµ hµng/ Bar KÕ to¸n Ch¬ng I : PH©N TÝCH & THIÕt KÕ HƯ THèNG CH¬ng tr×nh qu¶n lý kh¸ch s¹n Trong ph©n tÝch thiÕt kÕ hƯ thèng cã nhiỊu ph¬ng ph¸p m« h×nh ho¸: Gi¸o viªn híng dÉn: Ths Lª V¨n Minh Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic C¸c ph¬ng ph¸p híng thđ tơc: - MERISE: Ph¬ng ph¸p hƯ thèng - SA: Ph¬ng ph¸p chøc n¨ng - State Charts: Ph¬ng ph¸p theo sù kiƯn -E/A: Ph¬ng ph¸p híng d÷ liƯu C¸c ph¬ng ph¸p híng ®èi tỵng: - OOA/RD: - OOA/OOD: - SOART: - UML+RUP+Rational Rose ë ch¬ng tr×nh nµy em chän ph¬ng ph¸p MERISE(Methode pour Rassembler les Ides Sans Effort) Ph¬ng ph¸p nµy cã ngn gèc tõ Ph¸p, ®êi vµo ci thËp niªn 70 ¦u ®iĨm cđa ph¬ng ph¸p MERISE cã c¬ së khoa häc v÷ng ch¾c, hiƯn ®ỵc dïng nhiỊu ë Ph¸p vµ c¸c níc ch©u ¢u, ®iĨm m¹nh cđa ph¬ng ph¸p nµy ë chç cung cÊp cho ph©n tÝch viªn nh÷ng c«ng ®Ĩ qua tiÕp cËn ®ã cã thĨ m« t¶ vµ hiĨu tõ tỉ chøc tríc ®Ị xt mét ph¬ng ¸n xư lý b»ng m¸y tÝnh Nhỵc ®iĨm cđa ph¬ng ph¸p nµy lµ cång kỊnh, ®ã nã kh«ng thÝch hỵp viƯc dïng nã ®Ĩ gi¶i qut nh÷ng ®Ị ¸n nhá ý tëng c¬ b¶n cđa ph¬ng ph¸p MERISE lµ sau giai ®o¹n tiÕp cËn, ®iỊu tra vµ tỉng hỵp, ph©n chia hƯ thèng thµnh hai thµnh phÇn: d÷ liƯu vµ xư lý chia qui tr×nh ph¸t triĨn hƯ thèng thµnh møc tiÕp cËn: quan niƯm, logic vËt lý Víi mçi thµnh phÇn vµ mçi møc tiÕp cËn cã mét m« h×nh t¬ng øng, mçi mét møc tiÕp cËn thêng mét hc mét sè thµnh phÇn hƯ thèng ®¶m nhËn - Møc quan niƯm: lµ møc ®¶m nhËn ®Çu tiªn ®Ĩ x¸c ®Þnh hƯ thèng th«ng tin, ë møc nµy cÇn x¸c ®Þnh c©u hái: HƯ thèng th«ng tin cÇn nh÷ng u tè g×? Chøc n¨ng ? Gåm nh÷ng d÷ liƯu nµo vµ quy t¾c qu¶n lý nh thÕ nµo ? - Møc tỉ chøc: lµ møc tỉng hỵp c¸c u tè ®· nhËn diƯn ë møc quan niƯm Trong mét tỉng thĨ vËn ®éng cÇn tr¶ lêi c¸c c©u hái: Ai lµm ? Lµm ë ®©u vµ nµo ? Gi¸o viªn híng dÉn: Ths Lª V¨n Minh Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic - Møc vËt lý: lµ møc chi tiÕt vỊ d÷ liƯu cÇn cã c¸c quan hƯ thĨ VỊ xư lý cÇn cã ®Çy ®đ c¸c ®Ỉc t¶ cho tõng thđ tơc ch¬ng tr×nh C¸c bíc ph¸t triĨn cđa qu¸ tr×nh x©y dùng hƯ thèng th«ng tin: - Bíc ph©n tÝch: + X¸c ®Þnh vÊn ®Ị + Nghiªn cøu hiƯn tr¹ng cđa tỉ chøc + Nghiªn cøu kh¶ thi + X©y dùng c¸c hỵp ®ång tr¸ch nhiƯm - Bíc thiÕt kÕ: + ThiÕt kÕ tỉng thĨ + ThiÕt kÕ chi tiÕt - Bíc thùc hiƯn: + Cµi ®Ỉt hƯ thèng vµo m¸y + Khai th¸c vµ thÝch øng I Ph©n tÝch ®¸nh gi¸ hiƯn tr¹ng 1- Kh¶o s¸t hiƯn tr¹ng Qua kh¶o s¸t hiƯn tr¹ng ho¹t ®éng cđa kh¸ch s¹n, ta cÇn ph¶i n¾m râ nh÷ng ®èi tỵng sau: a §èi tỵng kh¸ch Kh¸ch thuª phßng cã d¹ng: - Kh¸ch ®oµn (kh¸ch lu tró tËp thĨ): lµ mét nhãm nhiỊu ngêi níc hc qc tÕ cđa mét tỉ chøc hay doanh nghiƯp nµo ®ã ( gäi chung lµ ®¬n vÞ ) Mét ®¬n vÞ cã thĨ cã nhiỊu ®oµn kh¸ch lu tró t¹i kh¸ch s¹n c¸c thêi ®iĨm kh¸c - Kh¸ch v·ng lai (kh¸ch lu tró mét m×nh): Lµ lo¹i kh¸ch còng cã thĨ thc mét ®¬n vÞ nhng còng cã thĨ kh«ng thc ®¬n vÞ nµo c¶ §èi víi ho¹t ®éng kh¸ch s¹n, viƯc ph©n lo¹i kh¸ch lµ rÊt quan träng v× dùa vµo ®ã, kh¸ch s¹n cã nhiỊu ph¬ng thøc tỉ chøc ®ãn tiÕp mét c¸ch thÝch hỵp, ®Ỉc biƯt lµ chÕ ®é phơc vơ ®èi víi tõng lo¹i kh¸ch b §èi tỵng phßng Gi¸o viªn híng dÉn: Ths Lª V¨n Minh Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Nh©n viªn lƠ t©n sau nhËn kh¸ch vµo phßng sÏ theo dâi kh¸ch trªn s¬ ®å phßng S¬ ®å phßng lµ mét tê giÊy m« t¶ vÞ trÝ cđa tõng phßng kh¸ch s¹n Phßng cã kh¸ch sÏ ghi tªn ®oµn kh¸ch vµo ®ã ®Ĩ theo dâi C¸c th«ng tin thĨ vỊ kh¸ch ®ỵc ghi vµo sỉ ®¨ng ký t¹m tró Hµng ngµy kh¸ch s¹n sÏ lu l¹i s¬ ®å phßng cđa mèi ngµy ®Ĩ lµm b¸o c¸o Do yªu cÇu phßng cã thay ®ỉi nh chun phßng, bít kh¸ch phßng l¹i ph¶i viÕt l¹i rÊt khã kh¨n c Sư dơng dÞch vơ: Khi kh¸ch lu tró kh¸ch s¹n thêng hay sư dơng c¸c dÞch vơ nh: ®iƯn tho¹i, fax, thuª xe, massage, ¨n ng nh©n viªn kh¸ch s¹n ph¶i ghi l¹i c¸c ph¸t sinh nµy ®Ĩ lµm b¸o c¸o hay to¸n víi kh¸ch sau nµy Th«ng thêng kh¸ch s¹n bé phËn phßng (®¨ng ký, ph©n phßng, tr¶ phßng) nh©n viªn lª t©n phơ tr¸ch, cßn phÇn cung cÊp dÞch vơ kh¸c ®¶m tr¸ch C¸c bé phËn nµy t¸ch rêi nhng l¹i l¹i cã mèi quan hƯ chỈt chÏ víi v× ®èi tỵng phơc vơ ®Ịu lµ kh¸ch thuª phßng Mơc tiªu x©y dùng ch¬ng tr×nh QLKS Kinh doanh kh¸ch s¹n gåm hai ho¹t ®éng chÝnh lµ cho thuª phßng vµ kinh doanh c¸c lo¹i dÞch vơ cã liªn quan Mơc tiªu x©y dùng ch¬ng tr×nh qu¶n lý kh¸ch s¹n bao gåm c¸c néi dung sau: - Tỉ chøc thèng nhÊt mét hƯ thèng c¬ së d÷ liƯu nh»m lu gi÷ th«ng nhÊt toµn bé d÷ liƯu vỊ ho¹t ®éng cđa kh¸ch s¹n nh: Kh¸ch hµng, phßng, dÞch vơ kÌm theo ®Ĩ phơc vơ cho c«ng t¸c qu¶n lý - Tin häc ho¸ c«ng t¸c qu¶n lý kh¸ch hµng - Tin häc ho¸ c¸c quy tr×nh ®¨ng ký, nhËn phßng vµ qu¶n lý phßng - Tin häc ho¸ viƯc cung cÊp c¸c lo¹i dÞch vơ cho kh¸ch hµng - Tin häc ho¸ viƯc to¸n cho kh¸ch hµng - Tỉng hỵp vµ lËp b¸o c¸o vỊ: Thuª phßng, hiƯn tr¹ng phßng, c«ng st bng, doanh thu kh¸ch s¹n, nhµ hµng vµ dÞch vơ - Sư dơng m« h×nh Server/Client ®Ĩ chuyªn biƯt ho¸ c«ng viƯc: Ch¬ng tr×nh qu¶n lý Kh¸ch s¹n cµng hiĐu qu¶ h¬n v× mçi Client lµ n¬i tiÕp nh¹n c¸c lng d÷ liƯu kh¸ch t ¬ng øng víi tõng phÇn hµnh ®ỵc giao vµ hoµn toµn ®éc lËp víi thao t¸c Gi¸o viªn híng dÉn: Ths Lª V¨n Minh Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic m¸y chđ Server lµ n¬i nhÊt chøa c¬ së d÷ liƯu cho c¸c Client cung cÊp vµ chÞu tr¸ch nhiƯm xư lý, tỉng hỵp c¸c d÷ liƯu ®· cã Nh vËy m« h×nh Server/Client sÏ lµm cho toµn bé ch¬ng tr×nh võa thãng nhÊt võa cã sù ®éc lËp gi÷a tõng lo¹i c«ng viƯc §Ỉc t¶ bµi to¸n C¨n cø vµo hiƯn tr¹ng vµ mơc tiªu cÇn gi¶i qut, ch¬ng tr×nh qu¶n lý Kh¸ch s¹n sÏ qu¶n lý vµ xư lý c¸c nhãm th«ng tin nh sau: a §èi tỵng qu¶n lý: - Qu¶n lý kh¸ch: N¾m ®ỵc c¸c th«ng tin c¸ nh©n cđa tõng kh¸ch thuª phßng: + §èi víi kh¸ch néi ®Þa: Hä tªn, ®Þa chØ, sè CMND, ®iƯn tho¹i + §èi víi kh¸ch qc tÕ: Hä tªn, sè chiÕu, qc tÞch, ®iƯn tho¹i N¾m ®ỵc c¸c th«ng tin tõng ®oµn kh¸ch: Tªn ®oµn, ®¬n vÞ, ®Þa chØ, ®iƯn tho¹i, fax, tµi kho¶n, m· sè th cđa tỉ chøc ®¬n vÞ ®ã Sè lỵng vµ chi tiÕt tõng vÞ kh¸ch cđa tõng ®oµn - Qu¶n lý phßng: Mçi phßng cÇn qu¶n lý th«ng tin: sè phßng, lo¹i phßng, gi¸ phßng, ngµy giê ®¨ng ký, ngµy giê nhËn phßng, ngµy giê tr¶ phßng - Qu¶n lý hµng ho¸, dÞch vơ, sè lỵng, gi¸, ®Ỉc ®iĨm, n¬i cung cÊp, qu¸ tr×nh to¸n b ThiÕt kÕ giao diƯn ®Ĩ nhËp c¸c nghiƯp vơ kh¸ch s¹n sau: * §¨ng ký kh¸ch: Kh¸ch tríc thuª phßng ®Ịu ph¶i lµm thđ tơc ban ®Çu lµ ®¨ng ký phßng Trong mơc nµy nh©n viªn lƠ t©n sÏ cËp nhËt th«ng tin c¸c th«ng tin vµo m¸y tÝnh ®Ĩ qu¶n lý nh sau: - §oµn kh¸ch: M· sè ®oµn, tªn ®oµn, nagú nhËn phßng dù kiÕn, sè lỵng phßng cÇn thuª, ®¬n vÞ NÕu ®¬n vÞ lÇn ®Çu thuª ph¶i nhËp c¸c th«ng tin vỊ ®¬n vÞ: M· sè ®¬nvÞ, tªn ®¬n vÞ, ®iƯn tho¹i, , ch¬ng tr×nh cho phÐp truy t×m mét ®¬n vÞ nµo ®ã ®· tõng lu tró t¹i kh¸ch s¹n tríc ®ã Th«ng tin chi tiÕt tõng ®oµn kh¸ch ®oµn: - Kh¸ch: nhËp tªn kh¸ch, m· sè kh¸ch, sè CMND, ®Þa chØ, chiÕu, qc tÞch nÕu lµ kh¸ch míi NÕu lµ kh¸ch cò ch¬ng tr×nh sÏ chđ ®éng t×m th«ng qua kho¸ cã thĨ lµ m· sè, sè CMND, tªn, sè chiÕu * Ph©n phßng: bè trÝ tõng vÞ kh¸ch vµo c¸c phßng, mét phßng cã thĨ nhiỊu kh¸ch Gi¸o viªn híng dÉn: Ths Lª V¨n Minh Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic * ThiÕt kÕ s¬ ®å phßng * Qu¶n lý phßng (xem th«ng tin phßng, ®ỉi phßng, tr¶ phßng, in ho¸ ®¬n) * Giao diƯn nhËp c¸c dÞch vơ cho kh¸ch * Qu¶n lý kh¸ch ®oµn * Qu¶n lý viƯc to¸n tiỊn phßng vµ dÞch vơ * T×m kiÕm c¸c th«ng tin vỊ nhµ hµng vµ dÞch vơ M« h×nh qu¶n lý Do ®Ỉc thï kinh doanh cđa m×nh, kh¸ch s¹n thêng ®ỵc chia lµm bé phËn: Kh¸ch s¹n vµ nhµ hµng Kh¸ch s¹n qu¶n lý phßng vµ c¸c dÞch vơ kÌm theo nh ®iƯn tho¹i, fax, thuª xe, héi trêng, Nhµ hµng dïng ®Ĩ qu¶n lý c¸c dÞch vơ ¨n ng, giỈt lµ, VÞ trÝ vµ ch¾c n¨ng t¸c nghiƯp cđa hai bé phËn trªn lµ kh¸c t¬ng ®èi râ rƯt Trong bé phËn qu¶n lý chung ph¶i qu¶n lý bao qu¸t toµn bé ho¹t ®éng cđa hai bé phËn trªn ®ã ch¬ng tr×nh qu¶n lý kh¸ch s¹n ®ỵc tỉ chøc theo m« h×nh MĐ-Con lµ thÝch hỵp M« h×nh nµy gåm mét Server vµ Client, ®ã c¬ së d÷ liƯu ®ỵc ®Ỉt t¹i bé phËn qu¶n lý ®ãng vai trß nh mét Server cã néi dung lµ theo dâi vµ tỉng hỵp b¸o c¸o sè liƯu vµ tỉng hỵp b¸o c¸o sè liƯu tõ CSDL Bé phËn kh¸ch s¹n lµ mét Client dïng ®Ĩ cËp nhËt kh¸ch thuª phßng vµ c¸c dÞch vơ liªn quan Bé phËn nhµ hµng lµ mét Client dïng ®Ĩ cËp nhËt c¸c dÞch vơ ¨n ng vµ nhµ hµng kh¸c Gi÷a Server vµ Client ®ỵc nèi víi b»ng mét m¹ng LAN sư dơng c¸p th«ng qua Hub trung t©m Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 10 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Exit Do Else MoveNext End If Loop Close End With Imgtim_Click End Sub ‘ -Private Sub Dcbdv_LostFocus() Dim tim As Boolean tim = False With DE.rsDichvu MoveFirst Do While Not (.EOF) If (.Fields("tendv") = Dcbdv.Text) Or (Dcbdv.Text = "") Then txtmadv.Text = Fields("madv") tim = True Exit Do Else MoveNext End If Loop If Not tim Then MsgBox "Không có dv này", vbCritical, "Lu ý" Dcbdv.SetFocus End If End With End Sub Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 60 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic ‘ -Private Sub Dcbsoph_Click(Area As Integer) cmdchuyenphong.Enabled = True cmdchuyenkh.Enabled = True End Sub ‘ -Private Sub Dcbsoph_LostFocus() timsp = False With DE.rsPhong MoveFirst Do While Not (.EOF) If (.Fields("maphong") = Dcbsoph.Text) Or (Dcbsoph.Text = "") Then timsp = True Exit Do Else MoveNext End If Loop If Not timsp Then MsgBox "Không có phòng này", vbCritical, "Lu ý" Dcbsoph.SetFocus End If End With End Sub ‘ -Private Sub fgrid_Click() fgrid.Col = txttenkh.Text = fgrid.Text fgrid.Col = txtmadp.Text = fgrid.Text Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 61 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic End Sub ‘ -Private Sub Form_Load() Dim i, j sdnut = False txtngay.Text = Date lbsp.Caption = sophong fgrid.Row = fgrid.ColWidth(0) = 0: fgrid.ColWidth(1) = 2500: fgrid.Col = 1: fgrid.Text = " Tên Khách hàng" fgrid.ColWidth(2) = 1300: fgrid.Col = 2: fgrid.Text = "CMND/HC" i=1 With DE.rsQsudungphong MoveFirst txttendoan.Text = Fields("tendoan") & " - " & Fields("tendonvi") If Fields("tentinh") "" Then txtdiachi.Text = Fields("tentinh") Else txtdiachi.Text = " " End If txtngaynp.Text = Fields("ngaynp") txtgionp.Text = Fields("gionp") Do While Not (.EOF) fgrid.Row = i fgrid.Col = 1: fgrid.Text = Fields("tenkh") fgrid.Col = 2: fgrid.Text = Fields("cmnd") fgrid.Col = 3: fgrid.Text = Fields("madp") MoveNext i=i+1 Loop Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 62 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Close End With 'Lay thong tin ve sư dung dich vu’ Imgtim_Click End Sub ‘ -Public Sub SQLsddv(soph, mtenkh) st = "" st = st + "Select *" st = st + " From Qsudungdv" st = st + " Where maphong Like " + """" + soph + """" st = st + " and tenkh Like " + """" + mtenkh + """" End Sub ‘ -Public Sub SQLdv(soph, mtenkh) st = "" st = st + "Select *" st = st + " From Qsudungdv" st = st + " Where maphong Like " + """" + soph + """" st = st + " and tenkh Like " + """" + mtenkh + """" st = st + " and tendv " + """" + "Phßng" + """" End Sub ‘ -Public Sub SQLph(soph, mtenkh) st = "" st = st + "Select *" st = st + " From Qsudungdv" st = st + " Where maphong Like " + """" + soph + """" st = st + " and tenkh Like " + """" + mtenkh + """" st = st + " and tendv Like " + """" + "Phßng" + """" Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 63 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic End Sub ‘ -Private Sub Gridsddv_Click() cmdxoa.Enabled = True End Sub Private Sub imghien_Click() txttenkh.Text = "" Imgtim_Click End Sub ‘ -Private Sub Imgtim_Click() Dim mtenkh mtenkh = "%" + txttenkh.Text + "%" SQLsddv sophong, mtenkh DE.Commands.Item("Qsudungdv").CommandText = st Gridsddv.DataMember = "Qsudungdv" DE.rsQsudungdv.Close End Sub ‘ -Public Sub Chuyenphong() 'Update table phong With DE.rsPhong MoveFirst Do While Not (.EOF) If Fields("maphong") = Dcbsoph.Text Then Fields("CK") = End If If Fields("maphong") = lbsp.Caption Then Fields("CK") = End If Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 64 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic MoveNext Loop End With ' -With DE.rsChuyentraphong Open MoveFirst Do While Not (.EOF) If Fields("maphong") = lbsp.Caption Then Fields("maphong") = Dcbsoph.Text End If MoveNext Loop Close End With lbsp.Caption = Dcbsoph.Text End Sub ‘ -Private Sub txtdongia_LostFocus() If Not IsNumeric(txtdongia.Text) Then MsgBox "Nhập sai kiểu liệu", vbCritical, "Lưu ý" txtdongia.SetFocus End If End Sub ‘ -Private Sub txtgiotra_Click() txtgiotra.Text = Time End Sub ‘ -Private Sub txtgiotra_LostFocus() Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 65 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic If Not IsDate(txtgiotra.Text) Then MsgBox "Nhập sai", vbCritical, "Lưu ý" txtgiotra.SetFocus End If End Sub ‘ -Private Sub txtngay_Click() txtngay.Text = Date End Sub ‘ -Private Sub txtngaytra_Click() txtngaytra.Text = Date End Sub ‘ -Private Sub txtngaytra_LostFocus() If Not IsDate(txtngaytra.Text) Then MsgBox "Nhap sai", vbCritical, "Luu y" txtngaytra.SetFocus End If End Sub ‘ -Private Sub txtsl_LostFocus() If Not IsNumeric(txtsl.Text) Then MsgBox "Nhap so luong khong dung kieu", vbCritical, "Luu y" txtsl.SetFocus End If End Sub Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 66 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Ch¬ng III : KÕT LN – H¦íNG PH¸T TRIĨN I KÕt ln B»ng viƯc x©y dùng ch¬ng tr×nh Qu¶n Lý Kh¸ch s¹n theo m« h×nh Server/Client, sÏ gióp cho c¸c bé phËn nh lƠ t©n, nhµ hµng tù ®éng hãa phÇn lín c«ng viƯc cđa m×nh, lµm t¨ng n¨ng st vµ hiƯu qu¶ c«ng viƯc Trªn c¬ së ®ã gióp ban gi¸m ®èc nhanh chãng kiĨm tra, tỉng hỵp, lÊy kÕt qu¶ ®Ĩ n¾m b¾t ®ỵc diƠn biÕn kh¸ch hµng, kh¶ n¨ng ®¸p øng nhu cÇu tõ ®ã ®Ị c¸c qut ®Þnh, ph¬ng ¸n kinh doanh kÞp thêi nhÊt Tãm l¹i, nhê sù híng dÉn nhiƯt t×nh cđa thÇy Lª V¨n Minh vµ sù cè g¾ng cđa b¶n th©n, ch¬ng tr×nh Qu¶n Lý Kh¸ch s¹n ë trªn ®ỵc hoµn thµnh, t¬ng ®èi ®¸p øng ®ỵc nhu cÇu cËp nhËt, truy vÊn th«ng tin nhanh chãng vµ gi¶i qut ®ỵc viƯc tỉ chøc nhÊt qu¸n c¬ së d÷ liƯu lu tr÷ th«ng tin Tuy nhiªn ch¬ng tr×nh vÉn cßn nhỵc ®iĨm , thiÕu sãt cÇn ®ỵc hoµn thiƯn thêi gian tíi Em rÊt mong nhËn ®ỵc sù gãp ý cđa c¸c ThÇy C« vµ c¸c b¹n quan t©m ®Õn vÊn ®Ị nµy II H¦íNG PH¸T TRIĨN Ngoµi viƯc tiÕp tơc n©ng cÊp vµ hoµn thiƯn ch¬ng tr×nh Qu¶n Lý Kh¸ch s¹n hiƯn Trong híng tíi, ch¬ng tr×nh Qu¶n Lý Kh¸ch s¹n sÏ ®ỵc bỉ sung ®Ĩ kÕt nèi tù ®éng hc b¸n tù ®éng víi ch¬ng tr×nh kÕ to¸n cđa Kh¸ch s¹n v× nh hiƯn cha liªn kÕt ®ỵc Ngoµi ch¬ng tr×nh sÏ x©y dùng thªm phÇn qu¶n lý c¬ së vËt chÊt, qu¶n lý qui tr×nh phơc vơ bng, phßng cđa Kh¸ch s¹n, qu¶n lý c«ng t¸c nhËp xt hµng cđa bé phËn Nhµ hµng MéT Sè BIĨU MÉU IN RA GIÊY CđA CH¦¥NG TR×NH QU¶N Lý KH¸CH S¹N Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 67 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic B¶ng kª sư dơng dÞch vơ vµ nhµ hµng cđa kh¸ch cho tõng phßng: B¶NG K£ DÞCH Vơ §· Sư DơNG Phßng:……………… Lo¹i:……………………… Ngµy nhËn phßng:…………… Ngµy tr¶:………………… Tªn dÞch Ngµy sd Giê sd Tªn kh¸ch 10/06/03 17:10 Ngun V/ A GiỈt 2000 2000 12/06/03 8:12 Lª §øc B×nh An s¸ng 3000 3000 12/06/03 14:30 Lª §øc B×nh Thuª xe 3000 3000 vơ SL §¬n Stt gi¸ Thµnh tiỊn Céng 8000 PhÝ dÞch vơ (5%) 400 Th VAT (10%) 880 Céng tiỊn ph¶i tr¶ 9280 LƠ T©n Ngµy in: 10:30:25am, 20/05/2003 B¶ng kª chi tiÕt sư dơng dÞch vơ vµ nhµ hµng mét ®oµn: B¶NG K£ DÞCH Vơ §· Sư DơNG Tªn ®oµn kh¸ch: …………………… §¬n vÞ:……………………… Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 68 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Ngµy nhËn phßng:…………………… Ngµy tr¶:…………………… Sè lỵng kh¸ch theo ®oµn:…………… Sè lỵng phßng sd:………… Tªn dÞch Thµnh gi¸ tiỊn Ngµy sd Giê sd SP Tªn kh¸ch 10/06/03 17:10 101 Ngun V/ A GiỈt 2000 2000 12/06/03 8:12 102 Lª §øc B×nh An s¸ng 3000 3000 12/06/03 14:30 102 Lª §øc B×nh Thuª xe 3000 3000 Céng 8000 vơ SL §¬n Stt 400 880 9280 LƠ T©n Ngµy in: 10:30:25am, 20/05/2003 B¸o c¸o c«ng st bng: thèng kª tỉng sè kh¸ch, tØ lƯ tõng lo¹i kh¸ch vµ c«ng st bng cđa tõng ngµy th¸ng theo b¶ng: B¸O C¸O C¤NG ST BNG TH¸NG : MM/20YY Ngµy Tỉng sè Kh¸ch Ph©n lo¹i kh¸ch §oµn C«ng V·ng lai Trong níc Qc tÕ Sk % Sk % Sk % Sk % Sp % 10 25 40 100 0 25 60 40 30 75 35 30 60 Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 69 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic … … … … … … … … … … … … 30 31 TC Tỉng hỵp doanh thu: phßng, nhµ hµng, dÞch vơ cđa tõng ngµy th¸ng B¸O C¸O TỉNG HỵP DOANH THU TH¸NG : MM/20YY NGµY KH¸CH S¹N NHµ HµNG DÞCH Vơ CéNG Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 70 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic … … … … … 30 31 Céng B¸o c¸o tỉng hỵp kh¸ch theo tõng ®oµn: thĨ hiƯn doanh thu cđa tõng ®oµn th¸ng B¸O C¸O TỉNG HỵP DOANH THU TH¸NG : MM/20YY KH¸CH §OµN stt Tªn ®oµn §¬ Ngµy n vÞ NhË Doanh thu Tr¶ n Céng Kh¸ch Nhµ DÞch s¹n hµng vơ … … … … … … … Gi¸o viªn híng dÉn: Ths Lª V¨n Minh … 71 … Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Tỉng céng: d/ In b¶ng kª chi tiÕt cho tõng lo¹i dÞch vơ: liƯt kª tõng lo¹i dÞch vơ ®· b¸n th¸ng theo b¶ng sau: B¶NG K£ CHI TIÕT DOANH THU (Tõ ngµy ®Õn ngµy) T£N DÞCH Vơ: Ngµy DÞch vơ DiƠn gi¶i §vt Sè lỵng §¬n gi¸ Thµnh tiỊn 1/5/03 1/5/03 2/5/03 Tỉng céng: Lêi c¶m ¬n Qua thêi gian thùc tËp t¹i Kh¸ch s¹n Bu ®iƯn Cưa Lß, víi sù nhiƯt t×nh gióp ®ì cđa anh chÞ em kh¸ch s¹n, ®Ỉc biƯt lµ thÇy gi¸o híng dÉn Ths Lª V¨n Minh , em ®· hoµn thµnh ®å ¸n tèt nghiƯp víi ®Ị tµi Qu¶n lý Kh¸ch s¹n Bu ®iƯn Qua ®©y, xin ch©n thµnh c¶m ¬n tíi tËp thĨ c¸n bé c«ng nh©n viªn Kh¸ch s¹n Bu ®iƯn Cưa Lß, thÇy gi¸o Lª V¨n Minh cïng víi c¸c thÇy c« gi¸o, c¸c b¹n vµ ngoµi khoa CNTT cïng cã chung niỊm ®am mª tin häc ®· gãp ý bỉ sung cho ®Ĩ tµi nµy Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 72 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Tµi liƯu tham kh¶o T¸c gi¶: §inh ThÕ HiĨn – Ph©n tÝch thiÕt kÕ hƯ thèng th¬ng tin qu¶n – Nhµ xt b¶n Thèng kª T¸c gi¶: Ngun V¨n A - Microsoft Visual Basic 6.0 V LËp Tr×nh C¬ Së D÷ LiƯu – Nhµ xt b¶n Lao ®éng – X· héi T¸c gi¶: D¬ng Quang ThiƯn – Ph©n TÝch ThiÕt KÕ HƯ Thèng Th«ng Tin Qu¶n TrÞ XÝ NghiƯp Toµn TËp - TËp 2: Tin Hoc HƯ Thèng Th«ng Tin KÕ To¸n AIS + ERP - Nhµ xt b¶n Tỉng Hỵp TP Hå ChÝ Minh Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 73 Sinh viªn thùc hiƯn: §êng Xu©n Trêng §å ¸n tèt nghiƯp: Xây dựng chương trình QLKS theo mô hình Server/Client Visual Basic Gi¸o viªn híng dÉn: Ths Lª V¨n Minh 74 Sinh viªn thùc hiƯn: §êng Xu©n Trêng [...]... TenKH, Dienthoai) KHACH_VN(MaKH, CMND, Matinh) Khach_QT(MaKH, S«hchieu, Ngaycap, Thoihan, Manuoc) TINH(Matinh, Tentinh) NUOC(Manuoc,Tennuoc) DONVI(Madonvi, Tendonvi, Dienthoai, Masothue,Taikhoan,Matinh) Doan(Madoan, Tendoan, Ngaydp, Ngaynp,Sl_Phd, SL_Khach, Madonvi) Doan_Khach(Makh, Madoan) Datphong(Madp,Makh, Madoan, Nhanphong) SUDUNGPHONG (Madp, Maphong, Ngaynp, Gionp, Ngaytp, Giotp, Giaphong, Traphong)... nghiƯp: X y dựng chương tr nh QLKS theo mô hình Server/ Client bằng Visual Basic Trong ch¬ngtr×nh qu¶n lý nµy, theo c¸ch tiÕp nhËn kh«ng gian, vÞ tr lµm viƯc vµ chøc n¨ng cđa tõng bé phËn, ch¬ng tr nh ®ỵc tỉ chøc thµnh 3 ch¬ng tr nh nhá t¹i 3 n¬i: Qy lƠ t©n, qy nhµ hµng vµ phßng qu¶n lý chung Trong ®ã c¬ së d÷ liƯu ®Ỉt t¹i phßng qu¶n lý ®ãng vai tr nh mét Server CHƯƠNG TR NH QUẢN LÝ KHÁCH SẠN THEO MÔ HÌNH... híng dÉn: Ths Lª V¨n Minh 19 Sinh viªn thùc hiƯn: §êng Xu©n Tr ng §å ¸n tèt nghiƯp: X y dựng chương tr nh QLKS theo mô hình Server/ Client bằng Visual Basic DONVI (Madonvi, Tendonvi, Dienthoai, Masothue, Taikhoan, Matinh) DONVI Field name Data type Field size Validation Rule Madonvi (K) Text 12 Len()=12 Tendonvi Text 30 Dienthoai Text 10 Masothue Text 15 Taikhoan Text 12 Matinh Text 2 Len()=2 Madonvi: M·... Giaphong, Traphong) THANHTOANPHONG (MaTTPH, Madp, NgayTT, PhieuTT, TienTT) DICHVU (Madv, Tendv, Dvt, Maloai) LOAIDV (Maloai, Tenloai) SUDUNGDV (Masddv, Madp, Ngaysddv, Soluong, Dongia, Madvï) THANHTOANDV (MaTTDV, Masddv, NgayTT, PhieuTT, TienTT) 3 M« h×nh vËt lý d÷ liƯu M« h×nh vËt lý d÷ liƯu lµ m« h×nh cđa d÷ liƯu ®ỵc cµi ®Ỉt tr n m¸y tÝnh díi mét hƯ qu¶n tr c¬ s¬ d÷ liĐu nµo ®ã trong ch¬ng tr nh nµy lµ hƯ...§å ¸n tèt nghiƯp: X y dựng chương tr nh QLKS theo mô hình Server/ Client bằng Visual Basic M« h×nh qu¶n lý qua m¹ng nh sau: CLIENT CLIENTKHACH KHACHSAN SAN CLIENT CLIENTNHA NHAHANG HANG Cậ Cậppnhậ nhậppdữ dữliệ liệuu: : -Đặ -Đặt tphò phònng.g -Phâ -Phânnphò phònngg -Nhậ -Nhậppdòch dòchvụ vụkhá kháchchsạsạnn -Tr -Tr phò phònnggvà vàthanh thanhtoá toánn, , Cậ Cậppnhậ nhậppdữ dữliệ liệuu:... nhàhà hànngg - -Quả Quảnnlýlýdanh danhmụ mụcchà hànng, g, SERVER SERVER -Lưu -Lưutrữ tr CSDL CSDLcủ củaakhá kháchchsạsạnn -Quả -Quảnnlýlýthô thônnggtin tin -Tổ n g hợ p x lý -Tổng hợp x lýdữ dữliệ liệuudo do2 2Client Client khá c h sạ n và nhà hà n g cung cấ khách sạn và nhà hàng cung cấpp -Cấ -Cấppphá phát tquyề quyềnntruy truycậ cậpp, , 5 Qui tr nh qu¶n lý nh sau Kh¸ch thu phßng lµm thđ tơc... nh sau: Madonvi=Format(Date, "yy") & Format(Date, "mm") & Format(Date, "dd") & Format(Time, "hh") & Format(Time, "nn") & Format(Time, "ss") doan (Madoan, Tendoan, Ngaydp, Ngaynp, SL_Phd, SL_khach, Madonvi,) doan Field name Data type Field size Validation Rule Madoan (K) Text 12 Len()=12 Tendoan Text 30 Ngaydp Date Ngaynp Date SL_Phd Byte SL_khach Byte Madonvi Text 12 Madoan: M· ®oµn cã 12 ký tù ®ỵc... thángYes Doanh thu Gi¸o viªn híng dÉn: Ths Lª V¨n Minh đoàn, tổng hợp 26 ng suất Sinh viªnCôthùc hiƯn: §êng Xu©n Tr ng buồng, danh sách đoàn §å ¸n tèt nghiƯp: X y dựng chương tr nh QLKS theo mô hình Server/ Client bằng Visual Basic 3 M« h×nh tỉ chøc x lý Mơc tiªu x c ®Þnh râ c«ng viƯc do ai lµm, lµm ë ®©u, lµm khi nµo vµ lµm theo ph¬ng thøc nµo ë møc nµy c¸c c«ng viƯc trong m« h×nh quan niƯm x lý ®ỵc... Makh=Format(Date, "yy") & Format(Date, "mm") & Format(Date, "dd") & Format(Time, "hh") & Format(Time, "nn") & Format(Time, "ss") KHACH_VN (MaKH, CMND, Matinh) KHACH_VN Field name Data type Field size Validation Rule MaKH (K) Text 12 Len()=12 CMND Text 10 Matinh Text 2 Len()=12 KHACH_QT (MaKH, Sohochieu, Ngaycap, Thoihan, Manuoc) KHACH_QT Field name MaKH (K) Sohochieu Ngaycap Thoihan Manuoc Data type Text Text Date... nghiƯp: X y dựng chương tr nh QLKS theo mô hình Server/ Client bằng Visual Basic Modun: §Ỉt phßng Ngµy: 01/03 /2 009 HƯ thèng: Client LƠ t©n Ngêi lËp: §êng Xu©n Tr ng Mơc tiªu: NhËp th«ng tin kh¸ch ®Ỉt phßng Gọi bởi : Main Menu (Client lễ tân) Gọi : Tìm kiếm khách Vào : Table đặt phòng, đoàn, đơn v , khách hàng Ra : Đặt phòng X lý: T¹o mét form ®Ỉt phßng Trong Form nµy t¹o c¸c combo box chän ®¬n v , tØnh, ... Masothue,Taikhoan,Matinh) Doan(Madoan, Tendoan, Ngaydp, Ngaynp,Sl_Phd, SL_Khach, Madonvi) Doan_Khach(Makh, Madoan) Datphong(Madp,Makh, Madoan, Nhanphong) SUDUNGPHONG (Madp, Maphong, Ngaynp, Gionp, Ngaytp, Giotp, Giaphong,... TenKH, Dienthoai) KHACH_VN(MaKH, CMND, Matinh) Khach_QT(MaKH, S«hchieu, Ngaycap, Thoihan, Manuoc) TINH(Matinh, Tentinh) NUOC(Manuoc,Tennuoc) DONVI(Madonvi, Tendonvi, Dienthoai, Masothue,Taikhoan,Matinh)... Giaphong, Traphong) THANHTOANPHONG (MaTTPH, Madp, NgayTT, PhieuTT, TienTT) DICHVU (Madv, Tendv, Dvt, Maloai) LOAIDV (Maloai, Tenloai) SUDUNGDV (Masddv, Madp, Ngaysddv, Soluong, Dongia, Madvï) THANHTOANDV