- Dịch vụ uỷ thác xuất nhập khẩu, khai thuê hải quan
3.3.3. Thiết kế giao diện
Form đăng nhập hệ thống
Mục đích: Kiểm tra tính hợp lệ và quyền đăng nhập của nhân viên trước khi sử dụng chương trình. Các giao diện đều hướng tới việc hỗ trợ cho việc nhập liệu
được thân thiện, nhanh chóng. Để đảm bảo an toàn dữ liệu, người dùng phải có tên và mật khẩu hợp lệ mới đăng nhập được vào hệ thống.
Hình 3.19. Form Đăng nhập hệ thống
Form Hệ thống
Thông qua việc phân tích dữ liệu ta thấy HTTT quản lý bán hàng có nhiều thông tin đầu vào và người dùng phải thực hiện đúng qui trình nhập liệu cho dễ theo dõi. Do vậy, hệ thống cần thiết kế để người dùng dễ nhớ được thứ tự các bước công việc.
Hình 3.20. Form Hệ thống
Form Danh mục khách hàng
Mục đích: Cập nhật, lưu trữ và tìm kiếm các thông tin về khách hàng. Tại đây người dùng thực hiện được các thao tác cần thiết khi có yêu cầu hoặc phát sinh giao dịch.
Hình 3.21. Form Danh mục khách hàng
Mục đích: Tìm kiếm thông tin hàng hóa cấn mua. Có thể tìm theo mã hàng hoặc tên hàng.
Hình 3.22. Form Tìm kiếm hàng hóa
Form Hóa đơn bán hàng
Mục đích: Lưu trữ các thông tin về tất cả các giao dịch bán hàng.
Hình 3.23. Form Hóa đơn bán hàng
Hình 3.24. Form Thống kê doanh thu
3.4. DEMO MỘT SỐ CHỨC NĂNG 3.4.1. Đăng nhập
Mục đích: Kiểm tra việc đăng nhập vào hệ thống của người sử dụng, nếu thành công thì sẽ hiển thị như thế nào và không thành công thì sẽ báo lỗi như thế nào.
Thao tác: Chọn phần Đăng nhập. Điền đúng cả 3 ô Mã chức vụ, Tên đăng nhập
và Mật khẩu có trong hệ thống sau đó chọn nút Đăng nhập.
Nếu điền sai thông tin một trong ba ô đó thì hệ thống sẽ thông báo lỗi và yêu cầu nhập lại.
3.4.2. Cập nhật thông tin khách hàng.
Khi đăng nhập vào hệ thống. Chọn Cập nhật -> Cập nhật thông tin khách hàng.
Khi muốn xem tất cả danh sách khách hàng. Chọn Xem danh sách khách hàng.
Danh mục khách hàng sẽ được hiện trong ô Danh mục khách hàng.
3.4.3. Tìm kiếm hàng hóa
Khi đăng nhập chọn Tìm kiếm -> Tìm kiếm thông tin hàng hóa. Nếu muốn tìm theo mã hàng hóa thì nhấn vào nút chọn Mã hàng hóa sau đó nhập mã hàng hóa.
Nếu muốn tìm theo Tên hàng hóa thì chọn tìm theo tên hàng hóa sau đó nhập tên hàng hóa cần tìm.
3.4.4. Thống kê doanh thu
3.5. MỘT SỐ KIẾN NGHỊ HOÀN THIỆN HTTT QUẢN LÝ BÁN HÀNG TẠI CTCP XNK HÀNG KHÔNG - AIRIMEX
Để hoạt động sản xuất kinh doanh đạt hiệu quả cao công ty cần đổi mới và hoàn thiện HTTT của mình gồm: đổi mới cơ cấu tổ chức HTTT, mở rộng HTTT của doanh nghiệp, kết hợp được các HTTT (kế toán, tác nghiệp, kế hoạch, marketing…) thành một HTTT chung đồng thời để phối hợp các bộ phận chức năng trong một tổ chức, tiết kiệm được chi phí cho hoạt động thông tin. Một HTTT hiện đại cũng là một yêu cầu quan trọng của công ty. Công ty cần quan tâm đến việc đầu tư vào trang thiết bị về thông tin hiện đại hơn vì thông tin kinh tế là nguồn lực quan trọng của doanh nghiệp, nó tạo lợi thế cạnh tranh cho doanh nghiệp trên thị trường. CNTT hiện đại giúp doanh nghiệp nắm được thông tin thị trường nhanh hơn đảm bảo sự kết nối của HTTT doanh nghiệp và HTTT thị trường.
Vì thông tin chính là đầu vào của quá trình ra quyết định vì vậy chất lượng của các quyết định đưa ra phụ thuộc rất nhiều vào chất lượng thông tin, mà chất lượng của các quyết định lại ảnh hưởng rất lớn đến chất lượng của quá trình kinh doanh. Do đó nâng cao chất lượng thông tin là một đòi hỏi cấp bách hiện nay. Thông tin cần phải đảm bảo tính chính xác và độ tin cậy cao. Thông tin phải khách quan không bị sai lệch, phản ánh đầy đủ quá trình kinh doanh trong công ty. Việc quản lý bằng phương pháp thủ công sẽ mất rất nhiều thời gian, công sức mà thông tin đưa ra lại không chính xác, kịp thời. Chính vì những lý do trên công ty cần có biện pháp thu thập và xử lý thông tin một cách nhanh chóng, chính xác. Công ty cần đầu tư cho HTTT đặc biệt là HTTT quản lý bán hàng. Bên cạnh đó cần có chính sách đào tạo nhân viên, nâng cao trình độ tin học của nhân viên trong công ty.
KẾT LUẬN
Qua một thời gian tiến hành làm khóa luận tốt nghiệp tại CTCP XNK Hàng không – AIRIMEX đề tài đã giải quyết được những vấn đề sau:
- Tiến hành khảo sát các thông tin về bài toán một cách chính xác.
- Phân tích dựa trên những thông tin thu được và bám sát yêu cầu của bài toán cũng như các công việc của công ty.
- Chương trình đã đảm bảo lưu trữ những thông tin cần thiết của hệ thống.
- Xử lý chính xác các thông tin về hàng hóa, hóa đơn, khách hàng… có thể cập nhật thường xuyên và dễ dàng các thông tin cần thiết.
- Chương trình thực hiện những chức năng chính của hệ thống: Cập nhật hàng hóa, cập nhật khách hàng, tạo hóa đơn bán hàng, phân quyền người dùng, thống kê… Trong tương lai hệ thống sẽ phát triển thêm về các mặt: Hệ thống có thể tương tác với máy Fax, có thể đọc dữ liệu từ các văn bản như Microsoft Word, Notepad, thiết kế cài đặt CSDL trên SQL Server hay My SQL…
Để hoàn thành được bài khóa luận này em xin chân thành cảm ơn sự hướng dẫn, giúp đỡ tận tình của thầy Vũ Trọng Nghĩa. Em xin chân thành cảm ơn lãnh đạo, nhân viên công ty cổ phần XNK Hàng không – AIRIMEX đã tạo điều kiện giúp đỡ em để em có được đầy đủ các thông tin hoàn thành bài khóa luận này. Tuy nhiên do thời gian và kiến thức có hạn nên đề tài không thể tránh khỏi những thiếu sót, rất mong sự đóng góp của thầy cô và bạn đọc để bài khóa luận của em hoàn thiện hơn và sản phẩm có tính ứng dụng trong thực tế.
TÀI LIỆU THAM KHẢO
1. Bản cáo bạch AIRIMEX – 2011.
2. Điều lệ CTCP XNK Hàng không – AIRIMEX.
3. Đinh Thế Hiển (2006), Giáo trình phân tích thiết kế HTTT quản lý, Nhà xuất bản Thống kê, Hà Nội.
4. Hàn Viết Thuận (1999), Giáo trình cấu trúc dữ liệu, Nhà xuất bản Thống kê, Hà Nội.
5. Nguyễn Đình Tê (2005), Tự học lập trình CSDL Visual Basic 6, NXB Lao Động- Xã Hội.
6. Trương Văn Tú - Trần Thị Song Minh (2000), Giáo trình hệ thống thông tin
quản lý, Nhà xuất bản Hà Nội.
7. Trần Công Uẩn (2005), Giáo trình cơ sở dữ liệu, Nhà xuất bản Thống kê, Hà Nội.
PHỤ LỤC Phụ lục 1 : Form Danh mục hàng hóa
Phụ lục 2 : Form Danh mục nhân viên
Phụ lục 4: Thống kê danh mục nhà cung cấp
Phụ lục 6 : Code một số chức năng Đăng nhập
Private Sub CmdDangNhap_Click() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset 'Ket noi co so du lieu
Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.CursorLocation = 3
conn.Open "Provider = Microsoft.jet.OLEDB.4.0;Data Source = " & App.Path & "\QLBH - 2003.Mdb"
rs.Open "SELECT * FROM DangNhap WHERE MaChucVu ='" + txtMaChucVu.Text + "' AND TenDN ='" + txtTenDN.Text + "' AND MatKhau ='" + txtMatKhau.Text + "'", conn, 3, 3
'Kiem tra dang nhap
If txtMaChucVu.Text = "" Then
Else
If txtTenDN.Text = "" Then
MsgBox ("Yeu cau nhap ten dang nhap...!!!") txtTenDN.SetFocus
Else
If txtMatKhau.Text = "" Then
MsgBox ("Yeu cau nhap mat khau...!!!") txtMatKhau.SetFocus
Else
If rs.EOF Or rs.BOF Then
MsgBox ("Ban nhap sai ten dang nhap hoac mat khau, moi ban nhap lai...!!!") txtMaChucVu = "" txtTenDN = "" txtMatKhau = "" txtMaChucVu.SetFocus Else
If txtMaChucVu.Text = "QTHT" Or txtMaChucVu.Text = "QLQ" Then Form1.Show
Me.Hide 'An form dang nhap Else
If txtMaChucVu.Text = "NV" Then 'Mo form chuc nang cua nhan vien Form17.Show
Me.Hide Else
MsgBox ("Ban nhap sai ma chuc vu hoac cac thong tin con lai") End If
End If End If End If
End If End If End Sub
Private Sub CmdThoat_Click() Unload Me
End Sub
Private Sub Form_Load()
Form14.BackColor = RGB(36, 163, 198) End Sub
Cập nhật thông tin khách hàng
Private Sub CmdBack_Click() If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MovePrevious Else
Adodc1.Recordset.MoveLast End If
End Sub
Private Sub CmdFirst_Click() Adodc1.Recordset.MoveFirst End Sub
Private Sub CmdLast_Click() Adodc1.Recordset.MoveLast End Sub
Private Sub CmdNext_Click() If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveNext Else
Adodc1.Recordset.MoveFirst End If
End Sub
txtTenKH.SetFocus
If txtTenKH.Text = "" Then
MsgBox ("Yeu cau nhap ten !!!") Else
If Not IsNumeric(txtSDT) Then
MsgBox ("Yeu cau nhap so vao so dien thoai!!!") txtSDT.SetFocus
Else
Adodc1.Recordset.Update
MsgBox ("Ba da luu thanh cong !!!") End If End If CmdFirst.Enabled = True CmdBack.Enabled = True CmdNext.Enabled = True CmdLast.Enabled = True CmdXoa.Enabled = True End Sub
Private Sub CmdThem_Click() txtTenKH.SetFocus CmdFirst.Enabled = False CmdBack.Enabled = False CmdNext.Enabled = False CmdLast.Enabled = False CmdXoa.Enabled = False Adodc1.Recordset.AddNew End Sub
Private Sub CmdThoat_Click()
If MsgBox("Ban co chac chan muon thoat ???", vbYesNo) = vbYes Then Form1.Show
End If End Sub
Private Sub CmdXoa_Click() Dim xn
xn = MsgBox("Ban co muon xoa hay khong?", vbInformation + vbYesNo, " Xac nhan")
If xn = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Else
Adodc1.Recordset.MoveNext End If
End Sub
Private Sub Command1_Click() DataGrid1.Visible = True End Sub
Private Sub DataGrid1_Click() CmdXoa.Enabled = True CmdSua.Enabled = True End Sub
Private Sub Form_Load()
Form8.BackColor = RGB(167, 213, 155) DataGrid1.Visible = False LblMaKH.Enabled = False txtMaKH.Enabled = False End Sub Tìm kiếm hàng hóa Option Explicit
Dim conn As ADODB.Connection Dim rs As ADODB.Recordset
Private Sub Command1_Click() DataGrid1.Visible = True
Set conn = CreateObject("ADODB.Connection") conn.CursorLocation = 3
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\QLBH - 2003.mdb"
Set rs = CreateObject("ADODB.Recordset")
rs.Open "Select * from HangHoa where MaHH = " & txtMaHH.Text & " OR TenHH='" & txtTenHH.Text & "'", conn, 3, 3
Set DataGrid1.DataSource = rs DataGrid1.Refresh
End Sub
Private Sub Command2_Click()
If MsgBox("Ban co chac chan muon thoat ???", vbYesNo) = vbYes Then Form1.Show
Unload Me End If End Sub
Private Sub Form_Load()
Form6.BackColor = RGB(135, 117, 189) Frame1.BackColor = RGB(191, 184, 235) Frame2.BackColor = RGB(191, 184, 235) Option1.BackColor = RGB(191, 184, 235) Option2.BackColor = RGB(191, 184, 235) Label1.BackColor = RGB(191, 184, 235) Label2.BackColor = RGB(191, 184, 235) Option1.Value = True
txtMaHH = "Nhâp mã hàng hoá..." txtTenHH.Visible = False
DataGrid1.Visible = False End Sub
Private Sub Form_Unload(Cancel As Integer) Set conn = Nothing
Set rs = Nothing End Sub
Private Sub Option1_Click() txtMaHH.Visible = True txtTenHH.Visible = False
txtMaHH = "Nhâp mã hàng hoá... " End Sub
Private Sub Option2_Click() DataGrid1.ClearFields DataGrid1.Refresh
txtTenHH.Visible = True txtMaHH.Visible = False
txtTenHH = "Nhâp tên hàng hoá" End Sub
Thống kê doanh thu
Private Sub Command3_Click() Unload Me
Form1.Show End Sub
Private Sub Form_Load()
Dim conn As ADODB.Connection Dim rs As ADODB.Recordset
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\QLBH - 2003.mdb"
conn.Open
conn.CursorLocation = 3
rs.Open"SelectHoaDonBH.SoHD,HoaDonBH.NgayBan,HoaDonBH.MaNV,Nhan Vien.TenNV, HoaDonBH.MaKH, KhachHang.TenKH, HoaDonBH.NgayBanfrom HoaDonBH, NhanVien,KhachHangWhereHoaDonBH.MaNV=NhanVien.MaNV and HoaDonBH.MaKH=KhachHang.MaKH", conn, 3, 3
Set DataGrid1.DataSource = rs DataGrid1.Refresh
Dim rs_dt As ADODB.Recordset
Set rs_dt = CreateObject("ADODB.Recordset") rs_dt.CursorLocation = 3
rs_dt.Open "Select Sum(Chitiet_HD.SLuongB * HangHoa.DGiaBan) as TongDT from ChiTiet_HD,HangHoa where ChiTiet_HD.MaHH = HangHoa.MaHH", conn, 3, 3
Set txtTongDT.DataSource = rs_dt: txtTongDT.DataField = "TongDT" End Sub