Thiết kế giao diện

Một phần của tài liệu Xây dựng phần mềm quản lý kho tại công ty TNHH Quốc Minh (Trang 71 - 156)

Form Login

Để sử dụng chương trình quản lý vật tư, người dùng phải nhập mã người dùng và mật khẩu vào 2 ô Textbox trong Form Login. Sau khi nhập tên và mật khẩu chọn OK để đăng nhập vào chương trình. Nếu người dùng nhập đúng tên và mật khẩu Form Main của chương trình sẽ hiện ra và bắt đầu cho phép

chương trình sẽ thông báo và yêu cầu người dùng nhập lại. Người dùng được phép nhập tối đa 3 lần, nếu không đúng tên và mật khẩu hệ thống sẽ tự thoát.

Form Main ( Giao diện chính của chương trình)

Tại Form Main bao gồm các chức năng của chương trình quản lý vật tư. Người sử dụng muốn khai thác chức năng nào sẽ kích chuột vào menu tương ứng trên thanh thực đơn

Form main bao gồm các chức năng: Hệ thống, Báo cáo, Phat sinh, Trợ giúp, Edit.

Menu Hệ thống

Menu hệ thống bao gồm các chức năng chinh: vào hệ thống, thay đổi mật khẩu, thoát khỏi chương trình. Người dùng muốn sử dụng chức năng nào thì kích chuột vào menu thể hiện chức năng đó.

Form thay đổi mật khẩu

Để thay đổi mật khẩu người dùng cần nhập mã nhân viên, mật khẩu cũ, mật khẩu mới và xác nhận lại mật khẩu mới vào các ô textbox tương ứng trên Form thay đổi mật khẩu. Sau đó chọn OK để đồng ý thay đổi thay đổi mật khẩu hoặc chọn Close để huỷ bỏ và thoát khỏi Form.

Khi người dùng không muốn sử dụng chương trình quản lý vật tư nữa thì có thể kích chuột vào menu thoát khỏi chương chình để đóng toàn bộ chương trình.

Ngoài các chức năng chính như trên thì menu hệ thống còn cung cấp các chức năng tiện ích khác như máy tính, lịch công tác…

c.Menu quản lý phát sinh

Menu này quản lý tất cả các danh mục của chương trình như danh mục khách hàng, danh mục kho, danh mục vật tư hàng hoá, danh mục mã hàng và cho phép cập nhật các phiếu nhập kho, xuất kho cũng như vào số dư vật tư hàng hoá với các thao tác thêm mới, sửa, xoá, tìm hay in phiếu xuất nhập.

Form danh mục vật tư hàng hoá

Form danh mục vật tư hàng hoá cho phép người dùng quản lý và cập nhật vật tư hàng hoá với các nút chức năng chính như:

Thêm: khi muốn thêm mới một vật tư hàng hoá người dùng chỉ cần gõ mã số,

tên vật tư và đơn vị tính vào 3 ô textbox tương ứng trên Form rồi nhấn nút Thêm khi đó chương trình sẽ tự động cập nhật thông tin vào DataGrid phía trên.

Xoá: muốn xoá thông tin về một vật tư nào đó ta chọn khách hàng cần xoá rồi

nhấn nút Xoá. Chương trình sẽ đưa ra thông báo “ Bạn có muốn xoá trường này không”, chọn Yes để xoá, chọn No để huỷ bỏ.

Print: muốn in danh sách vật tư hiện có trong cơ sở dữ liệu ta chọn Prỉnt để

in trên màn hình.

Close: để kết thúc làm việc với Form danh mục vật tư ta chọn Close để đóng

Form danh mục khách hàng

Form danh mục khách hàng cho phép người dùng quản lý và cập nhật khách hàng là các nhà cung cấp của công ty với các nút chức năng chính như:

Thêm: khi muốn thêm mới một khách hàng người dùng chỉ cần gõ mã số và

tên khách hàng vào 2 ô textbox tương ứng trên Form rồi nhấn nút Thêm khi đó chương trình sẽ tự động cập nhật thông tin vào DataGrid phía trên.

Xoá: muốn xoá thông tin về một khách hàng nào đó ta chọn khách hàng cần

xoá rồi nhấn nút Xoá. Chương trình sẽ đưa ra thông báo “ Bạn có muốn xoá trường này không”, chọn Yes để xoá, chọn No để huỷ bỏ.

Print: muốn in danh sách khách hàng hiện có trong cơ sở dữ liệu ta chọn

Prỉnt để in trên màn hình.

