LI NểI U Cú th núi nhng nm u ca th k 21 l nhng nm ca ngnh cụng ngh thụng tin núi chung v tin hc núi riờng Hin nay, tin hc ó v ang c ng dng rng rói i vi hu ht cỏc khớa cnh v lnh vc cuc sng Cỏc cụng vic dn dn ó c thay th bng mỏy tớnh, chỳng giỳp ta cú th gim ti a thi gian x lý mt cụng vic m li cho kt qu nh ý mun vi chớnh xỏc cao Trong cỏc lnh vc ca ngnh cụng ngh thụng tin, cỏc h thng thụng tin l mt nhng b mụn ht sc quan trng, hc tt phn ny s giỳp cho chỳng ta cú kh nng tip cn tt vi cỏc bi toỏn hoc d ỏn Vớ d nh: Tỡm hiu, phõn tớch bi toỏn, sau ú a cỏc bn mụ v phng ỏn gii quyt bi toỏn mt cỏch tt nht Trong quỏ trỡnh tỡm hiu v xõy dng ỏn tt nghip em ó chn ti Qun lý thit b phũng ti Cụng ty c phn Hi Nguyờn vi mc tiờu gii quyt c bi toỏn v cú th ci t vo thc t, giỳp ngi qun lý s dng cú hiu qu Cui cựng, Em xin c by t lũng bit n chõn thnh ti cỏc thy cụ giỏo b mụn v c bit l cụ Th Bc ngi ó trc tip hng dn, giỳp v ch bo tn tỡnh Em sut quỏ trỡnh tỡm hiu v xõy dng ỏn tt nghip Sinh viờn Lờ Vn Khoa CHNG TNG QUAN V TI 1.1 Tờn ti Qun lý thit b phũng ti cụng ty c phn Hi Nguyờn 1.2 Mc ớch: Hin nay, khụng mt c quan nh nc, mt doanh nghip t nhõn no khụng cn s dng n cỏc thit b phũng õu cng phi cn n cỏc thit bi nh: bn, gh, mỏy vi tớnh, mỏy in, mc in, iờu ho V rt nhiu thit b phũng khỏc na Vi mc ớch giỳp ngi qun lý cú th qun lý mt cỏch d dng cỏc thit b c quan, cụng ty mỡnh, em ó thit k v xõy dng c chng trỡnh ny Vi vic s dng chng trỡnh ny, ngi qun lý cú th kim tra v thng kờ mt cỏch d dng cỏc thit bi c quan, cụng ty mỡnh m khụng cn phi s dng bt c thờm mt nhõn viờn no vo cụng vic ny Chng trỡnh s giỳp ngi qun lý bit c mt thit bi no ang c phũng no, nhõn viờn no ang s dng cung nh bit c nhõn viờn dang s dng mt thit bi no, tinh trng ca thit b y Vi mc ớch v ý ngha ca chng trỡnh nh ó núi trờn em ó xõy dng thnh cụng chng trỡnh Trong quỏ trỡnh chy th ó rỳt c rt nhiu kinh nghim v ó hon thiờn mt s phn nhng s khụng trỏnh cũn thiu sút Mong rng thy sụ s giỳp em cú th hon thin c chng trỡnh Hy vng ti Qun lý thit b phũng ti cụng ty c phn Hi Nguyờn s cú ng dng rụng rói trờn thc t 1.3 Yờu cu Vi yờu cu t giỳp ngi qun lý cú th qun lý tt hn, cht ch hn cỏc thit b cụng ty mỡnh, ti phi t c mt s yờu cu sau: + m bo tớnh logic, hp lý v thng nht cao gia cỏc phn ti + m bo tớnh ng dng thc t cao, ỏp ng c cỏc nhu cu, gii quyt c cỏc nhc im ang tn ti cỏc cụng ty, c quan 1.4 Ni dung chớnh ca ti Chng 1: Tng quan v ti Chng 2: Gii thiu v ngụn ng VisuaBasic6.0 v H qun tr c s d liu SQL Sever 2000 Chng 3: Phõn tớch v thit k h thng chng trỡnh 1.5 Phng phỏp nghiờn cu + Kho sỏt thc t, tỡm hiu rừ quy trỡnh s dng thit b cụng ty v cỏc khú khn quy trỡnh s dng thit b Phn ny s dng phng phỏp : phng vn, phiu iu tra, quan sỏt + Nghiờn cu ti liu ó thu thp tỡm hiu cỏch khc phc cỏc khú khn giỳp ngi qun lý + T thc t tỡm hiu v nghiờn cu xõy dng chng trỡnh cú th ỏp ng c mc ớch v yờu cu t ca bi toỏn CHNG GII THIU NGễN NG VISUALBASIC 6.0 V H QUN TR C S D LIU SQL SEVER 2000 2.1 Gii thiu v Visual Basic 6.0 Dựng VB6 l cỏch nhanh v tt nht lp trỡnh cho Microsoft Windows Cho dự l chuyờn nghip hay mi m i vi chng trỡnh Windows, VB6 s cung cp mt b cụng c hon chnh n gin húa vic trin khai lp trỡnh ng dng cho MSWindows Visual Basic l gỡ? Phn "Visual" cp n phng phỏp c s dng to giao din ngi dựng (Graphical User Interface hay vit tc l GUI) Cú sn nhng b phn hỡnh nh, gi l controls, ngi s dng cú th sp t v trớ v quyt nh cỏc c tớnh ca chỳng trờn mt khung mn hỡnh, gi l form Nu ó tng s dng chng trỡnh v chng hn nh Paint, ó cú sn cỏc k nng cn thit to mt GUI cho VB6 Phn "Basic" cp n ngụn ng BASIC (Beginners All-Purpose Symbolic Instruction Code), mt ngụn ng lp trỡnh n gin, d hc, c ch cho cỏc khoa hc gia (nhng ngi khụng cú thỡ gi hc lp trỡnh in toỏn) dựng Visual Basic ó c t MSBasic, Bill Gates vit t thi dựng cho mỏy tớnh bits 8080 hay Z80 Hin nú cha n hng trm cõu lnh (commands), hm (functions) v t khúa (keywords) Rt nhiu commands, functions liờn h trc tip n MSWindows GUI Nhng ngi mi bt u cú th vit chng trỡnh bng cỏch hc ch mt vi commands, functions v keywords Kh nng ca ngụn ng ny cho phộp nhng ngi chuyờn nghip hon thnh bt k iu gỡ nh s dng ngụn ng lp trỡnh MSWindows no khỏc Ngi mang li phn "Visual" cho VB l ụng Alan Cooper ễng ó gúi mụi trng hot ng ca Basic mt phm vi d hiu, d dựng, khụng cn phi chỳ ý n s tinh xo ca MSWindows, nhng dựng cỏc chc nng ca MSWindows mt cỏch hiu qu Do ú, nhiu ngi xem ụng Alan Cooper l cha gi ca Visual Basic Visual Basic cũn cú hai dng khỏc: Visual Basic for Application (VBA) v VBScript VBA l ngụn ng nm phớa sau cỏc chng trỡnh Word, Excel, MSAccess, MSProject, v.v cũn gi l Macros Dựng VBA MSOffice, ta cú th lm tng chc nng bng cỏch t ng húa cỏc chng trỡnh.VBScript c dựng cho Internet v chớnh Operating System Dự cho mc ớch l to mt tin ớch nh cho riờng tng ngi s dng, mt nhúm lm vic ca ngi s dng, mt cụng ty ln, hay cn phõn b chng trỡnh ng dng rng rói trờn th gii qua Internet, VB6 cng s cú cỏc cụng c lp trỡnh cn thit Cỏc n bn Visual Basic Cú ba n bn VB6: Learning, Professional v Enterprise Chỳng ta hóy gt qua n bn Learning Chỳng ta cú th dựng n bn Professional hay Enterprise n bn Professional cung cp y nhng gỡ ngi s dng cn hc v trin khai mt chng trỡnh VB6, nht l cỏc control ActiveX, nhng b phn lp trỡnh tin ch v rt hu dng cho cỏc chng trỡnh ng dng (application programs) ca ngoi s dng tng lai Ngoi a compact chớnh cho VB6, ti liu ớnh kốm gm cú sỏch Visual Studio Professional Features v hai a CD Microsoft Developer Network (MSDN) n bn Enterprise l n bn Professional cng thờm cỏc cụng c Back Office chng hn nh SQL Server, Microsoft Transaction Server, Internet Information Server Ci t VB6 ci t VB6, mỏy tớnh ca ngi s dng cn phi cú mt a CD-ROM (CD drive), Ngi s dng cn ớt nht 32MB RAM, 2GB hard disk v CPU Pentium II Khi b VB6 CD vo CD drive, nú s t ng display menu cho ngi s dng chn nhng th gỡ cn Setup, hóy click Install Visual Basic 6.0 ci VB6 Ngoi tr cỏc file h iu hnh (Operating System) th mc (folder) \Os, cỏc file a compact u khụng b nộn Vỡ th, ngi s dng cú th s dng chỳng trc tip t a Vớ d, cú nhiu cụng c v thnh phn folder \Tools cú th c ci t trc tip t CD-ROM Ngoi ra, ngi s dng cú th chy Setup no cn thit Vớ d, ngi s dng cú th chy Setup ci t li Visual Basic folder khỏc, hoc ci t thờm bt cỏc phn ca VB6 Nu vỡ lý gỡ h thng khụng install cỏc a compact MSDN (ngi s dng s khỏm phỏ iu ny thy Help khụng cú mt lỳc chy VB6), ngi s dng cú th ci t chỳng trc tip t a s ca b MSDN b xung v xúa cỏc thnh phn VB: B a compact vo CD drive Nu menu khụng t ng hin lờn thỡ chy chng trỡnh Setup cú sn Folder gc trờn a compact Chn nỳt Custom hp thoi (dialog) Microsoft Visual Basic 6.0 Setup Chn hay xúa cỏc thnh phn bng cỏch check hay uncheck cỏc hp danh sỏch Options ca dialog Custom Thc hin cỏc ch dn Setup trờn mn hỡnh Ghi chỳ: Trong lỳc ci VB6, nh chn Graphics nu khụng ngi s dng s thiu mt s hỡnh nh nh icons, bitmaps v.v ỏng l Microsoft cho t ng ci t Graphics, tc l Default (khụng cú núi gỡ) thỡ ci t Graphics Integrated Development Environment (IDE) ca VB6 Khi ng VB6 ngi s dng s thy m nhiu ca s (windows), scrollbars, v.v v nm chng lờn l New Project dialog õy VB6 cho ngi s dng chn mt nhiu loi cụng trỡnh Hỡnh 2.1 To project mi Chn Standard EXE Mt lỏt sau trờn mn nh s hin giao din ca mụi trng phỏt trin tớch hp (Integrated Development Environment - IDE ) ging nh di õy: Hỡnh 2.2 To form mi IDE ca VB6 bao gm cỏc yu t sau: Menu Bar Cha y cỏc commands m ngi s dng s dng lm vic vi VB6, k c cỏc menu truy cp cỏc chc nng c bit dnh cho vic lp trỡnh chng hn nh Project, Format, hoc Debug Trong Menu Add-Ins cú Add-Ins Manager cho phộp ngi s dng gn thờm nhng menu thiu chy cỏc chng trỡnh li ớch cho vic lp trỡnh Hỡnh 2.3 Gn thờm menu Trong Add-Ins Manager dialog ngi s dng chn mt Add-In ri check mt hay nhiu hp khung Load behavior: Hỡnh 2.4 Danh sỏch cỏc menu cú th gn thờm vo Toolbars (Debug, Edit, form Editor, Standard) Cỏc toolbars cú hỡnh cỏc icons cho phộp ngi s dng click thc hin cụng vic tng ng vi dựng mt menu command, nhng nhanh v tin hn Ngi s dng dựng menu command View | Toolbars (click lờn menu command View cho popupmenu hin ri click command Toolbars) lm cho cỏc toolbars hin hay bin mt i Ngi s dng cú th thay i v trớ mt toolbar bng cỏch nm vo hai gch vertical nm bờn trỏi toolbar ri di toolbar i ch khỏc (nm õy ngha l pointer ca mouse lờn ch chm hỡnh phớa di ri bm xung v gi nỳt bờn trỏi ca mouse, kộo pointer i ni khỏc) Hỡnh 2.5 Ngoi ngi s dng cng cú th sa i cỏc toolbars theo ý thớch bng cỏch dựng Menu command View | Toolbars | Customize Toolbox õy l hp ngh vi cỏc cụng c, gi l controls, m ngi s dng cú th t lờn cỏc form lỳc thit k (design) Nu Toolbox bin mt, ngi s dng cú th display nú tr li bng cỏch dựng menu command View | Toolbox Ngi s dng cú th khin toolbox display nhiu controls hn bng cỏch chn Components t context menu (chn Toolbox ri bm nỳt phi ca mouse display context menu) hay dựng menu command Project | Components Ngoi vic trỡnh by Toolbox mc nh, ngi s dng cú th to cỏch trỡnh by khỏc bng cỏch chn Add Tab t context menu v b sung cỏc control cho tab t kt qu Hỡnh 2.6 Gn thờm components Project Explorer S lit kờ cỏc forms v cỏc modules project hin hnh ca ngi s dng Mt project l s hp cỏc files m ngi s dng to mt trỡnh ng dng Tc l, VB6, núi vit mt program cú ngha l trin khai mt project 10 DBS.Refresh Combo1.Text = "" Combo3.Text = "" Combo4.Text = "" Combo5.Text = "" Set rs = Conn.Execute("select count(*) as solan from view2 where tenNhaSX= " & "'" & Combo2.Text & "'") Text3.Text = rs("solan").Value Label9.Caption = "Thiết bị của" & Combo2.Text Exit Sub 1: MsgBox "Có lỗi" End Sub Private Sub Combo3_Click() On Error GoTo Dim SQL As String SQL = "select * from view2 where tenPhong= " & "'" & Combo3.Text & "'" DBS.RecordSource = SQL DBS.Refresh DBS.Refresh Combo2.Text = "" Combo1.Text = "" Combo4.Text = "" Combo5.Text = "" Set rs = Conn.Execute("select count(*) as solan from view2 where tenPhong= " & "'" & Combo3.Text & "'") Text3.Text = rs("solan").Value Exit Sub 60 1: MsgBox "Có lỗi" End Sub Private Sub Combo4_Click() On Error GoTo Dim SQL As String SQL = "select * from view2 where tinhTrang= " & "'" & Combo4.Text & "'" DBS.RecordSource = SQL DBS.Refresh DBS.Refresh Combo2.Text = "" Combo3.Text = "" Combo1.Text = "" Combo5.Text = "" Set rs = Conn.Execute("select count(*) as solan from view2 where tenTrang= " & "'" & Combo4.Text & "'") Text3.Text = rs("solan").Value Exit Sub 1: MsgBox "Có lỗi" End Sub Private Sub Combo5_Click() On Error GoTo Dim SQL As String SQL = "select * from view2 where hienThoi= " & "'" & Combo5.Text & "'" DBS.RecordSource = SQL 61 DBS.Refresh DBS.Refresh Combo2.Text = "" Combo3.Text = "" Combo4.Text = "" Combo1.Text = "" Set rs = Conn.Execute("select count(*) as solan from view2 where hienThoi= " & "'" & Combo5.Text & "'") Text3.Text = rs("solan").Value Exit Sub 1: MsgBox "Có lỗi" End Sub Private Sub Form_Load() On Error GoTo DBS.ConnectionString = strConn DBS.RecordSource = "select * from vw_xemAll" DBS.Refresh napCombo Exit Sub 1: MsgBox "Có lỗi" End Sub Private Sub Form_Resize() On Error Resume Next FrmTim.Top = Me.ScaleHeight - FrmTim.Height - InDanhSach.Height InDanhSach.Top = Me.ScaleHeight - InDanhSach.Height KetThuc.Top = InDanhSach.Top 62 'XoaTK.Top = InDanhSach.Top TimKiem.Top = InDanhSach.Top DBNoiDung.Width = Me.ScaleWidth - DBNoiDung.Left DBNoiDung.Height = Me.ScaleHeight - FrmTim.Height InDanhSach.Height - FrmTim.Height DBInAn.Top = DBNoiDung.Top DBInAn.Left = DBNoiDung.Left DBInAn.Width = DBNoiDung.Width DBInAn.Height = DBNoiDung.Height + FrmTim.Height End Sub Private Sub KetThuc_Click() Unload Me End Sub Private Sub TimKiemCT() Dim SQL As String, rs As ADODB.Recordset, t As String Tsql = "" WhereIssL "maTB", "Text2" WhereIssL "tenTB", "Text1" If Len(Tsql) > Then Tsql = Right(Tsql, Len(Tsql) - 4) SQL = "SELECT * FROM view2 WHERE " & Tsql & " Order by maTB" Else SQL = "SELECT * FROM view2 Order by maTB" End If DBS.RecordSource = SQL DBS.Refresh End Sub 63 Sub WhereIssL(FleldName As String, ControlName As String) Dim S As String If Me(ControlName).Text "" Then S = "AND " & FleldName & " LIKE '" & Me(ControlName).Text & "%' " Else S = "" End If Tsql = Tsql & S End Sub Private Sub KetThuc2_Click() DBS.ConnectionString = strConn DBS.RecordSource = "select * from vw_xemAll" DBS.Refresh End Sub Private Sub SSCommand1_Click() Unload Me End Sub Private Sub Text1_Change() Call TimKiemCT Text2.Text = "" End Sub Private Sub Text2_Change() Call TimKiemCT Text1.Text = "" End Sub 64 Private Sub XoaTK_Click() DBS.ConnectionString = strConn DBS.RecordSource = "select * from vw_xemAll" DBS.Refresh Text1.Text = "" Text2.Text = "" Combo1.Clear Combo2.Clear Combo3.Clear Combo4.Clear Combo5.Clear napCombo End Sub Private Sub napCombo() Set rs = Conn.Execute("select * from loaiTB") While Not rs.EOF Combo1.AddItem (rs("tenLoaiTB")) rs.MoveNext Wend 'nap comboboxNSX Set rs = Conn.Execute("select * from nhaSX") While Not rs.EOF Combo2.AddItem (rs("tenNhaSX")) rs.MoveNext Wend ' Set rs = Conn.Execute("select * from phong") While Not rs.EOF Combo3.AddItem (rs("tenPhong")) rs.MoveNext 65 Wend ' End Sub + Modun bn giao Private Sub cmbp_Click() Combo1.Clear Set rs = Conn.Execute("select * from NV where maPhong= " & "'" & cmbp.Text & "'") While Not rs.EOF Combo1.AddItem (rs("tenNV")) rs.MoveNext Wend Combo1.SetFocus txtmanv.Text = "" End Sub Private Sub Combo1_Click() Set rs = Conn.Execute("select * from NV where tenNV=" & "'" & Combo1.Text & "' and maPhong= " & "'" & cmbp.Text & "'") txtmanv.Text = rs("maNV") cmbcv.Text = rs("chucVu") End Sub Private Sub Command1_Click() strSQL = "insert into banGiao values('" & txtma.Text & "','" & txtmanv.Text & "','" & cmbtt.Text & "','" & todate(DTPicker1.Value) & "')" Conn.Execute (strSQL) strSQL = "update TB set tinhTrang='" & cmbtt.Text & "', hienThoi='Không cho mợn ' where maTB='" & txtma.Text & "'" 66 Conn.Execute (strSQL) DataG.ConnectionString = strConn DataG.RecordSource = "select * from vw_BG where hienThoi='Có thể mợn'" DataG.Refresh Command1.Enabled = False Command2.Enabled = True Command4.Enabled = True End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() Command1.Enabled = True Command2.Enabled = False Command4.Enabled = False End Sub Private Sub Command5_Click() txtma.Text = "" txtmanv.Text = "" Check1.Value = False txtngay.Enabled = False txttennv.Text = "" txttentb.Text = "" End Sub Private Sub DBHangHoa_Click() 67 txtma.Text = DBHangHoa.Columns(0).Value txttentb.Text = DBHangHoa.Columns(1).Value cmbloai.Text = DBHangHoa.Columns(2).Value cmbsx.Text = DBHangHoa.Columns(4).Value cmbtt.SetFocus End Sub Private Sub Form_Load() DataG.ConnectionString = strConn DataG.RecordSource = "select * from vw_BG where hienThoi='có thể mợn'" DataG.Refresh Set rs = Conn.Execute("select * from loaiTB") While Not rs.EOF cmbloai.AddItem (rs("tenLoaiTB")) rs.MoveNext Wend 'nap comboboxNSX Set rs = Conn.Execute("select * from nhaSX") While Not rs.EOF cmbsx.AddItem (rs("tenNhaSX")) rs.MoveNext Wend ' Set rs = Conn.Execute("select * from phong") While Not rs.EOF cmbp.AddItem (rs("maPhong")) rs.MoveNext Wend 'txtngay.Text = Date 68 End Sub + Modun thu hi Private Sub cmbp_Click() Combo1.Clear Set rs = Conn.Execute("select * from NV where maPhong= " & "'" & cmbp.Text & "'") While Not rs.EOF Combo1.AddItem (rs("tenNV")) rs.MoveNext Wend Combo1.SetFocus txtmanv.Text = "" End Sub Private Sub Combo1_Click() Set rs = Conn.Execute("select * from NV where tenNV=" & "'" & Combo1.Text & "' and maPhong= " & "'" & cmbp.Text & "'") txtmanv.Text = rs("maNV") cmbcv.Text = rs("chucVu") DataG.ConnectionString = strConn DataG.RecordSource = "select * from view3 where maNV=" & "'" & txtmanv.Text & "' and hienThoi='Không cho mợn'" DataG.Refresh DBHangHoa.SetFocus End Sub Private Sub Command1_Click() On Error GoTo 69 strSQL = "insert into thuHoi values('" & txtma.Text & "','" & txtmanv.Text & "','" & cmbtt.Text & "','" & todate(DTPicker1.Value) & "')" Conn.Execute (strSQL) strSQL = "update TB set tinhTrang='" & cmbtt.Text & "', hienThoi='Có thể mơn ' where maTB='" & txtma.Text & "'" Conn.Execute (strSQL) DataG.ConnectionString = strConn DataG.RecordSource = "select * from view3 where hienThoi='Không cho mợn'" DataG.Refresh Command1.Enabled = False Command2.Enabled = True Command4.Enabled = True Exit Sub 1: MsgBox "CO LOI" End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() Command1.Enabled = True Command2.Enabled = False Command4.Enabled = False End Sub Private Sub Command5_Click() 70 On Error GoTo txtma.Text = "" txtmanv.Text = "" DataG.ConnectionString = strConn DataG.RecordSource = "select * from view3 where hienThoi='Không cho mợn'" DataG.Refresh txttentb.Text = "" Exit Sub 1: MsgBox "CO LOI" End Sub Private Sub DBHangHoa_Click() On Error GoTo txtma.Text = DBHangHoa.Columns(0).Value txtmanv.Text = DBHangHoa.Columns(1).Value txttentb.Text = DBHangHoa.Columns(2).Value cmbloai.Text = DBHangHoa.Columns(3).Value cmbsx.Text = DBHangHoa.Columns(6).Value cmbtt.SetFocus Exit Sub 1: MsgBox "CO LOI" End Sub Private Sub Form_Load() On Error GoTo DataG.ConnectionString = strConn 71 DataG.RecordSource = "select * from view3 where hienThoi='Không cho mợn'" DataG.Refresh Set rs = Conn.Execute("select * from loaiTB") While Not rs.EOF cmbloai.AddItem (rs("tenLoaiTB")) rs.MoveNext Wend Set rs = Conn.Execute("select * from nhaSX") While Not rs.EOF cmbsx.AddItem (rs("tenNhaSX")) rs.MoveNext Wend Set rs = Conn.Execute("select * from phong") While Not rs.EOF cmbp.AddItem (rs("maPhong")) rs.MoveNext Wend Exit Sub 1: MsgBox "CO LOI" End Sub 72 Danh mc v ni dung a CD kốm theo + Mó ngun ca chng trỡnh Qun lý thit b phũng + Bỏo cỏo ỏn tt nghip + Cỏc phn mm h tr chy chng trỡnh: Crystar Report 8.5, Component kốm theo TDBGrid 6.0 Mt s chỳ ý s dng chng trỡnh + Trc chy chng trỡnh ci t Crytar Report 8.5 a CD kốm theo + Ci t SQL Server 2000 qun lý c s d liu ca h thng (vi User: sa khụng t Password) + Ci t Visual Basic 6.0 + Ci t cỏc Component h tr th mc Component + Copy ton b cỏc file th mc Chuongtrinh \Tool trờn a CD ti th mc C:\WINDOWS\system32 + Sau ci t cỏc phn mm h tr kt ni chng trỡnh vi c s d liu SQL Server 2000 bng cỏch vo th mc Chuongtrinh + Attach file QLTB.mdf th mc Chuongtrinh\Data vo SQL Server 2000 to c s d liu cho chng trỡnh + Vo th mc Chuongtrinh m file QLTB.ini i li tờn mỏy ch (theo hng dn) 73 TI LIU THAM KHO [1] Nguyễn Văn Ba , Phân tích thiết kế hệ thống thông tin NXB ĐHQG Hà nội, 2004 [2] Phm Hu Khang, Lp trỡnh ng dng chuyờn nghip SQL SERVER 2000 NXB LAO NG-X HI, 2003 [3] Nguyn Th Ngc Mai, Microsoft Visual Basic & Lp trỡnh c s d liu 6.0 NXB Giỏo Dc,2000 74 [...]... viên phòng Tổ chức lao động của công ty Kết thúc quá trình khảo sát tại công ty, em thu được nhiều thông tin cần thiết cho việc giải quyết và xây dựng bài toán quản lý thiết bị 3.1.2 Quy trình sử dụng thiết bị văn phòng trong công ty, cơ quan Đầu tiên người quản lý sẽ yêu cầu phòng kế hoạch xem xét về tình hình các thiết bị trong công ty Để từ đó sẽ ra quyết định mua về công ty các thiết bị văn phòng. .. đến các thiết bị văn phòng Nếu muốn tồn tại và phát triển mạnh trước hết phải quản lý tốt vấn đề từ phía trong của công ty Để phục vụ cho việc giải quyết bài toán của mình, em đã được tạo điều kiện đến khảo sát tại công ty cổ phần Hải Nguyên Trong thời gian tìm hiểu tại công ty em đã được tạo điều kiện khảo sát quy trình sử dụng thiết bị căn phòng của công ty Trong quá trình khảo sát tại công ty, Em... được những khó khăn của công ty hiện nay Em đã có đưa ra giải pháp để có thể khắc phục khó khăn trên : Đó là xây dựng một chương trình quản ly thiết bị văn phòng cho công ty Để phục vụ cho việc quản lý thiết bị văn phòng của công ty Chương trình này sẽ khắc phục được những khó khăn mà một công ty đang đối mặt + Khắc phục được tình trạng khi công ty mua thêm nhiều thiết bị văn phòng cùng lúc, các thủ... hợp và cần thiết trong công ty Từ các thiết bị đã được mua về, người quản lý sẽ trực tiếp xem xét quyết định thiết bị nào sẽ được bàn giào cho phòng ban nào, nhân viên nào trong công ty Khi một nhân viên được nhận sử dụng thiết bi vẫn có thể bị thu hồi nếu thiết bị đấy không cần thiết cho nhân viên, phòng ban ấy nữa Trong quá trình sử dụng thiết bị, nếu thiết bị đấy bị hỏng thi nhân viên phải viết phiếu... Server  Ngoài một số công cụ trực quan như trên chúng ta cũng thường hay dùng osql và bcp (bulk copy) trong command prompt 22 CHƯƠNG 3 PHÂN TÍCH VÀ THIẾT KẾ HỆ THỐNG CHƯƠNG TRÌNH 3.1 Khảo sát hệ thống quản lý thiết bị văn phòng tại công ty TNHH cổ phần Hải Nguyên 3.1.1 Khảo sát : Trong thực tế quản lý các thiết bị văn phòng là một vấn đề rất được quan tâm đối với mỗi một công ty bất kỳ Không một doanh... thông tin về các phòng ban gắn liền với mỗi một thiết bị đó Vì vậy việc quản lý sẽ gặp nhiều khó khăn trở ngại + Hiện nay trong quá trình mở cửa hội nhập, công việc ngày càng nhiều vì vậy công ty thường xuyên phải bổ xung thêm nhiều thiết bị mới và loại bỏ nhưng thiết bị không đáp ứng được nhu cầu công việc tại công ty Mỗi lần nhập thiết bị mới về thì thường nhập với số lượng lớn thiết bị Trong quá trình... + Đối với công ty với nhiều thiết bị văn phòng việc quản lý thông tin khá vất vả Hiện nay tại công ty, đã phải trả lương cho một nhân viên chuyên làm nhiệm kiểm tra, thống kê tình trạng thiết bị trong công ty Chính vì vậy mà công việc nhân viên theo dõi quá nhiều Nhưng hiệu quả không cao vì số lượng thông tin lưu trữ quá lớn, nhân viên theo dõi ngoài thông tin về các thiết bị ra thì còn phải quan tâm... quản lý thiết bị văn phòng thì công ty sẽ tiết kiệm được nhiều thời gian để giải quyết công việc, giảm bớt nhân lực tại các công đoạn quản lý hồ sơ, sổ sách, báo cáo, tìm kiếm thông tin khi tra cứu 25 3.2 Phân tích hệ thống về xử lý Mô hình chức năng của bài toán như sau Quản lý thiết bị Cập nhật danh mục Xử lý công việc Xử lý yêu cầu Báo cáo Cập nhất danh mục loai TB Bàn giao thiết bị Xem thông tin... thông tin lớn 24 + Một vấn đề mà công ty TNHH Cổ Phần Hải Nguyên cũng như nhiều công ty khác đang gặp phải đó là: máy in bị sử dụng quá nhiều, nhiều nhân viên trong công ty đã sử dụng mực và giấy in mà không đúng voi quy định của công ty Nhưng người quản lý không kiểm tra được việc này và số lượng mực và giấy in trong một tháng là rất lớn Gây ra nhiều lãng phí trong công ty 3.1.4 Biện pháp khắc phục Trong... Trong quá trình nhập thêm thiết bị mới về gây khó khăn về tốc độ xử lý của công việc với cả người quản lý và nhân viên + Khi cần có những thông tin để giải đáp các thắc mắc của người quản lý về một thiết bị hoặc các công việc khác liên quan đến các thiết bị thì việc tìm kiếm thông tin sẽ rất khó khăn, gây tốn kém về thời gian để xử lý công việc làm chậm tiến độ thực hiện công việc + Quá trình thống ... thiết bi quan, công ty mà không cần phải sử dụng thêm nhân viên vào công việc Chương trình giúp người quản lý bi t thiết bi phòng nào, nhân viên sử dụng cung bi t nhân viên dang sử dụng thiết bi. .. menu command View | Toolbox Người sử dụng khiến toolbox display nhiều controls cách chọn Components từ context menu (chọn Toolbox bấm nút phải mouse để display context menu) hay dùng menu command... trình View Code button Click lên nút nầy để xem code form mà người sử dụng chọn Window code giống đây: Hình 2.8 Code giao diện Trong Code window người sử dụng chọn display tất Sub code lúc hình