Q5/ws_objects/Ew_mainface.pbl.src/f_ini_book.srf

$PBExportHeader$f_ini_book.srf
global type f_ini_book from function_object
end type

forward prototypes
global subroutine f_ini_book ()
end prototypes

global subroutine f_ini_book ();//f_ini_book
string ls_database
long i
string ls_ini_book
ls_database = ProfileString (sys_inifilename, "database", "database",   "")

FOR i = 1 TO 20
	ls_ini_book = f_psw_bczh(ProfileString (sys_inifilename_other,'sys_dl_book', String(i), ''),1,sys_power_key)
	IF Trim(ls_ini_book) = '' THEN
		String ls_temp
		ls_temp = '默认帐套' + ':'+ ls_database+ ':'+'01'+ ':'+'1'
		SetProfileString (sys_inifilename_other,'sys_dl_book', String(i), f_psw_bczh(ls_temp,0,sys_power_key))
		EXIT
	END IF
NEXT

setProfileString (sys_inifilename, "database", "bookname",   "默认帐套")
end subroutine