全文如下：

////////////////////////////////////////////////////////////////////////////////

//

// File Name: Setup.rul

//

// Description: InstallShield script

//

// Comments: This script was generated based on the selections you made in

// the Project Wizard. Refer to the help topic entitled "Modify

// the script that the Project Wizard generates" for information

// on possible next steps.

//

////////////////////////////////////////////////////////////////////////////////

// Include header files

#include "ifx.h"

////////////////////// string defines ////////////////////////////

//////////////////// installation declarations ///////////////////

// ----- DLL function prototypes -----

// your DLL function prototypes

// ---- script function prototypes -----

// your script function prototypes

prototype Pdkey(STRING);

prototype SetupFolders();

prototype SetupRegistry();

// your global variables

STRING szmserial1,szmserial2,szmserial3,szmserial4,szmserial5;

//////////////////////////////////////////////////////////////////////////////

//

// FUNCTION: OnFirstUIBefore

//

// EVENT: FirstUIBefore event is sent when installation is run for the first

// time on given machine. In the handler installation usually displays

// UI allowing end user to specify installation parameters. After this

// function returns, ComponentTransferData is called to perform file

// transfer.

//

///////////////////////////////////////////////////////////////////////////////

function OnFirstUIBefore()

number nResult,nSetupType;

string szTitle, szMsg;

string szLicenseFile, szQuestion;

string szName, szCompany, szSerial;

string szFile;

string szTargetPath;

string szDir;

string szfolder;

string szComponents, szTargetdir;

number nLevel;

LIST listStartCopy;

LIST list;

number nvSize,rc;

begin

// TO DO: if you want to enable background, window title, and caption bar title

// SetTitle( @TITLE_MAIN, 24, WHITE );

// SetTitle( @TITLE_CAPTIONBAR, 0, BACKGROUNDCAPTION );

// Enable( FULLWINDOWMODE );

// Enable( BACKGROUND );

// SetColor(BACKGROUND,RGB (0, 128, 128));

nSetupType = TYPICAL;

TARGETDIR = PROGRAMFILES ^"KYKQ";

szDir = TARGETDIR;

SHELL_OBJECT_FOLDER = @FOLDER_NAME;

szName = "";

szCompany = "";

szSerial = "";

Dlg_Start:

// beginning of dialogs label

Dlg_SdWelcome:

szTitle = "";

szMsg = "";

nResult = SdWelcome( szTitle, szMsg );

if (nResult = BACK) goto Dlg_Start;

Dlg_SdLicense:

szLicenseFile = SUPPORTDIR ^ "license.txt";

szTitle = "";

szMsg = "";

szQuestion = "";

nResult = SdLicense( szTitle, szMsg, szQuestion, szLicenseFile );

if (nResult = BACK) goto Dlg_SdWelcome;

Dlg_SdShowInfoList:

szFile = SUPPORTDIR ^ "infolist.txt";

list = ListCreate( STRINGLIST );

ListReadFromFile( list, szFile );

szTitle = "";

szMsg = "";

nResult = SdShowInfoList( szTitle, szMsg, list );

ListDestroy( list );

if (nResult = BACK) goto Dlg_SdLicense;

Dlg_SdRegisterUserEx:

szMsg = "";

szTitle = "";

nResult = SdRegisterUserEx( szTitle, szMsg, szName, szCompany, szSerial );

rc=Pdkey(szSerial);

if (( rc!=1) && (nResult != BACK)) then

MessageBox ( "序列号输入错误" , WARNING );

goto Dlg_SdRegisterUserEx;

else

if (nResult = BACK) then

goto Dlg_SdShowInfoList;

endif;

endif;

Dlg_SdAskDestPath:

szTitle = "";

szMsg = "";

nResult = SdAskDestPath( szTitle, szMsg, szDir, 0 );

TARGETDIR = szDir;

if (nResult = BACK) goto Dlg_SdRegisterUserEx;

Dlg_SetupType:

szTitle = "";

szMsg = "";

nResult = SetupType ( szTitle , szMsg , "" , nSetupType , 0 );

if (nResult = BACK) then

goto Dlg_SdAskDestPath;

else

nSetupType = nResult;

if (nSetupType != CUSTOM) then

szTargetPath = TARGETDIR;

nvSize = 0;

ComponentCompareSizeRequired(MEDIA,szTargetPath,nvSize);

if (nvSize != 0) then

MessageBox( szSdStr_NotEnoughSpace, WARNING );

goto Dlg_SetupType;

endif;

endif;

endif;

Dlg_SdComponentTree:

if ((nResult = BACK) && (nSetupType != CUSTOM)) goto Dlg_SetupType;

szTitle = "";

szMsg = "";

szTargetdir = TARGETDIR;

szComponents = "";

nLevel = 2;

if (nSetupType = CUSTOM) then

nResult = SdComponentTree(szTitle, szMsg, szTargetdir, szComponents, nLevel);

if (nResult = BACK) goto Dlg_SetupType;

endif;

Dlg_ObjDialogs:

nResult = ShowObjWizardPages(nResult);

if (nResult = BACK) goto Dlg_SdComponentTree;

Dlg_SdSelectFolder:

