| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3351 人关注过本帖
标题:我急啊 哥哥门 我晚上要交任务 帮帮忙啊
只看楼主 加入收藏
yangnan0212
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-8-23
收藏
 问题点数:0 回复次数:11 
我急啊 哥哥门 我晚上要交任务 帮帮忙啊
我 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 
2007-08-23 13:04
yangnan0212
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-8-23
收藏
得分:0 
有人没 帮帮我啊 哥哥们
2007-08-23 13:12
yangnan0212
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-8-23
收藏
得分:0 
怎么没人 告诉我啊 我哭哭哭哭哭哭
2007-08-23 14:27
西风独自凉
Rank: 8Rank: 8
等 级:贵宾
威 望:43
帖 子:3380
专家分:28
注 册:2007-8-2
收藏
得分:0 
汗,,,,9和10的数据库引擎是否一致。。。。。

2007-08-23 16:21
西风独自凉
Rank: 8Rank: 8
等 级:贵宾
威 望:43
帖 子:3380
专家分:28
注 册:2007-8-2
收藏
得分:0 
DBMS = MSS Microsoft SQL Server 6.x
是否是这个。。。
还是MSS Microsoft SQL Server 这个呢。。。。
这两个连接方式不一致///////

2007-08-23 16:23
yangnan0212
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-8-23
收藏
得分:0 
DBMS = MSS Microsoft SQL Server 6.x 是这个
2007-08-23 17:00
yangnan0212
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-8-23
收藏
得分:0 
数据库引擎也是一样的啊
2007-08-23 17:01
yangnan0212
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-8-23
收藏
得分:0 
怎么就没人呢
2007-08-23 18:45
yangnan0212
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-8-23
收藏
得分:0 
谁来帮帮 我啊 我问的就这么难吗
2007-08-23 18:45
syzhj
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2007-8-24
收藏
得分:0 
错误提示呢?
2007-08-24 10:36
快速回复:我急啊 哥哥门 我晚上要交任务 帮帮忙啊
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020319 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved