ʹ˵

ṩӦó򡶲¹ϵͳ͡껪ϵͳԴ롣exam-1.zipеgy_rs.pblǡ¹ϵͳexam-2.zipеjnh_dat.pbljnh_office.pbljnh_front.pblǡ껪ϵͳϵͳϵͳ칫ϵͳǰ̨ϵͳ
ڴޣ¹ϵͳ͡껪ϵͳԴֱѹΪexam-1.zipexam-2.zipʹʱ߿ýѹWinzipѹļӲ̣ʹá
Ӧó򡶲¹ϵͳĿнܵȫһ£PB6.0PB6.0ݿSQL AnywherePB6.0¿ȫС Ӧó򡶼껪ϵͳĿǣPB6.0SybaseMS SQL Serverݿ⣬ȫСûӦתΪPB6.0ݿ⣬ԴҪĶ
Ӧÿgy_rs.pbl¹ϵͳPB6.0´򿪲С߿Զеھ¼ڣ˵ݴڵȵĽ켰Ӧ¼¼롣ϣӦʱעһ⣬Ӧÿgy_rs.pblӦü£
//This script will read all the database values from PB.INI
//and store then in SQLCA

sqlca.DBMS       = ProfileString ("PB.INI", "database", "dbms",       "")
sqlca.database   = ProfileString ("PB.INI", "database", "database",   "")
sqlca.userid     = ProfileString ("PB.INI", "database", "userid",     "")
sqlca.dbpass     = ProfileString ("PB.INI", "database", "dbpass",     "")
sqlca.logid      = ProfileString ("PB.INI", "database", "logid",      "")
sqlca.logpass    = ProfileString ("PB.INI", "database", "LogPassWord", "")
sqlca.servername = ProfileString ("PB.INI", "database", "servername", "")
sqlca.dbparm     = ProfileString ("PB.INI", "database", "dbparm",     "")
open(win_main_mdi)
//open(win_main)
//open(win_insert)
    Ӧõĵһopen(win_main_mdi)win_main_mdiͼƬеͼƬļûϣҪڴwin_main_mdi޸ͼƬļʱͼƬλûֿհסͬͼƬļĴҲ⡣ϣֱеڣз洰ںĿڣ޸ǰӦü룺
open(win_main_mdi)ע͵Ϊ//open(win_main_mdi)
//open(win_main)עͣΪopen(win_main)
ֱеڣֱִopen(win_main)
 Ӧÿjnh_data.pbljnh_office.pbljnh_front.pbl껪ϵͳϵͳ PB6.0SybaseMS SQL Serverݿ⻷ȫӦãӦÿjnh_front.pblӦü£
//This script will read all the database values from PB.INI
//  and store then in SQLCA
sqlca.DBMS  = ProfileString ("C:\jnh\jnh.INI", "database", "dbms",       "")
sqlca.database= ProfileString ("C:\jnh\jnh.INI", "database", "database",   "")
sqlca.userid  = ProfileString ("C:\jnh\jnh.INI", "database", "userid",     "")
sqlca.dbpass  = ProfileString ("C:\jnh\jnh.INI", "database", "dbpass",     "")
sqlca.logid  = ProfileString ("C:\jnh\jnh.INI", "database", "logid",      "")
sqlca.logpass = ProfileString ("C:\jnh\jnh.INI", "database", "LogPassWord", "")
sqlca.servername=ProfileString("C:\jnh\jnh.INI","database", "servername", "")
sqlca.dbparm  = ProfileString ("C:\jnh\jnh.INI", "database", "dbparm",     "")
sqlca.autocommit=true;
connect;
if sqlca.sqlcode<>0 then
	  MessageBox("ʾ","ݿ!")
	  return
end if	
open(win_assert)
ûԴӦӦÿjnh_data.pbljnh_office.pbljnh_front.pbl鿴ڡ˵ݴڵȵĽ켰Ӧ¼¼루漰ѯڵ¼PB6.0+ݿ⻷вͬӦÿⲻPB6.0+ݿ⻷ֱУԼ޸ĿԲУ罫jnh_front.pblӦü޸£
sqlca.DBMS   = ProfileString ("C:\jnh\jnh.INI", "database", "dbms",       "")
sqlca.database= ProfileString ("C:\jnh\jnh.INI", "database", "database",   "")
sqlca.userid  = ProfileString ("C:\jnh\jnh.INI", "database", "userid",     "")
sqlca.dbpass  = ProfileString ("C:\jnh\jnh.INI", "database", "dbpass",     "")
sqlca.logid  = ProfileString ("C:\jnh\jnh.INI", "database", "logid",      "")
sqlca.logpass = ProfileString ("C:\jnh\jnh.INI", "database", "LogPassWord", "")
sqlca.servername=ProfileString("C:\jnh\jnh.INI", "database", "servername","")
sqlca.dbparm  = ProfileString ("C:\jnh\jnh.INI", "database", "dbparm",     "")
sqlca.autocommit=true;
/*connect;
if sqlca.sqlcode<>0 then
	MessageBox("ʾ","ݿ!")
	return
end if	*/
open(win_assert)
ʽУΪǽӦüеconnect;ע͵ˣԱӦÿfront.pblĸڴ¼мӦconnect;ӦݴڣοеھµĽܣ
