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