Mô hình quản lý bán hàng nước cấp xã

Li m u
Ngày nay với sự phát triển không ngừng của thế giới thì nghành công nghệ thông
tin cũng không phải là một ngoại lệ. Thế giới ngày càng hớng nhiều tới hơn đến
sự tự động hoá, bởi lẽ nó khiến cho công việc của con ngời trở nên nhẹ nhàng
hơn, thuận tiện hơn và hiệu quả hơn từ đó nâng cao mức sống của họ. Trong đó
sự góp công không nhỏ của nghành Công nghệ thông tin, sự học hoá đã đi vào
từng ngõ nghách của cuộc sống với tất cả các tầng lớp, các bộ phận nghành
nghề.
Với công việc quản lý thì rõ ràng là sự tự động hoá và quản lí bằng máy tính đã
trở nên rất cần thiết. Xuất phát từ nhu cầu thực tiễn này mà nhóm chúng em đã
tìm hiểu nghiên cứu và xây dựng phần mềm quản lý mua và bán nớc này với
mục đích có thể vận dụng đựoc những kiến thức mình đã học tại nhà trờng để tạo
ra một sản phẩm có ích cho xã hội.
Qua quá trình học tập chúng em đã đúc kết đợc nhiều kinh nghiệm học tập và
nghiên cứu. Với đè tài quản lý mua và bán nớc chúng em đã cố tìm hiểu về hệ
thống mua và bán nớc, về các phơng thức quản lý. Hi vọng với những gì chúng
em đã tìm hiểu và nghiên cứu trong thời gian học tập sẽ giúp chúng em hoàn
thành tốt đề tài này.Nếu nh có gì sai sót chúng em rất mong đợc sự đóng góp
quý báu của thầy cô giáo và các bạn đọc.

Nhóm chúng em xin chân thành cảm ơn!

Khảo sát bài toán thực tế
1. Các đặc điểm cơ bản của bài toán quản lý nớc
Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 1


Mục đích cơ bản của việc xây dựng hệ thống chơng trình quản lý nớc phục
vụcho sinh hoạt, sản xuất, kinh doanh.có hiệu quả, cung cấp các đờng ống

bơm, trạm bơm, máy móc thiết bị một cách hoàn thiện,để các cán bộ có thể quản
lý dễ dàng hơn.
Để hoàn thành tốt các mục đích trên thì hệ chong trình phảI thực hiện đợc cơ bản
các nhiệm vụ cụ thể sau:
Theo dõi phản ánh chính xác, đầy đủ và kịp thời về tình hình hiện tại, về công tơ,
định mức, đơn giá
2 .nguyên tắc quản lý và mô tả bài toán
Công tác quản lý nớc tại công ty NSHN những năm gần đây, đI đôI với sự phát
triển mạnh mẽ của khoa học kĩ thuật, tin học đã đI sâu vào ứng dụng trong mọi
lĩnh vực khác nhau trong đời sống xã hội. Sự phát triển của các nghành, các quan
hệ kinh tế, sự mở rộng của mạng lới dịch vụ và sự nghiệp tăng cờng quy mô của
nó đã làm tăng trởng vợt bậc các luồng thông tin. Các sự kiện đó đã làm cho
công ty quản lý càng trở nên phức tạp.
Tin học hoá công tác quản lý các đơn vị kinh tế, hành chính là một trong những
đơn vị, lĩnh vực quan trọng ứng dụng trong tin học. Việc ứng dụng tin học vào
việc quản lý không những làm tăng đáng kể năng suet và chất lợng lao động mà
còn tạo điều kiện cho việc xây dựng một hệ thống thông tin quản lý chặt chẽ, có
cơ sở khoa học.
Côgntýac quản lý nớc là một trong những vấn đè bức xúc, luôn đợc sự quan tâm
chỉ ở số lợng mà còn cả phẩm chất của từng ngời, ngoài việc quản lý chung,
công tác tổ chức còn vô vàn cấc công việc cụ thể, chi tiết mang tính thống kê và
thông qua đó đa ra những đánh giá, hỗ trợ quản lý ra quy định về chiến lợc phát
triển đội ngũ.
- Khi các cán bộ dến đăng ký cấp nớc thì ngời quản lí, làm thủ tục cấp nớc bao
gồm:
Nhập hồ sơ khách hàng
Nhập loại sử dụng
Nhập các chỉ số
Các thông tin cần thiết. . . . .

Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 2


