File name: addrbook/chkdupdata.sub (1,339 bytes) Text file viewer v1.2
    1 : #!/bin/wel¢Ò
    2 : ¢Ò
    3 : /* file: chkdupdata.sub¢Ò
    4 : ¢Ò
    5 :    ÁÖ¼Ò·Ï ÀÚ·á ÀԷ½à Áߺ¹ÀÚ·á ó¸® ºÎ ÇÁ·Î±×·¥ (author: ¼­±¤Çö)¢Ò
    6 : ¢Ò
    7 :    Copyright (c) 2001/02/22 by Wesoft¢Ò
    8 :    All Rights Reserved.¢Ò
    9 : */¢Ò
   10 : ¢Ò
   11 : qstr= "select * from " ~ mytable ~ " where name='" ~ name¢Ò
   12 :     ~ "' and name>'' and delflag<>'d' or name='" ~ name¢Ò
   13 :     ~ "' and office='" ~ office ~ "' and delflag<>'d'";¢Ò
   14 : if(mysql_query(mysql, qstr)==MYSQL_ERR) { err_query(); return(FAIL); }¢Ò
   15 : myresult= mysql_store_result(mysql);¢Ò
   16 : if(myresult==MYSQL_ERR) { err_store_result(); return(FAIL); }¢Ò
   17 : recnt= mysql_num_rows(myresult);¢Ò
   18 : if(recnt<1) return(OK);¢Ò
   19 : row= mysql_fetch_row(myresult);¢Ò
   20 : if(row==MYSQL_ERR) { err_fetch_row(); return(FAIL); }¢Ò
   21 : mysql_free_result(myresult);¢Ò
   22 : ¢Ò
   23 : dselno   = row[0];¢Ò
   24 : dwdtime  = insert_week(row[1]);¢Ò
   25 : dwip     = row[2];¢Ò
   26 : dmdtime  = insert_week(row[3]);¢Ò
   27 : dmip     = row[4];¢Ò
   28 : didtime  = insert_week(row[5]);¢Ò
   29 : diip     = row[6];¢Ò
   30 : dname    = row[7];¢Ò
   31 : dbirth   = row[8];¢Ò
   32 : dhdphone = row[9];¢Ò
   33 : dhphone  = row[10];¢Ò
   34 : dhfax    = row[11];¢Ò
   35 : dhomepage= row[12];¢Ò
   36 : demail   = row[13];¢Ò
   37 : dhzipcode= row[14];¢Ò
   38 : dhaddr1  = row[15];¢Ò
   39 : dhaddr2  = row[16];¢Ò
   40 : doffice  = row[17];¢Ò
   41 : dbuseo   = row[18];¢Ò
   42 : dposition= row[19];¢Ò
   43 : dophone  = row[20];¢Ò
   44 : dofax    = row[21];¢Ò
   45 : dozipcode= row[22];¢Ò
   46 : doaddr1  = row[23];¢Ò
   47 : doaddr2  = row[24];¢Ò
   48 : dmemo    = row[25];¢Ò
   49 : fm= formdump("form/dupdata.fom");¢Ò
   50 : if(fm==FORM_OPENERR) err_form("dupdata.fom");¢Ò
   51 : disconnect();¢Ò
   52 : return(FAIL);¢Ò
File name: addrbook/chkdupdata.sub (1,339 bytes) Wesoft Corp. ¨Ï 2001 All rights reserved.