这两天规划了一下软件的设计思路，重要的是以下几点：

（一）软件设计

1． 兼容性：能够应用于多种数据库。

2． 升级性：为以后新功能往此框架中增加时提供方便

3． 操作简单实用。

4． 软件中所写的代码要符合PB、及软件工程上的规范

关于软件工程，我经常看这基本书：《人月神话》、The Tao Of Programming《编程之道》、《完美程序设计指南》、《软件工程思想》——林锐著。

（二）软件开发

1．创建数据库。

示列：

Global gs_startupfile //配置文件的位置

project = create transaction

project.dbms= gs_dbms

project.database=gs_database

这两天规划了一下软件的设计思路，重要的是以下几点：

（一）软件设计

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