Một cách tổng quan về hệ quản lí này phải đáp ứng những yêu cầu cụ thể nh
sau:
- hệ thống chơng trình phảI dễ sử dụng, có tính khả thi,đầy đủ thông tin tránh
d thừa dữ liệu
- tự chỉnh sửa các số liệu có liên quan mỗi khi dữ liệu vào đợc thay đổi hoặc
các tài liệu khác theo yêu cầu của ngời dùng.
- Tự động tính tiền nớc, chuyển tháng, sao lu tháng
- Tiết kiệm đợc thời gian công sức các công việc thủ công
- Chơng trình cung cấp các công cụ khai thác dữ liệu mạnh, nhanh gọn chính
xác về hệ thống trợ giúp, hớng dẫn đầy đủ.
- Tự động in báo cáo thống kê chi tiết và thống kê tổng hợp.
Bài toán quản lý nớc nh vậyphải đợc xây dụng và thiết kế sao cho thoả
mãn những yêu cầu sau:
- Cập nhật các thông tin quản lý về số công tơ, tên khách hàng
- Lập danh sách khách hàng sủ dụng nớc
- Lập các hoá đơn
- Xử lý cac thông tin
- Tìm kiếm các thông tin của khách hàng, theo dõi mã công tơ, tên khách hàng,
loại sủ dụng theo một điều kiện cụ thể nào đố mà yêu cầu công việc quản
lý có thể đòi hỏi.
- Tổng hợp báo cáo
- In ra giấy hoặc hiện ra màn hình các thông tin yêu cầu của ngời dùng nh:
- In hoá đơn thanh toán
- In báo cáo
- In giấy báo nộp tiền nớc

- In danh sách khách hàng sủ dụng nớc

3.Các thông tin cần quản lý
* Thông tin ra ngoài hệ thống:
Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 3


Căn cứ vào nhu cầu thực tế, mục tiêu chính của hệ thống quản lý là quản
lý nớc trong toàn bộ các khu vực của địa bàn tỉnh Thái Bình, uá trình quản lý lu
trữ, tìm kiếm, tổng hợp thống kê, tính tiền nớc thống kê,sao lu dũ liệu hàng
tháng
- Phân tích hệ thống, sử dụng biểu đồ phân cấp chức năng và biể đồ luồng dữ
liệu với các mức khác nhau
- Thiết kế chi tiết chơng trình:
- Thông tin vào của hệ thống
+ Các chỉ số hàng tháng của hộ sử dụng nớc
+ Các thông tin về khách hàng nh địa chỉ khu vực, loại sử dụng
+ Các thông tin về loại sử dụng, đơn giá tơng ứng của loại sử dụng
+Tiền nớc khách hàng nộp hàng tháng.
- Thông tin ra của hệ thống
+ In các bảng thống kê, hoá đơn thanh toán tiền nớc theo mẫu quy định theo mẫu
số AA/2003
+Các bản báo cáo kết xuất sao lu hàng tháng
+ Các thông tin tìm kiếm, hỏi đáp. Đây là các thông tin đầu ra trả lời các câu hỏi
tìm kiếm theo các thợc tính, kết hợp với các phép nh:AND,OR, LIKE Để rồi
thống kê các danh sách thoả mãn một hoặc nhiều thuộc tính nh yêu cầu.
b)- Các thông tin
1. Thông tin về khách hàng