szfolder = SHELL_OBJECT_FOLDER;

szTitle = "";

szMsg = "";

nResult = SdSelectFolder( szTitle, szMsg, szfolder );

SHELL_OBJECT_FOLDER = szfolder;

if (nResult = BACK) goto Dlg_ObjDialogs;

Dlg_SdStartCopy:

szTitle = "";

szMsg = "";

listStartCopy = ListCreate( STRINGLIST );

//The following is an example of how to add a string(szName) to a list(listStartCopy).

ListAddString(listStartCopy,"你的选择如下：",AFTER);

ListAddString(listStartCopy,"\n",AFTER);

ListAddString(listStartCopy,"用户名:"+szName,AFTER);

ListAddString(listStartCopy,"公司名称："+szCompany,AFTER);

ListAddString(listStartCopy,"\n",AFTER);

ListAddString(listStartCopy,"安装路径:"+TARGETDIR,AFTER);

ListAddString(listStartCopy,"\n",AFTER);

ListAddString(listStartCopy,"程序组名："+SHELL_OBJECT_FOLDER,AFTER);

ListAddString(listStartCopy,"\n",AFTER);

if (nSetupType = CUSTOM) then

ListAddString(listStartCopy,"安装类型:"+"自定义",AFTER);

elseif (nSetupType = TYPICAL) then

ListAddString(listStartCopy,"安装类型:"+"典型",AFTER);

elseif (nSetupType = COMPACT) then

ListAddString(listStartCopy,"安装类型:"+"压缩",AFTER);

endif;

nResult = SdStartCopy( szTitle, szMsg, listStartCopy );

ListDestroy(listStartCopy);

if (nResult = BACK) goto Dlg_SdSelectFolder;

// setup default status

SetStatusWindow(0, "");

Enable(STATUSEX);

StatusUpdate(ON, 100);

return 0;

end;

///////////////////////////////////////////////////////////////////////////////

//

// FUNCTION: OnMoving

//

// EVENT: Moving event is sent when file transfer is started as a result of

// ComponentTransferData call, before any file transfer operations

// are performed.

//

///////////////////////////////////////////////////////////////////////////////

function OnMoving()

string szAppPath,szUncmd;

int iPos;

begin

// Set LOGO Compliance Application Path

// TO DO : if your application .exe is in a subfolder of TARGETDIR then add subfolder

szAppPath = TARGETDIR;

RegDBSetItem(REGDB_APPPATH, szAppPath);

RegDBSetItem(REGDB_APPPATH_DEFAULT, szAppPath ^ @PRODUCT_KEY);

szUncmd = "UNINSTALL_CMD";

iPos = StrFind(UNINSTALL_STRING,szUncmd);

if iPos>0 then

UNINSTALL_STRING[iPos - 1]='\0';

UNINSTALL_STRING=UNINSTALL_STRING + ",LaunchSetup \"" + DISK1TARGET+"\\setup.exe\"";

MaintenanceStart();

endif;

end;

/////////////////////////////////////////////////////////////////////////////

//

// FUNCTION: OnMoved

//

// EVENT: Moved event is sent when file transfer started by ComponentTransferData call

// has finished. At this point all file transfer operations are completed

// except for batch self-registration which is performed immediately after this

// function returns. During uninstallation this event sent after uninstallation

// is completed. For that reason you should not modify system state in this

// event handler.

//

///////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////

//

// FUNCTION: OnBegin

//

// EVENT: Begin event is always sent as the first event during installation.

//

//////////////////////////////////////////////////////////////////////////////

function OnBegin()

begin

szmserial1="0910-3256021-111";

szmserial2="0910-3254321-71301";

szmserial3="0910-3254321-71311";

szmserial4="0910-860023-111";

szmserial5="1111-111111-111";

end;

// --- include script file section ---

function Pdkey(key)

NUMBER rc;

begin

rc=0;

if key = szmserial1 then

rc=1;

goto rc_no;

endif;

if key = szmserial2 then

rc=1;

goto rc_no;

endif;

if key = szmserial3 then

rc=1;

goto rc_no;

endif;

if key = szmserial4 then

rc=1;

goto rc_no;

endif;

if key = szmserial5 then

rc=1;

endif;

rc_no:

return rc;

end;

function SetupRegistry()

STRING szDBprofile,szDB,szDriver,szDriver1,szSetup,szDBFile;

STRING szAccess,szAsa70,szAsasource,szAsasource_name;

STRING szMStranslator,szMStransdriver;

STRING szStart,szAsa70app;

STRING szCommand, szCmdLine,szMsg;

begin

//注册ASA70数据库

if (ComponentIsItemSelected(MEDIA,"ASA7.0") ) then

szAsa70app="SOFTWARE\\Sybase\\Adaptive Server Anywhere\\7.0";

szDBprofile="kykq";

szDB="SOFTWARE\\ODBC\\ODBC.INI\\"+szDBprofile;

szDBFile = TARGETDIR+"\\database\\kykq.db";//law.db的全名

szDriver = TARGETDIR+"\\asa7.0\\dbodbc7.dll";

szDriver1=TARGETDIR+"\\asa7.0\\dbodtr7.dll";

