Giao diện chớnh

3.3. Thiết kế chương trỡnh ứng dụng

3.3.3.1. Giao diện chớnh

3.3.3.2. Hệ thống menu

 Menu dữ liợ̀u

 Menu tra cứu

3.3.3.3. Một số form chương trỡnh

 Form đăng nhọ̃p hợ̀ thụ́ng

- Mục tiờu: xỏc định đỳng người dựng và quyền hạn tương ứng khi truy cập hệ thống.

- Người sử dụng: tất cả người dựng đó đăng ký với hệ thống. - Ảnh giao diện:

- Hướng dẫn sử dụng: Người sử dụng điền đầy đủ tờn người dựng và mật khẩu vào 2 textbox. Sau đú chọn nỳt lệnh ĐĂNG NHẬP nếu muốn tiếp tục vào trong chương trỡnh hoặc chọn nỳt lệnh THOÁT nếu muốn rời khỏi chương trỡnh.

- Kết quả: người sử dụng được phộp truy cập vào chương trỡnh hoặc phải truy cập lại (nếu thụng tin đăng nhập sai)

 Form quản trị người dùng

- Mục tiờu: quản lý thụng tin, quyền hạn của người dựng với chương trỡnh - Người sử dụng: quản trị viờn hệ thống

- Ảnh giao diện:

Hỡnh: Giao diện cập nhật người dùng

- Hướng dẫn sử dụng:

 Khi muốn thờm người dựng mới, quản trị viờn điền đầy đủ tờn người dựng, mật khẩu, nhập lại mật khẩu vào 3 textbox; chọn 1 trong 3 quyền sử dụng ở combobox (toàn quyền, xem, sửa). Sau đú ấn chọn nỳt LƯU, nếu tờn người dựng chưa tồn tại, mật khẩu 2 lần khai bỏo trựng khớp thỡ thụng tin người dựng mới sẽ lưu vào hệ thống.

 Quản trị viờn muốn xem danh sỏch người dựng thỡ ấn chọn nỳt xem, giao diện mới sẽ hiện ra:

Hỡnh: Giao diện danh sỏch người dùng

Muốn xúa tờn một người dựng, quản trị viờn chọn bản ghi thụng tin người dựng ở grid rồi chọn nỳt xúa.

- Kết quả: thờm mới hoặc xúa một bản ghi trong danh sỏch người dựng.

 Form đụ̉i mọ̃t khõ̉u người dùng

- Mục tiờu: thay đổi mật khẩu của người dựng truy cập vào chương trỡnh - Người sử dụng: tất cả người dựng đó đăng ký vào chương trỡnh

- Ảnh giao diện:

- Hướng dẫn sử dụng: Người dựng điề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 rồi chọn nỳt lệnh Đễ̉I nếu muốn thay đổi mật khẩu hoặc THOÁT nếu muốn hủy bỏ thao tỏc.

- Kết quả: thay đổi mật khẩu của người dựng. Lần đăng nhập sau người dựng sẽ sử dụng mật khẩu mới để đăng nhập vào chương trỡnh.

 Form danh mục vọ̃t tư

- Mục tiờu: quản lý thụng tin vật tư - Người sử dụng: phõn quyền - Ảnh giao diện:

Hỡnh: Giao diện danh mục vật tư

- Hướng dẫn sử dụng: Khi muốn thờm mới vật tư, người dựng điền đầy đủ thụng tin vào cỏc textbox và chọn loại vật tư ở combobox rồi ấn nỳt lệnh LƯU. Khi muốn sửa đổi hoặc xúa thụng tin vật tư đưa con trỏ chuột chọn 1 bản ghi trong grid rồi

ấn nỳt lệnh SỬA/XÓA. Người dựng muốn xem và in ra danh mục vật tư thỡ ấn chọn nỳt lệnh IN. (cỏc thao tỏc được xử lý tựy vào quyền của người dựng)

- Kết quả: thờm mới, sửa đổi hoặc xúa thụng tin về vật tư. Hiển thị kết quả ra Grid. In danh sỏch vật tư.

 Form danh mục nhà cung cṍp

