Visual Basic Quản lý công văn đến

1

Đề tài:
“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

2

LỜI NÓI ĐẦU
OOO

Ngày nay ,các công nghệ khoa học ,kỹ thuật ngày càng phát triển như vũ
bão,trong đó khoa học máy tính cũng phát triển mạnh mẽ và xâm nhập vào mọi
lĩnh vực khoa học ,kinh tế ,xã hội ,quản lý , máy tính hầu như đều có đóng góp
khả năng tuyệt vời của nó tới tất cả các lĩnh vực . Từ việc xây dựng các chương
trình khoa học kỹ thuật lớn đến các công việc quản lý thường nhật ,máy tính giúp
chúng ta cập nhật ,tìm kiếm và lưu trữ thông tin một cách tốt nhất .Nhưng các
phần mềm hỗ trợ cho việc sử dụng máy tính hầu hết của nước ngoài ,điều này gây
rất nhiều trở ngại đối với những người không biết hoặc biết ít tiếng Anh.Vì vậy
các phần mềm sử dụng tiếng Việt sẽ giúp người sử dụng có hiều quả hơn trong
công việc.Bên cạnh các ngôn ngữ lập trình đa dạng và phong phú ,thì ngôn ngữ
lập trình Visual Basic có tính năng cao hơn cả ,giúp cho người dùng trong các
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 của hãng Microsoft là phần mềm phổ biến ở nước
ta hiện nay.Visual Basic là ngôn ngữ lập trình trực quan theo hướng đối tượng lấy


Chương trình Quản lý công văn đến cần đạt được các yêu cầu tối thiểu sau :
Visual Basic Quản lý công văn đến

4
+ Việc cập nhật ,lưu trữ các công văn đến phải đơn giản ,dễ ràng ,tránh được
các sai sót khi 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ác công văn tiện lợi ,đẹp ,dễ nhìn.

Trong bài tập lớn này với đề tài Quản lý công văn đến được lập bằng 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ị cơ sở dữ liệu Access
Tên chương trình : “C:\Qlcvd”
File cơ sở dữ liệu : “C:\Qlvcd\Qlcvd.mdb”
Gồm có 1 bảng : cv
Chương trình Quản lý công văn đến gồm có 6 Form thực hiện các thao tác quản lý
công văn đến.
+ Form 1: Form này để người sử dụng bắt đầu vào chương trình chính.Giao diện
Form như là một logo.Khi vào chương trình Form có chức năng như là nền cho
chương trình.
+ Form2 : là Form chính để thao tác với các công văn đến như sửa hoặc xoá các
công văn,gọi các Form khác như Form cập nhật để cập nhật các công văn đến,
Form Xem để xem toàn bộ các công văn đã cập nhật ,Form Tìm kiếm để thực hiện
thao tác tìm kiễm côngvăn thoả mãn điều kiện nào đó,Form In để in ấn các công
văn.
Visual Basic Quản lý công văn đến

5
+ Form3 ( Form capnhat) : tại đây người sử dụng có thể cập nhật các thông tin

+ From 3 : (Form capnhat) : Form này giúp người sử dụng cập nhật các thông
tin về các công văn đến để lưu trữ trên máy tính.Chương trình có chức năng sử lý
một số lỗi thường gặp khi cập nhật như vào nhầm ngày tháng ,chương trình sẽ
thông báo lỗi và báo cho người cập nhật cập nhật lại cho đúng , hoặc việc cập nhật
chưa hết các thông tin.
+ Form 4 : ( Form Xem ) : Form này cho phép người sử dụng xem toàn bộ các
công văn đã được cập nhật vào.Tại đây người sử dụng có thể thêm ,sửa hoặc xoá
các công văn trực tiếp trên cơ sở dữ liệu của mình. Form còn cho phép gọi form in
để in các công văn cần thiết.
+ Form 5 : ( Form timkiem) : Form giúp người sử dụng chương trình tìm kiếm
các công văn theo một trường nào đó thoả mãn điều kiện tìm kiếm.
+ Form 6 : ( Form in ) : Form cho người sử dụng để in ấn các công văn ra giấy
qua máy in theo một mẫu quy định trước . Visual Basic Quản lý công văn đến

