Chương trình quản lý công văn đến bằng visual basic

Visual Basic Quản lý công văn đến Đề tài: “Chương trình quản lý cơng văn đến Visual Basic” LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý cơng văn đến LỜI NĨI ĐẦU OOO Ngày ,các công nghệ khoa học ,kỹ thuật ngày phát triển vũ bão,trong khoa học máy tính phát triển mạnh mẽ xâm nhập vào lĩnh vực khoa học ,kinh tế ,xã hội ,quản lý , máy tính có đóng góp khả tuyệt vời tới tất lĩnh vực Từ việc xây dựng chương trình khoa học kỹ thuật lớn đến công việc quản lý thường nhật ,máy tính giúp cập nhật ,tìm kiếm lưu trữ thông tin cách tốt Nhưng phần mềm hỗ trợ cho việc sử dụng máy tính hầu ngồi ,điều gây nhiều trở ngại người biết tiếng Anh.Vì phần mềm sử dụng tiếng Việt giúp người sử dụng có hiều công việc.Bên cạnh ngôn ngữ lập trình đa dạng phong phú ,thì ngơn ngữ lập trình Visual Basic có tính cao ,giúp cho người dùng công tác tổ chức ,lập dự án,tìm kiếm,lưu trữ,biểu diễn thơng tin ,tiết kiệm thời gian Phần mềm Visual Basic hãng Microsoft phần mềm phổ biến nước ta nay.Visual Basic ngơn ngữ lập trình trực quan theo hướng đối tượng lấy ngôn ngữ Basic làm gốc Sử dụng phần mềm lập trình hướng đối tượng Windows giúp chương trình dễ sử dụng tiện lợi cho người sử dụng cung cấp khả tạo đối tượng lớp cách sử dụng giao diện thay ngơn ngữ,Visual Basic có giao diện đẹp ,các thao tác đơn giản khơng bị phụ thuộc vào chương trình chương trình lập trình mơi trường DOS.Khả kết nối công cụ truy vấn giúp cho ta tổ chức tìm kiếm thơng tin cách nhanh chóng sở liệu tạo quan hệ ràng buộc LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến Tóm lại ,ngơn ngữ lập trình hướng đối tượng công cụ cần thiết cho người sử dụng cập nhật ,lưư trữ ,tìm kiếm ,xem sửa cách nhanh chóng Với mong muốn áp dụng Visual Basic vào công tác quản lý,em xin thực đề tài : Quản lý công văn đến tập lớn này.Công việc quản lý công văn thủ công phức tạp dễ gây nhầm lẫn thao tác thủ cơng nhàm chán,đồng thời việc tìm kiếm cơng văn lâu khó ,vì có phần mềm hỗ trợ việc sử dụng máy tính để quản lý cơng văn giúp người quản lý dễ dàng Mặc dù cố gắng để hồn thành đề tài cịn hạn chế kinh nghiệm kiến thức nên chương trình cịn nhiều sai sót cần bổ sung.Vì vậy, em mong thầy bạn xem đóng góp ý kiến giúp cho chương trình ngày hồn thiện Cuối ,em xin chân thành cảm ơn thầy giảng viên mơn Lập trình hướng đối tượng qua Visual Basic _Nguyễn Văn Xuất tận tình giảng dạy hướng dẫn em hoàn thành đề tài CHƯƠNG TRÌNH QUẢN LÝ CƠNG VĂN ĐẾN Chương trình Quản lý công văn đến cần đạt yêu cầu tối thiểu sau : LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến + Việc cập nhật ,lưu trữ công văn đến phải đơn giản ,dễ ràng ,tránh sai sót cập nhật + Việc tìm kiếm đơn giản ,nhanh chóng ,chính xác + Việc in ấn cơng văn tiện lợi ,đẹp ,dễ nhìn Trong tập lớn với đề tài Quản lý công văn đến lập ngơn ngữ lập trình hướng đối tượng Visual Basic 4.0 Chương trình sử dụng hệ quản trị sở liệu Access Tên chương trình : “C:\Qlcvd” File sở liệu : “C:\Qlvcd\Qlcvd.mdb” Gồm có bảng : cv Chương trình Quản lý cơng văn đến gồm có Form thực thao tác quản lý công văn đến + Form 1: Form để người sử dụng bắt đầu vào chương trình chính.Giao diện Form logo.Khi vào chương trình Form có chức cho chương trình + Form2 : Form để thao tác với cơng văn đến sửa xố cơng văn,gọi Form khác Form cập nhật để cập nhật công văn đến, Form Xem để xem tồn cơng văn cập nhật ,Form Tìm kiếm để thực thao tác tìm kiễm cơngvăn thoả mãn điều kiện đó,Form In để in ấn công văn LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến + Form3 ( Form capnhat) : người sử dụng cập nhật thơng tin công văn đến loại công văn ,Cơ quan công văn , nội dung, + Form (Form xem) :là Form để người sử dụng xem toàn công văn nhập vào ,Form cho phép thêm cơng văn,sửa ,xố cơng văn gọi chức in công văn + Form (Form timkiem) : giúp người sử dụng tìm kiếm cơng văn thoả mãn điều kiện trường đó.Khi tìm thấy cơng văn thoả mãn điều kiện tìm kiếm tồn trường trường cơng văn tuỳ theo yêu cầu người sử dụng + Form (Form inan) : dùng để in ấn công văn giấy qua máy in CHƯƠNG TRÌNH LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến Mở đầu chương trình Form1 giới thiệu tên chương trình,tại form người sử dụng vào chương trình Quản lý cơng văn đến khỏi chương trình Khi vào chương trình form lấy làm cho chương trình + Form ( Chương trình chính) : Trên Form giúp người sử dụng làm thao tác cơng việc quản lý cơng văn đến.Chương trình cho phép sửa xố cơng văn,gọi Form khác để thực công việc quản lý công văn Cập nhật ,Xem tồn cơng văn cập nhật vào ,tìm kiếm cơng văn ,in cơng văn + From : (Form capnhat) : Form giúp người sử dụng cập nhật thông tin công văn đến để lưu trữ máy tính.Chương trình có chức sử lý số lỗi thường gặp cập nhật vào nhầm ngày tháng ,chương trình thơng báo lỗi báo cho người cập nhật cập nhật lại cho , việc cập nhật chưa hết thông tin + Form : ( Form Xem ) : Form cho phép người sử dụng xem tồn cơng văn cập nhật vào.Tại người sử dụng thêm ,sửa xố cơng văn trực tiếp sở liệu Form cịn cho phép gọi form in để in công văn cần thiết + Form : ( Form timkiem) : Form giúp người sử dụng chương trình tìm kiếm cơng văn theo trường thoả mãn điều kiện tìm kiếm + Form : ( Form in ) : Form cho người sử dụng để in ấn công văn giấy qua máy in theo mẫu quy định trước LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến I.FORM MỞ ĐẦU : Giới thiệu tên đề tài ,tên người thực chương trình , Form có nút lệnh để người sử dụng khỏi chương trình vào chương tình Khi vào chương trình Form làm cho tồn chương trình lên nút có nhãn X cho phép người sử dụng chương trình lúc  Các phương thức xử lý Form mở đầu : Attribute VB_Name = "Form1" Private Sub Command1_Click() Lbl1.Visible = False Command1.Visible = False LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến Command2.Visible = False Label1.Visible = True For i = To Lab1(i).Visible = False Next i Form2.Show End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.Visible = False Lbl2.Visible = False Lbl1.Visible = True End Sub Private Sub Command2_Click() End End Sub LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.Visible = False Lbl1.Visible = False Lbl2.Visible = True End Sub Private Sub Form_Load() Form2.Data1.DatabaseName = App.Path & "\qlcvd.mdb" Form2.Data1.RecordSource = "cv" End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.Visible = True End Sub Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Lbl1.Visible = False 10 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến T.Text = T.Text & " "& Data1.Recordset.Fields("Cơ quan") & ":" & Data1.Recordset.Fields("Ngày ra") & Chr(13) & Chr(10) T.Text = T.Text & " Người ký " & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Người ký") & Chr(13) & Chr(10) End Sub Private Sub cd1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.Left = 840 Label2.Visible = True Label2.Caption = "Chuyển đến công văn " End Sub Private Sub cd2_Click() If thu.Text > Then Data1.Recordset.MovePrevious thu.Text = thu.Text - 76 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến T.Text = "" T.Text = T.Text & " Cộng hoà xã hội chủ nghĩa Việt Nam "& Chr(13) & Chr(10) T.Text = T.Text & " Độc lập - Tự - Hạnh phúc "& Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Loại") & Chr(13) & Chr(10) T.Text = T.Text & " " & Data1.Recordset.Fields("Tên công văn") & Chr(13) & Chr(10) T.Text = T.Text & " Kính gửi: " & Data1.Recordset.Fields("Chuyển cho") & Chr(13) & Chr(10) T.Text = T.Text & "Nội dung: " & Data1.Recordset.Fields("Nội dung") & Chr(13) & Chr(10) T.Text = T.Text & "Mong " & Data1.Recordset.Fields("Chuyển cho") & " thực " & Data1.Recordset.Fields("Loại") & " này" & Chr(13) & Chr(10) T.Text = T.Text & "Thời hạn " & Data1.Recordset.Fields("Loại") & " có hiệu lực: " & Data1.Recordset.Fields("Thời hạn") & " kể từ ngày " & Data1.Recordset.Fields("Loại") & " " & Chr(13) & Chr(10) T.Text = T.Text & "Mức khẩn: " & Data1.Recordset.Fields("Mức khẩn") & Chr(13) & Chr(10) 77 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến T.Text = T.Text & "Độ mật : " & Data1.Recordset.Fields("Độ mật") & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Cơ quan") & ":" & Data1.Recordset.Fields("Ngày ra") & Chr(13) & Chr(10) T.Text = T.Text & " Người ký " & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Người ký") & Chr(13) & Chr(10) Else MsgBox "Bạn chuyển đến công văn đầu tiên", , "In công văn" Exit Sub End If End Sub Private Sub cd2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.Left = 1560 Label2.Visible = True Label2.Caption = " Chuyển công văn đứng trước " End Sub 78 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến Private Sub cd3_Click() If thu.Text < Data1.Recordset.RecordCount Then Data1.Recordset.MoveNext thu.Text = thu.Text + T.Text = "" T.Text = T.Text & " Cộng hoà xã hội chủ nghĩa Việt Nam "& Chr(13) & Chr(10) T.Text = T.Text & " Độc lập - Tự - Hạnh phúc "& Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Loại") & Chr(13) & Chr(10) T.Text = T.Text & " " & Data1.Recordset.Fields("Tên công văn") & Chr(13) & Chr(10) T.Text = T.Text & " Kính gửi: " & Data1.Recordset.Fields("Chuyển cho") & Chr(13) & Chr(10) T.Text = T.Text & "Nội dung: " & Data1.Recordset.Fields("Nội dung") & Chr(13) & Chr(10) 79 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến T.Text = T.Text & "Mong " & Data1.Recordset.Fields("Chuyển cho") & " thực " & Data1.Recordset.Fields("Loại") & " này" & Chr(13) & Chr(10) T.Text = T.Text & "Thời hạn " & Data1.Recordset.Fields("Loại") & " có hiệu lực: " & Data1.Recordset.Fields("Thời hạn") & " kể từ ngày " & Data1.Recordset.Fields("Loại") & " " & Chr(13) & Chr(10) T.Text = T.Text & "Mức khẩn: " & Data1.Recordset.Fields("Mức khẩn") & Chr(13) & Chr(10) T.Text = T.Text & "Độ mật : " & Data1.Recordset.Fields("Độ mật") & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Cơ quan") & ":" & Data1.Recordset.Fields("Ngày ra") & Chr(13) & Chr(10) T.Text = T.Text & " Người ký " & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Người ký") & Chr(13) & Chr(10) Else MsgBox "Bạn chuyển đến công văn cuối cùng", , "In công văn" Exit Sub End If End Sub 80 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến Private Sub Cd3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.Left = 3345 Label2.Visible = True Label2.Caption = " Chuyển tới công văn " End Sub Private Sub cd4_Click() Data1.Recordset.MoveLast thu.Text = Data1.Recordset.RecordCount T.Text = "" T.Text = T.Text & " Cộng hoà xã hội chủ nghĩa Việt Nam "& Chr(13) & Chr(10) T.Text = T.Text & " Độc lập - Tự - Hạnh phúc "& Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Loại") & Chr(13) & Chr(10) T.Text = T.Text & " " & Data1.Recordset.Fields("Tên công văn") & Chr(13) & Chr(10) 81 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến T.Text = T.Text & " Kính gửi: " & Data1.Recordset.Fields("Chuyển cho") & Chr(13) & Chr(10) T.Text = T.Text & "Nội dung: " & Data1.Recordset.Fields("Nội dung") & Chr(13) & Chr(10) T.Text = T.Text & "Mong " & Data1.Recordset.Fields("Chuyển cho") & " thực " & Data1.Recordset.Fields("Loại") & " này" & Chr(13) & Chr(10) T.Text = T.Text & "Thời hạn " & Data1.Recordset.Fields("Loại") & " có hiệu lực: " & Data1.Recordset.Fields("Thời hạn") & " kể từ ngày " & Data1.Recordset.Fields("Loại") & " " & Chr(13) & Chr(10) T.Text = T.Text & "Mức khẩn: " & Data1.Recordset.Fields("Mức khẩn") & Chr(13) & Chr(10) T.Text = T.Text & "Độ mật : " & Data1.Recordset.Fields("Độ mật") & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Cơ quan") & ":" & Data1.Recordset.Fields("Ngày ra") & Chr(13) & Chr(10) T.Text = T.Text & " Người ký " & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Người ký") & Chr(13) & Chr(10) End Sub 82 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến Private Sub cd4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.Left = 3600 Label2.Visible = True Label2.Caption = " Chuyển tới công văn cuối " End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path & "\qlcvd.mdb" Data1.RecordSource = "cv" Data1.Refresh Data1.Recordset.MoveLast sobanin.Text = "" cvthu = Data1.Recordset.RecordCount thu = cvthu T.Text = "" T.Text = T.Text & " Cộng hoà xã hội chủ nghĩa Việt Nam "& Chr(13) & Chr(10) 83 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến T.Text = T.Text & " Độc lập - Tự - Hạnh phúc "& Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Loại") & Chr(13) & Chr(10) T.Text = T.Text & " " & Data1.Recordset.Fields("Tên công văn") & Chr(13) & Chr(10) T.Text = T.Text & " Kính gửi : " & Data1.Recordset.Fields("Chuyển cho") & Chr(13) & Chr(10) T.Text = T.Text & "Nội dung : " & Data1.Recordset.Fields("Nội dung") & Chr(13) & Chr(10) T.Text = T.Text & "Mong " & Data1.Recordset.Fields("Chuyển cho") & " thực " & Data1.Recordset.Fields("Loại") & " này" & Chr(13) & Chr(10) T.Text = T.Text & "Thời hạn " & Data1.Recordset.Fields("Loại") & " có hiệu lực: " & Data1.Recordset.Fields("Thời hạn") & " kể từ ngày " & Data1.Recordset.Fields("Loại") & " " & Chr(13) & Chr(10) T.Text = T.Text & "Mức khẩn: " & Data1.Recordset.Fields("Mức khẩn") & Chr(13) & Chr(10) T.Text = T.Text & "Độ mật : " & Data1.Recordset.Fields("Độ mật") & Chr(13) & Chr(10) 84 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến T.Text = T.Text & " "& Data1.Recordset.Fields("Cơ quan") & ":" & Data1.Recordset.Fields("Ngày ra") & Chr(13) & Chr(10) T.Text = T.Text & " Người ký " & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Người ký") & Chr(13) & Chr(10) End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.Visible = False End Sub Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.Visible = False End Sub Private Sub inan_Click() Dim i, l As Integer 85 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến If sobanin.Text = "" Then MsgBox " Bạn phải nhập vào số cần in !" sobanin.SetFocus Else l = MsgBox("Bạn có muốn in cơng văn không ?", 4, "Nếu in chọn nút Yes") If l = Then T.Text = "" T.Text = T.Text & " Cộng hoà xã hội chủ nghĩa Việt Nam "& Chr(13) & Chr(10) T.Text = T.Text & " Độc lập - Tự - Hạnh phúc "& Chr(13) & Chr(10) T.Text = T.Text & " o0o " & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Loại") & Chr(13) & Chr(10) T.Text = T.Text & " " & Data1.Recordset.Fields("Tên công văn") & Chr(13) & Chr(10) T.Text = T.Text & " Kính gửi : " & Data1.Recordset.Fields("Chuyển cho") & Chr(13) & Chr(10) T.Text = T.Text & "Nội dung : " & Data1.Recordset.Fields("Nội dung") & Chr(13) & Chr(10) 86 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến T.Text = T.Text & "Mong " & Data1.Recordset.Fields("Chuyển cho") & " thực " & Data1.Recordset.Fields("Loại") & " này" & Chr(13) & Chr(10) T.Text = T.Text & "Thời hạn " & Data1.Recordset.Fields("Loại") & " có hiệu lực: " & Data1.Recordset.Fields("Thời hạn") & " kể từ ngày " & Data1.Recordset.Fields("Loại") & " " & Chr(13) & Chr(10) T.Text = T.Text & "Mức khẩn: " & Data1.Recordset.Fields("Mức khẩn") & Chr(13) & Chr(10) T.Text = T.Text & "Độ mật : " & Data1.Recordset.Fields("Độ mật") & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Cơ quan") & ":" & Data1.Recordset.Fields("Ngày ra") & Chr(13) & Chr(10) T.Text = T.Text & " Người ký " & Chr(13) & Chr(10) T.Text = T.Text & " "& Data1.Recordset.Fields("Người ký") & Chr(13) & Chr(10) ‘ -‘ For i = To Val(sobanin.Text) Printer.Print T.Text Printer.NewPage Next Printer.EndDoc 87 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến Else Exit Sub End If End If End Sub Private Sub inan_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.Visible = False End Sub Private Sub sobanin_Change() If Not IsNumeric(sobanin.Text) Then sobanin.Text = "" Else If Val(sobanin.Text) < Then sobanin.Text = "" End If End If 88 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến End Sub Private Sub T_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.Visible = False End Sub Private Sub thoat_Click() Form2.WindowState = Unload Me End Sub Private Sub thoat_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.Visible = False End Sub Private Sub thu_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.Visible = False End Sub 89 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến 90 LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com ... CHƯƠNG TRÌNH QUẢN LÝ CƠNG VĂN ĐẾN Chương trình Quản lý công văn đến cần đạt yêu cầu tối thiểu sau : LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến +... luanvanchat@agmail.com Visual Basic Quản lý công văn đến LUAN VAN CHAT LUONG download : add luanvanchat@agmail.com Visual Basic Quản lý công văn đến I.FORM MỞ ĐẦU : Giới thiệu tên đề tài ,tên người thực chương trình. .. luanvanchat@agmail.com Visual Basic Quản lý công văn đến II.FORM : ( Chương trình ): Từ Form mở đầu chương trình bạn chọn mục “ Mở chương trình? ?? form mở ,ở chương trình cho phép người sử dụng làm công việc