Phần mềm Quản lý tài sản cố định

Ngôn ngữ Visual Basic ngày càng được sử dụng rộng rãi trong các đề án, chương trình thực hiện trong và ngoài nước. Visual Basic được xem là một công cụ phát triển phần mềm thông dụng hiện nay

LỜI CẢM ƠN Hơn bốn năm học vất vả đầy thú vị trôi qua, ngày trường đến gần, chúng tôi, sinh viên lớp tin 4, trường Đại học Quản lý Kinh doanh Hà Nội hoàn tất nốt trang cuối Luận văn tốt nghiệp Luận văn kết học tập, rèn luyện bốn năm học tháng thực tập Để hồn thành luận văn này, nhận nhiều bảo, hướng dẫn thầy, cố giáo, động viên, giúp đỡ bạn bè, gia đình… Tơi xin bày tỏ lịng biết ơn Thầy, giáo trường Đại Học Quản lý Kinh doanh Hà Nội, đặc biệt Thầy giáo hướng dẫn trực tiếp, giảng dạy, truyền thụ kiến thức quý báu, tạo điều kiện thuận lợi cho suốt trình học tập trường Xin gửi lời cảm ơn đến người thân gia đình, bạn bè giúp đỡ, động viên trỡnh thc hin lun Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hµ Néi LỜI GIỚI THIỆU Trong thời đại ngày nay, tổ chức, cá nhân nào, từ doanh nghiệp tư nhân đến quan nhà nước, hay tổ chức xã hội tất không sử dụng công nghệ thông tin để phát triển tồn Các hoạt động nhà nước, mà quản lý tài sản phần nhỏ, không nằm quy luật Hàng năm, nhà nước ta tiến hành kiểm kê tài sản cố định để nhằm nắm số lượng, chất lượng, giá trị thực trạng sử dụng tài sản cố định sử dụng quan nhà nước Tài sản cố định tất tài sản có nguồn gốc từ vốn nhà nước, đơn vị hành sử dụng Việc kiểm kê bao gồm nhiều công đoạn như: Xác định trạng, định giá lại tài sản, lập phiếu kiểm kê, thống kê số liệu, lưu giữ liệu…Công việc đòi hỏi số lượng lớn thời gian, nhân lực, vật lực Chính vậy, tơi chọn đề tài Quản lý tài sản cố định làm đề tài cho Luận văn tốt nghiệp Chương trình viết nhằm mục đích tin học hố hoạt động để giảm bớt chi phí thời gian cho cơng việc thống kê, tìm kiếm, lập phiếu kiểm, lưu giữ liệu Chương trình áp dụng TP Hà Nội Công tác quản lý, thống kê tài sản cố định toán lớn, phức tạp Trong đó, thời gian để thực đồ án có hạn, kinh nghiệm lập trình, hiểu biết nghiệp vụ thực tế cịn hạn chế, nên chắn chương trình phần mềm luận văn cịn nhiều hạn chế Tơi mong nhận đóng góp ý kiến, bảo thầy, giáo, bạn có quan tõm n ti ny Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hµ Néi PHẦN I : GIỚI THIỆU NGƠN NGỮ VISUAL BASIC Ngôn ngữ Visual Basic ngày sử dụng rộng rãi đề án, chương trình thực nước Visual Basic xem công cụ phát triển phần mềm thông dụng Sau phiên Visual Basic 1.0 Visual Basic 2.0, chạy nhanh hơn, dễ sử dụng Đến Visual Basic 3.0 bổ sung thêm số phương thức đơn giản, dễ điều khiển sở liệu Visual Basic 4.0 bổ sung thêm hỗ trợ phát triển 32 bit bắt đầu tiến trình chuyển Visual Basic thành ngơn ngữ lập trình hướng đốI tượng Visual Basic 5.0 bổ sung khả tạo điều khiển riêng Visual Basic 6.0 có thêm nhiều chức mạnh ứng dụng Internet/ Intranet .v.v… Visual Basic gắn liền vớI khái niệm lập trình trực quan, nghĩa thiết kế chương trình, bạn thấy kết qua thao tác Visual Basic cho phép chỉnh sửa cách đơn giản, nhanh chóng giao diện đốI tượng ứng dụng Đó thuận lợI cho ngườI lập trình VớI Visual Basic, việc lập trình Windows trở nên hiệu đơn giản nhiều Một khả Visual Basic khả kết hợp thư viện liên kết động DLL (Dynamic Link Library) DLL phần mở rộng cho Visual Basic, tức xây dựng chương trình có số u cầu mà Visual Basic không đáp ứng đầy đủ ta viết DLL để phụ thêm cho chương trình Các cơng cụ để thiết kế giao diện: Như biết Visual Basic ngôn ngữ lập trình có tính hướng đốI tượng nên cơng việc thiết kế giao diện đơn giản Chúng ta việc tiến hành đưa đốI tượng cần thiết cơng cụ vào Form Qu¶n lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hµ Néi cách kích – kéo sau thay đổI thuộc tính chúng cửa sổ Properties cho phù hợp vớI mục đích lập trình 1.1 Form: Form biểu mẫu mỗI ứng dụng Visual Basic Ta dùng Form nhằm mục đích định vị xếp phận thiết kế giao diện vớI ngườI sử dụng Ta xem Form phận mà chứa phận khác Các thành phần Form ứng dụng tương tác vớI Form khác phận chúng tạo nên giao tiếp cho ứng dụng Form giao diện ứng dụng, Form khác chứa công cụ để nhập liệu, xem xét v.v… Trong nhiều ứng dụng Visual Basic, kích cỡ vị trí biểu mẫu lúc thiết kế kích cỡ mà ngườI dùng gặp vào lúc sử dụng Điều này, có nghĩa Visual Basic cho phép ta thay đổI kích cỡ di chuyển vị trí Form đến nơi hình chạy đề án, cách thay đổI số thuộc tính cửa sổ thuộc tính đốI tượng (Properties Windows ) Thực tế, tính thiếu Visual Basic khả tiến hành thay đổI động để đáp ứng kiện ngườI dùng 1.2 Toolbox (hộp công cụ): Toolbox hộp công cụ chưa biểu tượng, biểu thị cho điều khiển mà ta biểu mẫu bảng chứa đối tượng định nghĩa sẵn Visual Basic Các đối tượng sử dụng Form để tạo thành giao diện cho chương trình ứng dụng Visual Basic Ta coi hộp cơng cụ hộp “đồ nghề” người thiết kế chương trình 1.3 Scrollbar (thanh cuốn): Scrollbar đối tượng cho phép nhận từ người dùng giá trị tuỳ theo vị trí chạy thay cho giá trị số Thanh có số thuộc tính quan trọng sau: Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hà Nội ã Thuc tính Min: xác định cận • Thuộc tính Max: xác định cận • Thuộc tính Value: xác định giá trị tạm thời 1.4 Option Button (Nút chọn): Đối tượng nút chọn (thường dùng nhiều nút) cho phép người dùng chọn lựa chọn đưa Như vậy, thời điểm nút chọn đuợc chọn 1.5 Checkbox( hộp kiểm) Cũng nút chọn, đối tượng hộp kiểm dùng nhiều hộp lần Nhưng khác với nút chọn, hộp kiểm cho phép người dùng lựa hay nhiều điều kiện Như thời điểm có nhiều hộp kiểm chọn 1.6 Label(nhãn) Đối tượng nhãn cho phép người dùng gắn nhãn phận giao diện lúc thiết kế giao diện cho chương trình ứng dụng Các nhãn dùng để hiển thị thông tin không muốn người dùng thay đổi Trong thực tế, nhãn thường dùng để định danh hộp văn điều khiển khác việc mơ tả nội dung điều khiển Một công cụ phổ biến cho việc hiển thị thông tin trợ giúp, 1.7 Picturebox, Image ( hộp ảnh, điều khiển ảnh ) Đối tượng Image Picturebox dùng để hiển thị ảnh Nó cho phép người thiết kế đưa hình ảnh từ file ảnh ( bmp , gif …) lên Form 1.8 Textbox ( hộp văn ) Đối tượng Textbox dùng làm hộp nhập liệu cho phép đưa chuỗi ký tự vào Form Có thể dùng hộp văn để nhập liệu hin Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hà Nội th Tất công cụ windows chỉnh sửa văn : cut, copy, paste dùng hộp văn 1.9 Command Button ( nút lệnh ) Khi người dùng kích vào nút lệnh biểu mẫu, thao tác thực tuỳ theo thủ tục kiện viết để đáp ứng kiện kích chuột 1.10 Listbox ( hộp danh sách ) Đối tượng Listbox cho phép kết xuất thơng tin nhiều chuỗi kí tự vào thơng qua phương thức additem Thường dùng để hiển thị thông tin dạng danh sách có liên quan với Listbox khơng cho phép người dùng nhập liệu vào 1.11 Combo box ( hộp kết hợp ) Công cụ cho phép người dùng gõ vào thông tin hiển thị thông tin có tác dụng hộp danh sách hộp văn Hộp kết hợp có loại: - Hộp kết hợp thả xuống ( drop-down combo ) : hộp văn cho phép người dùng gõ vào, kế bên có mũi tên mà nhấn vào xổ danh sách cho phép người sử dụng chọn lựa - Hộp kết hợp đơn giản ( simple combo ) : hiển thị danh sách cho phép người dùng gõ vào hộp văn - Hộp danh sách thả xuống ( drop- down list box) : tương tự hộp kết hợp thả xuống Danh sách không hiển thị sẵn người dùng không nhấn vào mũi tên bên cạnh người sử dụng chọn từ danh sách, gõ vào hộp văn danh sách cuộn đến phần tử yêu cầu đánh dấu Quản lý tài sản cố định Trờng Đại học Quản lý vµ kinh doanh Hµ Néi 1.12 Ole ( đối tượng nhúng ) Ole viết tắt Object - Linking and Embedding Nó cho phép ta nhúng tồn ứng dụng liệu từ ứng dụng khác vào chương trình Ole khơng hệ thống cho phép nhúng hay kết nối liệu từ ứng dụng khác mà vào thời gian chạy chương trình ta có ứng dụng chương trình ta Nó có khả automation cho phép đóng gói đối tượng chức ứng dụng để sử dụng ứng dụng khác 1.13 Project explorer Project explorer Visual Basic 6.0 giúp quản lý định hướng đề án, biểu mẫu, module,… Visual Basic cho phép tổ chức nhiều đề án nhóm gọi project groups Ta lưu tập hợp đề án Visual Basic thành tập tin nhóm đề án Các tập tin có phần mở rộng Vbg 1.14 Propeties windows ( cửa sổ thuộc tính ) Là nơi chứa danh sách thuộc tính đối tượng cụ thể Các thuộc tính khác với đối tượng cụ thể Ta đặt thuộc tính cho phù hợp với chương trình ứng dụng Lập trình với ngơn ngữ Visual Basic Ở phần một, biết tuỳ biến biểu mẫu cách bổ xung điều khiển vào cho phù hợp với yêu cầu chương trình Tuy nhiên, coi mặt chương trình Muốn chương trình chạy phải thêm vào thành phần khác lệnh, liệu cách thức thể hiển chúng chương trình Khi lập trình Visual Basic phần lớn mã xử lý để đáp ứng kiện Ví dụ kiện kích chuột, bấm phím, load form…Các dịng mã thi hành chương trình Visual Basic phải nằm Qu¶n lý tài sản cố định Trờng Đại học Quản lý vµ kinh doanh Hµ Néi thủ tục hàm, dịng lệnh nằm ngồi khơng làm việc Tồn mã lệnh gõ vào cửa sổ code 2.1 Cửa sổ code Cửa số code bao gồm thành phần sau: Thanh tách: cửa sổ code có tách (Split bar) nằm đầu cuộn dọc Mục đích là: dịng mã trở nên nhiều, ta chia cửa sổ code thành phần Hộp liệt kê Object: nằm đầu cửa sổ code bên trái, liệt kê tất điều khiển có biểu mẫu thêm vào đối tượng có tên là: General Khi thả hộp liệt kê nhắp vào đối tượng đưa ta đến phần mã viết cho đối tượng Hộp Procedure: hộp cung cấp kiện mà đối tượng lựa chọn hộp liệt kê object 2.2 Intellisence: Intellisence cơng cụ thơng minh, giúp ta đỡ công gõ tra cứu Intellisence mở hộp liệt kê với thông tin đối tượng mà ta tiếp cận Nó có phần: - QuickInfo: cho ta thông tin cú pháp lệnh Visual Basic Mỗi nhập từ khoá theo sau dấu cách dấu chấm .một hộp thoại cung cấp cú pháp thành phần - List properties/Methods: tính đưa danh sách tính chất phương pháp đối tượng ta gõ dấu chấm - Available constant : tính cung cấp danh sách sẵn có 2.3 Biến Trong Visual Basic, tên biến dài tối đa 255 kí tự Kí tự phải chữ tên biến tổ hợp chữ cái, chữ số dấu Qu¶n lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hµ Néi gạch Khơng dùng từ khoá Visual Basic ( end, print .) làm tên biến Visual Basic không phân biệt chữ hoa, chữ thường Cách khai báo biến: Dim as Phạm vi sử dụng biến phụ thuộc vào cách khai báo biến vị trí đặt dịng lênh khai báo 2.4 Các kiểu liệu: - String: biến string lưu giữ kí tự Một chuỗi có hay nhiều kí tự - Integer: biến nguyên lưu giữ giá trị số nguyên từ -32768 đến +32767 - Long Integer: biến số nguyên dài lưu giữ số nguyên giữa: -2147483648 đến +214783647 - Single precision: số có phần thập phân gồm: Single precision có độ xác đến chữ số double precision có độ xác lên đến 16 vị trí - Currency: Biến tiền tệ kiểu Kiểu cho ta 15 chữ số trước dấu thập phân chữ số sau dấu thập phân - Date: kiểu liệu ngày tháng - Byte: kiểu byte lưu giữ số nguyên từ đến 255 - Boolean: kiểu logic với giá trị True/False - Variant: kiểu thiết kế để lưu liệu khác Visual Basic 2.5 Các tốn tử: 2.5.1 Các tốn tử tính tốn Quản lý tài sản cố định Trờng Đại học Quản lý vµ kinh doanh Hµ Néi Các Ý nghĩa tốn tử + * / \ Mod ^ Ví dụ Có thể dùng để cộng hai toán hạng hai chuỗi với trừ số hạng Nhân số hạng Chia, trả kiểu số thực Chia lấy nguyên Chia lấy dư Lấy luỹ thừa X=y+1 A=”A”+”B” X=y-1 X=y*2 Y=4/2 X=3\2(x=1) X=7 mod (x=3) X=y^3 (X=y3) 2.5.2 Các toán tử so sánh: Toá Ý nghĩa n tử > < = >= End If 10 Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hà Nội lisLoaiDT.AddItem "Hình Tròn,2D", lisLoaiDT.AddItem "Cét, 3D", End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = Then Child_Unload Me End Sub Private Sub lisLoaiDT_dblClick() Command1_Click End Sub Các Modul 2.1 Modul:cCodeNTS Option Explicit Public Const Them = Public Const Sua = Public MaNhom As String Function CodeNTS(MaLoai As String) Dim soN As Integer Dim Ma As String Dim MaTaiSan As String Dim rsLTS As ADODB.Recordset Set rsLTS = New ADODB.Recordset 129 Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hµ Néi rsLTS.Open "tblLoaiTS_master", cnn, adOpenDynamic, adLockOptimistic With rsLTS MoveFirst While Not (.EOF) If !TenloaiTS = MaLoai Then Ma = !MaloaiTS soN = !sonhom End If MoveNext Wend End With If soN < Then MaTaiSan = Right(Ma, 1) & "00" & Trim(str(soN + 1)) ElseIf soN < 99 Then MaTaiSan = Right(Ma, 1) & "0" & Trim(str(soN + 1)) Else MaTaiSan = Right(Ma, 1) & Trim(str(soN + 1)) End If CodeNTS = MaTaiSan End Function 2.2 Modul: Init Option Explicit Public Sub Set_Panel() 130 Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hµ Néi Dim today As Date frmMDI.StatusBar.Panels.Clear Set mypanel = frmMDI.StatusBar.Panels.Add(1) mypanel.AutoSize = sbrContents 'mypanel.Width = 3000 Set mypanel = frmMDI.StatusBar.Panels.Add(2) mypanel.AutoSize = sbrSpring Set mypanel = frmMDI.StatusBar.Panels.Add(3) mypanel.AutoSize = sbrNoAutoSize mypanel.Width = Set mypanel = frmMDI.StatusBar.Panels.Add(4, , , sbrIns) mypanel.AutoSize = sbrContents mypanel.Bevel = sbrInset mypanel.Alignment = sbrLeft mypanel.Width = Set mypanel = frmMDI.StatusBar.Panels.Add(5, , , sbrCaps) mypanel.AutoSize = sbrContents mypanel.Bevel = sbrInset mypanel.Alignment = sbrLeft mypanel.Width = 131 Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hà Nội Set mypanel = frmMDI.StatusBar.Panels.Add(6, , , sbrTime) today = Now() mypanel.AutoSize = sbrContents mypanel.Bevel = sbrInset mypanel.Alignment = sbrLeft mypanel.Width = 50 Set mypanel = frmMDI.StatusBar.Panels.Add(7, , , sbrDate) mypanel.AutoSize = sbrContents mypanel.Bevel = sbrInset mypanel.Width = 80 mypanel.Alignment = sbrRight End Sub Public Sub Set_Code() CodeTS = Array("00000", "10000", "20000", "30000", "40000", "50000", "60000", "70000") CodeP = "00000" Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "tblLoaiTS_Detail", cnn, adOpenDynamic, adLockOptimistic If rs.EOF And rs.BOF Then Exit Sub rs.MoveLast While Not rs.BOF Select Case rs!MaloaiTS 132 Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hµ Néi Case "001": If Val(CodeTS(1)) < Val(rs!MaTS) Then CodeTS(1) = rs!MaTS Case "002": If Val(CodeTS(2)) < Val(rs!MaTS) Then CodeTS(2) = rs!MaTS Case "003": If Val(CodeTS(3)) < Val(rs!MaTS) Then CodeTS(3) = rs!MaTS Case "004": If Val(CodeTS(4)) < Val(rs!MaTS) Then CodeTS(4) = rs!MaTS Case "005": If Val(CodeTS(5)) < Val(rs!MaTS) Then CodeTS(5) = rs!MaTS Case "006": If Val(CodeTS(6)) < Val(rs!MaTS) Then CodeTS(6) = rs!MaTS Case "007": If Val(CodeTS(7)) < Val(rs!MaTS) Then CodeTS(7) = rs!MaTS End Select rs.MovePrevious Wend rs.Close Set rs = Nothing Set rs = New ADODB.Recordset rs.Open "tblPhieu", cnn, adOpenDynamic, adLockOptimistic If rs.EOF And rs.BOF Then Exit Sub rs.MoveFirst While Not rs.EOF If Val(CodeP) < Val(rs!Maphieu) Then CodeP = rs!Maphieu rs.MoveNext Wend 133 Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hà Nội End Sub Public Sub Set_Font() Default.Name = ".vnArial" Default.Size = 12 Default.Bold = Default.Italic = End Sub Public Sub Set_Menu() Dim mnu As Control Dim i As Integer On Error GoTo errh For Each mnu In frmMDI.Controls If TypeOf mnu Is Menu Then mnu.Visible = True Next With frmMDI Select Case Skin Case 0: mnuskin1.Checked = True Case 1: mnuSkin2.Checked = True Case 2: mnuSkin3.Checked = True End Select End With With frmMDI Select Case GroupCode Case 0: 134 Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hà Nội Hien " HÃy đăng nhập để khai thác chức chơng tr×nh " For Each mnu In frmMDI.Controls If TypeOf mnu Is Menu Then mnu.Visible = False Next mnuHeThong.Visible = True mnuLogOn.Visible = True mnuThoat.Visible = True mnuTroGiup.Visible = True mnuHuongDan.Visible = True mnuAbout.Visible = True mnuSep0.Visible = True '.mnuPhuLuc.Visible = True Toolbar.Visible = False Case 1: Toolbar.Visible = True Case 2: mnuAdmin.Visible = False Toolbar.Visible = True Case 3: mnuAdmin.Visible = False mnuSoLieu.Visible = False mnuHaomon.Visible = False Toolbar.Visible = True End Select If mnuSep10.UBound = Then mnuSep10(0).Visible = False 135 Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hà Nội For i = To mnuWin.UBound mnuWin(i).Visible = False Next Else For i = To mnuWin.UBound mnuWin(i).Visible = True Next End If End With errh: Resume Next End Sub Public Sub Set_Skin(Frm As Form) Dim ctl As Control 'Skin = Select Case Skin Case 0: For Each ctl In Frm.Controls Set_Child_font Frm, ctl If TypeOf ctl Is CommandButton Then ctl.Visible = True If TypeOf ctl Is Mybutton Then ctl.Visible = False If TypeOf ctl Is Label Then ctl.ForeColor = vbBlack ctl.BackColor = bkColor_Standard End If 136 Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hµ Néi If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox _ Or TypeOf ctl Is SSTab _ Then ctl.BackColor = vbWhite '&HF7FEE3 ctl.ForeColor = vbBlack End If If TypeOf ctl Is Frame Or TypeOf ctl Is OptionButton Then ctl.BackColor = bkColor_Standard ctl.ForeColor = &H0 End If Next Frm.BackColor = bkColor_Standard Case 1: For Each ctl In Frm.Controls Set_Child_font Frm, ctl If TypeOf ctl Is CommandButton Then ctl.Visible = False If TypeOf ctl Is Label Then ctl.BackColor = bkColor_Default ctl.ForeColor = vbWhite End If If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox _ Or TypeOf ctl Is SSTab _ 137 Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hà Nội Then ctl.BackColor = vbBlack '&HF7FEE3 ctl.ForeColor = vbWhite End If If TypeOf ctl Is Mybutton Then ctl.Visible = True ctl.SkinPath = App.Path & Skin_Default_Path ctl.LoadSkin ctl.ForeColor = &HFFFFFF ctl.Refresh End If If TypeOf ctl Is Frame Or TypeOf ctl Is OptionButton Then ctl.BackColor = bkColor_Default ctl.ForeColor = &HFFFFFF End If Next Frm.BackColor = bkColor_Default Case 2: For Each ctl In Frm.Controls Set_Child_font Frm, ctl If TypeOf ctl Is CommandButton Then ctl.Visible = False If TypeOf ctl Is Label Then ctl.ForeColor = vbBlack ctl.BackColor = bkColor_White End If 138 Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hµ Néi If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox _ Or TypeOf ctl Is SSTab _ Then ctl.BackColor = vbWhite '&HF7FEE3 ctl.ForeColor = vbBlack End If If TypeOf ctl Is Mybutton Then ctl.Visible = True ctl.SkinPath = App.Path & Skin_White_Path ctl.LoadSkin ctl.ForeColor = &H0& ctl.Refresh End If If TypeOf ctl Is Frame Or TypeOf ctl Is OptionButton Then ctl.BackColor = bkColor_White ctl.ForeColor = &H0 End If Next Frm.BackColor = bkColor_White End Select End Sub 139 Qu¶n lý tài sản cố định Trờng Đại học Quản lý vµ kinh doanh Hµ Néi Public Sub Init_icon() With frmIcon exit.Picture = LoadResPicture(8, vbResBitmap) End With End Sub Public Sub Set_Icon() Dim hMenu As Long, hSubMenu As Long 'get the handle of the menu hMenu = GetMenu(frmMDI.hwnd) hSubMenu = GetSubMenu(hMenu, 0) SetMenuItemBitmaps hSubMenu, 8, MF_BYPOSITION, frmIcon.exit.Picture, frmIcon.exit.Picture End Sub 140 Quản lý tài sản cố định Trờng Đại học Quản lý vµ kinh doanh Hµ Néi KẾT LUẬN Sau năm học tập trường trình nghiên cứu tháng Ban kiểm kê TP.Hà Nội, tự tìm hiểu cơng tác kiểm kê, quản lý tài sản cố định qua tài liệu sách vở, nhận thấy việc học tập, nghiên cứu lý thuyết đôi với thực hành công việc quan trọng để giúp cho việc củng cố kiến thức Từ đó, sinh viên hiểu biết sâu sắc thêm kiến thức chuyên môn Tin Học kiến thức nghiệp vụ Công tác quản lý, thống kê tài sản cố định nghiệp vụ phức tạp Nó địi hỏi nhiều nghiệp vụ đa dạng: kiến thức kỹ thuật để định giá, xác định chất lượng lại tài sản, kiến thức kinh tế, quản lý cho việc thống kê, tính hao mịn… Một lần nữa, tơi xin bày tỏ lịng biết ơn với thầy, giáo, cán công tác trường Đại học Quản lý Kinh Doanh, đặc biệt Thầy giáo hướng dẫn tận tình, bảo, giúp đỡ tơi suốt q trình thực đồ án 141 Qu¶n lý tài sản cố định Trờng Đại học Quản lý vµ kinh doanh Hµ Néi MỤC LỤC Nội dung Lời cảm ơn Lời giới thiệu Phần I Giới thiệu ngôn ngữ Visual Basic Các công cụ để thiết kế giao diện Lập trình với ngơn ngữ Visual Basic Phần II Phần mềm Quản lý tài sản cố định Mục đích nhu cầu thực tế phần mềm Các chức Cơ sở liệu Phần III Mã nguồn Một số Form Một số Modul Kết luận Trang 5 14 14 14 16 22 22 85 92 142 Quản lý tài sản cố định Trờng Đại học Quản lý kinh doanh Hà Nội 143 ... Các chức Phần mềm Quản lý TSCĐ Phần mềm có chức sau: - Quản lý quyền truy cập - Quản lý đơn vị hành (về mặt tài sản) - Quản lý tài sản cố định - Quản lý giao dch 16 Quản lý tài sản cố định Trờng... bị, tài sản cố định khác Vì đặc điểm riêng, ta phân chia tài sản cố định thành tài sản đất tài sản không đất Chức cho phép nhập mới, chỉnh sửa cách chi tiết tài sản cố định Giúp cho người quản lý. .. 2.3 Quản lý Tài sản cố định Đây chức chương trình Chức có liên quan trực tiếp đến chức Bởi vì, quản lý tài sản theo đơn vị Để dễ dàng cho việc quản lý, nhà nước quy định chia tài sản cố định