c语言sybase数据库编程.doc

c语言sybase数据库编程应用并不是十分广泛，但是对于有些特殊的应用还是一种很基本的编程方法。但是关于这方面的应用书籍和网上谈论的并不是很多，下面使我做得一个评价系统的程序中一小段，仅供参考：DBPROCESS *dbproc,*dbproc1,*dbproc2;LOGINREC *login;RETCODE return_code;STATUS re_code;int i,k,m,me;int ch; DBCHAR hhs5;DBCHAR jghs5;DBCHAR czys5;DBCHAR czyxms11;DBINT hmycs;DBINT jbmycs;DBINT bmycs;DBINT wpjcs;float fhmycs;float fjbmycs;float fbmycs;float fwpjcs;float jbmzb;float bmyzb;float hmyzb;float wpjzb;char hh5;char jgh5;char jgmc31;char qtbz2;char yy;char pjrq9;char year95;char month93;char day93;int zcs;char dydate80;char dysql255;zy1:initscr();win=newwin(22,80,0,0);main_scr(win); mvwaddstr(win,6,22, ); mvwaddstr(win,4,26,某日评价菜单); mvwaddstr(win,6,20,请输入日期: ); mvwaddstr(win,14,26, ); mvwaddstr(win,11,20,是否正确(y/n): ); mvwscanw(win,6,32,%s,pjrq);sscanf(pjrq,%4s%2s%2s,year9,month9,day9);ch=mvwgetch(win,11,35);if (ch = y)goto zy2;else goto zyx;zy2:if (isalnum(pjrq0)=0|strlen(pjrq)!=8) mvwaddstr(win,16,20,输入错!请等.);wrefresh(win);beep();sleep(3);goto zy1;login=dblogin();dbsetifile(interfaces); DBSETLUSER(login,pjqsa);DBSETLPWD(login,pjqsadbo); dbproc2=dbopen(login,NULL); dbproc=dbopen(login,NULL); dbproc1=dbopen(login,NULL);dbfcmd(dbproc2,delete from t_rytjls);dbsqlexec(dbproc2);dbresults(dbproc2);dbclose(dbproc2); dbfcmd(dbproc,select hh,jgh,czy,czyxm,hmycs,jbmycs,bmycs,wpjcs from t_mrtj where gzrq=%s,pjrq);dbsqlexec(dbproc);while (return_code=dbresults(dbproc) != NO_MORE_RESULTS)if (return_code = SUCCEED) dbbind(dbproc,1,NTBSTRINGBIND,(DBINT)0,(BYTE *)&hhs); dbbind(dbproc,2,NTBSTRINGBIND,(DBINT)0,(BYTE *)&jghs); dbbind(dbproc,3,NTBSTRINGBIND,(DBINT)0,(BYTE *)&czys); dbbind(dbproc,4,NTBSTRINGBIND,(DBINT)0,(BYTE *)&czyxms); dbbind(dbproc,5,INTBIND,(DBINT)0,(BYTE *)&hmycs); dbbind(dbproc,6,INTBIND,(DBINT)0,(BYTE *)&jbmycs); dbbind(dbproc,7,INTBIND,(DBINT)0,(BYTE *)&bmycs); dbbind(dbproc,8,INTBIND,(DBINT)0,(BYTE *)&wpjcs);while (re_code = dbnextrow(dbproc) != NO_MORE_ROWS)zcs=hmycs+jbmycs+bmycs+wpjcs;if(zcs=0)goto aa;hmyzb=(float)hmycs/zcs*100+0.5)/100;jbmzb=(float)jbmycs/zcs*100+0.5)/100;bmyzb=(float)bmycs/zcs*100+0.5)/100;wpjzb=(float)wpjcs/zcs*100+0.5)/100; dbfcmd(dbproc1,insert t_rytjls (hh,jgh,czy,czyxm,pjts,hmycs,jbmycs,bmycs,wpjcs,hmyzb,jbmzb,bmyzb,wpjzb) values (%s,%s,%s,%s,1,%d,%d,%d,%d,%4.2f,%4.2f,%4.2f,%4.2f),hhs,jghs,czys,czyxms,hmycs,jbmycs,bmycs,wpjcs,hmyzb,jbmzb,bmyzb,wpjzb); dbsqlexec(dbproc1); dbresults(dbproc1);aa:continue; mvwaddstr(win,14,26,提示:正确 );zy3: mvwaddstr(win,11,20,是否打印(y/n): );ch=mvwgetch(win,11,35);if (ch !=y)goto zyx; mvwaddstr(win,11,20,插入打印纸后回车 );mvwgetch(win,11,35); mvwaddstr(win,14,26, ); mvwaddstr(win,11,20,打印.);wrefresh(win);sprintf(dydate,按日统计柜员:%s年%s月%s日,year9,month9,day9);strcpy(dysql,select hh,jgh