Close: để kết thúc làm việc với Form danh mục khách hàng ta chọn Close để

đống lại Form này và quay trở về Form Main.

Form danh mục kho

Menu này cho phép quản lý các kho vật tư hàng hoá với các chức năng tương tự như trong Form danh mục khách hàng và danh mục vật tư hàng hoá như trên.

Form danh mục mã hàng

Form này cho phép người dùng cập nhật và quản lý các mặt hàng được sản xuất từ các vật tư được nhập kho cho sản xuất tượng tự như các Form danh mục trên.

Form hồ sơ số dư vật tư hàng hoá

Form này cho phép người dùng cập nhật số dư (tồn kho) vật tư hàng hoá khi bắt đầu sử dụng chương trình với các thông tin: mã kho, mã hàng, mã vật tư, số lượng, thành tiền. Các chức năng chính gồm: thêm, xoá thông tin số dư về một loại vật tư nào đó. Muốn kết thúc làm việc với form ta chọn Close để đóng Form.

Form cập nhật phiếu nhập

Form cập nhật phiếu nhập cho phép người dùng cập nhật các thông tin trên phiếu nhập kho với các thông tin

- Số chứng từ : Tự động tăng trong năm

- Ngày PS : Ngày phát sinh chứng từ, bắt buộc phải là ngày trong năm làm việc

- Số hoá đơn : Số hoá đơn mua hàng đính kèm phiếu nhập kho nếu có - Kho hàng : Mã số kho hàng (Bắt buộc phải có)

- Khách hàng : Mã số khách hàng, nhà cung cấp (Bắt buộc phải có) - Họ tên : Tên người giao, nhận vật tư

- Kiểm tra : Tên người kiểm tra nhận hoặc xuất vật tư - Nội dung : nội dung phiếu nhập xuất kho

- Mã hàng : mã hàng hoá sẽ sản xuất từ số vật tư nhập kho. Chương trình sẽ tính số tồn kho vật tư theo từng mã hàng nhập kho.

- Mã sản phẩm : mã hàng hoá sản xuất từ số vật tư xuất kho. - Mã vật tư : mã vật tư nhập xuất kho

- Đơn giá : đơn giá vật tư

- Tỷ giá : sử dụng trong trường hợp đơn giá vật tư là ngoại tệ, theo dõi số thành tiền nhập kho là VND (Mặc định là 1)

- Hợp đồng : số hợp đồng, dùng để thống kê báo cáo số vật tư nhập xuất theo từng hợp đồng sản xuất.

Form cập nhật phiếu hỗ trợ các chức năng chính trong cập nhật cũng như thay đổi thông tin trên phiếu như sau:

- Nhấn nút Phiếu để nhập một phiếu mới, sau khi nhập xong từng mục, chương trình sẽ ghi lại và con trỏ sẽ quay về mục mã hàng để tiếp tục nhập liệu cho một mục mới. Sau khi nhập xong tất cả các mục trong một phiếu vật tư nhấn nút Ngưng để nhập phiếu mới

- Trong quá trình nhập liệu nếu chưa nhấn nút Ghi mà nhấn nút Ngưng thì chương trình sẽ không ghi nhận kết quả nhập liệu vào cơ sơ dữ liệu

- Để nhập bổ sung mục vật tư vào phiếu có sẵn nhấn nút tìm chọn phiếu cần bổ sung mục vật tư, nhấn phím ESC để trở về màn hình nhập liệu. Nhấn nút

Mục để thêm một mục mới vào phiếu vật tư đã có sẵn

- Để sửa mục vật tư có sẵn nhấn nút Tìm chọn phiếu cần sửa, nhấn phím

ESC để trở về màn hình nhập liệu. Chọn mục vật tư cần sửa, Nhấn nút Sửa

để mục vật tư đã có sẵn.

Để xem in phiếu ta chọn phiếu cần in rồi nhấn Print để in phiếu trên màn hình như sau:

Form cập nhật phiếu xuất

Việc cập nhật phiếu xuất kho tương tự như cập nhật phiếu nhập kho cũng với các chức năng hỗ trợ tưong tự như: thêm phiếu mới, sửa thông tin, xoá , tìm, in và thoát khỏi form làm việc như trên.

Để kết thúc làm việc với Form ta chọn Thoát để đóng Form để quay về Form Main tiếp tục khai thác các chức năng khác của hệ thống.

b. Menu Báo cáo