-Mã khách hàng
-Họ đệm
-Tên
-Địa chỉ
-Điện thoại
-Mã khu vực
-Ngày hợp đồng
-Mã hợp đồng
-Số ngày hợp đồng
Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 4


2. Thông tin về khu vực
-Mã khu vực
-Tên khu vực
-Ngời phụ trách
3. Thông tin về loại sử dụng
- Mã loại sử dụng
- Tên loại sử dụng
4.Thông tin về công tơ
- Mã khách hàng
- Mã công tơ
- Mã loại sử dụng
5.Thông tin về chỉ số nớc
-Mã công tơ
- Tháng
- Năm
- Chỉ số đầu

-Chỉ số cuối
6.Thông tin về giá tiền
- Mã loại sử dụng
-Định mức sử dụng 1
- Định mửc sử dụng 2
- Định mửc sử dụng 3
- Đơn giá 1
- Đơn giá 2
-Đơn giá 3
4. Các yêu cầu quản lý nớc :
a.Nhập hồ sơ khách hàng
Lập danh mục tất cả các khách hàng đăng ký sử dụng nớc theo từng loại sử dụng
khác nhau:
Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 5


1.Danh mục khách hàng
Mã khách hàng

Tên khách hàng

Địa chỉ

Tên khu vực

Ngời phụ trách

2.Danh mục khu vực

Mã khu vực

3.Danh mục loại sử dụng
Mã loại sử dụng

Tên loại sử dụng

4. Danh mục công tơ
Mã công tơ

Mã khách hàng

Mã loại sử dụng

5.Danh mục chỉ số nớc
Mã loại SD

Tháng

Năm

Chỉ số đầu

Chỉ số cuối

b.Cấp nớc:
Hàng tháng ngời phụ trách khu vực có trách nhiệm gửi phiếu có mẫu nh
sau đến ngời sử dụng.
5.Nhợc điểm của hệ thống hiện tại và dự án hệ thống mới:
Hệ thống quản lý Nớc ở các trạm nớc hiện nay tuy hoàn toàn bằng thủ

công vì thế gặp rất nhiều khó khăn thiếu sót:
Khó theo dõi chặt chẽ đợc việc trả tiền nớc đúng hạn, quá hạn nên xảy ra
thất thoát.
Việc báo cáo thống kê theo quy định theo định kỳ hàng tháng nhng ttrong
thực tếkhó thực hiện đúng kế hoạch.Bởi vì việc đó làm thủ công mất rất nhiều
thời gian và công sức.Bên cạnh đó, trong các báo cáo,thống kê có rất nhiều dữ

Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 6


liệu sử dụng chung.Việc sao chép rất dễ nhầm lẫn dẫn đến kết quả báo cáo,
thống kê mạng tính chính xác không cao.
Hiện nay tin học hoá đã đợc ứng dụng rộng rãI trong công tác quản lỷơ mọi
lĩnh vực. Vì vậy việc đua máy tính vào phục vụ quản lý là cần thiết và pù hợp với
xu thế chung của mọi cơ sở.
Chỉ có tin học hoá trong Quản Lý Nớc thì mới có khả năng khắc phục dợc các nhợc điểm của hệ thống quản lý Nớc hiện tại, phục vụ khách hàng đuựoc
tốt hơn. việc lập báo cáo, thống kê bằng máy vi tính sẽ tận dụng đợc các dữ liệu
dùng chung, vì thế việc báo cáo , thống kê sẽ đợc kịp thời, đầy đủ, chính xác hơn
II:phân tích thiết kế hệ thống
1-Các chức năng của hệ thống quản lý nớc
a.Module Cập Nhật Dữ Liệu
- Nhập danh sách khách hàng
- Nhập khu vực
- Nhập loại sử dụng
- Nhập chỉ số nớc
- Nhập đơn giá
- Nhập danh mục công tơ
- Cập nhật đơn giá

b.Module Tìm kiếm và Sửa Chữa
- Tìm kiếm theo mã khách hàng
- Tìm kiém theo mã công tơ
-