- Mục tiờu: quản lý thụng tin về nhà cung cấp vật tư cho cụng ty - Người sử dụng: phõn quyền

- Ảnh giao diện

Hỡnh: giao diện danh mục nhà cung cấp

- Hướng dẫn sử dụng: Khi muốn thờm 1 nhà cung cấp mới người dựng di chuyển con trỏ chuột tới textbox và điền đầy đủ thụng tin vào cỏc textbox sau đú chọn nỳt lệnh LƯU. Muốn sửa/xúa thụng tin của nhà cung cấp nào, người dựng di chuyển con trỏ xuống grid và chọn bản ghi cần sửa rồi ấn nỳt lệnh SỬA/XÓA, tiến hàng sửa tại cỏc textbox rồi lại ấn nỳt lệnh LƯU để lưu lại. Người dựng muốn in danh sỏch nhà cung cấp chọn nỳt lệnh IN.

- Kết quả: thờm, sửa, xúa thụng tin nhà cung cấp, in danh mục nhà cung cấp.

 Form viờ́t phiờ́u nhọ̃p kho

- Mục tiờu: khai bỏo và lưu thụng tin phiếu nhập kho - Người sử dụng: phõn quyền

- Ảnh giao diện:

Hỡnh: Giao diện viết phiếu nhập

- Hướng dẫn sử dụng: Khi người dựng bắt đầu nhập thụng tin phiếu chọn nỳt lệnh NHẬP, điền thụng tin vào cỏc textbox, combobox ở trờn grid, sau đú nhập thụng tin về vật tư nhập kho vào grid bằng cỏch chọn nỳt lệnh THấM và điền trực tiếp vào bảng grid. Để lưu lại phiếu nhập vừa khai bỏo, người dựng chọn nỳt lệnh LƯU. Để in ra nội dung phiếu nhập vừa khai bỏo, chọn nỳt lệnh IN. Để hủy bỏ cỏc thụng tin vừa nhập hoặc nhập 1 phiếu mới chọn nỳt lệnh HỦY cỏc textbox, combobox và grid sẽ trắng để người dựng nhập tiếp thụng tin phiếu nhập khỏc.

 Form viờ́t phiờ́u xuṍt kho

- Mục tiờu: khai bỏo và lưu thụng tin phiếu xuất kho - Người dựng: phõn quyền

- Ảnh giao diện:

Hỡnh: Giao diện viết phiếu xuất kho

- Hướng dẫn sử dụng: tương tự như viết phiếu nhập. Nếu số lượng vật tư tồn trong kho khụng đủ để xuất sẽ hiện ra thụng bỏo, ấn OK để khai bỏo lại:

Hỡnh: Giao diện thụng bỏo khụng đủ vật tư xuất

 Form kiờ̉m tra tụ̀n kho

- Mục tiờu: kiểm tra tồn kho tức thời tại thời điểm hiện tại - Ảnh giao diện:

Hỡnh: Giao diện kiểm tra tồn kho

- Hướng dẫn sử dụng: Chọn mó kho và mó vật tư ở combox sau đú ấn nỳt lệnh XEM.

 Form tỡm kiờ́m

- Mục tiờu: tỡm kiếm thụng tin theo yờu cầu của người sử dụng - Ảnh giao diện:

Hỡnh: Giao diện truy vấn thụng tin

- Hướng dẫn sử dụng: Người sử dụng ấn vào tờn danh mục chứa thụng tin muốn tỡm kiếm tại cột CHỌN DANH MỤC, chọn đối tượng cần tra cứu theo mó/ tờn/ … sau đú nhập thụng tin tương ứng của đối tượng đú vào textbox, sau đú ấn nỳt lệnh TÌM. Muốn tra cứu 1 đối tượng mới ấn nỳt lệnh TRỞ LẠI .

- Kết quả: thụng tin về đối tượng tra cứu hiện ra ở bảng Grid.

 Mụ̣t sụ́ form xem và in ṍn

- Mục tiờu: in ra bỏo cỏo, sổ chi tiết

- Người sử dụng: người dựng cú toàn quyền hoặc quyền sửa - Một số ảnh giao diện:

-

Hỡnh: Giao diện in bỏo cỏo tồn kho vật tư

