II. XÂY DỰNG CHƯƠNG TRÌNH
3. Hạch tốn tiền gửi
3.1. Báo cáo quỹ tiền gửi (TK 112):
+Tại Query ta tạo các query; - qsdtgno:
- Nguồn: Danh mục tài khoản
-Đưa trường SDNO, kích nút (sau đĩ chọn hàm sum, đổi tên truờng thành TONDK.
-Đặt điều kiện MATK: Like “112*”,tại dịng total chọn Where. Tạo qCTTH
- Nguồn :chứng từ và chứng từ chi tiết - Đưa tất cả các trường vào lưới thiết kế Tạo qpstgnoN0N1:
- Nguồn: qCTTH
- Kích nút ( , đưa trường SOTIEN , chọn hàm Sum, đổi tên là GUIVAO
- Đặt điều kiện: + MACT:
+ TKNO: LIKE“112*” + NGAYCT: <=fn1()
Tạo qpstgcoN0N1 - Nguồn: qCTTH
- Kích nút ( , đưa trường SOTIEN , chọn hàm Sum, đổi tên là RUTRA
- Đặt điều kiện: + MACT:
Tạo qsdtgN1:
- Nguồn: qsdtgN1, qpstgnoN0N1,qpstgcoN0N1 - Tạo thêm trường TONCK theo cơng thức:
TONCK: nz([tondk]) + nz([guivao]) – nz([rutra]) Tạo qchitietpstgN1N2
- Nguồn : qCTTH
- Đưa các trường: NGAYCT, SOCT, DIENGIAI vào lưới thiết kế. - Đưa trường MACT
- Tại trường NGAYCT:>=fn1() and <=fn2() - ĐưaTKNO, đặt điiều kiện Like”112*” - Đưa TKCO, đặt điều kiện Like”112*” - Tính trường TKDU theo cơng thức:
TKDU:iif([tkno] like”112*”,[tkco],[tkno]) - Tính trường GUIVAO theo cơng thức:
THU: iif([tkno] like”112*”,[sotien],0) - Tính trường RUTRA theo cơng thức:
CHI: iif([tkco] like”112*”,[sotien],0) qtonpstgN1N2
- Nguồn: qchitietpstgN1N2 - Kích nút (
- Đưa trường GUIVAO , chọn hàm Sum, đổi tên là TONGGUI - Đưa trường RUTRA, chọn hàm Sum, đổi tên là TONGRUT qsdtgN2
- Nguồn: qsdtgN1 và qtongpstgN1N2 - Đưa trường TONCK, đổi tên là TONDK - Tính thêm trường TONCK theo cơng thức:
TONCK: nz([tondk]) + nz([tonggui]) – nz([tongrut]) + Tại đối tượng Report ta tạo báo cáo quỹ:
- Nguồn: qchitietpstgN1N2
- Vẽ một text box Từ ngày, nhập cơng thức tại thuộc tính Control Source: = fn1()
- Vẽ một text box Đến ngày, nhập cơng thức tại thuộc tính Control Source: = fn2()
- Vẽ một text box Tồn đầu kỳ, nhập cơng thức tại thuộc tính Control Source: = Dlookup(“[tonck]”,”qsdtgN1”)
- Vẽ một text box Tồn cuối kỳ, nhập cơng thức tại thuộc tính Control Source: = Dlookup(“[tonck]”,”qsdtgN2”)
- Vẽ một text box Tổng gửi, nhập cơng thức tại thuộc tính Control Source: = Dlookup(“[tonggui]”,”qtongpstgN1N2”)
- Vẽ một text box Tổng rút, nhập cơng thức tại thuộc tính Control Source: = Dlookup(“[tongrut]”,”qtongpstgN1N2”)
- Trang trí cho báo cáo.
3.2. Bảng kê Nợ, Cĩ TK 112:
a. Bảng kê Nợ TK 112-Ghi cĩ các tài khoản liên quan:
+ Thao tác dữ liệu: Tạo qlocno112:
- Nguồn : SOCT, NGAYCT, DIENGIAI, SOTIEN, TKNO,TKCO,MACT
- Đặt điều kiện: NGAYCT:>=fn1() and <=fn2() TKNO: Like “112*”
- Đưa trường MACT váo lưới thiết kế Tạo qbkno112:
- Dạng :CrrossTab Query - Nguồn: qlocno112
- Tiêu đề hàng: SOCT,NGAYCT,DIENGAI - Tiêu đề cột: TKCO
- Trường cần thống kê :SOTIEN, hàm thống kê sum Tạo Report rbkno112
- Nguồn: qbkno112
- Tiêu đề cho bảng kê là: Chứng từ ghi Nợ TK 112- ghi cĩ các tài khoản liên quan.
b.Bảng kê cĩ TK 112- Ghi nợ các tài khoản liên quan:
+ Thao tác dữ liệu: - Tương tự bảng kê nợ
- Tạo qlocco112 với điều kiện + TKCO: like “112*”
+ NGAYCT: >=fn1() and <=fn2() + Đưa trường MACT vào lưới thiết kế.
1.3 . Chứng từ ghi sổ số 03 và 04:
a. Chứng từ ghi sổ số 03:
Tạo qctgs112
- Nguồn: qlocno112, Danh mục tài khoản - Kết nối mối quan hệ giữa MATK và TKCO - Kích nút ( Tạo trường SOCT:”03”
- Tạo trường NGAYCT:#31/01/2005#
- Đưa trường TENTK, đổi tên thành TRICHYEU - Đưa trường TKNO, đổi tên thành “Nợ”
- Đưa trường TKCO, đổi tên thành “Cĩ”
Tao rctgsno112:
- Nguồn: qctgsno112
- Tạo thêm ngày thág năm , là ngày tháng tạo chứng từ ghi sổ - Tạo text box ngày tháng năm:
= “Ngày” & day ([NGAYCT]) & “tháng” & month([NGAYCT]) & “năm” & year ([NGAYCT]).
b. Chứng từ ghi sổ số 04:
+ Thao tác dữ liệu:
- Nguồn: qlocco112,danh mục tài khoản Tương tự chứng từ ghi sổ số 03
+ Thao tác dữ liệu: Tạo qsocai03
- Nguồn: qctgsno112
- Đưa trường SOCT, NGAYCT vào lưới thiết kế. - Đưa trường TRICHYEU đổi tên thành DIENGIAI - Đưa trường CO đổi thành TKDU.
- Đưa trường SOTIEN đổi tên thành SOTIENNO, tính thêm trường SOTIENCO theo cơng thức: SOTIENCO:0
Tạo qsocai04:
- Nguồn: qctgsco112
- Đưa trường SOCT, NGAYCT vào lưới thiết kế. - Đưa trường TRICHYEU đổi tên thành DIENGIAI - Đưa trường NO,đổi thành TKDU.
- Tính SOTIENNO theo cơng thức : SOTIENNO:0 - Đưa trường SOTIEN, đổi tên thành SOTIENCO. Tạo q sctg(Sổ cái tiền gửi):
- Copy câu lệnh SQL của qsocai03,qsocai04.
- Thêm vào giữa hai câu lệnh cặp từ khĩa : UNION... DISTINCT Tạo rsctg : lấy nguồn từ qsctg và trang trí cho sổ cái.
4.Tạo menu lệnh cho chương trình, đặt tên menu là Ketoanmay:
Hệ thống Menu:
Nhap du lieu Tien mat Tien gui ngan hang
Thoat
Nhapdulieu Baocaoquytienma t
Baocaoquytiengui Thoat Mo fphieuthu Bangkeno111 Bangkeno112
Mo f phieuchi Bangkeco111 Bangkeco112 Chungtugsno111 Chungtugsno112 Chungtugsco111 Chungtugsco112 SOCAI111 SOCAI112
Thao tác xây dựng hệ thống:
4.1. Tạo Menu đứng:
- Nhắp View/Macro names để hiển thị thêm cột Macro name trong vùng lưới thiết kế.
- Tiếp theo gõ từng dịng trong vùng lưới thiết kế tưoeng ứng bảng sau:
Macro Name Action Action Argument
Thoat Quit Option:Save All -Lưu với tên : Thoat
Tương tự tạo Macro Nhapdulieu với bảng thiết kế như sau:
Macro Name Action Action Argument
nhapdulieu Openform Form name:CHUNGTU Mo fphieuthu Openform Form name:fphieuthu Mo fphieuchi Openform Form name:fphieuchi - Tương tự tạo Macro Tienmat với bảng thiết kế như sau:
Macro Name Action Action Argument
Baocaoquytienmat Openform Form
name:hopthoaiquytm Bangkeno111 OpenReport Form name:rBKNO111
View: Print Preview Bangkeco111 OpenReport Form name:rBKCO111
View: Print Preview
Chungtugsno111 OpenReport Form name:rCTGSNO111 View: Print Preview
Chungtugsco111 OpenReport Form name:rCTGSCO111 View: Print Preview
Socai111 OpenReport Form name:rSOCAI111 View: Print Preview Tương tự tạo Macro Tiengui với bảng thiết kế như sau:
Macro Name Action Action Argument
Baocaoquytiengui Openform Form name:hopthoaitg Bangkeno112 OpenReport Form name:rbkno112
View: Print Preview Bangkeco112 OpenReport Form name:rbkco112
View: Print Preview Chungtugsno112 OpenReport Form name: rctgsno112
View: Print Preview Chungtugsco112 OpenReport Form name:rctgsco112
View: Print Preview Socai112 OpenReport Form name:rsctg
View: Print Preview
4.2. Tạo Menu ngang:
Tại tab Macros chon New, Cửa sổ thiết kế macro xuất hiện
Tiếp theo gõ vào từng dịng trong vùng lứơ thiết kế tưưong ứng với bảng sau:
Action Action Argument
AddMenu Menu name:Nhap dulieu
Menu Macro name:nhapdulieu AddMenu Menu name:Tien mat
Menu Macro name:Tienmat AddMenu Menu name:Tien gui ngan hang
Menu Macro name:Tiengui AddMenu Menu name:Thoat
Menu Macro name:Thoat