Tìm kiếm theo khu vực

- Tìm kiếm theo loại sử dụng
- Tìm kiếm theo tên
- Tìm kiếm theo họ và tên
c.Module Kết Xuất Thông Tin
- Bảng đơn giá
- Danh sách khách hàng
Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 7


2- Xây dựng biểu đồ phân cáp chức năng của hệ thống quản lý nớc
3- phân tích cơ sở dữ liệu về dạng chẩn 3NF
a.Cơ sở dữ liệu
- Tập thuộc tính (U)
Căn cứ vào việc tìm hiểu thực tế chhúng em cảm nhận they để quản lý nớc
tong một trạm nớc hay một nhà máy nào đó cần phảI lu trữ các thuộc tính
sau:

-

Stt
1

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

Thuộc tính
MAKH
HODEM
TEN
NGAYHD
MAHD
DIACHI

DIENTHOAI
SONGAYHD
MAKHUVUC
MACT
MALOAISD
THANG
NAM
CHISODAU
CHISOCUOI
DINHMUC1
DINHMUC2
DINHMUC3
DONGIA1
DONGIA2
DONGIA3
TENKHUVUC
NGUOIPT

Kiểu
Character
Character
Character
Date/time
Character
Character
Character
Numeric
Character
Character
Character

Numeric
Character
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Numeric
Character
Character

Giải thích
Mã khách hàng
Họ đệm
Tên
Ngày hợp đồng
Mã hợp đồng
Địa chỉ
Điện thoại
Số ngày hợp đồng
Mã khu vực
Mã công tơ
Mã loại sử dụng
Tháng
Năm
Chí số đầu
Chỉ số cuối
Định mức 1

Định mức 2
Định mức 3
Đơn giá 1
Đơn giá 2
Đơn giá 3
Tên khu vực
Ngời phụ trách

b.Tập phụ thuộc hàm F:
F=

MACT > MKV

Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 8


MACT > CHISODAU
MACT > CHISOCUOI
MACT > TIEN
MACT > TONG
MACT > LOAISD
LOAISD >

DONGAI

MAKHUVUC > DIACHI
MAKHUVUC > DIENTHOAI
MAKHUVUC > HODEM

MAKHUVUC > TEN
MACT,MAKHUVUC > SONGAYHD
MACT,MAKHUVUC > KHACHHANG
III. thiÕt kÕ hÖ thèng
1.m« h×nh thùc thÓ liªn kÕt
a. thùc thÓ KHACHHANG( kh¸ch hµng)

stt

Thuéc tÝnh

1

MAKH

2
3
4
5
6
7
8
9

HODEM
TEN
DIENTHOAI
DIACHI
NGAYHD
MAHD

SONGAYHD
MAKHUVUC

b. Thùc thÓ KHUVUC( khu vùc)
stt

Thuéc tÝnh

Mô hình quản lý bán hàng nước cấp xã

Trang 9


1
2
3

MAKHUVUC
TENKHUVUC
nguoipt

c. thùc thÓ congto ( c«ng t¬)
stt
1
2
3

Thuéc tÝnh
MACT
Maloaisd

makh

d.thùc thÓ dongia (®¬n gi¸)
stt
1
2
3
4
5
6
7

thuéc tÝnh
MALOAISD
DINHMUC1
DINHMUC2
DINHMUC3
DONGIA1
DONGIA2
DONGIA3

E. THùC THÓ loaisudung( lo¹i sö dông)
Stt
1
2

thuéc tÝnh
maloaisd
tenlo¸id

f. thùc thÓ chisonuoc (chØ sè níc )
stt
1
2
3
4
5

thuéc tÝnh
mact
thang
nam
chisodau
chisocuoi

2.thiÕt kÕ file d÷ liÖu
Mô hình quản lý bán hàng nước cấp xã

Trang 10


a. bảng khách hàng
stt
1
2
3
4
5
6
7