Hỡnh: Giao diện in thẻ kho

Hỡnh: Giao diện in bỏo cỏo nhập – xuất - tồn

- Hướng dẫn sử dụng: Người sử dụng điền thụng tin ngày thỏng và chọn đối tượng theo dừi của bỏo cỏo rồi ấn nỳt lệnh IN

- Kết quả: đưa ra bỏo cỏo theo yờu cầu của người dựng.

 Form sao lưu dữ liợ̀u

- Mục tiờu: sao lưu dữ liệu, đảm bảo an toàn dữ liệu

- Người sử dụng: quản trị viờn và người dựng cú toàn quyền - Hướng dẫn sử dụng:

Chọn OK để hiện ra của số chọn đường dẫn sao lưu:

Chọn thư mục chứa và chọn OK.  Sao lưu tựy chọn:

Chọn nỳt lệnh BROWSE để chọn địa chỉ nguồn và đớch hoặc cú thể điền địa chỉ vào ngay textbox nếu biết chớnh xỏc. Chọn nỳt lệnh SAO LƯU.

- Kết quả: dữ liệu được sao lưu theo yờu cầu của người dựng.

 Form bảng kờ danh sách phiờ́u nhọ̃p

- Mục tiờu: kờ những phiếu nhập tại một kho theo ngày thỏng nhập - Ảnh giao diện:

Hỡnh: Giao diện danh sỏch phiếu nhập kho

- Hướng dẫn sử dụng: người dựng điền thụng tin ngày thỏng vào textbox, chọn thụng tin về kho ở conbobox, ấn nỳt lệnh LỌC. Muốn xem danh sỏch phiếu nhập tại khoảng thời gian khỏc hoặc tại kho khỏc, người dựng chọn nỳt lệnh TRỞ LẠI.

- Kết quả: danh sỏch phiếu nhập được hiện ra ở grid phớa trờn, khi di chuyển con trỏ chuột đỏnh dấu tới bản ghi của phiếu nhập nào thỡ chi tiết của phiếu nhập đú hiện ở grid phớa dưới.

3.3.3.3. Một số Report trong chương trỡnh:

 Danh mục vọ̃t tư:

 Phiờ́u nhọ̃p:

 Báo cáo nhọ̃p – xuṍt – tụ̀n

 Thẻ kho

3.3.3.4. Một số đoạn code trong chương trỡnh

 Kiờ̉m tra tụ̀n kho: kt_ton.prg

FUNCTION tinh_ton() LPARAMETERS x,y SELECT tondauky

LOCATE FOR ALLTRIM(tondauky.ma_vt) == ALLTRIM(x) AND ; ALLTRIM(tondauky.makho)==ALLTRIM(y) IF FOUND()then tondk = slg_ton ELSE tondk = 0 ENDIF SELECT dongnhap INDEX on sophieu TO e1 SELECT phieunhap INDEX on sophieu TO e2

SET RELATION TO sophieu INTO dongnhap SELECT dongnhap

INDEX on sophieu TO e3 SELECT phieuxuat

INDEX on sophieu TO e4

SET RELATION TO sophieu INTO dongnhap

SELECT dongnhap.sophieu, phieunhap.makho, dongnhap.ma_vt, dongnhap.soluong, dongnhap.dongia;

FROM dongnhap, phieunhap; WHERE

ALLTRIM(dongnhap.sophieu)==ALLTRIM(phieunhap.sophieu) INTO TABLE temp

SELECT temp

SUM soluong TO tongnhap FOR

ALLTRIM(phieunhap.sophieu)==ALLTRIM(dongnhap.sophieu); AND temp.ma_vt=ALLTRIM(x) AND temp.makho = ALLTRIM(y) SELECT dongnhap.sophieu, phieuxuat.makho, dongnhap.ma_vt, dongnhap.soluong, dongnhap.dongia;

FROM dongnhap, phieuxuat; WHERE

ALLTRIM(dongnhap.sophieu)==ALLTRIM(phieuxuat.sophieu) INTO TABLE temp

SELECT temp

SUM soluong TO tongxuat for

ALLTRIM(phieuxuat.sophieu)==ALLTRIM(dongnhap.sophieu);

