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.