8
9

Tên trờng
Makh
Hodem
Ten
Ngayhd
Mahd
Diachi
Dienthoai
Songayhd
makhuvuc

Kiểu
Character
Character
Character
datetime
Character
Character
Character
Numberric
Character

độ rộng
15
25
15
8

15
30
11
10
15

Kiểu
Character
Character
Character

độ rộng
15
15
15

Kiểu
Character
Numeric
Character
Numeric
Numeric

độ rộng
15
2
4
10
10

Kiểu
Character
numeric
Numeric
Numeric
Numeric
numeric
numeric

độ rộng
15
10
10
10
10
10
10

Kiểu
Character
Character
Character

độ rộng
15
25
10

b. bảng công tơ
Stt

1
2
3

Tên trờng
Makh
Mact
Maloaisd

c. bảng chỉ số nớc
Stt
1
2
3
4
5

Tên trờng
Mact
Thang
Nam
Chisodau
Chisocuoi

d. bảng giá tiền

Stt
1
2
3

4
5
6
7

Tên trờng
Maloaisd
Dinhmuc1
Dinhmuc2
Dinhmuc3
Dongia1
Dongia2
Dongia3

e. bảng khu vực
Stt
1
2
3

Tên trờng
Makhuvu c
Tenkhuvuc
nguoipt

Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 11

f.bảng loại sử dụng
stt
1
2

Tên trờng
Maloaisd
Tenloaisd

Kiểu
Character
Character

độ rộng
15
30

Thiết kế module chơng trình
a. thiết kế chơng trình
b. chức năng của các module chơng trình
Cập nhật dữ liệu
Cập nhật đơn giá
Nhập chỉ số nớc
Nhập danh mục công tơ
Nhập khách hàng
Nhập khu vực
Nhập loại sử dụng
Tìm kiếm
Tìm kiếm khách hàng
Tìm kiếm khu vực

Tìm kiếm theo loại sử dụng
Tìm kiếm theo mã hợp đồng
Báo cáo
Bảng đơn giá
Danh sách khách hàng
Iv- thiết kế giao diện
a-cập nhật dữ liệu
1.FORM NHP CH S NC
tác dụng:giúp ngời quản lý điền những thông tin về chỉ số công tơ, mã công tơ
,chỉ số tiêu dùng để biết xem ngời dùng là bao nhiêu và từ đó in ra hóa đơn đa
cho khách hàng ,cũng nh lu trữ vào hệ thống quản lý

Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 12


2 form cập nhật đơn giá
Tác dụng: dựa vào bảng số liệu ở đây giúp cho ngòi lập hóa đơn tính toán đợc
số tiền mà ngời dùng phảI trả .đồng thời ngời sử dụng cũng dựa vao đó biết
đựoc minh sử dụnh ở múc nào ,với số tiền là bao nhiêu

3.form danh mục công tơ

Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 13


Nguời đI chốt công tơ sẽ nhập những thông số vào bảng .để tránh sự nhầm lẫn ta

có bảng mã và loại sử dụng.đI kèm là mã khách hàng .cứ mỗi lần có gì thay đổi
liên quan tới một trong những thông số nói trên thì phụ trách phảI điền bổ xung
4. form danh mc khách hng

Danh sách :cho biết số lợng khách hàng đang sử dụng nớc với những thông tin
cụ thể về ngời sử dụng ,ngày sử dụng,ngày ký hợp đồng sử dụng ,mã hợp đồng
,địa chỉ của ngời ký hợp đồng vớ nhà cung cấp
5.form nhập loại sử dụng

Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 14


