POWER BUIDER VÀ CHƯƠNG TRÌNH TỔNG VỤ

Chia sẻ: Hà Thái An | Ngày: | Loại File: DOC | Số trang:35

Thêm vào BST

Báo xấu

143
lượt xem 15
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

-khai báo hai dang menu +dạng menu trên thanh tasbar menu im_id +dang menu popup menu im_popm

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: POWER BUIDER VÀ CHƯƠNG TRÌNH TỔNG VỤ

POWER BUIDER VÀ CHƯƠNG TRÌNH TỔNG VỤ (biên soạn Đào Công Thới) PHẦN I: CÁC CÚ PHÁP POWERBUILDER A )Cac kiểu khai báo biến thông dụng //biến kiểu menu Menu im_id //kiểu menu menu im_popm //kiểu số nguyên lớn hơn kiểu interger(loại bỏ phần thập phân) int ii_nowrow vd: - Int(3.2) Int(3.8) trả lại giá trị 3.0 - Int(-3.2) Int(-3.8) trả lại giá trị là -4 //kiểu dayawindow datawindow idw_focus //kiểu đúng sai boolean ib_ins, ib_upd //kiểu số nguyên integer lds_ds ulong AW_HOR_POSITIVE =1 //kiểu dữ liệu được truyền dẫn pipelinez guo_pipelinez //kiểu chuổi string g_transport //kiểu số dài long ll_newrow A.1) khai báo biến kiểu currsor(kiểu con trỏ) -cú pháp: · DECLARE cursor_name CURSOR FOR . . . · OPEN cursor_name · FETCH cursor_name INTO . . . · CLOSE cursor_name -ví dụ:(khi một giá trị biến mang dữ liệu gồm nhiều dòng thì ta dùng cursor) DECLARE emp_curs CURSOR FOR //khai báo biến cursor SELECT emp_name FROM EMPLOYEE WHERE emp_state = :sle_1.text; string emp_name_var OPEN emp_curs; FETCH emp_curs INTO :emp_name_var; // vòng lặp đến khi nào không còn dữ liệu mới ngừng DO WHILE SQLCA.sqlcode = 0 MessageBox("Found an employee!",emp_name_var) FETCH emp_curs INTO :emp_name_var; LOOP CLOSE emp_curs;
B) cách thiết lập menu(thong qua ví dụ từ chương trình tổng vụ) -khai báo hai dang menu +dạng menu trên thanh tasbar menu im_id +dang menu popup menu im_popm -thiết lập form sử dụng menu nào(thông qua biến) Trong sự kiện open trên form //sử dụng chính menu trên form này im_id = this.menuid //sử dụng menu m_sheet(menu này dạng popup) im_popm = create m_sheet -đây là cách kiểm tra xem popup khác menu tasbar chổ nào Ví dụ: 1- //biến chỉ đến menu tasbar là im_id //item trước là vị trí menu cha,item sau là vị trí menu con im_id.item[1].item[1].Enabled = TRUE // save im_id.item[1].item[2].Enabled = FALSE // print im_id.item[1].item[5].Enabled = FALSE // query im_id.item[4].item[1].Enabled = FALSE // new im_id.item[4].item[2].Enabled = FALSE // modify im_id.item[4].item[3].Enabled = FALSE // delete im_id.item[4].item[4].Enabled = TRUE // cancel // biến chỉ dến menu popup là im_popm im_popm.item[4].item[1].Enabled = FALSE // new im_popm.item[4].item[2].Enabled = FALSE // modify im_popm.item[4].item[3].Enabled = FALSE // delete im_popm.item[4].item[5].Enabled = FALSE // cancel im_popm.item[4].item[7].Enabled = FALSE // save -ví dụ 2 im_id.item[1].item[1].Enabled = FALSE // save im_id.item[1].item[2].Enabled = FALSE // print im_id.item[1].item[5].Enabled = FALSE // query im_id.item[4].item[1].Enabled = FALSE // new im_id.item[4].item[2].Enabled = FALSE // modify im_id.item[4].item[3].Enabled = FALSE // delete im_id.item[4].item[4].Enabled = FALSE // cancel im_popm.item[4].item[1].Enabled = FALSE // new im_popm.item[4].item[2].Enabled = FALSE // modify im_popm.item[4].item[3].Enabled = FALSE // delete im_popm.item[4].item[5].Enabled = TRUE // cancel im_popm.item[4].item[7].Enabled = TRUE // save sau hai ví dụ ta thấy menu frame sữ dụng cho thanh tasbar ma biến đại diện menu là im_id. Còn menu m_sheet sử dụng cho menu popup biến đại diện là im_popm Và đây là 2 hình của 2 menu này
Sau khi xem ví dụ cụ thể trên tôi tin rằng bạn dư sức thiết lập menu cho nó hoạt động như thế nào rồi đó C) các lệnh hoạt động của menu tieu biểu I) Lệnh tạo một dòng dữ liệu mới (ue_newrow, ue_newrow_d) cho biến này inser một giá trị rỗng(lệnh inser) ll_newrow = This.InsertRow(0) (this) mang giá trị của form hay datawindow đang thực thi gọi nó
và giá trị rỗng ấy được đặt ở hàng cuối cùng This.ScrollToRow( ll_newrow ) Gia tri (this) bây gio đại diện cho dw đọc vô hàng hiện tại rồi gán biến ii_nowrow bằng giá trị hàng dữ ii_nowrow = dw_1.GetRow() : liệu dw_1.Setfocus() : uu tien cho dw_1(được đặt con trỏ hoặt rê chuột tác động) lệnh lưu lại một dòng vừa inser vào II) áp dụng ví dụ từ chương trình If ii_status=11 or ii_status=12 then //neu chương trình kích hoạt inser or modify thì If dw_1.AcceptText() = 1 then //kiểm tra xem có dòng dữ liệu chưa dw_1.TriggerEvent("ue_save") // sau đó gọi đến sự kiện ue_save để thực hiện lệnh save ---------------ue_save------------------------- //khai báo biến long ll_del,ll_mod,ll_total //biến nhận giá trị số dòng bị xóa ll_del = this.DeletedCount() ll_mod = this.ModifiedCount() //biến nhận giá trị số dòng bị sữa ll_total = ll_del + ll_mod //nếu tổng số dòng thêm mới và số dòng được sữa lớn hơn 0 và lựa chọn update thì lệnh save kích hoạt IF ll_total > 0 AND this.Update(TRUE,FALSE) = 1 THEN commit Using SQLCA; //lệnh này lưu dòng dữ liệu lại vào cơ sở dữ liệu this.ResetUpdate() this.Object.Datawindow.ReadOnly = "YES" ib_save = TRUE //truyền ra ngoài biến ib_save=true ELSE rollback Using SQLCA; //nếu lệnh save không thành công thì trả ra ib_save= faise ib_save = FALSE END IF -------------------kết thúc ue_save----------------------------------- IF dw_1.ib_save = true THEN this.TriggerEvent ( 'ue_lostctrl_m' )//sau khi lưu lại lập tức set lại menu dw_1.Object.DataWindow.ReadOnly = true ii_status = 0 //trỡ về ban đầu ELSEIF trim(dw_1.GetItemString(dw_1.GetRow(),1)) "" THEN IF dw_1.DeletedCount() + dw_1.ModifiedCount() = 0 THEN this.TriggerEvent ( 'ue_lostctrl_m' )//nếu save không thành công lập tức set lại menu dw_1.Object.DataWindow.ReadOnly = true ii_status = 0 //trỡ lại ban đầu dw_1.ib_save = TRUE END IF END IF End if End if //sau khi xem ví dụ này chốt lại lệnh save dữ liệu là this.ResetUpdate()
lệnh sữa một dòng dữ liệu(ue_modify, ue_modify_d) III) if dw_1.GetRow() > 0 then // nếu xác định có dòng dữ liệu if Not IsNull(dw_1.GetItemString( dw_1.GetRow(), 1 )) then this.TriggerEvent ( 'ue_control_m' )//menu được set lại dw_1.Object.DataWindow.ReadOnly="No" ii_status = 12 ii_nowrow = dw_1.GetRow() //dòng hiện tại được phép sữa else Messagebox ( "訊訊", "訊訊訊訊訊訊 !!" )// nếu không có dữ liệu để sữa thì thông báo end if else Messagebox ( "訊訊", "訊訊訊訊訊訊 !!" ) // nếu không có dữ liệu để sữa thì thông báo end if //sau đó chỉ cần gọi sự kiện save thì dữ liệu được sữa se lưu lại vào cơ sở dữ liệu -Ví dụ: if idw_focus.GetRow () > 0 then //nếu hàng hiện thời >0 thì this.TriggerEvent ( 'ue_control_d' ) idw_focus.Object.DataWindow.ReadOnly="No" ii_status = 2 idw_focus.Triggerevent('ue_modify_d') ii_nowrow = idw_focus.GetRow()//biến bằng giá trị hiện thời(modify) else Messagebox ( "訊訊", "訊訊訊訊訊訊訊訊 !!" ) end if lệnh xóa một dòng dữ liệu(ue_deleterow, ue_deleterow_d) IV) if dw_1.GetRow() > 0 then if Not IsNull(dw_1.GetItemString( dw_1.GetRow(), 1 )) then if Messagebox ( "訊訊", "訊訊訊訊訊訊訊訊訊 ??", Question!, OkCancel! ) = 2 then Return //hỏi xem có xóa dữ liệu không end if ii_status = 13 dw_1.Triggerevent( 'ue_deleterow' ) //gọi đến sự kiện xóa dòng dw_1.TriggerEvent ( 'ue_save' ) //sau đó lưu lại else Messagebox ( "訊訊", "訊訊訊訊訊訊 !!" ) //nếu không có dữ liệu thì thông báo end if else Messagebox ( "訊訊", "訊訊訊訊訊訊 !!" ) end if
---------------------ue_daleterow-------------------------- long ll_currentrow ll_currentrow = This.GetRow( ) This.deleterow(ll_currentrow) //xóa dòng dữ liệu ----------------------ket thúc------------------------------ lệnh cancel lệnh vừa kich hoạt V) ví dụ 1 (ue_cancel) lệnh cancel khi sử dụng menu tasbar if ii_status = 11 then //nếu mà thêm mới thì dw_1.DeleteRow(dw_1.RowCount()) //xóa dòng hiện thời vừa thêm mới IF dw_1.RowCount() < 1 THEN //kiểm tra xem dòng hiện tại nếu chưa có thì dw_1.InsertRow(0) // thể hiện khung datawindow END IF Else // nếu mà sữa dữ liệu thì dw_1.object.data.current[dw_1.getrow()] = dw_1.object.data.original[dw_1.getrow()] dw_1.setitemstatus(dw_1.getrow(),0,primary!,NotModified!) //thiết lập tình trạng không thay đổi dữ liệu ở dw_1 end if ii_status = 0 //trả về như lúc ban đầu dw_1.ScrollToRow(dw_1.RowCount()) // cuộn tới hàng kế tiếp dw_1.Object.DataWindow.ReadOnly="Yes" //goi đến ue_cancel dw_1.TriggerEvent("ue_cancel") this.TriggerEvent ( 'ue_lostctrl_m' ) //set lai memu ---------------------ue_cancel--------------------- IF ii_status = 11 THEN this.DeleteRow(this.RowCount()) IF this.RowCount() < 1 THEN this.InsertRow(0) END IF ELSEIF ii_status = 12 THEN //sữa lại một dòng dữ liệu this.Object.Data.Current[this.GetRow()] = this.Object.Data.Original[this.GetRow()] this.SetItemStatus(this.GetRow(),0,Primary!,NotModified!) //set cho tình trạng không thay đổi dữ liệu END IF this.Modify("Datawindow.ReadOnly = YES") ii_status = 0 //trỡ lại tình trạng chưa có sự kiện nào kích hoạt --------------kết thúc ue_cancel----------------- Ví dụ 2(ue_cancel_d) lệnh cancel khi sử dụng menu popup if Mod(ii_status, 10) = 1 then //biến ii_status chia cho 10 mà phần dư=1 thì ii_status = 0 //trở lại tình trạng nguyên thủy idw_focus.RowsDiscard ( ii_nowrow, idw_focus.RowCount(), Primary! )
else //nếu sữa dữ liệu idw_focus.object.data.current[idw_focus.getrow()] =idw_focus.object.data.original[idw_focus.getrow()] idw_focus.setitemstatus(idw_focus.getrow(),0,primary!,NotModified!) end if ii_status = 0 idw_focus.Object.DataWindow.ReadOnly="Yes" this.TriggerEvent ( 'ue_lostctrl_d' ) //set lai menu (vậy sau khi xét ví dụ trên ta thấy lệnh cancel là lệnh quay lại ban đầu và không thực hiện lệnh Thay đổi dữ liệu) VI ) các lệnh di chuyển trên dữ liệu( tới,lui,đầu,cuối) 1 ) ue_nexrow(tới dòng kế tiếp) integer li_count,li_currow li_count = This.RowCount() li_currow = This.getrow() if li_currow = li_count then IF IsValid(m_frame) THEN m_frame.m_edit.m_lastrow.Enabled = FALSE m_frame.m_edit.m_nextrow.Enabled = FALSE m_frame.m_edit.m_firstrow.Enabled = TRUE m_frame.m_edit.m_priorrow.Enabled = TRUE END IF else This.ScrollNextRow( ) // chạy đến dòng kế tiếp IF IsValid(m_frame) THEN m_frame.m_edit.m_firstrow.Enabled = TRUE m_frame.m_edit.m_priorrow.Enabled = TRUE END IF end if setfocus(This) 2) ue_lastrow(trở về dòng trước) integer li_rowcount li_rowcount = This.RowCount() This.ScrollToRow(li_rowcount) //trở về hàng trước setfocus(This) IF IsValid(m_frame) THEN m_frame.m_edit.m_lastrow.Enabled = FALSE m_frame.m_edit.m_nextrow.Enabled = FALSE m_frame.m_edit.m_firstrow.Enabled = TRUE m_frame.m_edit.m_priorrow.Enabled = TRUE END IF 3 ) ue_firstrow(về dòng đầu tiên)
This.ScrollToRow(0) //về dòng đầu tiên setfocus(This) IF IsValid(m_frame) THEN m_frame.m_edit.m_firstrow.Enabled = FALSE m_frame.m_edit.m_priorrow.Enabled = FALSE m_frame.m_edit.m_lastrow.Enabled = TRUE m_frame.m_edit.m_nextrow.Enabled = TRUE END IF 4) ue_priorrow (về dòng cuối cùng) integer li_count,li_currow li_currow = This.getrow() if li_currow = 1 then IF IsValid(m_frame) THEN m_frame.m_edit.m_firstrow.Enabled = FALSE m_frame.m_edit.m_priorrow.Enabled = FALSE m_frame.m_edit.m_lastrow.Enabled = TRUE m_frame.m_edit.m_nextrow.Enabled = TRUE END IF else This.ScrollPriorRow() //về dòng cuối cùng IF IsValid(m_frame) THEN m_frame.m_edit.m_lastrow.Enabled = TRUE m_frame.m_edit.m_nextrow.Enabled = TRUE END IF end if setfocus(This) VII ) các lệnh di chuyển trên trang báo biểu 1 ) ue_nextpage This.scrollnextpage() //lệnh di chuyển đến trang kế tiếp 2) ue_priorpage This.scrollpriorpage() //di chuyển đến trang cuối cùng D ) các giá trị biến được gán với sự kiện ii_status = 11: sự kiện ue_newrow(thêm mới một dòng dữ liệu) chưa có sự kiện nào kích hoạt ii_status = 0: ii_status = 12: sự kiện ue_modify(sữa chữa lại một dòng cũ) ii_status = 22: sự kiện ue_modify_d (sữa chữa trên dòng dữ liệu) ii_status = 13: sự kiện ue_deleterow ii_status = 23: sự kiện ue_deleterow_d(xóa trên dòng dữ liệu) ii_startus=1 : sự kiện ue_newrow ii_status=21 : sự kiện thêm mới * dw_1.SetTransObject ( SQLCA ) //cho phép thể hiện dw_1 * dw_1.Object.DataWindow.ReadOnly="No" //datawindow này được phép thêm xóa hoặc sữa * dw_1.Object.DataWindow.ReadOnly="yes” // datawindow này chỉ đọc không làm gì hết
Tương tự: * dw_1.Object.DataWindow.ReadOnly=false //.datawindow này được phép thêm xóa hoặc sữa * dw_1.Object.DataWindow.ReadOnly= true //datawindow này chỉ đọc không làm gì hết E) truyền giá trị từ cột,giá trị đệm vào biến 1) getitem -diễn giải Truyền dữ liệu từ cột và hàng xác dịnh vào biến,hoac giá trị lưu trữ ở bộ đệm vào biến -cú pháp returnvalue dwcontrol.GetItem (number row, number column ) returnvalue dwcontrol.GetItem (number row, string column ) -ví dụ var LName = dw_employee.GetItem(3, "emp_name"); đặt giá trị cột emp_name hàng số 3 vào biến lname có kiểu var 2)getitemdate - diễn giải: Lấy giá trị có sẵn ở cột và hàng xác định,hoặc từ bộ đệm(kiểu ngày đưa vào biến) -cú pháp date dwcontrol.GetItemDate ( long row, string column {, DWBuffer dwbuffer , boolean originalvalue } ) date dwcontrol.GetItemDate ( long row, integer column {, DWBuffer dwbuffer, boolean originalvalue } ) -ví dụ Date hiredate hiredate = dw_employee.GetItemDate(3, "first_day") //lấy giá trị kiểu ngày từ cột first_date hàng số 3 vào biến hiredate 3)getitemnumber -diễn giải Lấy giá trị kiểu số từ cột và hàng xác định,hoặt từ bộ đệm đưa vào biến -Cú pháp numeric dwcontrol.GetItemNumber( long row, string column{, DWBuffer dwbuffer, boolean originalvalue } ) numeric dwcontrol.GetItemNumber( long row, integer column{,DWBuffer dwbuffer, boolean originalvalue } ) -ví dụ: integer EmpNbr EmpNbr = dw_employee.GetItemNumber(4, "emp_nbr") // lấy giá trị kiểu số từ hàng 4 cột emp_npr đưa vào biến EmpNprte 4)Getitemstring -Ví dụ thực tế ls_kind = this.getitemstring(row,’as_kind’): //truyền dữ liệu as_kind vào biến ls_kind
ls_pnl_no = dw_1.getitemstring(dw_1.getrow(),’pnl_no’): // truyền dữ liệu từ cột pnl_no vào biến ls_pnl_no cú pháp: string dwcontrol.GetItemString (number row, number column {, string dwbuffer, boolean originalvalue } ) ví dụ: String LName LName = dw_employee.GetItemString(3, "emp_name") //Biến LName nhận giá trị hàng 3 trong cột có tên emp_name trong DataWindow dw_employee 5)getitemtime -Ví dụ: Time Start Start = dw_employee.GetItemTime(3, "title") -diễn giải Dữ liệu hàng 3 cột title được chuyển vào biến start dưới dạng giờ F )truyền giá trị từ biến vào cột 1) setitem -diễn giải Truyền một giá trị biến vào cột và hàng xác định -cú pháp integer dwcontrol.SetItem ( long row, integer column, any value ) -ví dụ dw_order.SetItem(3, "hire_date", 2003-06-07) -giải thích ví dụ Gán giá tri là ‘2003-06-07 ‘vào cột hire_date dòng 3 của dw_oder 2) setitemdate - diễn giải: Truyền một giá trị ngày tháng vào cột và hàng xác định -cú pháp: number dwcontrol.SetItemDate ( number row, string column, Date value ) number dwcontrol.SetItemDate ( number row, number column, Date value ) 3)setitemdatetime -cú pháp: number dwcontrol.SetItemDateTime ( number row, string column, Date value ) number dwcontrol.SetItemDateTime ( number row, number column, Date value ) 4)setitemnumber -diễn giải: truyền giá trị số vào hàng cột xác định -cú pháp: short dwcontrol.SetItemNumber ( long row, string column, double value ) short dwcontrol.SetItemNumberByColNum ( long row, short column,double value ) 5)setitemstatus(thiết lập tình trạng cho ô dữ liệu) -diễn giải: Ô dữ liệu sẽ được thiết lập một tình trạng,ví như không được sữa -cú pháp: integer dwcontrol.SetItemStatus ( long row, integer column, dwbuffer dwbuffer, dwitemstatus status ) integer dwcontrol.SetItemStatus ( long row, string column, dwbuffer dwbuffer, dwitemstatus status )
+giải thích riêng về dwbutfer Số 0 mặc định giá tri khi lấy ra không xóa hay lọc ra .Primary! số 1 xóa trong datawindow nhưng không xóa trong csdl .delete! Số 2 dữ liệu này đã được lọc ra . Filter! +giải thích rieng về dwitemstatus . NotModified! Số 0 không được thay đổi . DataModified! Số 1 được thay đổi số 2 thêm một hàng mới .new . NewModified! Số 3 hàng được tạo mới hay sữa mới -ví dụ + dw_history.SetItemStatus(5, "Salary", &Primary!, NotModified!) thiết lập cột tiền lương mang giá trị nguyên thủy không thể sữa được + dw_new_hire.SetItemStatus(5, "emp_status", & Primary!, DataModified!) Thiet lập cột dòng 5 cột em_status nguyen thủy là sữa dữ liệu + dwItemStatus l_status l_status = dw_rpt.GetItemStatus(5, 0, Primary!) IF l_status = NewModified! THEN dw_rpt.SetItemStatus(5, 0, Primary!, DataModified!) END IF // Nếu tình trang hiện thời của hàng 5 này thêm mới thì cho phép sữa giá trị mới thêm mới đó 6)setitemstring -cú pháp: short dwcontrol.SetItemString ( long row, string column, string value ) short dwcontrol.SetItemStringByColNum ( long row, short column, string value ) -diễn giải: Truyền giá trị chuổi ký tự vào dòng và cột xác định -ví dụ: this.setitem(this.getrow(),’matm_mat_no’,bien): lấy dữ liệu của biến vào cột(mat_no của bảng matm) -lấy dữ liệu từ file đuôi ini *cú pháp: ProfileString ( filename, section, key, default ) Ví dụ thực tế: ls_password = ProfileString (is_ini_file, "database", "LogPassword", "") ví dụ: ProfileString("C:\PROFILE.INI", "Employee", "Name", "None") -chuyển dữ liệu vào file đuôi ini *cú pháp: SetProfileString ( filename, section, key, value ) Ví dụ thực tế: setprofilestring(is_ini_file,'database','logid',sle_1.text) setprofilestring(is_ini_file,'database','logpassword',ls_password) setprofilestring(is_ini_file,'database','servername',sle_3.text)
ví dụ : SetProfileString("C:\PROFILE.INI", "Position", "Title", "MGR") is_ini_file = message.stringparm //biến nhận giá trị kiểu chuổi - 7) GetFileOpenName Cú pháp: GetFileOpenName ( title, pathname, filename {, extension {, filter { , initdir { , aFlag } } } } ) GetFileOpenName ( title, pathname, filename[ ] {, extension {, filter { , initdir { , aFlag } } } } ) Chức năng: thể hiện lên hộp thoại cho phép ta chọn file ví dụ: ll_value = GetFileOpenName("Select File To Upload Data", is_filename, ls_file, "JPG", "JPG Files (*.jpg),*.jpg," +"BMP Files (*.bmp), *.bmp," + & "GIF Files (*.gif), *.gif,"+ "XML Files (*.xml),*.xml," +"PDF Files (*.pdf), *.pdf," + & "TIF Files (*.tif), *.tif," + "*.*, *.*") ll_value =1 có nghĩa là đã chọn file ll_value =0 không chọn hoặc cancel G) CÁC HÀM TRONG POWERBUILDER 1)hàm mid(cắt kí tự xác định) cú pháp: Mid ( string, start {, length } ) ví dụ:
trả lại giá trị RUTH: Mid("BABE RUTH", 5, 5) trả lại giá trị "": Mid("BABE RUTH", 40, 5) trả lại giá trị BE RUTH: Mid("BABE RUTH", 3) 2)hàm trim(cắt bõ khoảng trắng) Cú pháp: Trim ( string ) Ví dụ: Trả lại giá trị BABE RUTH: Trim(" BABE RUTH ") string emp_fname emp_fname = Trim(sle_emp_fname.Text) 3)hàm asc(lấy số trong mã ansi) Cú pháp: Asc ( string ) Ví dụ: //Trả lại giá trị chữ A là 65 A: Asc("A") //Kiểm tra xem biến ls_name có phải là chuổi không String ls_name IF Asc(ls_name) > 64 and Asc(ls_name) < 91 THEN ... 4) hàm Mod (chia lấy phần dư) Cú pháp: Mod ( x, y ) Ví dụ: Trả lại giá trị 2: Mod(20, 6) Trả lại giá trị 1.5: Mod(25.5, 4) Trả lại giá trị 2.5: Mod(25, 4.5) 5)hàm round(làm tròn số thập phân được xác định) Cú pháp: Round ( x, n ) Ví dụ: //trả lại giá trị 9.62: Round(9.624, 2) // trả lại giá trị 9.63: Round(9.625, 2) // trả lại giá trị 9.600: Round(9.6, 3) // trả lại giá trị -9.63: Round(-9.625, 2) //trả lại giá trị 0:
Round(-9.625, -1) 6) hàm truncate (cắt lấy số thập phân tới số xác định) Cú pháp: Truncate ( x, n ) Ví dụ: Trả lại giá trị 9.2: Truncate(9.22, 1) Trả lại giá trị 9.2: Truncate(9.28, 1) Trả lại giá trị 9: Truncate(9.9, 0) Trả lại giá trị -9.2: Truncate(-9.29, 1) 7)hàm ceiling (cho số nguyên nhỏ nhất lớn hơn hoặc bằng n ) Cú pháp: Ceiling ( n ) Ví dụ: đặt giá trị biến num tới số 5: decimal dec, num dec = 4.8 num = Ceiling(dec) đặt giá trị biến num là số -4 decimal num num = Ceiling(-4.2) num = Ceiling(-4.8) 8)hàm sqrt (Cho căn bậc 2 của n, n>=0) Cú pháp: Sqrt ( n ) Ví dụ: Giá trị trả về 1.414213562373095: Sqrt(2) Bị lỗi khi thực hiện lệnh này Sqrt(-2) 9) hàm abs (cho giá trị tuyệt đối) Cú pháp: Abs ( n ) Ví dụ: Trả lại giá trị 4.2: Abs(-4.2) 10) hàm lower (chuyển chuổi kí tự trỡ thành chữ thường) và hàm upper(ngược lại) Cú pháp: Lower ( string ) Ví dụ: Trả lại chuỗi là babe ruth: Lower("Babe Ruth") 11) hàm lefttrim (loại bỏ những giá trị rỗng đứng trước chuổi) Cú pháp: LeftTrim ( string ) Ví dụ: Giá trị trả về là RUTH: LeftTrim(" RUTH") 12) hàm righttrim (loại bỏ những giá trị rỗng cuối cùng của chuổi)
Cú pháp: rightTrim ( string ) Ví dụ: Giá trị trả về là RUTH: RightTrim("RUTH ") 13)hàm left (cắt lấy vị trí xác định bên trái của chuổi) Cú pháp: Left ( string, n ) Ví dụ: Trả về giá trị BABE: Left("BABE RUTH", 4) Trả về giá trị BABE RUTH: Left("BABE RUTH", 40) //biến em_address trả về giá trị là 40 kí tự đầu tiên của chuổi sle_address string emp_address emp_address = Left(sle_address.Text, 40) 14) hàm right (cắt lấy vị trí xác định của chuổi kí tự từ phía bên phải) Cú pháp: Right ( string, n ) Ví dụ: Trả về giá trị RUTH: Right("BABE RUTH", 4) Trả về giá trị BABE RUTH: Right("BABE RUTH", 75) 15) hàm replace (thay thế 1 kí tự bởi 1 kí tự khác) Cú pháp: Replace ( string1, start, n, string2 ) Ví dụ: //Tên davis được thay đổi thành dave string Name Name = "Davis" Name = Replace(Name, 4, 2, "e") //Chữ BABE RUTH được thay đổi thành BABY RUTH: Replace("BABE RUTH", 1, 4, "BABY") //Chuổi kí tự ‘close for vacation’ được thay đổi thành ‘Closed for the Winter:’ Replace("Closed for Vacation", 12, 8, "the Winter") //Chuổi kí tự ABCDEF được thay bằng ABZZZZ: Replace("ABCDEF", 3, 2, "ZZZZ") //Chuổi kí tự ABCDEF được thay bằng ABZZZZ: Replace("ABCDEF", 3, 50, "ZZZZ") //Chuổi kí tự ABCDEF được thay bằng ABCDEFZZZZ:
Replace("ABCDEF", 50, 3, "ZZZZ") 16) hàm length (xác định chiều dài byte kí tự của chuổi) Cú pháp : olestream.Length ( sizevar ) ví dụ: 17)hàm month (xác định tháng của một giá trị thời gian) Cú pháp: Month ( date ) Ví dụ: //Giá trị trả về là tháng 1: Month(2004-01-31) //Biến start_month nhận giá trị tháng của chuổi kiểu ngày đối tượng sle_start_date integer start_month start_month = Month(date(sle_start_date.Text)) 18) hàm date (chuyển chuổi thành dạng ngày) Cú phap: Date ( string ) Ví dụ: //trả về giá trị năm 2004 tháng 7 ngày 04 (kiểu ngày) Date("2004/07/04") Date("2004 July 4") Date("July 4, 2004") 19) các toán tử quan hệ Toán tử Ví dụ Ý nghĩa Bằng nhau = Price = 100 Lớn hơn > Price > 100 Nhỏ hơn < Price < 100 Không bằng nhau Price 100 Lớn hơn hoặc bằng nhau >= Price >= 100 Nhỏ hơn hoặc bằng nhau
Ví dụ: //Lấy ngày tháng hiện tại của hệ thống Today() //Nếu ngày tháng hệ thống trước 2003/04/15 thì IF Today() < 2003-04-15 THEN ... //st_date.text bằng tháng/ngày/ năm (dạng chuổi) st_date.Text = String(Today(), "m/d/yy") //st_date.text bằng tháng/ ngày/năm/giờ/phút (dạng chuổi) st_date.Text = String(Today(), "m/d/yy hh:mm") 20.1)hàm cộng trừ ngày Cú pháp: RelativeDate ( date, n ) Ví dụ: Trả lại giá trị ngày 2000-02-10: RelativeDate(2000-01-31, 10) Trả lại giá trị ngày 2000-01-21: RelativeDate(2000-01-31, - 10) 21) hàm string Cú pháp 1; String ( data, { format } ) Ví dụ 1 : -//Trả lại giá trị kiểu chuổi ‘Jan 31, 2002’: String(2002-01-31, "mmm dd, yyyy") -//biến date1 trả lại giá trị kiểu chuổi là ‘6-11-2002’ Date order_date = 2002-06-11 string date1 date1 = String(order_date,"m-d-yy") - //trả lại giá trị chuổi là ‘Jan 31, 2001 6 hrs and 8 min’ String(DateTime(2001-01-31, 06:08:00), 'mmm dd, yyyy h "hrs and" m "min"') 22) hàm number (chuyển giá trị chuổi thành số) Cú pháp: Number ( string ) Ví dụ: //trả lại chuổi ‘24’ thành số24 Number("24") 23) hàm year (xác định năm của chuổi ngày tháng) Cú pháp: Year ( date )
Ví dụ: Trả lại năm 2005: Year(2005-01-31) 24 ) hàm min và hàm max Cú pháp: Min ( x, y ) Max ( x, y ) 25)hàm DayNumber Cú pháp: DayNumber ( date ) Công dụng: Trả lại số ngày của tuần Ví dụ: integer day_nbr day_nbr = DayNumber(2000-01-31) // giá trị day_nbr là 4 (là ngày thứ tư của tuần) 26)hàm today Cú pháp: Today ( ) Công dụng : Trả lai giá trị ngày tháng hiện tai Ví dụ This.title ='exam'+' '+'today:'+string( today(),'yyyy/mm/dd')+' '+dayname(today()) 27)hàm dayname Công dụng; trả lai thu cua tuan trong ngay 28) hàm upper Cú pháp: Upper ( string ) Công dụng : Chuyển đổi tất cả các đặc tính trong một chuỗi Tới Chữ hoa. Ví dụ: Kết quả trả về BABE RUTH khi thực hiện lệnh phía dưới Upper("Babe Ruth")
29) hàm filelength, fileopen, fileread a) hàm filelength cú pháp: FileLength ( filename ) chức năng: trả lại kích thước của file mà không quá 2 GB nếu muốn tìm kiểu dữ liệu lớn hơn 2 GB thì dùng lệnh filelength64 ví dụ: long LengthA integer li_FileNum LengthA = FileLength("C:\EAST\EMP.TXT") li_FileNum = FileOpen("C:\EAST\EMP.TXT", &TextMode!, Read!, LockReadWrite!) b) hàm fileopen ví dụ1: nguyên bản: This example uses the default arguments and opens the file EMPLOYEE.DAT for reading. The default settings are LineMode!, Read!, LockReadWrite!, and EncodingANSI!. FileReadEx reads the file line by line and no other user is able to access the file until it is closed: Tạm dịch: Ví dụ này sử dụng những mặt định của chương trình khi mở file emloyee.dat để đọc. Mặt định là LineMode!, read!, LockReadWrite!, và EncodingANSI!.,và đọc cho đến khi đóng lại integer li_FileNum li_FileNum = FileOpen("EMPLOYEE.DAT") ví dụ 2: This example opens the file EMPLOYEE.DAT in the DEPT directory in stream mode (StreamMode!) for write only access (Write!). Existing data is overwritten (Replace!). No other users can write to the file (LockWrite!)(chưa hiểu) integer li_FileNum li_FileNum = FileOpen("C:\DEPT\EMPLOYEE.DAT", & StreamMode!, Write!, LockWrite!, Replace!) ví dụ 3: This example creates a new file that uses UTF8 encoding. The file is called new.txt and is in the D:\temp directory. It is opened in text mode with write-only access, and no other user can read or write to the file: (chưa hiểu) integer li_ret string ls_file ls_file = "D:\temp\new.txt" li_ret = FileOpen(ls_file, TextMode!, Write!, & LockReadWrite!, Replace!, EncodingUTF8!) c)hàm fileread vậy là 3 hàm nay lien quan mật thiết với nhau
bây gio ta xem xét 3 lệnh trên với một đoạn lệnh thực tế sẽ hiểu hơn về 3 lệnh này và một số lệnh liên quan String ls_comp_no, ls_fact_no, ls_item, ls_pur_no //khai báo biến kiểu string String ls_file, ls_filetype long ll_value, ll_rowcount, ll_flen, ll_loop,ll_count, ll_read //khai báo biến kiểu long blob lb_tot, lb_get , lb_tot1 //khai báo biến kiểu hình ành int li_FileNum, li_count, li_count_trans, li_count1 //khai báo biến kiểu interger If This.AcceptText() < 0 then return //kiểm tra xem có dòng dữ liệu chưa,nếu chưa có dòng nào thì thoát //bốn biến bên dưới nhận dữ liệu từ datawindow ls_comp_no = This.GetItemString(This.GetRow(),'comp_no') ls_fact_no = This.GetItemString(This.GetRow(),'fact_no') ls_item = This.GetItemString(This.GetRow(),'item') ls_pur_no = dw_1.GetItemString(dw_1.GetRow(),'pur_no') select count(*) into :li_count1 from flow_vouchkd@adt b where comp_no = :ls_comp_no and fact_no = :ls_fact_no and vou_no =:ls_pur_no; if li_count1 > 0 then select count(*) into :li_count_trans from flow_vouchkd@adt b, (select max(id) id from flow_vouchkd@adt where comp_no= :ls_comp_no and fact_no =:ls_fact_no and vou_no =:ls_pur_no and votype='AD01') a where a.id = b.id and chk_mk IN ( 'E', 'L' ); if li_count_trans = 0 then messagebox('Caution!','This purm tranfered ADT !!') return End if end if ll_value = GetFileOpenName("Select File To Upload Data", is_filename, ls_file, "JPG", "JPG Files (*.jpg),*.jpg," +"BMP Files (*.bmp), *.bmp," + & "GIF Files (*.gif), *.gif,"+ "XML Files (*.xml),*.xml," +"PDF Files (*.pdf), *.pdf," + & "TIF Files (*.tif), *.tif," + "*.*, *.*") ls_filetype = Upper(Right(Trim(ls_file),3)) IF ll_value < 1 THEN RETURN