Thiết kế giao diện

Một phần của tài liệu Phân tích, thiết kế hệ thống thông tin quản lý bán hàng tại công ty cổ phần xuất nhập khẩu Hàng không - AIRIMEX (Trang 44)

- 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

Một phần của tài liệu Phân tích, thiết kế hệ thống thông tin quản lý bán hàng tại công ty cổ phần xuất nhập khẩu Hàng không - AIRIMEX (Trang 44)

Tải bản đầy đủ (DOC)

(64 trang)
w