đây là form khi ta nhin vào đó sẽ biết đựoc mục đích của ngời sử dụng ,cũng nh
mã số sử dụng.mỗi hộ gia đình sử dụng nớc vào mục đích khác nhau nh:sinh
hoạt,kinh doanh.ta cần điền đầy đủ những thông tin ,đặc biệt là mã loại sử dụng
6. form tìm kiếm khách hàng
Khi một khách hàng nào đó đến gặp nhà cung cấp yêu cầu thay đổi hay tìm kiếm
thông tin thì ta nhập mã số khách hàng .khi chỵa form này sẽ tìm cho ta kết quả
của khách hàng nếu nh ta nhập thông tin của khách ngay từ đầu và đã coc trong
hệ thống
7.form tìm kiếm khu vực

Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 15


Còng nh t×m kiÕm kh¸ch hµng .khi t×m kiÕm khu vù ta cÇn nhËp m· khu vùc cÇn

t×m
8. form t×m kiÕm theo m· sö dông

Mô hình quản lý bán hàng nước cấp xã

Trang 16


Mã sử dụng nh đã nói ở trên là khi ngòi sử dụng nớc vào mục đích khác
nhau.nhà phân phối sẽ tìm đợc xem có bao nhiêu thành phần ,cá thể ,hộ gia đình
sử dụng nớc vào mục đích gì
9. form tìm kiếm theo mã hợp đồng

Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 17


Bảng mã hợp đồng thực ra giúp ta tim kiếm những bản hợp đồng đã ký giữa nhà
cung cấp vối ngời tiêu dùng

B. bảng report designer
Là một bảng hóa đơn kê khai đầy đủ những gì liên quan tới nhà cung cấp và
khách hàng .bản report này sẽ đợc in ra để nhà cung cấp đa cho khách hàng ,đầy
đủ về mặt pháp lý ,cũng nh con giấu và chữ ký của hai bên .
Dới đây là hai bảng report tiêu biểu trong mô hình quản lý bán nớc cấp xã .
1.bảng danh sách đơn giá

Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 18


2.b¶ng danh s¸ch kh¸ch hµng

Mô hình quản lý bán hàng nước cấp xã

Trang 19


C. class
1.Class thực chất là các nút điều khiển thực hiện lệnh.tiêu biểu nh:thêm ,bớt
,sửa ,xóa,ngoài ra một số chơng trình còn có một số nút khác nh :tìm kiếm
,thay thế..tùy từng mục đích

Nhng code trong class lại vô cùng quan trọng.nó có chứ năng thực hiện các lệnh.
2.LệNH TRONG CLASS
-Nút Previous (nút quay lại)
if bof()
go top
else
skip -1
endif
thisform.refresh
- Nút Next (nút tiếp theo)
IF eof()
go top
else
Mụ hỡnh qun lý bỏn hng nc cp xó

Trang 20


skip 1
endif
thisform.refresh
- Nót Add (nót thªm)
* xac dinh bang se lam viec
Select(This.parent.tenbang)
* lam mo cac nut di chuyen data
This.Parent.khoanut()
*lam mo cac nut lenh
This.parent.Cmdfind.Enabled = .F.
This.parent.Cmddelete.Enabled = .F.
*This.parent.Cmdprint.Enabled = .F.
This.parent.CmdExit.Enabled = .F.
If This.Parent.luu= .F.
*(Khong o che do luu thi chuyen sang che do nhap du lieu)
This.parent.luu= .T.
*(do nhap so lieu nen cho biet co the luu duoc )
This.parent.sua=.F.
* doi caption va picture cua 2 nut Them va Sua
This.parent.cmdnew.caption ="Save"
This.parent.cmdedit.caption ="Undo"
* Cho phep tham nhap vao cac controls
This.Parent.mocontrols()
*them record

Mô hình quản lý bán hàng nước cấp xã

Trang 21


