|
||||
1 : #!/bin/wel¢Ò 2 : ¢Ò 3 : /* file: memo.sub¢Ò 4 : ¢Ò 5 : ¸Þ¸ð Æû Ãâ·Â ºÎ ÇÁ·Î±×·¥ (author: ¼±¤Çö)¢Ò 6 : ¢Ò 7 : Copyright (c) 2001/02/22 by Wesoft¢Ò 8 : All Rights Reserved.¢Ò 9 : */¢Ò 10 : ¢Ò 11 : fm= formopen("form/memo.fom");¢Ò 12 : if(fm==FORM_OPENERR) return err_form("memo.fom");¢Ò 13 : ¢Ò 14 : memo_recnt= get_recount(mysql, memotable, "");¢Ò 15 : tot_page= memo_recnt / mpagerec;¢Ò 16 : if(memo_recnt%mpagerec>0) tot_page++;¢Ò 17 : view_page= val(pg);¢Ò 18 : if(view_page<1) view_page= 1;¢Ò 19 : else if(view_page>tot_page) view_page= tot_page;¢Ò 20 : start_rec= (view_page-1) * mpagerec;¢Ò 21 : ¢Ò 22 : qstr= "select selno,wdtime,name,memo from " ~ memotable¢Ò 23 : ~ " order by wdtime desc limit " ~ start_rec ~ "," ~ mpagerec;¢Ò 24 : ¢Ò 25 : if(mysql_query(mysql, qstr)==MYSQL_ERR) return err_query();¢Ò 26 : myresult= mysql_store_result(mysql);¢Ò 27 : if(myresult==MYSQL_ERR) return err_store_result();¢Ò 28 : row_recnt= mysql_num_rows(myresult);¢Ò 29 : for(rec=1; rec<=row_recnt; rec++)¢Ò 30 : {¢Ò 31 : row= mysql_fetch_row(myresult);¢Ò 32 : if(row!=MYSQL_ERR)¢Ò 33 : {¢Ò 34 : selno= row[0];¢Ò 35 : wdtime= mid(insert_week(row[1]), 6, 15);¢Ò 36 : name= row[2];¢Ò 37 : memo= row[3];¢Ò 38 : formmerge(0);¢Ò 39 : }¢Ò 40 : }¢Ò 41 : mysql_free_result(myresult);¢Ò 42 : selno= wdtime= name= memo= "";¢Ò 43 : formdump();¢Ò 44 : formclose();¢Ò 45 : return;¢Ò |
||||
|