我急啊 哥哥门 我晚上要交任务 帮帮忙啊
我 pb9.0 升级到 pb10.0 怎么就登陆不上 服务器呢<br><br><br>timer(3)<br>This.Y = (gl_ScreenH - This.Height) / 2 <br>This.X = (gl_ScreenW - This.Width) / 2<br>p_1.x=0<br>p_1.y=0<br>p_1.height=this.height<br>p_1.width=this.width<br>gs_bmbz=profilestring('Bn_yygs.ini','shop','bmbz','zb')<br>gs_servername=profilestring('Bn_yygs.ini','server','servername','czg')<br>gs_servername_zb=profilestring('Bn_yygs.ini','server','posserver','banner04')<br>gs_database=profilestring('Bn_yygs.ini','database','maindataname','bn_yygs_zb')<br>gs_database_zb=profilestring('Bn_yygs.ini','database','posdataname','bn_yygs_zb')<br>gs_id=profilestring('Bn_yygs.ini','database','user','') + 'aa'<br>gs_pass=profilestring('Bn_yygs.ini','database','pass','') + 'aa'<br>gs_shopname=profilestring('Bn_yygs.ini','shop','shopname','abc')<br><br>SQLCA.DBMS = "MSS Microsoft SQL Server 6.x"<br>SQLCA.Database = trim(gs_database)<br>SQLCA.ServerName = trim(gs_servername)<br>SQLCA.LogId =trim(gs_id)<br>SQLCA.LogPass = trim(gs_pass)<br>SQLCA.AutoCommit = False<br>SQLCA.DBParm = "CommitOnDisconnect='No'"<br>sqlzb=CREATE transaction<br>sqlzb.DBMS = "MSS Microsoft SQL Server 6.x"<br>sqlzb.Database =trim(gs_database_zb)<br>sqlzb.ServerName =trim(gs_servername_zb)<br>SQLzb.LogId = trim(gs_id)<br>SQLzb.LogPass = trim(gs_pass)<br>sqlzb.AutoCommit = False<br>sqlzb.DBParm = "CommitOnDisconnect='No'"<br>openwithparm(w_message,'系统正在连接服务器,请稍等...') <br>CONNECT USING SQLCA;<br>if sqlca.sqlcode<>0 then<br> messagebox('提示信息','系统1234连接服务器失败!')<br> halt<br> return<br>end if<br>string ls_shopname,ls_pass,ls_id<br>SELECT shopname,pwd into :ls_shopname,:ls_pass from sysshop ;<br>ls_id=uf_shopkl_q(ls_shopname)<br>if gs_shopname<>ls_shopname then<br> messagebox('提示','您是非法用户，确定后退出。')<br> close(w_message)<br> halt close<br>end if<br>if ls_id<>ls_pass then <br> messagebox('提示','您是非法用户，确定后退出。')<br> close(w_message)<br> halt close<br>end if<br>gl_openbz=1<br>close(w_message)<br>Open(w_logo_x)<br><br><br><br>我的 ini 文件<br><br>[server]<br>servername=czg<br>posserver=banner04<br>fs_servername=<br>[database]<br>DBMS = MSS Microsoft SQL Server 6.x<br>maindataname=bn_yygs_zb<br>dataname=bn_yygs_zb_data<br>logname=bn_yygs_zb_log<br>bakname=yygs0828<br>posdataname=bn_yygs_zb<br>fs_maindataname=<br>user=aa<br>pass=aa<br>[shop]<br>shopname=abc<br>wxname=<br>dz=沈阳市和平区南京北街<br>dh=(024)23515780 23520048<br>cz=23253014 内线：23264688-8120<br>bmbz=zb<br>[wujiaju]<br>bn_wjj=<br>[jiagong]<br>jiagongcf=91<br>jiagongzh=92<br><br>页:
[1]