Trong menu báo cáo có các loại báo cáo sau: liệt kê chứng từ xuất nhập kho, sổ chi tiết vật tư hàng hoá,sổ chi tiết nhập xuất tồn kho, báo cáo nhập xuất tồn. Ngoài các loại báo cáo trong menu báo cáo còn hỗ trợ chức năng tra cứu thông tin.

Ngưòi sử dụng sẽ chọn từng loại báo cáo bằng cách kích chuột vào menu báo cáo thể hiện chức năng tương ứng

Form liệt kê chứng từ nhập xuất kho

Form này cho phép người dùng liệt kê chứng từ xuất nhập vật tư theo các tiêu chí khác nhau như theo khách hàng, kho hàng, mã hàng, mã vật tư… Nếu người dùng không chọn tiêu chí nào chương trình sẽ tổng hợp toàn bộ thông tin trên báo cáo.

Form Sổ chi tiết nhập xuất tồn

Form này cho phép in bảng kê chi tiết nhập xuất tồn vật tư theo từng tiêu chí khác nhau: theo khách hàng, mã hàng hay mã vật tư. Nếu không chọn các tiêu chí chương trình sẽ tổng hợp toàn bộ dữ liệu trên báo cáo.

Form báo cáo nhập xuất tồn

Cho phép tổng hợp báo cáo nhập xuất tồn vật tư hàng hoá theo mã hàng hoặc mã vật tư.

Form báo cáo này giúp người dùng hệ thống tổng hợp các báo cáo về tình hình tồn kho theo mã hàng hoặc mã vật tư.

Form Tra cứu

Hệ thống cho phép tìm kiếm thông tin theo 2 điều kiện: tìm kiếm thông tin tồn kho và tìm kiếm chứng từ.

Để tra cứu thông tin tồn kho ta chọn option tồn kho và nhấn nút số liệu để hiện thông tin tìm kiếm được.

Để tra cứu chứng từ ta chon option chứng từ sau đó nhấn nút số liệu để hiện thông tin tìm kiếm

c. Menu Trợ giúp

Bao gồm các chức năng giới thiệu chương trình và hướng dẫn sử dụng

Khi người dùng kích chuột vào chức năng giới thiệu chương trình hoặc hướng dẫn sử dụng các form thông tin sẽ hiện ra.

KẾT LUẬN

Thế giới đang bước vào kỷ nguyên của khoa học công nghệ và chúng ta không thể phủ nhận những thành công của công nghệ thông tin đem lại cho con người. Nhờ tin học mà con người đã bước lên tầm cao mới, bươc sang một nền kinh tế mới - nền kinh tế tri thức.

Trong những năm gần đây việc ứng dụng công nghệ thông tin vào công tác quản lý càng nhiều và là một nhu cầu cấp bách của nền kinh tế hiện nay.Việc quản lý kho hàng hoá vật tư tại Công ty TNHH Quốc Minh hiện nay còn gặp nhiều hạn chế và phức tạp. Nhằm khắc phục được những nhược điểm

đó em chọn đề tài “Xây dựng phần mềm quản lý kho tại công ty TNHH

Quốc Minh”. Chương trình này giải quyết được phần nào khó khăn trong

công việc của các nhân viên xuất nhập vật tư, giúp tiết kiệm thời gian, chi phí quản lý cũng như cung cấp các thông tin đúng đắn kịp thời hỗ trợ các quyết định.

Chương trình được xây dựng hoàn toàn trên hướng mở để có thể hoàn thiện nâng cấp trong tương lai. Tuy nhiên đây chưa phải là một phần mềm hoàn chỉnh do còn nhiều hạn chế về sự hiểu biết, về mặt thực tế cũng như vấn đề thời gian.

Cuối cùng em xin chân thành cảm ơn những góp ý, chỉ bảo của cô giáo Trần Thị Song Minh và các cán bộ phòng triển khai Công ty TNHH Quốc Minh đã giúp đỡ em hoàn thành chuyên đề này.

TÀI LIỆU THAM KHẢO

1. TS. Trương Văn Tú – TS. Trần Thị Song Minh

Giáo trình hệ thống thông tin quản lý NXB Thống kê, Hà Nội, 2000

2. Nguyễn Văn Vy

Phân tích và thiết kế các hệ thống thông tin hiện đại NXB Thống kê, Hà Nội, 2003

3. Ths. Trần Công Uẩn

Giáo trình cơ sở dữ liệu 1,2 NXB Thống kê, Hà Nội, 2004

4. Phạm Hữu Khang

Ví dụ và bài tập Visual Basic.Net: lập trình cơ sở dữ liệu và Report NXB Lao động xã hội

