这两天规划了一下软件的设计思路,重要的是以下几点:
(一)软件设计
1. 兼容性:能够应用于多种数据库。
2. 升级性:为以后新功能往此框架中增加时提供方便
3. 操作简单实用。
4. 软件中所写的代码要符合PB、及软件工程上的规范
关于软件工程,我经常看这基本书:《人月神话》、The Tao Of Programming《编程之道》、《完美程序设计指南》、《软件工程思想》——林锐著。
(二)软件开发
1.创建数据库。
示列:
Global gs_startupfile //配置文件的位置
project = create transaction
project.dbms= gs_dbms
project.database=gs_database
[@more@]这两天规划了一下软件的设计思路,重要的是以下几点:
(一)软件设计
1. 兼容性:能够应用于多种数据库。
2. 升级性:为以后新功能往此框架中增加时提供方便
3. 操作简单实用。
4. 软件中所写的代码要符合PB、及软件工程上的规范
关于软件工程,我经常看这基本书:《人月神话》、The Tao Of Programming《编程之道》、《完美程序设计指南》、《软件工程思想》——林锐著。
(二)软件开发
1.创建数据库。
示列:
Global gs_startupfile //配置文件的位置
project = create transaction
project.dbms= gs_dbms
project.database=gs_database
project.servername= gs_servername
project.logid= gs_logid
project logpass= gs_logpass
project t.dbparm= gs_dbparm
project.lock= gs_lock
CONNECT USING project;
If project.sqlcode<>0 then
messagebox('无法连接数据库','数据库未连接,请重新输入参数')
open(‘数据库连接窗口’)
// or open(创建数据库和表窗口)
else
setProfileString (gs_startupfile,"database", "dbms" ,project.dbms)
setProfileString(gs_startupfile,"database","database" ,project_out.database)
setProfileString(gs_startupfile,"database","servername",project_out.servername)
setProfileString(gs_startupfile,"database", "logid" ,project.logid)
setProfileString(gs_startupfile,"database", "logpass" ,project.logpass)
setProfileString(gs_startupfile,"database", "dbparm" ,project.dbparm)
setProfileString(gs_startupfile,"database", "lock" ,project.lock)
hide(‘数据库连接窗口’)
open(w_main)
end if
示列2
ini 文件的定位
Function Ulong GetCurrentDirectory(Ulong buflen,ref String dir) Library “kernel32.dll”
Globa string gs_startupfile
String ls_ini = ‘xxxx.ini’, ls_path, ls_expath
Long ll_path
ls_path =Space(255) //开辟内存空间
GetCurrentDirectory(255, ls_path)
ll_path = GetCurrentDirectoryA(255, ls_path)
IF GetCurrentDirectoryA(255, ls_path)=0 THEN
SetNull(ls_path)
ElSE
ls_path = Left(ls_path,ll_path)
END IF
gs_startupfile=ls_expath+''+ ls_ini
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/163842/viewspace-796288/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/163842/viewspace-796288/