XÂY DỰNG hệ THỐNG THÔNG TIN QUẢN lý KHÁCH HÀNG

Chuyờn tt nghip Khoa Tin Hc Kinh T MC LC Chuyờn tt nghip Khoa Tin Hc Kinh T LI M U Ngy di s phỏt trin nhanh chúng ca ngnh khoa hc mỏy tớnh, mỏy tớnh ó tr thnh mt cụng c c lc giỳp cho cỏc lnh vc khỏc cú nhng bc phỏt trin nhy vt ú ta phi k n lnh vc kinh t Di s tr giỳp ca cỏc phn mm thỡ vic qun lý cỏc doanh nghip ó tr nờn d dng, chớnh xỏc v nhanh chúng giỳp cho cỏc cỏn b qun lý a nhng quyt nh kp thi Bt kỡ mt cụng ty, mt doanh nghip sn xut kinh doanh no mun ng vng trờn th trng thỡ vic y mnh kinh doanh thu v ngun li nhun cho mi hot ng ca cụng ty, doanh nghip l vụ cựng quan trng Bờn cnh ú, qun lý khỏch hng cng l mt cụng vic cn thit v luụn c lónh o cỏc cụng ty dnh cho nhng s quan tõm c bit Cụng tỏc qun lý khỏch hng ngoi vic qun lý cỏc thụng tin v khỏch hng thỡ cũn qun lý v cỏc hp ng kớ kt gia cụng ty v khỏch hng, qun lý nhng nhõn viờn thc hin cỏc hp ng giao dch ú Chớnh vỡ Qun lý khỏch hng cú tm quan trng nh th nờn mi cụng ty u cú riờng cho mỡnh mt b phn mm qun lý khỏch hng dựng ni b cụng ty Phn mm qun lý khỏch hng giỳp cho nhng ngi qun lý thun tin hn vic kim soỏt, theo dừi mi hot ng kinh doanh ca cụng ty, da vo ú a nhng quyt nh chớnh xỏc, kp thi Trong quỏ trỡnh thc tp, em ó c tip xỳc vi nhiu nghip v, nhiu bi toỏn cụng ty BRAVO t ratrong ú ti: XY DNG H THNG THễNG TIN QUN Lí KHCH HNG l ti em tõm c nht Do thi gian cú hn nờn Chuyờn tt nghip Khoa Tin Hc Kinh T phn mm xõy dng mc n gin vi nhng chc nng chớnh l tr giỳp mt phn vic qun lý khỏch hng v in nhng bỏo cỏo theo thỏng, theo quý Ngoi cỏc phn khỏc, chuyờn tt nghip gm chng: MC LC LI M U CHNG I: Tng quan v cụng ty c phn phn mm k toỏn BRAVO CHNG II: C s phng phỏp lun v nhng cụng c cn thit thc hin ti CHNG III: Xõy dng h thng thụng tin qun lý khỏch hng ti cụng ty KT LUN TI LIU THAM KHO PH LC Trong khon thi gian thc v vit chuyờn , phi tip cn vi ngụn ng lp trỡnh Visual Basic 6.0, h qun tr c s d liu Microsoft Access v kin thc cũn hn ch nờn lun tt nghip ca em cũn nhiu thiu sút Vy em rt mong s úng gúp ý kin ca cỏc thy cụ v bn bố lun tt nghip ca em c hon thin hn Em xin gi li cm n chõn thnh ti cỏc thy cụ giỏo khoa Tin hc Kinh T, c bit l thy Nguyn Vn Th ngi ó tn tỡnh h tr em, xem xột v a cỏc ý kin úng gúp, ỏnh giỏ giỳp em kp thi b sung nhng phn thiu sút v hon thin chuyờn tt nghip ny Em cng xin gi li cm n ti cụng ty BRAVO, anh Ninh Ngc Hiu, anh Xuõn Thit cựng ton th cỏc anh ch cụng ty BRAVO ó tn tỡnh giỳp , hng dn quỏ trỡnh em thc ti cụng ty v to iu kin giỳp em hon thnh chuyờn tt nghip thi gian hc va qua H Ni, ngy thỏng Sinh viờn Trn Khc Tin nm 2015 Chuyờn tt nghip Khoa Tin Hc Kinh T CHNG I TNG QUAN V CễNG TY C PHN PHN MM K TON BRAVO V TI NGHIấN CU -*** 1.1 THễNG TIN CHUNG V CễNG TY BRAVO Tờn cụng ty: Cụng ty c phn phn mm Bravo Tờn ting Anh: Bravo Software Join Stock Company Lnh vc hot ng: Sn xut phn mm mỏy tớnh (Ch yu l phn mm qun tr ti chớnh k toỏn v qun tr tng th doanh nghip ERP Tr s chớnh ti Tp.H Ni a ch: Tng tũa nh H Ni Group s 442 i Cn, Qun Ba ỡnh in thoi: 04.776 2472 Fax: 04.7760 2470 Email: hanoi@bravo.com.vn Vn phũng Cụng ty ti Tp. Nng a ch: 480-482 Trng N Vng, Hi Chõu in thoi: 05.113633733 Fax: 05.223633734 Email: danang@bravo.com.vn Chuyờn tt nghip Khoa Tin Hc Kinh T Vn phũng Cụng ty ti Tp.H Chớ Minh a ch: Lu tũa nh 116 118 Nguyn Th Minh Khai, Phng 6, Qun in thoi: 08.39303352 Fax: 08.39303441 Email: hcm@bravo.com.vn Cụng ty C phn phn mm BRAVO l cụng ty chuyờn sõu vic nghiờn cu, phỏt trin v trin khai ng dng cỏc h thng phn mm v cụng ngh thụng tin vo qun lý sn xut kinh doanh nhm nõng cao hiu qu iu hnh, qun tr cho cỏc doanh nghip, t chc kinh doanh xó hi (Sn xut phn mm phc v cỏc doanh nghip, cỏc t chc kinh doanh-xó hi) Sn phm chớnh ca BRAVO l Phn mm Qun tr ti chớnh k toỏn, Phn mm Qun lý doanh nghip (ERP) v cỏc dch v BRAVO l mt nhng nh cung cp phn mm Qun tr doanh nghip - Ti chớnh k toỏn cú quy mụ v uy tớn ca Vit nam ng thi l cụng ty u tiờn chuyờn sõu vo lnh vc k toỏn cho doanh nghip sn xut, cng nh cung cp cỏc gii phỏp v h thng Qun tr - Ti chớnh - K toỏn v Qun lý ngun lc doanh nghip (ERP) Th mnh ca BRAVO l hiu bit ch k toỏn Vit Nam, c thự qun lý ca cỏc doanh nghip Vit Nam cng nh k toỏn quc t v cú kinh nghim trin khai phn mm QUAN IM Thc o cht lng Khỏch hng l ngi ỏnh giỏ trung thc v khỏch quan nht v cỏc sn phm phn mm Do vy vic tha mt cỏch tt nht cỏc nhu cu v phn mm phc v sn xut kinh doanh ca h l tiờu thc c t hng u vi BRAVO Mt phn mm tt khụng nhng phi ỏp ng c yờu cu ca khỏch hng m cũn phi l mt sn phm tuõn th cỏc qui nh chung ca ch , ng dng tt thc t, cú nhiu tin ớch, thao tỏc d dng, giao din thõn thin lm cho khỏch hng gn bú nh l bn ng quỏ trỡnh cụng tỏc Chuyờn tt nghip Khoa Tin Hc Kinh T Con ngi Mi thnh viờn BRAVO l mt nhõn t mt xớch to nờn sc mnh v thnh cụng ca cụng ty BRAVO luụn mong mun hp c nhng thnh viờn (mt xớch) cú tinh thn lm vic th, cú sc sỏng to cao, cú trỏch nhim vi cụng vic to c nim tin v s say mờ cụng vic ca cỏc thnh viờn cụng ty, ngoi vic to cỏc giỏ tr tinh thn - vt cht ớch thc BRAVO cũn khụng ngng t cỏc mc tiờu phn u nhm nõng cao v mc sng cho cỏc thnh viờn ca mỡnh Cỏc mc tiờu ú ó c th hin rừ nột cỏc quy nh, quy ch v cỏc chớnh sỏch nh hng phỏt trin nhõn s ca cụng ty HON THIN V PHT TRIN í thc c tm quan trng ca cht lng dch v cụng ngh thụng tin, BRAVO ó tin hnh xõy dng trin khai h thng qun lý cht lng theo tiờu chun ISO 9001:2000 v ó ỏp dng thnh cụng h thng ny t thỏng 10 nm 2004 n Vi h thng qun lý cht lng ny, BRAVO ó quy chun húa cỏc quy trỡnh lm vic h thng phũng ban ca mỡnh BRAVO cam kt mang n cho khỏch hng nhng sn phm, dch v v gii phỏp hon chnh vic qun lý h thng ti chớnh - k toỏn, qun lý vt t, qun lý ngi cng nh cụng tỏc qun tr doanh nghip Trờn nguyờn tc BRAVO tr thnh Bớ quyt qun tr doanh nghip thỡ s thnh cụng, tớn nhim ca khỏch hng l ng lc BRAVO hng ti v phỏt trin 1.2 LCH S HèNH THNH, MC TIấU KINH DOANH V NH HNG PHT TRIN 1.2.1 Lch s hỡnh thnh S phỏt trin ca BRAVO gn lin vi cỏc mc lch s: - Thỏng 10/1999: Thnh lp Cụng ty ti H ni v Chi nhỏnh ti Tp H Chớ Minh Chuyờn tt nghip Khoa Tin Hc Kinh T - Thỏng 12/1999: Ra i phiờn bn BRAVO 3.0 v trin khai phn mm cho Cụng ty Nha thiu niờn Tin phong - Thỏng 03/2000: Ra i phiờn bn BRAVO 3.2 - Thỏng 05/2000: Ký hp ng v trin khai phn mm cho Cụng ty Dt Thng li - Thỏng 10/2000: Trin khai phn mm cho Tng Cụng ty Khớ Vit Nam - Thỏng 07/2001: Ra i phiờn bn BRAVO 4.1 cú nhiu tớnh nng ni tri - Thỏng 01/2002: Ký v trin khai phn mm cho Cụng ty Redbull Vit nam - Thỏng 04/2002: Ký v trin khai phn mm cho Cụng ty Gang thộp Thỏi nguyờn - Thỏng 08/2002: Tha thun vi Vaco (nay l Deloitte Vit nam) v vic cung cp phn mm BRAVO cho cỏc doanh nghip Vaco kim toỏn v t - Thỏng 01/2003: Ra i phiờn bn BRAVO 5.0 - Thỏng 03/2003: Thnh lp chi nhỏnh ti Tp. nng - Thỏng 06/2003: Ký v trin khai phn mm cho Cụng ty TNHH s INAX Vit Nam (VINAX) - Thỏng 01/2004: Ký hp ng v trin khai phn mm cho Tp on Hũa Phỏt - Thỏng 02/2004: Ký tha thun vi i S Quỏn an Mch v vic cung cp cỏc phn mm cho cỏc d ỏn thuc chng trỡnh DANIDA - Thỏng 04/2004: Ra i phiờn bn BRAVO 6.0 - Thỏng 03/2005: t v nhn chng ch ISO 9001: 2000 - Thỏng 11/2005: Ký hp ng v trin khai d ỏn SEMLA Thy in ti tr Chuyờn tt nghip Khoa Tin Hc Kinh T - Thỏng 03/2006: Ra i phiờn bn BRAVO 6.3 vi c s d liu SQL server - Thỏng 10/2006: Ký v trin khai phn mm cho Xi mng H Tiờn Kiờn Giang - Thỏng 07/2007: Ký v trin khai phn mm cho Tng cụng ty Dt may Hũa Th - Thỏng 08/2008: Ký hp ng phn mm vi ễ tụ Trng Hi - Thỏng 08/2008: Ký v trin khai phn mm cho Chng khoỏn Bo Vit - Thỏng 06/2009: Trin khai thnh cụng phn mm BRAVO 6.3 cho Cụng ty ễ tụ Trng Hi (37 n v thnh viờn) sau thỏng k t ngy ký hp ng - Thỏng 06/2009: Ra i phiờn bn BRAVO 6.3 Se Nõng cp t BRAVO 6.3 vi nhiu tớnh nng u vit - Thỏng 06/2010: Ký hp ng trin khai phn mm Qun tr Doanh nhip (ERP) cho Cụng ty TNHH Giy Vi Tớnh Liờn Sn - Thỏng 10/2011: Chớnh thc i phiờn bn BRAVO (ERP-VN phn 1) - Thỏng 03/2012: Chớnh thc ký nghim thu hon thnh trin khai phn mm cho Cụng ty c phn u t v Thng mi TNG (sau thỏng thc hin) - Thỏng 09/2013: Chớnh thc ký nghim thu hon thnh trin khai phn mm cho Cụng ty c phn dc phm OPC (sau 10 thỏng thc hin) 1.2.2 Mc tiờu kinh doanh BRAVO ch chng xõy dng thng hiu da trờn Cht lng sn phm v Cht lng dch v Trờn c s ú BRAVO ó a chin lc phỏt trin cho giai on t n nm 2015 l Phn u tr thnh nh cung cp hng u cỏc sn phm phn mm cht lng cao cho cỏc t chc, doanh nghip ti Vit Nam vi cỏc mc tiờu c th nh sau: Chuyờn tt nghip Khoa Tin Hc Kinh T MC TIấU CHNH (tớnh n nm 2015) - Tr thnh nh cung cp phn mm s lnh vc Phn mm K toỏn qun tr - sn xut - Tr thnh nh cung cp sn phm ERP Tr thnh nh cung cp ERP (ni a) hng u cho th trng ERP Vit Nam" MC TIấU SN PHM (tớnh n nm 2015) Tng bc xõy dng phn mm BRAVO ỏp ng bi toỏn qun tr tng th doanh nghip (ERP): Cỏc tớnh nng, chc nng, h thng nghip v s c BRAVO b sung vo phn mm v dch v tr thnh h thng ERP hon thin MC TIấU T CHC NHN S - Vi s lng CBNV n cui nm 2015 d kin khong 400 ngi, cú h thng cung cp dch v, o to chuyờn nghip Vi c cu v b mỏy s c t chc c bn nh sau: B phn kinh doanh, B phn t nghip v, B phn k thut trin khai, B phn bo hnh B phn phỏt trin sn phm, Nhúm cụng ngh, B phn tng hp (Hnh chớnh - i ngoi), B phn K toỏn, B phn o to - nhõn s MC TIấU DOANH S - Nm 2011, 2012: Tng trng bỡnh quõn 30% - Nm 2013 2015: Tng trng bỡnh quõn 30% - 50% 1.2.3 nh hng phỏt trin S MNH Xõy dng v phỏt trin mt t chc phỏt trin bn vng da trờn tri thc, trớ tu ca cỏc thnh viờn nhm tr giỳp cỏc n v - doanh nghip nõng cao kh nng qun lý, nng lc cnh tranh v hiu qu hot ng sn xut kinh doanh thụng qua vic t Chuyờn tt nghip Khoa Tin Hc Kinh T 10 gii phỏp, ng dng cụng ngh thụng tin vo qun tr doanh nghip Qua ú gúp phn xõy dng t nc, h tr cng ng v em li cho mi thnh viờn ca mỡnh mt mụi trng lm vic tt nht phỏt trin ti nng - ngh nghip, ng thi cú c mt cuc sng y v vt cht, phong phỳ v tinh thn TM NHèN DI HN (CHIN LC) Vit nam ang i mi v phỏt trin mnh m, mong mun c úng gúp vo quỏ trỡnh phỏt trin ca dõn tc l khỏt vng ca mi cỏ nhõn, t chc Chn ng kinh doanh phn mm qun tr doanh nghip, ti chớnh k toỏn vi mc ớch Nõng cao nng lc ti chớnh cho khỏch hng, BRAVO ó, ang v s kinh doanh theo hng Chuyờn nghip - Cht lng - Luụn luụn hc hi, i mi v hon thin Nhng nm qua, BRAVO khụng ngng n lc phn u tr thnh Cụng ty c khỏch hng ỏnh giỏ cao v cht lng - dch v sn phm v l mt nhng Bớ quyt qun tr doanh nghip ca h Chin lc phỏt trin di hn ca Cụng ty c th hin qua cỏc nh hng sau: Cht lng sn phm v dch v l yu t quyt nh, xõy dng thng hiu da trờn cht lng Nõng cao nng lc cnh tranh bng cỏch nghiờn cu - ỏp dng cụng ngh hin i, cỏc qui trỡnh qun lý tiờn tin vo sn phm v dch v M rng u t vo lnh vc cụng ngh thụng tin, t ti chớnh Phỏt trin ngun nhõn lc bn vng vi nhõn t ngi l trng tõm, tr thnh Cụng ty hc 1.3 S C CU T CHC, NHIM V CHC NNG TNG PHềNG BAN TRONG CễNG TY BRAVO 1.3.1 S c cu t chc Chuyờn tt nghip Khoa Tin Hc Kinh T 83 KT LUN H thng thụng tin qun lý khỏch hng ti cụng ty BRAVO l h thng ln, phc cu trỳc v lng khỏch hng s dng dch v ca cụng ty l rt a dng H thng cn tip tc hon thin phc v mt cỏch hon ho nht cụng tỏc qun lý khỏch hng ti cụng ty Phn mm qun lý khỏch hng giỳp cho nhng ngi qun lý ca cụng ty cú th thun tin hn vic theo dừi thng kờ lng khỏch hng ca mỡnh, cú th in nhng bỏo cỏo phự hp vi nhu cu v yờu cu m lónh o giao phú Khi thc hin chuyờn tt nghip ny, em ó c gng cú th a mt sn phm hon thin V sn phm ó cú c nhng tớnh nng c bn nh phõn Chuyờn tt nghip Khoa Tin Hc Kinh T 84 tớch, thit k Tuy nhiờn, hn ch v mt thi gian v kin thc, chuyờn cũn mt s thiu sút nht nh Em rt mong nhn c ý kin úng gúp ca cỏc thy cụ ti ny cú th hon thin hn! Em xin chõn thnh cm n cụ giỏo TS Nguyn Vn Th ó a nhng ý kin úng gúp b ớch em cú th thc hin chuyờn ny! Em xin chõn thnh cm n! DANH MC TI LIU THAM KHO Giỏo trỡnh Cu trỳc d liu v Gii thut, PGS TS Hn Vit Thun, NXB Thng Kờ, H Ni 2005 Giỏo trỡnh H thng thụng tin qun lý, TS Trng Vn Tỳ TS Trn Th Song Minh, NXB H Ni 2000 Chuyờn tt nghip Khoa Tin Hc Kinh T 85 Giỏo trỡnh H thng thụng tin qun lý, TS Trng Vn Tỳ TS Trn Th Song Minh,NXB kinh t quc dõn Giỏo trỡnh C s d liu, Ths Trn Cụng Un,NXB kinh t quc dõn Giỏo trỡnh Cng Ngh Phn mm, PGS.TS Hn Vit Thun DANH MC S BNG BIU Hỡnh 1.1: S c cu t chc ti BRAVO Hỡnh 2.1: S mụ t h thng Hỡnh 2.2: Cỏc b phn cu thnh H thng thụng tin Hỡnh 2.3: Thit k vt lý cỏc x lý Chuyờn tt nghip Khoa Tin Hc Kinh T 86 Hỡnh 2.4 : cỏc ký phỏp ca IFD Hỡnh 2.5: Cỏc ký phỏp dựng cho DFD Hỡnh 3.1: Mụ hỡnh chc nng nghip v ca ca b phn qun lý ti sn c nh Hỡnh 3.2: S IFD quỏ trỡnh cp thụng tin khỏch hng Hỡnh 3.3: S IFD quỏ trỡnh cp nhp hp ng khỏch hng Hỡnh 3.4: S ng cnh Hỡnh 3.5: S quỏ trỡnh qun lý khỏch hng Hỡnh 3.6: S DFD mc ca hot ng qun lý danh mc liờn quan Hỡnh 3.7: S DFD mc hot ng qun lý hp ng khỏch hng Hỡnh 3.8: S DFD mc ht ng thng kờ bỏo cỏo Hỡnh 3.9: S quan h thc th (ERD) Hỡnh 3.10: S cu trỳc d liu (DSD) Hỡnh 3.11: Cỏc ký hiu thit k gii thut Hỡnh 3.12 :Thut toỏn thờm mi d liu Hỡnh 3.13: Thut toỏn sa d liu Hỡnh 3.14: Thut toỏn xúa d liu Hỡnh 3.15: Thut toỏn tỡm kim d liu Hỡnh 3.16: Thut toỏn in bỏo cỏo PH LC Chuyờn tt nghip Khoa Tin Hc Kinh T 87 Code ca mt s form chng trỡnh Dim Them As Boolean Dim Sua As Boolean Private Sub setcmd() If Them = False Then If Sua = False Then cmdThem.Enabled = True cmdSua.Enabled = True cmdXoa.Enabled = True cmdLuu.Enabled = False cmdHuy.Enabled = False Else cmdThem.Enabled = False cmdSua.Enabled = False cmdXoa.Enabled = False cmdLuu.Enabled = True cmdHuy.Enabled = True End If Else cmdThem.Enabled = False cmdSua.Enabled = False cmdXoa.Enabled = False cmdLuu.Enabled = True cmdHuy.Enabled = True End If End Sub Private Sub cmdHuy_Click() Chuyờn tt nghip Khoa Tin Hc Kinh T 88 Them = False Sua = False khoa setcmd End Sub Private Sub cmdLuu_Click() On Error Resume Next If txtMaHD.Text = "" Or txtTenHD.Text = "" Or txtMaNV.Text = "" Or txtMaKH.Text = "" Or txtMaSP.Text = "" Or txtSoLuong.Text = "" Or txtTT.Text = "" Or txtNgayKi.Value = "" Then MsgBox ("Có thể bạn nhập thiếu thông tin Xin Hãy Kiểm Tra Lại!") Else If Them = True Then Adodc2.ConnectionString = link Adodc2.CommandType = adCmdUnknown Adodc2.RecordSource = "select * from Hop_Dong Where Ma_HD ='" & txtMaHD.Text & "'" Set DataGrid2.DataSource = Adodc2 If Adodc2.Recordset.RecordCount > Then MsgBox ("Mã hợp đồng tồn tại") Else Adodc1.Recordset.AddNew Adodc1.Recordset(0) = txtMaHD.Text Adodc1.Recordset(1) = txtTenHD.Text Adodc1.Recordset(2) = txtMaSP.Text Adodc1.Recordset(3) = txtSoLuong.Text Chuyờn tt nghip Khoa Tin Hc Kinh T 89 Adodc1.Recordset(4) = txtMaNV.Text Adodc1.Recordset(5) = txtMaKH.Text Adodc1.Recordset(6) = txtNgayKi.Value Adodc1.Recordset(7) = txtTT.Text Adodc1.Recordset.Update lienketQLHD End If End If If Sua = True Then txtMaHD.Text = Adodc1.Recordset(0) txtTenHD.Text = Adodc1.Recordset(1) txtMaSP.Text = Adodc1.Recordset(2) txtSoLuong.Text = Adodc1.Recordset(3) txtMaNV.Text = Adodc1.Recordset(4) txtMaKH.Text = Adodc1.Recordset(5) txtNgayKi.Value = Adodc1.Recordset(6) txtTT.Text = Adodc1.Recordset(7) Adodc1.Recordset.Update khoa txtMaHD.Text = "" txtTenHD.Text = "" txtMaSP.Text = "" txtSoLuong.Text = "" txtMaNV.Text = "" txtMaKH.Text = "" txtNgayKi.Value = "" txtTT.Text = "" lienketQLHD End If Chuyờn tt nghip Khoa Tin Hc Kinh T 90 Them = False Sua = False setcmd End If End Sub Private Sub cmdThem_Click() Them = True Sua = False mo_khoa setcmd txtMaHD.Text = "" txtTenHD.Text = "" txtMaSP.Text = "" txtSoLuong.Text = "" txtMaNV.Text = "" txtMaKH.Text = "" txtNgayKi.Value = "01/01/2015" txtTT.Text = "" End Sub Private Sub CmdXoa_Click() If MsgBox("Bạn có thật muốn xóa hợp đồng này!", vbYesNo) = vbYes Then Adodc1.Recordset.Delete adAffectCurrent Adodc1.Recordset.MoveFirst lienketQLHD End If End Sub Chuyờn tt nghip Khoa Tin Hc Kinh T 91 Private Sub CmdSua_Click() Sua = True mo_khoa txtMaHD.Enabled = False Them = False setcmd End Sub Private Sub khoa() txtMaHD.Enabled = False txtTenHD.Enabled = False txtMaKH.Enabled = False txtMaNV.Enabled = False txtMaSP.Enabled = False txtSoLuong.Enabled = False txtNgayKi.Enabled = False txtTT.Enabled = False End Sub Private Sub mo_khoa() txtMaHD.Enabled = True txtTenHD.Enabled = True txtMaKH.Enabled = True txtMaNV.Enabled = True txtMaSP.Enabled = True txtSoLuong.Enabled = True txtNgayKi.Enabled = True txtTT.Enabled = True End Sub Private Sub CmdDong_Click() Unload Me Chuyờn tt nghip Khoa Tin Hc Kinh T 92 End Sub Private Sub DataGrid1_Click() lienketQLHD End Sub Private Sub Form_Load() Adodc1.ConnectionString = link Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = "select * from hop_dong order by ma_hd" Set DataGrid1.DataSource = Adodc1 Them = False Sua = False setcmd lienketQLHD Adodc3.ConnectionString = link Adodc3.CommandType = adCmdUnknown Adodc3.RecordSource = "select * from Nhan_vien order by ma_nv" Set DataGrid3.DataSource = Adodc3 While Adodc3.Recordset.EOF = False txtMaNV.AddItem (Adodc3.Recordset(0)) Adodc3.Recordset.MoveNext Wend Adodc4.ConnectionString = link Adodc4.CommandType = adCmdUnknown Adodc4.RecordSource = "select * from Khach_Hang order by ma_kh" Set DataGrid4.DataSource = Adodc4 While Adodc4.Recordset.EOF = False Chuyờn tt nghip Khoa Tin Hc Kinh T 93 txtMaKH.AddItem (Adodc4.Recordset(0)) Adodc4.Recordset.MoveNext Wend Adodc5.ConnectionString = link Adodc5.CommandType = adCmdUnknown Adodc5.RecordSource = "select * from San_Pham order by ma_sp" Set DataGrid5.DataSource = Adodc5 While Adodc5.Recordset.EOF = False txtMaSP.AddItem (Adodc5.Recordset(0)) Adodc5.Recordset.MoveNext Wend End Sub Private Sub lienketQLHD() txtMaHD.Text = Adodc1.Recordset(0) txtTenHD.Text = Adodc1.Recordset(1) txtMaSP.Text = Adodc1.Recordset(2) txtSoLuong.Text = Adodc1.Recordset(3) txtMaNV.Text = Adodc1.Recordset(4) txtMaKH.Text = Adodc1.Recordset(5) txtNgayKi.Value = Adodc1.Recordset(6) txtTT.Text = Adodc1.Recordset(7) End Sub Private Sub txtMaHD_LostFocus() If Them = True Then Adodc3.RecordSource = "select * FROM Hop_dong Where Ma_HD='" & txtMaHD.Text & "'" Chuyờn tt nghip Khoa Tin Hc Kinh T 94 Set DataGrid3.DataSource = Adodc3 Adodc3.Refresh If Adodc3.Recordset.RecordCount > Then MsgBox ("Mã hợp đồng tồn tại!") txtMaHD.Text = "" txtMaHD.SetFocus End If End If End Sub Code ca mt s bỏo cỏo chng trỡnh Dim HSTL1 As DAO.Recordset Dim HSTL2 As DAO.Database Private Sub cmdIn_Click() Set HSTL2 = OpenDatabase(App.Path & "\data\QLKH.mdb", False, False, "") SQL = "select Ma_HD,Ten_HD,Ngay_Ki, So_Luong * Gia_SP AS Gia_Tri FROM Hop_Dong INNER JOIN San_Pham ON Hop_Dong.Ma_SP=San_Pham.Ma_SP Where #" & Format(TuNgay.Value, "yyyy-mm-dd") & "#