* neu ko thi chen them 1 ban ghi trong' de tien hanh
ghi du lieu vao
Append Blank
This.parent.refresh
Else
*xac nhan de luu tru
If messagebox("Luu tru ban du lieu nay ?",32+1,"Xac nhan
luu tru")=1
=TableUpdate(.T.)
* neu qua trinh nhap data ma phat hien khoa null thi
hoan nguyen bang du lieu va xoa ban du lieu do'
On Error =TableRevert(.T.)
This.Parent.deleterecord()
GO TOP
Else
* neu ko muon luu tru thi hoan tra lai bang du lieu truoc do
=Tablerevert(.T.)
go bottom
EndIf
This.Parent.luu=.F.
This.Parent.sua =.T.
*Hoan tra caption va hinh anh ban dau cho 2 nut them va sua
This.Parent.cmdnew.Caption ="Add"
This.parent.cmdnew.picture
+"graphics\bitmaps\new.bmp"

=CURDIR()

This.parent.cmdedit.caption ="Edit"
This.parent.cmdedit.picture
=CURDIR()+"graphics\bitmaps\wzedit.bmp"
* hien lai cac nut di chuyen

Mô hình quản lý bán hàng nước cấp xã

Trang 22


This.parent.monut()
* khoa cac controls tren form hoac page dang lam viec
This.parent.khoacontrols()
*hien lai cac nut lenh
This.parent.Cmdfind.Enabled = .T.
This.parent.Cmddelete.Enabled = .T.
*This.parent.Cmdprint.Enabled = .T.
This.parent.CmdExit.Enabled = .T.
this.parent.cmdnew.enabled=.T.
Endif
Thisform.Refresh
- Nót Edit (nót söa th«ng tin)
* Xac dinh bang se lam viec
Select(This.parent.tenbang)
*Lam mo cac nut di chuyen data
This.Parent.khoanut()
*Lam mo cac nut lenh
This.parent.Cmdfind.Enabled = .F.
This.parent.Cmddelete.Enabled = .F.

*This.parent.Cmdprint.Enabled = .F.
This.parent.CmdExit.Enabled = .F.
If This.parent.sua =.T.
This.parent.luu=.T.
This.parent.sua=.F.
This.parent.cmdnew.caption ="Save"
This.parent.cmdedit.caption ="Undo"

Mô hình quản lý bán hàng nước cấp xã

Trang 23


*Cho phep tham nhap cac controls tren form or page dang
lam viec
This.Parent.mocontrols()
This.parent.refresh
Else
=TableRevert(.T.)
This.Parent.luu =.F.
This.Parent.sua =.T.
*
This.Parent.Cmdnew.caption = "Add"
This.parent.cmdedit.caption ="Edit"
*Khoa cac controls tren form or page
This.parent.khoacontrols()
*Hien tro lai cac nut di chuyen
This.parent.monut()
This.parent.Cmdfind.Enabled = .T.
This.parent.Cmddelete.Enabled = .T.

*This.parent.Cmdprint.Enabled = .T.
This.parent.CmdExit.Enabled = .T.
this.parent.cmdnew.enabled=.T.
EndIf
Thisform.Refresh
- Nót Delete (nót xãa)
=cursorsetprop("Buffering",5)
With This.Parent

Mô hình quản lý bán hàng nước cấp xã

Trang 24


If MessageBox(" Ban
nay ?",32+1,"Xac nhan xoa du lieu ")=1

muon

xoa

ban

du

lieu

DELETE
=Tableupdate(.T.)
If EOF()

Go Bottom
.CmdNext.Enabled =.F.
.Cmdbottom.Enabled = .F.
Else
If BOF()
Go Top
.cmdTop.Enabled = .F.
.cmdPrev.Enabled = .F.
ELSE
SKIP
endif
Endif
else
=TABLEREVERT(.T.)
endif
ENDWITH
- Nót Find (nót t×m kiÕm)
public Sohieu,KT &&Bien kiem tra co xem co du lieu can tim hay ko
If This.Parent.CmdFind.Caption="Find"
*Goi phuong thuc disabled cac nut
This.Parent.khoanut()
This.Parent.CmdExit.Enabled =.F.
This.Parent.CmdNew.Enabled =.F.
This.Parent.CmdEdit.Enabled =.F.
Mô hình quản lý bán hàng nước cấp xã

Trang 25