7

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

Visual Basic Quản lý công văn đến

10
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

bạn chọn mục “ Mở chương trình” thì form chính sẽ mở ra ,ở chương trình này
cho phép người sử dụng làm các công việc với công văn đến như gọi chương trình
cập nhật , xoá hoặc sửa các công văn ,sau đó ghi lại , gọi các form khác để xem
,tìm kiếm hoặc in các công văn.

 Các phương thức xử lý trong chương trình :

Attribute VB_Name = "Form2"
Public SCV As Integer

Private Sub chuyen_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Visual Basic Quản lý công văn đến

13
thoihan.SetFocus
End If
End Sub

Private Sub cmdin_Click()
Form2.WindowState = 1
inan.Show
End Sub

Private Sub cmdin_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
L02.Visible = False
End Sub
Form1.Command2.Visible = True
Form1.Label1.Visible = False
For k = 0 To 6
Form1.Lab1(k).Visible = True
Next k
End Sub

Private Sub cmdtim_Click()
Form2.WindowState = 1
tim.Show
End Sub

Private Sub cmdtim_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
L02.Visible = False
End Sub Visual Basic Quản lý công văn đến

16
Private Sub cmdxem_Click()
Form2.WindowState = 1
xem.Show
End Sub

Private Sub cmdxoa_Click()
Dim n As Integer
If (chuyen.Text = "") Or (noidung.Text = "") Then
MsgBox "Không có dữ liệu công văn cần xoá!"

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Visual Basic Quản lý công văn đến

18
L01.Visible = True
L01.Caption = "Chuyển tới công văn đầu tiên "
L01.Left = 1200
End Sub

Private Sub Command2_Click()
Command5.Enabled = False
cmdsua.Enabled = True
If stt > 1 Then
Data1.Recordset.MovePrevious
stt.Text = stt.Text - 1
Else
MsgBox "Bạn đã chuyển tới công văn đầu tiên", , "Quản lý công văn đến"
Exit Sub
End If
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Visual Basic Quản lý công văn đến

19
L01.Visible = True
L01.Caption = "Chuyển về công văn đứng trước"
L01.Left = 2160

Command5.Enabled = False
cmdsua.Enabled = True
Data1.Recordset.MoveLast
SCV = Data1.Recordset.RecordCount
stt.Text = SCV
End Sub

Visual Basic Quản lý công văn đến

21
Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
L01.Visible = True
L01.Caption = "Chuyển tới công văn cuối cùng"
L01.Left = 3960
End Sub

Private Sub Command5_Click()
If loai.Text = "" Then
MsgBox "Bạn phải nhập loại công văn!", , "Quản lý công văn đến"
loai.SetFocus
Exit Sub
End If
If ngra.Text = "" Then
MsgBox "Bạn phải nhập vào ngày tháng ra công văn!", , "Quản lý công văn
đến"
ngra.SetFocus
Exit Sub
End If
Visual Basic Quản lý công văn đến

Exit Sub
End If
If chuyen.Text = "" Then
MsgBox "Bạn phải nhập vào bộ phận công văn chuyển đến!", , "Quản lý
công văn đến"
chuyen.SetFocus
Exit Sub
End If
If thoihan.Text = "" Then
thoihan.SetFocus
Exit Sub
End If
If nguoi.Text = "" Then
Visual Basic Quản lý công văn đến

24
nguoi.SetFocus
Exit Sub
End If
Data1.Recordset.Fields("Loại") = loai.Text
Data1.Recordset.Fields("Ngày ra") = ngra.Text
Data1.Recordset.Fields("Ngày đến") = ngden.Text
Data1.Recordset.Fields("Tên công văn") = Ten.Text
Data1.Recordset.Fields("Mức khẩn") = mk.Text
Data1.Recordset.Fields("Độ mật") = dm.Text
Data1.Recordset.Fields("Cơ quan") = cq.Text
Data1.Recordset.Fields("Nội dung") = noidung.Text
Data1.Recordset.Fields("Chuyển cho") = chuyen.Text
Data1.Recordset.Fields("Thời hạn") = thoihan.Text
Data1.Recordset.Fields("Người ký") = nguoi.Text