5. PGS.TS Hàn Viết Thuận

PHỤ LỤC Một số đoạn code của chương trình

Form Đăng nhập hệ thống

Private Sub cmdOK_Click() Unload Me

FrmMain.Show End Sub

Private Sub Form_Load() On Error GoTo ErrHand: txtPassword.Text = "" AdodcPass.Refresh AdodcPass.Recordset.Requery AdodcPass.Recordset.MoveFirst Do Until AdodcPass.Recordset.EOF cmbUsername.AddItem AdodcPass.Recordset.Fields("Username") AdodcPass.Recordset.MoveNext Loop cmbUsername.ListIndex = 0 Exit Sub ErrHand:

MsgBox Err.Description, vbInformation, "Error" End Sub

Private Sub cmdClose_Click() Unload Me

End Sub

Private Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

Dim Found As Boolean UName = cmbUsername.Text

If txtPassword.Text = "" Then

MsgBox "Hay nhap mat khau!", vbInformation, "Mat khau sai" txtPassword.SetFocus

Else

AdodcPass.Recordset.MoveFirst

Do Until AdodcPass.Recordset.EOF Or Found

If AdodcPass.Recordset.Fields("Username") = cmbUsername.Text And AdodcPass.Recordset.Fields("Password") = txtPassword.Text Then

Found = True Else

AdodcPass.Recordset.MoveNext End If

Loop

If Found = True Then FrmMain.Show Unload Me Else

MsgBox "Mat khau khong hop le", vbExclamation, "Mat khau sai" txtPassword.Text = ""

End If End If End If End Sub

Form đổi mật khẩu

Private Sub cmdOK_Click() Dim Found As Boolean Dim Change As Boolean Dim Box As VbMsgBoxResult FrmLogin.AdodcPass.Refresh

If cmbUsername.Text = "" Or txtCurrPassword.Text = "" Or txtConfirmPass.Text = "" Or txtNewPass.Text = "" Then

MsgBox "Please fill in all non-optional fields", vbInformation, "Password configuration | Error"

ElseIf txtConfirmPass.Text <> txtNewPass.Text Then

MsgBox "Passwords dont match", vbInformation, "Password configuration | Error" txtNewPass.Text = ""

txtConfirmPass.Text = "" txtNewPass.SetFocus

ElseIf Len(txtNewPass.Text) < 6 Then

MsgBox "Your password should have at least 6 characters" txtNewPass.Text = ""

txtConfirmPass.Text = "" txtNewPass.SetFocus Else

Box = MsgBox("Are you sure?", vbQuestion + vbYesNo, "Change user password") If Box = vbYes Then

FrmLogin.AdodcPass.Refresh

FrmLogin.AdodcPass.Recordset.MoveFirst

Do Until FrmLogin.AdodcPass.Recordset.EOF Or Found

If FrmLogin.AdodcPass.Recordset.Fields("Username") = cmbUsername.Text And FrmLogin.AdodcPass.Recordset.Fields("Password") = txtCurrPassword.Text Then

Found = True Else

FrmLogin.AdodcPass.Recordset.MoveNext End If

Loop

If Found = True Then

FrmLogin.AdodcPass.Refresh

FrmLogin.AdodcPass.Recordset.MoveFirst

Do Until FrmLogin.AdodcPass.Recordset.EOF Or Change

If FrmLogin.AdodcPass.Recordset.Fields("Password") = txtCurrPassword.Text Then

Change = True Else FrmLogin.AdodcPass.Recordset.MoveNext End If Loop Else

MsgBox "Incorrect Old Password ", vbExclamation, "Incorrect Old Password" txtCurrPassword.Text = ""

txtCurrPassword.SetFocus End If

If Change = True Then

MsgBox "Password changed." & vbCrLf & vbCrLf & "Password will take effect next time the application is started.", vbInformation, "Password Status"

FrmLogin.AdodcPass.Recordset.Update Call CleanUp End If FrmLogin.AdodcPass.Refresh End If End If End Sub

Private Sub CleanUp() txtCurrPassword.Text = "" txtNewPass.Text = "" txtConfirmPass.Text = "" End Sub

Private Sub Form_Load() cmbUsername.Clear

FrmLogin.AdodcPass.Recordset.MoveFirst Do Until FrmLogin.AdodcPass.Recordset.EOF

FrmLogin.AdodcPass.Recordset.MoveNext Loop

cmbUsername.ListIndex = 0 End Sub

Private Sub txtconfirmpass_Change()

