Khi có nhu cầu cần sửa thông tin của các bản ghi bị sai sót, ta tiến hành theo các bước được trình bày trong sơ đồ dưới đây:
GVHD : Thầy Phạm Văn Tịch SVTH : Phí Thị Nhàn – TH40C41 Mở form cần sửa DL Bắt đầu Chọn bản ghi cần sửa Sửa DL cho bản ghi Tiếp tục nhập ? Kết thúc Đóng form Có
2.4.4 Thuật toán xóa bản ghi
Khi có nhu càu xóa thông tin về bản ghi nào thì ta tiến hành theo các bước sau đây
Code trong module
Option Explicit
Public Conn As New ADODB.Connection Public Flag As String
Public RsKQ As New ADODB.Recordset Public NgayBD As Date
Public NgayKT As Date Public TK As String
a. Thủ tục kết nối
Public Sub SetConnection(dbName$) Dim strConn As String
strConn = "PROVIDER = Microsoft.JET.OLEDB.4.0;"
strConn = strConn & "DATA SOURCE =" & App.Path & "/DATA/" & dbName
GVHD : Thầy Phạm Văn Tịch SVTH : Phí Thị Nhàn – TH40C42 Mở form cần xóa DL Bắt đầu Chọn bản ghi cần xóa Tiếp tục nhập ? Kết thúc Đóng form Có
Set Conn = New ADODB.Connection Conn.Open strConn
End Sub
b. Đóng kết nối
Public Sub CloseConnection() Conn.Close
Set Conn = Nothing End Sub
c. Đóng đối tượng Recordset
Public Sub CloseRecordset() RsKQ.Close
Set RsKQ = Nothing End Sub
d.Thủ tục khóa điều khiển lưới
Public Sub lockthecontrols(blocked As Boolean, Optional vflag As String) Dim i%
With Screen.ActiveForm
For i = 0 To .Controls.Count - 1 If (.Controls(i).Tag = 1) Then
If (TypeOf .Controls(i) Is TextBox) Then If (blocked) Then .Controls(i).Enabled = False .Controls(i).BackColor = vbWhite Else .Controls(i).Enabled = True .Controls(i).BackColor = &H80000001 End If If vflag = "X" Then .Controls(i) = "" End If End If
If (TypeOf .Controls(i) Is VSFlexGrid) Then If (blocked) Then .Controls(i).Editable = flexEDNone .Controls(i).Editable = vbWhite Else .Controls(i).Editable = flexEDKbdMouse .Controls(i).Editable = vbYellow End If GVHD : Thầy Phạm Văn Tịch SVTH : Phí Thị Nhàn – TH40C43
End If End If Next i
End With End Sub
e.Thủ tục thêm bản ghi mới vào bảng
Public Sub INSERTINTO(tbName, strFields, strValues) Dim strSQL As String
strSQL = "INSERT INTO " & tbName & "(" & strFields & ")" strSQL = strSQL & " VALUES " & "(" & strValues & ")" Conn.Execute strSQL
End Sub
f.Thủ tục chỉnh sửa trong bản ghi
Public Sub UpdateDB(strTables, strExpre, strCondi) Dim strSQL As String
strSQL = " UPDATE " & strTables strSQL = strSQL & " SET " & strExpre If strCondi <> "" Then
strSQL = strSQL & " WHERE " & strCondi End If
Conn.Execute strSQL End Sub
g. Thủ tục xóa bản ghi trong bảng
Public Sub DeleteDB(strTables, strFields, strCondition) Dim strSQL As String
strSQL = " DELETE " & strFields & " FROM " & strTables If Trim(strCondition) <> "" Then
strSQL = strSQL & " WHERE " & strCondition End If
Conn.Execute strSQL End Sub
h. Hàm tạo đối tượng Recordset
Public Function GetRs(strTables, strFields, strCondition, strSort) As ADODB.Recordset
Dim Rs As ADODB.Recordset Dim strSql As String
Set Rs = New ADODB.Recordset
strSql = "SELECT " & strFields & " FROM " & strTables If Trim(strCondition) <> "" Then
strSql = strSql & " WHERE " & strCondition End If
If Trim(strSort) <> "" Then
strSql = strSql & " ORDER BY " & strSort End If Rs.Open strSql, Conn Set GetRs = Rs End Function i. Hàm viết tiền số thành chữ Function VSTBC1(x%) As String Select Case x Case 0 VSTBC1 = "" Case 1 VSTBC1 = " mot" Case 2 VSTBC1 = " hai" Case 3 VSTBC1 = " ba" Case 4 VSTBC1 = " bon" Case 5 VSTBC1 = " nam" Case 6 VSTBC1 = " sau" Case 7 VSTBC1 = " bay" Case 8 VSTBC1 = " tam" Case 9 VSTBC1 = " chin" End Select End Function Function VSTBC3(f%) As String Dim tg%, c%, d%, t%
Dim Tram$, Chuc$, Donvi$
'Tach so hang tram, chuc, don vi
tg = f Mod 100 t = (f - tg) / 100 d = tg Mod 10 c = (tg - d) / 10
' viet so hang tram thanh so dem
Tram = "" If t > 0 Then
Tram = VSTBC1(t) & " tram" End If
'viet so hang chuc thanh so dem
If (c = 0) And (t > 0) And (d > 0) Then Chuc = " linh"
ElseIf c = 1 Then Chuc = " muoi" ElseIf c > 1 Then
Chuc = VSTBC1(c) & " muoi" End If
'Viet so hang don vi thanh so dem
Donvi = VSTBC1(d) If (d = 1) And (c > 1) Then Donvi = " mot" End If If (d = 4) And (c > 2) Then Donvi = " tu" End If If (d = 5) And (c > 0) Then Donvi = " lam" End If
'Ghep cac ket qua va gan cho ten ham`
VSTBC3 = Tram & Chuc & Donvi End Function
Function chuansau(N$) As String Dim dem%
dem = Len(N) If dem < 12 Then
Do While dem < 12
N = "0" & N: dem = dem + 1 Loop
Else
MsgBox "So qua 12 ky tu" Exit Function End If chuansau = N End Function Function VSTBC(N$) As String Dim Kq$, St$, t% Kq = "": N = chuansau(N) St = Mid(N, 1, 3): t = Val(St)
If t <> 0 Then Kq = Kq & VSTBC3(t) & " ty" St = Mid(N, 4, 3): t = Val(St)
If t <> 0 Then Kq = Kq & VSTBC3(t) & " trieu" St = Mid(N, 7, 3): t = Val(St)
If t <> 0 Then Kq = Kq & VSTBC3(t) & " nghin" St = Mid(N, 10, 3): t = Val(St)
If t <> 0 Then Kq = Kq & VSTBC3(t) & " vnd " VSTBC = chuansauT(Kq)
End Function
Public Function chuansauT(str$) As String Dim i% Const tr As String = " " Dim tmp$: tmp = "" str = Trim(str) For i = 1 To Len(str) If Mid(str, i, 1) <> tr Then tmp = tmp & Mid(str, i, 1)
ElseIf Mid(str, i + 1, 1) <> tr Then tmp = tmp & tr End If chuansauT = tmp Next i End Function GVHD : Thầy Phạm Văn Tịch SVTH : Phí Thị Nhàn – TH40C47
CHƯƠNG 3: HƯỚNG DẪN CÀI ĐẶT VÀ SỬ SỤNG PHẦN MỀM
3.1 Hướng dẫn cài đặt chương trình quản lý bán hàng.
- Yêu cầu: Copy toàn bộ thư mục Quanlybanhang_ Phí Thị Nhàn vào Ổ “C:\”
- Máy tính cần cài đặt chương trình VisualBasic 6.0
- Chương trình Quản lý bán hàng cần cài đặt phần mềm lưới VSFlexGrid 7.0. Bạn có thể tìm bộ cài đặt trong thư mục VSFlexGrid Pro v7.0.0.78 trong đĩa CD để cài đặt cho chương trình.
- Chạy bộ cài đặt Quản lý bán hàng. EXE trong thư mục Quanlybanhang_ Phí Thị Nhàn trong ổ “C:\” để cài đặt Chương trình quản lý bán hàng.
- Để sử dụng được phần mềm quản lý bán hàng nhất thiết phải copy thư mục
Quanlybanhang_Phí Thị Nhàn vào ổ “C:\” để chạy chương trình. Sau đó mới chạy bộ cài đặt Quản lý bán hàng. Exe
3.2 Hướng dẫn sử dụng chương trình.
Người dùng tìm và chạy File: Quản lý bán hàng.Exe thì hộp thoại đăng nhập xuất hiện. Khi hộp thoại xuất hiện rồi người dùng muốn truy cập phải khai báo tên và mật khẩu vào máy để máy kiểm tra sau đó bạn nháy chuột vào nút Đăng nhập. Nếu tên và mật khẩu của người sử dụng vừa khai báo phù hợp với tên và mật khẩu có trong máy mà ta đã đăng ký trước đó thì người dùng sẽ truy cập vào giao diện chính của chương trình.
Ngược lại nếu tên và mật khẩu của người dùng vừa khai báo mà không đúng thì máy sẽ đưa ra hộp thoại với lời đề nghị “ UserNAme or Password của bạn không hợp lệ” lúc đó bạn dùng muốn truy cập tiếp đúng thì phải khai báo lại sao cho phù hợp. Còn nếu bạn không muốn truy cập chương trình thì bạn hãy thoát ra khỏi chương trình bằng cách nhấn vào nút Cancel.
3.3Xây dựng giao diện:
3.3.1 Hệ thống menu chương trình:
Phần mềm Quản lý bán hàng gồm 4 menu chương trình chính:
a. Menu hệ thống gồm:
Quản lý người sử dụng Thoát
b. Menu danh mục bao gồm:
Danh mục tài khỏan Danh mục hàng hóa Danh mục ngoại tệ Danh mục khách hàng c. Menu cập nhật bao gồm: Phiếu xuất Phiếu thu Phiếu nhập Hóa đơn bán hàng
d. Menu báo cáo gồm
Sổ cái 111 Sổ cái 131
3.4 Một số giao diện chính của chương trình:
3.4.1 Menu chính của chương trình và Form đăng nhập
Code cho phần đăng nhập:
Private Sub cmdNhap_Click() cmdThoat.Enabled = False
Call SetConnection("CSDL.mdb")
Set RsKQ = GetRs("QLNSD", "*", "", "")
If txtU.Text = RsKQ("UserName") And txtP.Text = RsKQ("Pass") Then frmLoad.Show
Else
MsgBox "UserName OR Pass cua ban khong hop le !", vbOKOnly, "Thong bao" txtU.Text = "" txtP.Text = "" txtU.SetFocus cmdThoat.Enabled = True End If CloseRecordset CloseConnection End Sub
Private Sub cmdThoat_Click() Unload Me
Unload frmNen Unload frmLoad End Sub
Private Sub Form_Activate() txtU.SetFocus
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
SendKeys "{Tab}" End If
End Sub
Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 3 + 3000 Me.Left = (Screen.Width - Me.Width) / 2
End Sub
Private Sub txtU_Change() If txtU.Text <> "Nhan" Then txtP.Text = ""
End If End Sub
3.4.2 Danh mục hàng hóa và thêm mới hàng hoá
3.4.3 Danh mục khách hàng và thêm mới khách hàng
3.4.5 Phiếu xuất
3.4.6 Hóa đơn bán hàng
3.4.7 Mẫu chứng từ in sổ cái 111
KẾT LUẬN
MỘT SỐ MẶT TỒN TẠI VÀ HẠN CHẾ CỦA CHƯƠNG TRÌNH, CÁC BIỆN PHÁP NÂNG CẤP VÀ PHÁT TRIỂN CHƯƠNG TRÌNH TRONG TƯƠNG LAI
Một số mặt hạn chế của chưong trình
Do thời gian và kiến thức còn hạn chế, vì vậy chưong trình không thể tránh khỏi những hạn chế và sai sót nhất định:
Thiếu thông tin cần thiết trong quá trình hoàn thành chương trình. Thiếu hình ảnh bổ xung trong từng form cụ thể.
Chưa có sự liên kết chặt chẽ giữa từng form nhập liệu Một số biện pháp nâng cấp chưong trình
Trong thời gian tới để áp dụng thực tế chưong trình cần được hoàn thiện các chức năng:
Bổ xung hình ảnh trong từng form nhập liệu của chưong trình.
Sửa đổi giao diện phù hợp với công tác quản lý bán hàng taị Công ty Cổ phần tập đoàn nhựa Đông Á
Hướng phát triển chưong trình trong tương lai
Để chương trình có thể áp dụng trong thực tế một cách rộng rãi, chương trình cần thiết bổ sung một số tính năng:
Cập nhật danh mục chặt chẽ với số lưọng lớn Quản lý NCC và khách hàng chi tiết hơn.
Phân ra nhiều đối tượng quản lý để thuận tiện cho công tác quản lý hơn. Quản lý người sử dụng chặt chẽ hơn tăng tính bảo mật của chuơng trình. Thống kê báo cáo, tìm kiếm dễ dàng, thuận tiện hơn về cả nội dung lẫn hình thức.