TÍNH TIỀN ĐIỆN MS ACCESS 2003
Chuyên mục Tin học kỳ này giới thiệu một bài Access
để các bạn yêu thích tham khảo, còn bạn nào mới vào nghề thì âu cũng là
một cơ hội để thêm phần hiểu biết. Như thường lệ, giao hẹn rằng bạn dựa vào ý tưởng trong table có sẵn để nhập thêm số liệu
cho bài tập của bạn thêm phần “gay cấn “. Tựa bài kỳ này là Tính
tiền điện.
1/Table
ELECTRIC gồm :
File name Data type Description
MAKH
Text Mã khách hàng
TENKH
Text Họ tên khách hàng
SCU
Number Chỉ số
điện cũ (KW/h)
SMOI Number Chỉ số điện mới (KW/h)
2/Table
KHUVUC
File name Data type Description
MAKV Text Mã khu vực
DINHMUC Number Định mức tiêu thụ điện
(KW/h)
Điều kiện:
-
Table KHUVUC cho biết định
mức tiêu thụ cho từng khu vực (ở đây có
4 khu vực là K1, K2, K3, K4)
-
Hai kí tự đầu của MAKH chỉ ra khu vực khách hàng
-
Số KW/h tiêu thụ =SMOI
– SCU
-
Tiền điện được tính như
sau:
Tiêu
thụ <= Định mức thì Tiền điện =Định mức
x 1000
Tiêu
thụ > Định mức thì Tiền điện =Định mức
x 1000 + (Tiêu thụ - Định mức)x3000
-
Tạo cột Thông báo với:
Tiêu
thụ vượt
quá 2 lần Định mức thì thông báo “Cắt điện”
Tiêu
thụ vượt
quá 1 lần Định mức thì thông báo “Chú ý”
Ngoài
ra không thông báo.
YÊU
CẦU:
-
Tạo một form gồm :
1/
Các field MAKH, TENKH, SCU, SMOI, DINHMUC,
TIEUTHU,THANHTIEN, THONGBAO
2/Trong form
cho biết : tổng số tiền điện, số hộ từng khu vực, tổng số hộ, số hộ
thông báo “cắt điện”, “chú ý”
Ta
bắt tay vào công việc:
Bạn
nhập số liệu cho 2 table ELECTRIC và KHUVUC
(H1_A, H1_B)
3/Vào
thẻ query , Query New/Design View tạo một query mới ta chọn 2 table ELECTRIC và KHUVUC
(Nếu chưa biết bạn xem lại bài thihocky)
Bạn
làm như hình H2 .
File /save và đặt tên query là KVUC
4/Làm như 3/ tạo 1query lấy từ table KHUVUC và query KVUC
Lưu ý table KHUVUC và query
KVUC có chung field là
MAKV
Ta dùng chuột kết nối
MAKV từ table KHUVUC sang query
KVUC (H3) .
Ta lấy các field MAKH,TENKH, SCU,
SMOI, DINHMUC, và tạo thêm các
field TIEUTHU, THANHTIEN, THONGBAO. Với:
TIEUTHU: [SMOI]-[SCU]
THANHTIEN: IIf([TIEUTHU]<=[DINHMUC],[TIEUTHU]*1000,[DINHMUC]*1000+([TIEUTHU]-[DINHMUC])*3000)
THONGBAO:
IIf([TIEUTHU]>2*[DINHMUC],"CẮT ĐIỆN",IIf([TIEUTHU]>1*[DINHMUC],"CHÚ
Ý "," "))
Save query này và đặt tên là GIABAN
5/Vào
thẻ Forms . Form/new/form Wizard chọn query GIABAN (H4)
OK
Ta
có H5 .
Bấm Next chọn Tabular - Next chọn
(tùy ý) , ở đây tôi chọn standard. Bấm Next – Finish ta có H6 .
Ta tùy ý đặt tên form
(ở đây Access đặt tên là GIABAN)
Chọn
form GIABAN, bấm Design . Bấm chuột vào
từng đối tượng , rồi kéo dài hoặc thu nhỏ lại tùy ý (H7).
Bấm view , ta có (H8).
Chọn form GIABAN và bấm Design để làm tiếp. Để ý trong phần form footer ta thực hiện :
-
Vào toolbox ta chọn textbox và vẽ một textbox rồi gõ :
CHÚ Ý =Sum(IIf([THONGBAO]="CHÚ
Ý",1,0)) & " HỘ"
Hộp text box bên trái ta gõ là CHÚ Ý
Thao tác tương tự ta có như sau:
CẮT ĐIỆN =Sum(IIf([THONGBAO]="CẮT ĐIỆN",1,0))
& " HỘ"
TỔNG
SỐ HỘ =Count([MAKH])
& " HỘ"
TỔNG
SỐ TIỀN =Sum([thanhtien])
KHU VỰC 1 =Sum(IIf(Left([MAKH],2)="k1",1,0))
& " HỘ"
KHUVỰC 2 =Sum(IIf(Left([MAKH],2)="k1",1,0))
& " HỘ"
KHU VỰC 3 =Sum(IIf(Left([MAKH],2)="k1",1,0))
& " HỘ"
KHU VỤC 4 =Sum(IIf(Left([MAKH],2)="K4",1,0))
& " HỘ"
Xem H9
Đến đây bạn bấm VIEW, thế là xong công trình Thế kỷ ( H10)
Chúc bạn làm bài ngon lành!
Post a Comment