AND temp.ma_vt=ALLTRIM(x) AND temp.makho = ALLTRIM(y) RETURN ( tondk - tongxuat + tongnhap)

Endfunc

 Chuyờ̉n tiờ̀n viờ́t bằng sụ́ sang tiờ̀n viờ́t bằng chữ: tienchu.prg

FUNCTION tienchu LPARAMETERS sotien IF (sotien=0) THEN chuoi2="Không đồng" ELSE IF ABS(sotien)>999999999999 THEN chuoi2="Số quá lớn" ELSE IF sotien<0 THEN chuoi2="Trừ" ELSE chuoi2="" ENDIF chuoitien=STR(ABS(sotien),12) DIMENSION chuso(9),donvi(4) STORE "tỷ" TO donvi(1)

STORE "triệu" TO donvi(2) STORE "ngàn" TO donvi(3) STORE "đồng" TO donvi(4) STORE "một" TO chuso(1) STORE "hai" TO chuso(2) STORE "ba" TO chuso(3) STORE "bốn" TO chuso(4) STORE "năm" TO chuso(5) STORE "sáu" TO chuso(6) STORE "bảy" TO chuso(7) STORE "tám" TO chuso(8) STORE "chín" TO chuso(9) FOR i=1 TO 4

nhom=SUBSTR(chuoitien,i*3-2,3)

IF nhom<>SPACE(3) AND nhom<>"000" then

chuoi2=chuoi2+baso(nhom)+donvi(i)+SPACE(1) ELSE IF i=4 then chuoi2=chuoi2+" đồng" ENDIF ENDIF ENDFOR ENDIF ENDIF RETURN ALLTRIM(chuoi2)

function baso PARAMETERS nhom tram=VAL(LEFT(nhom,1)) chuc=VAL(SUBSTR(nhom,2,1)) dv=VAL(RIGHT(nhom,1)) chuoi="" IF tram<>0 then chuoi=chuoi+chuso(tram)+" trăm " IF chuc=0 AND dv<>0 then

chuoi=chuoi+" lẻ " ENDIF

ENDIF

IF chuc<>0 AND chuc<>1 then chuoi=chuoi+chuso(chuc)+" mơi " ENDIF IF chuc=1 then chuoi=chuoi+" mời " ENDIF DO case CASE dv=1

IF chuc<>0 AND chuc<>1 then chuoi=chuoi+" mốt " ELSE chuoi=chuoi+chuso(dv)+SPACE(1) ENDIF CASE dv=5 IF chuc=0 then chuoi=chuoi+chuso(dv)+SPACE(1) ELSE chuoi=chuoi+" lăm " ENDIF

CASE dv<>1 AND dv<>5 AND dv<>0 chuoi=chuoi+chuso(dv)+SPACE(1) ENDCASE RETURN chuoi  Tính tụ̉ng nhọ̃p: tong_nhap.prg PROCEDURE tong_nhap PARAMETERS x,y,z set safety off

CLOSE all

SELECT a1.sophieu, a1.ngaynhap, a1.makho,;

dongnhap.ma_vt, dongnhap.soluong, dongnhap.tongtien; FROM phieunhap a1, dongnhap;

WHERE ALLTRIM(dongnhap.sophieu)==ALLTRIM(a1.sophieu); INTO TABLE temp1

SELECT temp1

SELECT temp1.sophieu, temp1.ngaynhap, temp1.makho, dm_kho.tenkho,;

temp1.ma_vt, dm_vt.ten_vt, dm_vt.dvt, temp1.soluong, temp1.tongtien;

FROM temp1, dm_kho, dm_vt;

WHERE ALLTRIM(temp1.ma_vt)==ALLTRIM(dm_vt.ma_vt) AND ; ALLTRIM(temp1.makho)==ALLTRIM(z) AND ;

ALLTRIM(dm_kho.makho)==ALLTRIM(z); INTO TABLE temp

SELECT temp

index on temp.ma_vt to p

TOTAL TO nhap1 ON temp.ma_vt FOR temp.ngaynhap>=x AND temp.ngaynhap<=y

use nhap1 in 0 index on ma_vt to q SELECT nhap1

