Ứng dụng công nghệ thông tin để quản lý đề tài nghiên cứu các cấp đào tạo

80 GIAO DUC VA aA.o TAO TRU'ONG D~l HQC KINH TE TP.HO CHi MINH 000 DE TAl NGHIEN ClJ'U KHOA HOC • CAPTRU'O'NG £>E lrNG DUNG CONG NGHE THONG TIN QUAN LY I>E TAl NGHIEN ClrU cAc CAP I>AO TAO (Clr NHAN, TH~C Si, TIEN Si) MA 80:2001-028 NGU'O'I THU'C HIEN: PGS.TS LE THANH HA TS PH~M XUAN LAN CN NGUYEN TAN AN TP HO CHi MINH 2002 DJ tai nghien czm khoa hQc Truang D(li hQc Kinh d TP.HCM 2002 Liri cam un Chfulg toi xin chan thrum cam on: •!• Phong quan ly dao tl;lo •!• Khoa qufm tri kinh doanh •!• Khoa dao tl;lo tl;li chuc •!• Phong quan ly khoa hQc f>a tl;lO ffiQl di~u ki~n Vel giup chung toi hoan d~ tai Qmin ly d~ tai t6t nghi~p Trang I Dd tai nghien ctlu khoa h9c Truc!ng Dgi h9c Kinh t€ TP.HCM 2002 Mucluc • • ,, ,, ;t~ L (Jl noz uau I MlJC TIEU BE TAI: • " y'rr r II NOI DUNG NGHIEN Cuu: Phful I: THVC TMNG CONG TAC QUAN L YBE TAl TOT NGHIEP cAc cAP BAO TAO NGANH TAl KHOA QUAN TRl KINH DOANH 10 I GIOI THI:SU vE KHOA QUAN TRl KINH DOANH: 10 Nhan s\1': 1o Cac b{> mon tf\IC thu{>c khoa: 10 Cac mon hc;>c khoa phv tnich b~c cir nhan: 11 II THVC TMNG CONG TAC QUAN L YBE TAI TOT NGHIEP cAc cAP BAO TAO NGANH QUAN TRl KINH DOANH: 12 Quan ly chung: 12 Quan ly dang kY d~ 1iti tf>t nghi~p: 12 Quan ly sau hoan thanh: 13 Nh~ xet: 15 Phful II: :xAy Dl)NG BETAI 18 Y:Eu cAu BE TAI: 18 " t'ac nh"~p th"ong t"m va' quan • 1,y th"ong t"m: 19 V ~ cong 1.1 Nh~p thong tin: 19 1.2 Quan ly thong tin: 20 v"e cong " t,ac phvc V\1 ngucrt• · d'ung: 21 Quim ly d€ tai t6t nghi~p Trang2 Truong Dt;~i h9c Kinh fi TP.HCM 2002 EJJ tai nghien cUll khoa hoc V~ bfw m~t (security) an toan h~ th6ng: 22 II GIOI THn;u PHAN MEM, NGON NGU TmJC HII;N DE TAL 25 H~ di~u hanh (Operator system): Windows 200 Server Professional v6i liS 5.0 25 HTTP, HTM:L 26 2.1 HTTP (Hypertext Tranfer Protocol): 26 2.2 HTM:L (Hyper Text Market Language): 27 Ca sa du li~u (Database Server): SQL Server 7.0: 28 Stored Procedure: 31 Open database connectivity (ODBC): 32 Cong C\l (Tools): ASP, VBScript, JavaScript 34 6.1 ASP (Microsoft Active Server Page): 34 6.2 VBScript (Visual Basic Script): 35 6.3 JavaScript: 36 Microsoft Visual InterDev 6.0: 37 III MO HiNH QUAN HE DULlED: 38 Mo hinh quan h~ du li~u: Tir di~n du li~u: 39 IV THIET KE WEBSITE, VIET CHUONG TRiNH DIEU KHIEN: 41 Ky thu~t truy xuAt du li~u: 41 Phong chu dung tren toan b() chuang trinh: 43 PhAn Web site ph\lc V\1 nguoi su dl,lng: 43 Trang tra c1lu thong tin d6 tai: 44 3.2 Trang hi~n thi k~t qua tra c1lu: 45 3.4 Trang th6ng ke tren (rng d1,mg: 46 Qmin ly d~ tai t6t nghi~p Trang D~ tai nghien czm khoa h(Jc Truong Dt;~i h9c Kinh d TP.HCM 2002 3.4 Trang tim ki~m: 47 3.5 Trang ti~n ich: 47 Phk quan ly (rng dl)ng: 49 4.1 Cac trang nh~p thong tin: 50 4.2 Trang hien thi thong tin, c~p nh~t, x6a: 56 4.3 Trang tim ki~m thong tin lu~ an: 67 4.4 Upload file: 67 Phfut III: TRIEN KHAI UNG Dl)NG & HI$U QUA KINH TE 72 I TRIEN KHAI UNG Dl)NG: 72 D\1' Tru kinh phi: 72 1.1 Kinh phi mua s~m thi~t bt may moe 72 1.2 Kinh phi dao t~o sir dl)ng 72 Nhan h,rc: 73 TA chuc quan ly: 73 II HI$U QUA: 74 Phdn IV: KET LUAN & KIEN NGHJ 76 I KET LUAN: 76 Vu diem: 76 H~ ch~: 77 , h, A Huang p at trten: 77 II KIEN NGHJ: 78 Tcli li~u tham khao 79 Quan Iy d~ tai t6t nghi~p Trang4 DJ tai nghien cU"U khoa h9c Truang Dt;zi h9c Kinh ti TP.HCM 2002 ' Lili noi ilau The k)' 20 da di qua de l~i nhihlg tvu vi d~i rna nguai da d~t dugc linh vvc phat trien cong ngh~, t~o cac nganh nghe kinh doanh m6i, va nang cao muc sBng cua nguai M()t tuong lai tuai sang thai d~i cua nen kinh te thong tin, toan cau h6a va thuong m~i di~n tir V6i m\}c tieu "xa h()i h6a thong tin", Vi~t Nam da chinh thuc gia nh~p h~ thBng m~g Internet the gi6i vao 19/1111997 nh&m t~o da phat trien kinh te cho dfit nu6c cling nhu giam b6t khoang each ve cong ngh~ thong tin VOi cac nUOC khac khu V\fC va tren the gi6i Truang B~i hQc Kinh te TP.HCM hi~n la m()t 10 truang d~i hQC trQng diem quBc gia, la IDQt trung tam dao t~O Va nghien Clru khoa hQC kinh te c6 uy tin ca nu6c nai dao t~o nhan h.rc, b6i du5ng nhan tai ph\lC V\1 cho tien trinh cong nghi~p h6a Va hi~n d~i h6a dfit nUOC, the h()i nh~p kinh te toan cau XU Nhihlg nam gan day v6i chu truong dfiy m~ cong ngh~ thong tin ap d\lllg vao cong tac quan ly va dao t~o, nha truang da dau tu va xay dvng nhieu cong trinh, dv an ve cong ngh~ thong tin nhu trang bi may vi tinh, xay dvng cac h~ thBng m~ng Intranet ket n6i Internet trvc tuyen, h~ thBng quan ly thu vi~n tren m~ng, h~ thBng m~g ph\lc V\1 cong tac tuyen sinh, quan ly tai chfnh nhieu de tai nghien Clru khoa hQC da dugc th\fC hi~n nh&m nang cao hon nfra chAt luQllg quan ly va dao t~o cua nha truang Hi~n nay, s6 luQllg sinh vien h~ d~i hQc va cao dfuJg chinh quy, hoan chinh d~i hQc, cu nhan van b&ng 2- chinh quy, t~i chuc hi~n dang dugc Qmin ly d~ t!li t6t nghi~p Trang EJ€ tai nghien ctlu khoa hQc Trucmg fJ(li hQc Kinh ti TP.HCM 2002 dflO t~o t~i nha tru(mg len den han 40.000 sinh vien SB lUQ'llg sinh vien tBt nghi~p hang nam cua cac h~ ciing tren 4.000 sinh vien Vi~c quan ly de tai t6t nghi~p cac d.p dao t~o hi~n vful dugc thvc hi~n chu yeu tren gidy I>ieu khien cho m()t s6 cac de tai t6t nghi~p cling nam trimg l~p dang Icy giao vien hu6ng dfin khac nhau, ho~c nganh khac Th~m chi tinh tr~g gian 1~, chep de tai cac nam tru6c ciing rAt kh6 phat hi~n Nh~m kh~c phl;lC tinh hinh neu tren va nang cao han nua chdt luQ'llg dao t~o, d~c bi~t la khau quan ly de tai t6t nghi~p khoa Quan tri kinh doanh da chu d()ng thvc hi~n de tai nghien cful khoa hQc: "Ung dvng cong ngh~ thong tin d6 quful ly de tai nghien c(m cac cdp dao t~o (cu nhan, th~c si, tien si)" theo dung chu truang tin hQc h6a quan ly dao t~o cua nha truoog Qmin ly dB tai t6t nghi~p Trang Truong Dqi h9c Kinh ti TP.HCM 2002 D~ tili nghien czrn khoa h9c I MVC TlEU DE TAI: Vi~c Ung d\mg cong ngh~ thong tin de qmin ly d~ tai nghien CUu cac cAp dao t~o nhfun d~t cac ml,lc tieu sau day: I>Ay m~ tin hc hoa cong tac quan ly theo doog chu truong cua nha tru(mg d~ Phl,lC Vl) cong tac luu trfr, tra CUu va tim kiem thong tin vS dS tai nhanh chong va chinh xac T~o m()t qui trinh dang kY thgc hi~n dS tai m()t each hgp ly nhfun tranh cac tru(mg hqp chep ho~c trimg l~p thgc hi~n Phl,lC V\1 cong tac thfmg ke, tAng hgp nh~m nang cao chftt lugng giang d~y cua giao vien Qufm ly dS titi t6t nghi~p Trang TruiYng Dq.i hQc Kinh d TP.HCM 2002 D~ tai nghien czm khoa h()c II NQI DUNG NGHIEN CUu: Tim hiSu thvc tr~g cong tac quan ly d@ Uti nghien Clru cac cAp dao t~o nganh Quan tri kinh doanh t~i Khoa Quan tri kinh doanh TB chuc mo hinh luu trU thong tin phvc V\1 cong tac tim kiem, tra Clru thong tin du li~U ve de tai tbt nghi~p Xay d\fllg ph fin mem (rng d\lng quan ly tren Web thong qua h~ th6ng Intranet cua truemg Website: http:/1172.18.3.12/qlluanvan/ '2 Phon qua n ~,login Qmin ly d~ tai t6t nghi~p user name: quanly, password: 12345 Trang Tru&ng Dc;ti h9c Kinh ti TP.HCM 2002 Di tai nghien cu-u khoa h9c Phfull: THUCTRANGCONGTAC • • ? , ~ ' z - , 1: QUAN LY DE TAl TOT NGHI~P CAC CAP DAO TAO NGANH TAl • • KHOA QUAN TRJ KINH DOANH Qmin ly dB tai t6t nghi~p Trang DJ tai nghien cUu khoa hrc Truong Dgi hrc Kinh fi TP.HCM 2002 sqlDelete ="Delete from t_giaovien where magv="' & Trim(oRs("magv")) & ""' conn.Execute(sqlDelete) Intmaso = "" sql2 = Request.form("sql2") set oRs = server.createobject("ADODB.recordset") oRs.Open sql2, conn, 3, Set Session("oRs") = oRs End If Else Iflntmaso "" Then sql1 = Request.QueryString("sql") IflnStr(sqll,"ORDER") Then sqll = Left(sqll,InStr(sqll,"ORDER")-1) End If Count= request.Querystring("Count") - l strQuery = "Select * from t_giaovien where magv='" & intmaso & "'" Set oRs = server.createobject("ADODB.recordset") oRs.Open strQuery, conn, 3, Set Session("oRs") = oRs Else Intmaso = Trim(Request.QueryString("maso")) strQuery = "select * from t_giaovien order by ten asc" 'strQuerydt = "select * from t hedaotao" Set oRs = server.createobject("ADODB.recordset") oRs.Open strQuery, conn, 3, Set Session("oRs") = oRs End If End If Stored Procedure updategv: CREATE PROCEDURE updategv @tengv char(SO), @bomon char(10), @chucdanh char(30), @dienthoai char(20), @email char(30), @intmaso smallint AS Declare @Hoten char(SO), @Holot char( SO), @Ten char(30), @vitri smallint Select @HoTen=Reverse(LTRIM(RTRIM(@tengv))) Select @vitri=charindex(space( 1),@Hoten) Select @Ten= reverse(substring(@HoTen,1,@vitri-1)) Select @Holot = reverse(LTRIM(RTRIM(stuff(@Hoten,1,@vitri,NULL)))) update dbo.t_giaovien set ho=@Holot, ten=@Ten, bomon=@bomon,chucdanh=@Chucdanh,dienthoai=@dienthoai,email=@email where magv=@intmaso Qmin ly d8 tai t6t nghi~p Trang 65 Truc!ng Dt;zi h9c Kinh ti TP.HCM 2002 ' DJ tai nghien cuu khoa h9c 4.2.3 Trang hiSn thi thong tin chinh sua v@ Dan vi thuc tap, he dao , tao, nganh, 16p: !I Quim IV luan an tOt nghli!p - Microsoft Internet EKploret ·~? .r:: ~ DI~U CHiNH TEN DO'N VI THU'C TAP Nh~p l~i thong tin va nh~n nut c~p nh~t, ho~c ·nh§n ~ut x6~ x6a bod~ x6a Ma dvtt: Ten ElVTT: Elia chi: Lo~i hlnh ON : 14 lr::G:-:-iay-:YI:.-N:::-H7":"H~U::;rE I -I I qp nh~t J · X6a b6 Tro v~ !rang tnroc Phfut c~p nh~t va x6a cua cac trang tuang tv nen chfulg toi xin gi6i thi~u phfut c~p nh~t, xoa cua trang dan vi thgc t~p Cac trang dugc thi~t k~ b~ng ASP va sir dl)ng cau l~nh SQL dS thgc thi trvc ti~p tren CSDL Sau day Ia do~n code ASP: If IsObject(Session("qlluanvan_conn")) Then Set conn= Session("qlluanvan_conn") Else Set conn= Server.CreateObject("ADODB.Connection") conn.open "qlluanvan","user","password" Set Session("qlluanvan_conn") =conn End If Intmaso = Trim(Request.QueryString("maso")) sqll = Request.QueryString("sql") sql ="select* from t_donvitt order by tendvtt asc" Qmin ly d~ tai t6t nghi~p Trang 66 Tru&ng D(;li h(Jc Kinh fi TP.HCM 2002 D€ tcli nghien cuu khoa h(Jc If request.Fonn("update") "" Or request.Form("delete") "" Then If request.Form("update") 1111 Then Intmaso = Request.Fonn("Intmaso") MasoiD = Trim(Request.fonn("MasoiDnum")) tendvtt = Request.Fonn("tendvtt") diachi=Request.Fonn("diachi") lhdn=Request.Fonn("lhdn ") set oRshedt = Server.CreateObject("ADODB.recordset") sqlUpdate ="Update t_donvitt Set tendvtt=N" & tendvtt & " 1, diachi=N" & diachi & "', lhdn=1" & lhdn & " where madvtt=" & Intmaso & "" conn.Execute( sqlUpdate) set oRs = server.createobject("ADODB.recordset") sql2 = Request.form("sql2") oRs.Open sql2, conn, 3, Set Session("oRs") = oRs Intmaso="" Response.Write sql2 Else Set oRs = Session("oRs") MasoiD = Request.form("MasoiDnum") sqlDelete ="Delete from t_donvitt where madvtt=" & Trim(oRs("madvtt")) & ""' conn.Execute(sqlDelete) Intmaso = "" sql2 = Request.form("sql2") set oRs = server.createobject("ADODB.recordset") oRs.Open sq12, conn, 3, Set Session("oRs") = oRs End If 4.3 Trang tim ki~m thong tin Juan an: Trang tuong tv trang tra CUu thong tin phdn phvc V\1 nguai sir dvng 4.4 Upload file: Phdn upload file se duqc cai d~t va kich ho~t phdn nh~p thong tin v@ d@ tai (n~u c6), file duqc chQn (browser) se duqc tv d