一变量说明.docVIP

一：变量说明 1:application : test 2:窗体 login:登陆窗口 w_main：考勤管理系统的主界面，选择操作 w_chuli：个人考勤记录处理 w_shengding：缺勤类型设定 w_tongji：员工考勤统计 w_yuangong：员工基本信息 3：数据窗口 dw_chuli1：个人考勤记录处理 dw_shengding：缺勤类型设定 dw_chuli：员工考勤统计 w_yuangong：员工基本信息 二：函数说明 一：application test中的函数 函数名：test：：open( ) 作用：将test这个数据库注册为当前机器的用户的数据源 代码： String ls_odbc //数据库名 String currdir = Space(100), key//数据库“test”的完整路径 Environment env string gs_currdir = GetCurrentDirectory()//得到运行程序的当前路径 GetEnvironment(env) ls_odbc = test//数据库名为“test” currdir=GetCurrentDirectory() + \ + ls_odbc + .mdb//当前运行程序路径加上数据库名就是数据库“test”的完整路径 RegistryGet(HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources, ls_odbc, RegString!, key) if key= then CHOOSE CASE env.OSType//判断操作系统的类型，注册响应的数据源的驱动 CASE Windows!//为Windows RegistrySet(HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources, ls_odbc, RegString!, Microsoft Access Driver (*.mdb)) CASE WindowsNT!//为WindowsNT RegistrySet(HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources, ls_odbc, RegString!, Driver do Microsoft Access (*.mdb)) CASE ELSE END CHOOSE // 将数据库test注册为用户的数据源 RegistrySet(HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ + ls_odbc, , RegString!, ) RegistrySet(HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ + ls_odbc, DBQ, RegString!, + currdir ) RegistrySet(HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ + ls_odbc, Driver, RegString!, odbcjt32.dll) RegistrySet(HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ + ls_odbc, DriverId , ReguLong!, 25 ) RegistrySet(HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ + ls_odbc, FIL , RegString!, MS Access; ) RegistrySet(HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ + ls_odbc, SafeTransactions, RegString!, 0 ) RegistrySet(HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ + ls_odbc, UID , RegString!, ) end if open(login)// 打开登陆窗口 二：登陆窗口中的函数 1：函数名：login.open() 作用：连接到本机器数据源为test的数据库 代码： SQLCA.DBMS = ODBC SQLCA.AutoCommit = False SQLCA.DBParm = ConnectString=DSN=test;UID=;PWD= connect; if sqlca.sqlcode0