4.1 .1Ket thuc
4.2. In giấy khen HSG toàn diện, HS tiên tiến, GCN HSG cấp trường
4.2.3. Hướng dẫn tạo cơ sở dữ liệu của năm học mới
Phần mềm này được thiết kế để sử dụng liên tục trong nhiều năm học của nhà trường và có thể nói trong cả q trình phát triển của nhà trường. Nhưng sau mổi năm học người quản trị phải tạo cơ sở dữ liệu của năm học, thực hiện theo các bước sau:
- B1: Vào ổ đĩa cài đặt phần mềm, chọn thư mục In_GK/ datạ Coppy thư mục năm học vừa qua, Paste vao thư mục datạ
- B2: click chuột phải vào thư mục vừa paste rồi đổi tên (Rename) thành năm
học hiện tai, sau đó thực thiện các thao tác bình thường giống như các năm học trước.
Cách tạo cơ sở dữ liệu cho năm học mới
CODE CHƯƠNG TRÌNH
2. In giấy khen: * Tao dieu kien loc _slhsg = 0 _sltd = 0 _sltt = 0 thisform._slhsg.caption = ' ' thisform._sltd.caption = ' ' thisform._sltt.caption = ' ' _mau=thisform.maụValue _dk=thisform.noidung.Value _HK =ALLTRIM(thisform.HK.Value ) _loc="(.t.)" malop =thisform.Lopx.Value _khac =thisform.khac.Value IF !EMPTY(malop)
_loc = _loc + " and (ALLTRIM(Lop) =='"+ ALLTRIM(malop) +"')"
IF !EMPTY(_khac) AND TYPE(_Khac)='L'
_loc = "("+ _loc +") and ("+ _khac +")"
ENDIF
IF _dk = 2
SELECT HOSO3
SET FILTER TO &_loc COUNT TO _slhsg
thisform._slhsg.caption = ALLTRIM(STR(_slhsg))
IF _mau = 1
REPORT FORM (m_repớcnhsg1') PREVIEW NOCONSOLE TO PRINTER PROMPT
ENDIF IF _mau = 2
REPORT FORM (m_repớcnhsg2') PREVIEW NOCONSOLE TO PRINTER PROMPT
ENDIF IF _mau = 3
REPORT FORM (m_repớcnhsg3') PREVIEW NOCONSOLE TO PRINTER PROMPT
ENDIF ENDIF IF _dk = 1 IF _hk = '1' SELECT HOSO1 else SELECT HOSO2 endi
SET FILTER TO &_loc
COUNT TO _sltd FOR danhhieu='Đạt danh hiệu học sinh Giỏi
toµn diƯn'
COUNT TO _sltt FOR danhhieu='Đạt danh hiệu học sinh Tiên
tiÕn'
thisform._sltd.caption = ALLTRIM(STR(_sltd))
thisform._sltt.caption = ALLTRIM(STR(_sltt))
IF _mau = 1
REPORT FORM (m_repớhstt') PREVIEW NOCONSOLE TO PRINTER PROMPT
ENDIF IF _mau = 2
REPORT FORM (m_repớhstt_1') PREVIEW NOCONSOLE TO PRINTER PROMPT
ENDIF IF _mau = 3
REPORT FORM (m_repớhstt3') PREVIEW NOCONSOLE TO PRINTER PROMPT
endi ENDIF