If txtConfirmPass.Text = txtNewPass.Text Then lblStatus.Caption = "MËt khÈu hîp nhau!" Else

lblStatus.Caption = "MËt khÈu kh«ng hîp nhau!" End If End Sub Form danh mục khách hàng Option Explicit Dim recnum Dim xThem

Private Sub CmdCuoi_Click() On Error GoTo Err_Cuoi_Click If AdodcKH.Recordset.EOF Then

MsgBox "Ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else AdodcKH.Recordset.MoveLast End If Exit_Cuoi_Click: Exit Sub Err_Cuoi_Click: MsgBox Err.Description Resume Exit_Cuoi_Click End Sub

On Error GoTo Err_Dau_Click If AdodcKH.Recordset.BOF Then

MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else AdodcKH.Recordset.MoveFirst End If Exit_Dau_Click: Exit Sub Err_Dau_Click: MsgBox Err.Description Resume Exit_Dau_Click End Sub

Private Sub CmdGhi_Click() On Error GoTo Err_ghi_click

AdodcKH.Recordset.UpdateBatch adAffectAll CmdThoat.Visible = True CmdSua.Visible = True CmdKhong.Visible = False CmdGhi.Visible = False CmdXoa.Visible = True CmdThem.Visible = True CmdSearch.Visible = True CmdThem.SetFocus xThem = False Exit_ghi_click: DGridKH.SetFocus Exit Sub Err_ghi_click:

MsgBox "Data is invalid." Resume Exit_ghi_click End Sub

On Error GoTo Err_Khong_Click AdodcKH.Refresh AdodcKH.Recordset.Clone AdodcKH.Recordset.MoveLast CmdThoat.Visible = True CmdSua.Visible = True CmdKhong.Visible = False CmdGhi.Visible = False CmdXoa.Visible = True CmdThem.Visible = True CmdSearch.Visible = True CmdThem.SetFocus xThem = False Exit_Khong_Click: DGridKH.SetFocus Exit Sub Err_Khong_Click:

MsgBox "Data is invalid!" Resume Exit_Khong_Click End Sub

Private Sub CmdSau_Click() If AdodcKH.Recordset.EOF Then

MsgBox "ban dang o ban ghi cuoi", vbOKOnly, "Thong bao" Else

AdodcKH.Recordset.MoveNext End If

End Sub

recnum = AdodcKH.Recordset.Bookmark CmdThoat.Visible = False CmdSua.Visible = False CmdKhong.Visible = True CmdGhi.Visible = True CmdXoa.Visible = False CmdThem.Visible = False xThem = False DGridKH.AllowDelete = True DGridKH.AllowUpdate = True Exit_Sua_click: Exit Sub Err_Sua_click: MsgBox Err.Description Resume Exit_Sua_click End Sub

Private Sub CmdThem_Click() On Error GoTo Err_Them_click DGridKH.AllowDelete = True DGridKH.AllowUpdate = True AdodcKH.Recordset.AddNew DGridKH.SetFocus CmdThoat.Visible = False CmdSua.Visible = False CmdKhong.Visible = True CmdGhi.Visible = True CmdXoa.Visible = False CmdThem.Visible = False CmdSearch.Visible = False xThem = True Exit_Them_click:

Err_Them_click:

MsgBox Err.Description Resume Exit_Them_click End Sub

Private Sub CmdThoat_Click() Unload Me

End Sub

Private Sub CmdTruoc_Click() If AdodcKH.Recordset.BOF Then

MsgBox "Ban dang o ban ghi dau tien", vbOKOnly, "Thong bao" Else

AdodcKH.Recordset.MovePrevious End If

End Sub

Private Sub CmdXoa_Click() On Error GoTo Err_Xoa_click Dim TraLoi

TraLoi = MsgBox("Ban muon xoa Ma khach hang " & _

AdodcKH.Recordset.Fields("TenKH") & " (cung voi cac thong tin lien quan)?" _ , vbYesNo, "Thong bao")

If TraLoi = 6 Then AdodcKH.Recordset.Delete AdodcKH.Recordset.MoveNext AdodcKH.Recordset.Clone If AdodcKH.Recordset.EOF Then AdodcKH.Recordset.MoveLast End If

Exit_Xoa_click: Exit Sub Err_Xoa_click:

MsgBox "Khong the xoa ban ghi nay!"

Một phần của tài liệu Xây dựng phần mềm quản lý kho tại công ty TNHH Quốc Minh (Trang 71 - 156)

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

(156 trang)
w