LOCATE FOR ALLTRIM(nhap1.makho)==ALLTRIM(z) IF FOUND() then

REPORT FORM report\tong_nhap.frx PREVIEW ELSE

MESSAGEBOX("Ko có nghiệp vụ nhập bất kì loại vật t nào trong thời gian này!")

ENDIF

SELECT nhap1 USE

DELETE FILE nhap1.dbf

 Tính tụ̉ng xuṍt: tong_xuat.prg

PROCEDURE tong_xuat PARAMETERS x,y,z set safety off

CLOSE all

SELECT a1.sophieu, a1.ngayxuat, a1.makho,;

dongnhap.ma_vt, dongnhap.soluong, dongnhap.tongtien; FROM phieuxuat a1, dongnhap;

WHERE ALLTRIM(dongnhap.sophieu)==ALLTRIM(a1.sophieu); INTO TABLE temp1

SELECT temp1.sophieu, temp1.ngayxuat, temp1.makho, dm_kho.tenkho,;

temp1.ma_vt, dm_vt.ten_vt, dm_vt.dvt, temp1.soluong, temp1.tongtien;

FROM temp1, dm_kho, dm_vt;

WHERE ALLTRIM(temp1.ma_vt)==ALLTRIM(dm_vt.ma_vt) AND ; ALLTRIM(temp1.makho)==ALLTRIM(z) AND ;

ALLTRIM(dm_kho.makho)==ALLTRIM(z); INTO TABLE temp

SELECT temp

index on temp.ma_vt to p

TOTAL TO xuat1 ON temp.ma_vt FOR temp.ngayxuat>=x AND temp.ngayxuat<=y use xuat1 in 0 index on ma_vt to q SELECT xuat1 dem=RECCOUNT() IF dem=0

MESSAGEBOX("Ko có nghiệp vụ xuất bất kì loại vật t nào trong thời gian này!")

else

REPORT FORM report\tong_xuat.frx PREVIEW ENDIF

 Khởi đụ̣ng chương trỡnh: prgchinh.prg

CLOSE ALL

CLOSE DATABASES ALL cpath=SYS(16)