szAccess="Adaptive Server Anywhere 7.0";

szAsa70="Adaptive Server Anywhere 7.0 Translator";

szStart= TARGETDIR+"\\asa7.0\\dbeng7.exe -c 8m";

szAsasource="SOFTWARE\\ODBC\\ODBC.INI\\ODBC Data Sources";

RegDBSetDefaultRoot ( HKEY_CURRENT_USER );

RegDBSetKeyValueEx ( szDB , "AutoStop" , REGDB_STRING , "YES" , -1 );

RegDBSetKeyValueEx ( szDB , "DatabaseFile" , REGDB_STRING , szDBFile , -1 );

RegDBSetKeyValueEx ( szDB , "Debug" , REGDB_STRING , "NO" , -1 );

RegDBSetKeyValueEx ( szDB , "DisableMultiRowFetch" , REGDB_STRING , "NO" , -1 );

RegDBSetKeyValueEx ( szDB , "Driver" , REGDB_STRING , szDriver , -1 );

RegDBSetKeyValueEx ( szDB , "Integrated" , REGDB_STRING , "NO" , -1 );

RegDBSetKeyValueEx ( szDB , "PWD" , REGDB_STRING , "sql" , -1 );

RegDBSetKeyValueEx ( szDB , "UID" , REGDB_STRING , "dba" , -1 );

RegDBSetKeyValueEx ( szDB , "Start" , REGDB_STRING , szStart, -1 );

RegDBSetKeyValueEx ( szAsasource,szDBprofile, REGDB_STRING , szAccess, -1 );

//注册ASA70 ODBC Driver

RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );

RegDBSetKeyValueEx ( "SOFTWARE\\ODBC\\ODBCINST.INI\\"+szAccess , "Driver" , REGDB_STRING , szDriver , -1 );//不用改

RegDBSetKeyValueEx ( "SOFTWARE\\ODBC\\ODBCINST.INI\\"+szAccess , "Setup" , REGDB_STRING , szDriver , -1 );//不用改

RegDBSetKeyValueEx ( "SOFTWARE\\ODBC\\ODBCINST.INI\\"+szAsa70 , "Driver" , REGDB_STRING , szDriver1 , -1 );//不用改

RegDBSetKeyValueEx ( "SOFTWARE\\ODBC\\ODBCINST.INI\\"+szAsa70 , "Setup" , REGDB_STRING , szDriver1 , -1 );//不用改

RegDBSetKeyValueEx ( "SOFTWARE\\ODBC\\ODBCINST.INI\\"+szAsa70 , "Translator" , REGDB_STRING , szDriver1 , -1 );//不用改

RegDBSetKeyValueEx ( "SOFTWARE\\ODBC\\ODBCINST.INI\\ODBC Drivers" , szAccess , REGDB_STRING , "Installed" , -1 );//不用改

RegDBSetKeyValueEx ( "SOFTWARE\\ODBC\\ODBCINST.INI\\ODBC Translators" , szAsa70 , REGDB_STRING , "Installed" , -1 );//不用改

//注册ASA70APP

RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );

RegDBSetKeyValueEx ( szAsa70app , "Language" , REGDB_STRING , "ZH" , -1 );

RegDBSetKeyValueEx ( szAsa70app , "Location" , REGDB_STRING , TARGETDIR+"\\asa70" , -1 );

RegDBSetKeyValueEx ( szAsa70app , "Shared Location" , REGDB_STRING , TARGETDIR+"\\asa70" , -1 );

endif;

SdShowMsg(szMsg,FALSE);

return 0;

end;

///////////////////////////////////////////////////////////////////////////////

//

// Function: SetupFolders

//

// Purpose: This function creates all the folders and shortcuts for the

// setup. This includes program groups and items for Windows 3.1.

//

///////////////////////////////////////////////////////////////////////////////

function SetupFolders()

string szPath,szResult,szhelpexe,szUninstallexe;

begin

if(FindFile(TARGETDIR,"kykq.EXE",szResult)=0) then

szPath=TARGETDIR^"kykq.exe";

LongPathToQuote(szPath,TRUE);

AddFolderIcon(SHELL_OBJECT_FOLDER,"中铁考勤管理系统",szPath,TARGETDIR,"",0,"",REPLACE);

AddFolderIcon(FOLDER_DESKTOP,"中铁考勤管理系统",szPath,TARGETDIR,"",0,"",REPLACE);

endif;

return 0;

end;

//////////////////////////////////////////////////////////////////////////////

//

// FUNCTION: OnMoved

//

// EVENT: Moved event is sent when file transfer started by ComponentTransferData call

// has finished. At this point all file transfer operations are completed

// except for batch self-registration which is performed immediately after this

// function returns. During uninstallation this event sent after uninstallation

// is completed. For that reason you should not modify system state in this

// event handler.

//

///////////////////////////////////////////////////////////////////////////////

function OnMoved()

STRING szMsg;

begin

szMsg="正在更新注册表......";

SdShowMsg(szMsg,TRUE);

SetupRegistry();

SetupFolders();

SdShowMsg(szMsg,FALSE);

return 0;

end;