cpath='['+LEFT(cpath,RAT("\",cpath)-1)+']' SET DEFAULT TO &cpath.

SET DATE TO french SET SAFETY OFF Set Date DMY Set Century On

Set Notify Off Set Talk Off Set Deleted On Set Exact Off Set Null Off

SET SYSMENU OFF SET STATUS BAR OFF SET TALK OFF

SET UDFPARMS ON PUBLIC quyen1 STORE '' TO quyen1

DO FORM FULLPATH("")+"form\dangnhap.scx" READ EVENTS

3.3.3.5. Những vấn đề đồ ỏn đã và chưa đạt được

Trong thời gian cú hạn, tỏc giả đề tài đó tập trung nghiờn cứu phỏt triển hệ thống quản lý nhập – xuất vật tư tại cụng ty Cổ phần Đầu tư và Xõy dựng Tiền Phong. Sau đõy là một số kết quả chớnh mà đồ ỏn đó và chưa đạt được:

- Phõn tớch, thiết kế hệ thống thống tin quản lý nhập – xuất vật tư phự hợp với tỡnh hỡnh thực tế của cụng ty Cổ phần Đầu tư và Xõy dựng Tiền Phong.

- Phần mềm cú giao diện đẹp, dễ dàng truy cập và sử dụng một cỏch nhanh chúng.

- Cỏc bỏo cỏo trong chương trỡnh đều dựa trờn cỏc mẫu bỏo cỏo do cụng ty đang ban hành.

- Chưa phản ỏnh được đầy đủ và đi sõu chi tiết hết tất cả cỏc hoạt động của cụng ty.

Tuy đó cố gắng hết sức nhưng đồ ỏn khụng trỏnh khỏi những thiếu sút, hạn chế. Tỏc giả đồ ỏn mong tiếp tục nhận được những ý kiến đúng gúp quý bỏu của cỏc thầy cụ giỏo và bạn đọc để ngày càng hoàn thiện hơn.

KẾT LUẬN

Tỏc động mạnh mẽ của Cụng nghệ thụng tin đó tạo ra thay đổi trong nhiều lĩnh vực trong đời sống kinh tế và xó hội. Trong nền kinh tế thị trường, khi cạnh tranh là vấn đề quyết định đến sự sống cũn của mỗi doanh nghiệp thỡ ứng dụng tin học vào cụng tỏc quản lớ trở thành một tất yếu, trong đú hệ thống quản Lý nhập – xuất vật tư ở những cụng ty xõy dựng là cực kỡ quan trọng. Trong đề tài “Xõy dựng chương trỡnh

quản lý nhọ̃p – xuṍt vọ̃t tư tại Cụng ty Cụ̉ phần Cụ̉ phần Đầu tư và Xõy dựng Tiờ̀n Phong” em đó nờu lờn thực trạng và đỏnh giỏ về cụng tỏc tổ chức quản lý vật tư

ở cụng ty, qua đú đưa ra giải phỏp xõy dựng hệ thống quản lý nhập – xuất vật tư tương ứng với cụng việc của kế toỏn quản lý vật tư trong cụng ty.

Mặc dự đó cố gắng rất nhiều nhưng do điều kiện về thời gian cũng như trỡnh độ của bản thõn cũn hạn chế nờn đề tài này vẫn chưa thể đỏp ứng được toàn bộ cỏc chức năng mà yờu cầu đặt ra. Em kớnh mong sẽ nhận được ý kiến đúng gúp của cỏc thầy cụ giỏo, cỏc cụ chỳ, anh chị trong phũng kế toỏn cụng ty, để em cú thờm được nhiều kinh nghiệm hơn nữa phục vụ cho cụng việc sau này.

Một lần nữa em xin chõn thành cảm ơn cỏc cỏn bộ của phũng kế toỏn cụng ty Cổ phần Đầu tư và Xõy dựng Tiền Phong, cỏc thầy giỏo, cụ giỏo; đặc biệt là thầy giỏo – Thạc sĩ Phạm Minh Ngọc Hà đó tạo điều kiện, tận tỡnh giỳp đỡ, chỉ bảo để em hoàn thành đồ ỏn.

.

Hà Nội, ngày 09 thỏng 05 năm 2010

Sinh viờn

TÀI LIỆU THAM KHẢO

[1] – Ths.Vũ Bỏ Anh – Bài giảng gốc Cơ sở dữ liệu học phần 2 – Hà Nội, 2009. [2] - Nguyễn Văn Vỵ - Phõn tớch thiết kế hệ thống thụng tin quản lý. Nhà xuất bản khoa học tự nhiờn và cụng nghệ Hà Nội , 2007.

[3] – Nguyễn Ngọc Minh (chủ biờn), Lờ Thanh Tựng, Hoàng Đức Hải, Nguyễn Đỡnh Tễ (hiệu chỉnh)- Sử dụng và khai thỏc Microsoft Visual Foxpro 6.0 – Nhà xuất bản Giỏo dục, 2000.

[4] – Hoàng Hồng – Foxpro – Lý thuyết - Cấu trỳc lập trỡnh. Nhà xuất bản Giao thụng vận tải, 1993.

[5] – PGS.TS Ngụ Thế Chi – TS Trương Thị Thuỷ - Giỏo trỡnh kế toỏn Tài chớnh - Học viện tài chớnh. Nhà xuất bản Tài chớnh – Hà Nội , 2006.

[6] – PGS.TS Ngụ Thế Chi – TS Trương Thị Thuỷ - Giỏo trỡnh kế toỏn doanh nghiệp - Học viện tài chớnh. Nhà xuất bản thống kờ – Hà Nội, 2003.

[7] – Trang http://www.hvtc.edu.vn/forum [8] – Trang http://www.webketoan.com

PHỤ LỤC

 Form đăng nhọ̃p

- Sự kiện Load CLOSE ALL

SET SAFETY OFF SET DELETED ON USE tables\nguoidung IN 0

- Sự kiện Keypress

LPARAMETERS nKeyCode, nShiftAltCtrl IF nkeycode=27

thisform.Release Endif

- Sự kiện Click của nỳt lệnh “ĐĂNG NHẬP”