Q5/ws_objects/xls_Billprint_uo.pbl.src/uo_xls_constant.sru

$PBExportHeader$uo_xls_constant.sru
forward
global type uo_xls_constant from nonvisualobject
end type
end forward

global type uo_xls_constant from nonvisualobject
end type
global uo_xls_constant uo_xls_constant

type variables
String mxflag = '<@明细标记@>'

String sign_begin = '<@'
String sign_end = '@>'

String xls_inifilename = 'longjoeERP_xls.ini'

String pwd = ''

string xls_create_str[]
string xls_drop_str[]

string acc_create_str[]

string xls_tablelist[]


end variables

forward prototypes
private subroutine create_sql_table_string ()
public subroutine create_new_pwd ()
private subroutine create_acc_table_string ()
public subroutine of_create_inifile (string arg_inifile)
public subroutine of_setprofilestring (string arg_filename, string arg_section, string arg_key, string arg_value)
public subroutine of_setprofilestring (string arg_section, string arg_key, string arg_value)
public function string of_profilestring (string filename, string arg_section, string arg_key, string arg_default)
public function string of_profilestring (string arg_section, string arg_key, string arg_default)
end prototypes

private subroutine create_sql_table_string ();//xls_drop_str[ UpperBound(xls_drop_str) + 1 ] = "drop table U_XLS_BillColumn_Def ;"
//xls_drop_str[ UpperBound(xls_drop_str) + 1 ] = "drop table U_XLS_BillList ;"
//xls_drop_str[ UpperBound(xls_drop_str) + 1 ] = "drop table U_XLS_Column_Def ;"
//xls_drop_str[ UpperBound(xls_drop_str) + 1 ] = "drop table U_XLS_Table_Def ;"
//xls_drop_str[ UpperBound(xls_drop_str) + 1 ] = "drop table U_XLS_Templates ;"
//
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "CREATE TABLE U_XLS_BillColumn_Def ("+&
//	"ColumnID int NOT NULL ,"+&
//	"BillID int NOT NULL ,"+&
//	"ColumnName char (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,"+&
//	"SignNAME char (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,"+&
//	"ColumnType tinyint NOT NULL ) ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "CREATE TABLE U_XLS_BillList ("+&
//	"BillID int NOT NULL ,"+&
//	"BillName char (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,"+&
//	"DefaultDataWindow char (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,"+&
//	"BillType char (50) COLLATE Chinese_PRC_CI_AS NOT NULL )  ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "CREATE TABLE U_XLS_Column_Def ("+&
//	"CID int NOT NULL ,"+&
//	"TID int NOT NULL ,"+&
//	"ColumnName char (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,"+&
//	"SignNAME char (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,"+&
//	"Name char (50) COLLATE Chinese_PRC_CI_AS NOT NULL )  ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "CREATE TABLE U_XLS_Table_Def ("+&
//	"TID int NOT NULL ,"+&
//	"TableName char (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,"+&
//	"SignNAME char (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,"+&
//	"TableType tinyint NOT NULL ,"+&
//	"Name char (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,"+&
//	"parentid int NOT NULL ) ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "CREATE TABLE U_XLS_Templates ("+&
//	"id int NOT NULL ,"+&
//	"Templates image NULL ,"+&
//	"tid int NOT NULL ,"+&
//	"Defaults tinyint NOT NULL ,"+&
//	"TemplatesName char (50) COLLATE Chinese_PRC_CI_AS NOT NULL ) ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "ALTER TABLE U_XLS_BillColumn_Def WITH NOCHECK ADD "+&
//	"CONSTRAINT PK_U_XLS_BillColumn_Def PRIMARY KEY  CLUSTERED (ColumnID,BillID,ColumnType)   ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "ALTER TABLE U_XLS_BillList WITH NOCHECK ADD "+&
//	"CONSTRAINT PK_U_XLS_BillList PRIMARY KEY  CLUSTERED (BillID	)   ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "ALTER TABLE U_XLS_Column_Def WITH NOCHECK ADD "+&
//	"CONSTRAINT [PK_U_Column] PRIMARY KEY  CLUSTERED (CID,TID	)  ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "ALTER TABLE U_XLS_Table_Def WITH NOCHECK ADD "+&
//	"CONSTRAINT [PK_U_Table] PRIMARY KEY  CLUSTERED (TID	) ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "ALTER TABLE U_XLS_Templates WITH NOCHECK ADD "+&
//	"CONSTRAINT [PK_U_XLS_Templates] PRIMARY KEY  CLUSTERED (id)   ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "ALTER TABLE U_XLS_BillColumn_Def ADD "+&
//	"CONSTRAINT DF_U_XLS_BillColumn_Def_ColumnID DEFAULT (0) FOR ColumnID,"+&
//	"CONSTRAINT DF_U_XLS_BillColumn_Def_BillID DEFAULT (0) FOR BillID,"+&
//	"CONSTRAINT DF_U_XLS_BillColumn_Def_ColumnName DEFAULT (0) FOR ColumnName,"+&
//	"CONSTRAINT DF_U_XLS_BillColumn_Def_SignNAME DEFAULT ('') FOR SignNAME,"+&
//	"CONSTRAINT DF_U_XLS_BillColumn_Def_ColumnType DEFAULT (0) FOR ColumnType,"+&
//	"CONSTRAINT IX_U_XLS_BillColumn_Def UNIQUE  NONCLUSTERED (SignNAME,BillID	)   ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "ALTER TABLE U_XLS_BillList ADD "+&
//	"CONSTRAINT DF_U_XLS_BillList_BillID DEFAULT (0) FOR BillID,"+&
//	"CONSTRAINT DF_U_XLS_BillList_BillName DEFAULT ('') FOR BillName,"+&
//	"CONSTRAINT DF_U_XLS_BillList_DefaultDataWindow DEFAULT ('') FOR DefaultDataWindow,"+&
//	"CONSTRAINT DF_U_XLS_BillList_BillType DEFAULT ('') FOR BillType,"+&
//	"CONSTRAINT IX_U_XLS_BillList UNIQUE  NONCLUSTERED (BillName),"+&
//   "CONSTRAINT IX_U_XLS_BillList_1 UNIQUE  NONCLUSTERED (BillType) ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "ALTER TABLE U_XLS_Column_Def ADD "+&
//	"CONSTRAINT DF_U_XLS_Column_Def_CID DEFAULT (0) FOR CID,"+&
//	"CONSTRAINT DF_U_Column_ColumnName DEFAULT (50) FOR ColumnName,"+&
//	"CONSTRAINT DF_U_Column_SignNAME DEFAULT ('') FOR SignNAME,"+&
//	"CONSTRAINT DF_U_XLS_Column_Def_Name DEFAULT ('') FOR Name,"+&
//	"CONSTRAINT IX_U_Column UNIQUE  NONCLUSTERED (ColumnName,TID),"+&
//	"CONSTRAINT IX_U_Column_1 UNIQUE  NONCLUSTERED (SignNAME,TID)  ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "ALTER TABLE U_XLS_Table_Def ADD "+&
//	"CONSTRAINT DF_U_XLS_Table_Def_TID DEFAULT (0) FOR TID,"+&
//	"CONSTRAINT DF_U_Table_TableName DEFAULT ('') FOR TableName,"+&
//	"CONSTRAINT DF_U_Table_SignNAME DEFAULT ('') FOR SignNAME,"+&
//	"CONSTRAINT DF_U_Table_TableType DEFAULT (0) FOR TableType,"+&
//	"CONSTRAINT DF_U_XLS_Table_Def_Name DEFAULT ('') FOR Name,"+&
//	"CONSTRAINT DF_U_XLS_Table_Def_parentid DEFAULT (0) FOR parentid,"+&
//	"CONSTRAINT IX_U_Table UNIQUE  NONCLUSTERED (TableName) ,"+&
//	"CONSTRAINT IX_U_Table_1 UNIQUE  NONCLUSTERED 	(SignNAME)   ;"
//xls_create_str[ UpperBound(xls_create_str) + 1 ] = "ALTER TABLE U_XLS_Templates ADD "+&
//	"CONSTRAINT DF_u_XLS_Templates_id_1 DEFAULT (0) FOR id,"+&
//	"CONSTRAINT DF_U_XLS_Templates_tid_1 DEFAULT (0) FOR tid,"+&
//	"CONSTRAINT DF_U_XLS_Templates_Defaults_1 DEFAULT (0) FOR Defaults,"+&
//	"CONSTRAINT DF_U_XLS_Templates_TemplatesName_1 DEFAULT ('') FOR TemplatesName ;"
//
end subroutine

public subroutine create_new_pwd ();
pwd = String(Today(),'yyyy-mm-dd hh:mm:ss')+String(Rand(30000),'000000')

end subroutine

private subroutine create_acc_table_string ();//
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "CREATE TABLE U_XLS_BillColumn_Def ("+&
//	"ColumnID INTEGER  NOT NULL ,"+&
//	"BillID INTEGER  NOT NULL ,"+&
//	"ColumnName TEXT (50)  NOT NULL ,"+&
//	"SignNAME TEXT (50)  NOT NULL ,"+&
//	"ColumnType SMALLINT NOT NULL)  ;"
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "CREATE TABLE U_XLS_BillList ("+&
//	"BillID INTEGER NOT NULL ,"+&
//	"BillName TEXT (50)   NOT NULL ,"+&
//	"DefaultDataWindow TEXT (50)   NOT NULL ,"+&
//	"BillType TEXT (50)   NOT NULL )  ;"
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "CREATE TABLE U_XLS_Column_Def ("+&
//	"CID INTEGER NOT NULL ,"+&
//	"TID INTEGER NOT NULL ,"+&
//	"ColumnName TEXT (50)  NOT NULL ,"+&
//	"SignNAME TEXT (50)   NOT NULL ,"+&
//	"Name TEXT (50)   NOT NULL )  ;"
////	acc_create_str[ UpperBound(acc_create_str) + 1 ] = "CREATE TABLE U_XLS_Table_Def ("+&
////	"TID INTEGER NOT NULL ,"+&
////	"TableID  INTEGER NOT NULL ,"+&
////	"TableName TEXT (50)   NOT NULL ,"+&
////	"SignNAME TEXT (50)   NOT NULL ,"+&
////	"TableType SMALLINT NOT NULL ,"+&
////	"Name TEXT (50)   NOT NULL ,"+&
////	"parentid INTEGER NOT NULL ) ;"
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "CREATE TABLE U_XLS_Table_Def ("+&
//	"TID INTEGER NOT NULL ,"+&
//	"TableName TEXT (50)   NOT NULL ,"+&
//	"SignNAME TEXT (50)   NOT NULL ,"+&
//	"TableType SMALLINT NOT NULL ,"+&
//	"Name TEXT (50)   NOT NULL ,"+&
//	"parentid INTEGER NOT NULL ) ;"
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "CREATE TABLE U_XLS_Templates ("+&
//	"id INTEGER NOT NULL ,"+&
//	"Templates image NULL ,"+&
//	"tid INTEGER NOT NULL ,"+&
//	"Defaults SMALLINT NOT NULL ,"+&
//	"TemplatesName TEXT (50)   NOT NULL ) ;"
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "ALTER TABLE U_XLS_BillColumn_Def   ADD "+&
//	"CONSTRAINT PK_U_XLS_BillColumn_Def PRIMARY KEY   (ColumnID,BillID,ColumnType)   ;"
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "ALTER TABLE U_XLS_BillList   ADD "+&
//	"CONSTRAINT PK_U_XLS_BillList PRIMARY KEY   (BillID	)   ;"	
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "ALTER TABLE U_XLS_Column_Def   ADD "+&
//	"CONSTRAINT [PK_U_Column] PRIMARY KEY   (CID,TID	)  ;"
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "ALTER TABLE U_XLS_Table_Def   ADD "+&
//	"CONSTRAINT [PK_U_Table] PRIMARY KEY   (TID	) ;"
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "ALTER TABLE U_XLS_Templates   ADD "+&
//	"CONSTRAINT [PK_U_XLS_Templates] PRIMARY KEY   (id)   ;"
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "ALTER TABLE U_XLS_BillColumn_Def ADD "+&
//	"CONSTRAINT IX_U_XLS_BillColumn_Def UNIQUE   (SignNAME,BillID	)   ;"
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "ALTER TABLE U_XLS_BillList ADD "+&
//	"CONSTRAINT IX_U_XLS_BillList UNIQUE   (BillName),"+&
//   "CONSTRAINT IX_U_XLS_BillList_1 UNIQUE   (BillType) ;"
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "ALTER TABLE U_XLS_Column_Def ADD "+&
//	"CONSTRAINT IX_U_Column UNIQUE   (ColumnName,TID),"+&
//	"CONSTRAINT IX_U_Column_1 UNIQUE   (SignNAME,TID)  ;"
//acc_create_str[ UpperBound(acc_create_str) + 1 ] = "ALTER TABLE U_XLS_Table_Def ADD "+&
//	"CONSTRAINT IX_U_Table UNIQUE   (TableName) ,"+&
//	"CONSTRAINT IX_U_Table_1 UNIQUE   	(SignNAME)   ;"
////acc_create_str[ UpperBound(acc_create_str) + 1 ] = "ALTER TABLE U_XLS_Templates ADD "+&
////	"CONSTRAINT DF_u_test_id DEFAULT (0) FOR id,"+&
////	"CONSTRAINT DF_U_XLS_Templates_tid_1 DEFAULT (0) FOR tid,"+&
////	"CONSTRAINT DF_U_XLS_Templates_Defaults_1 DEFAULT (0) FOR Defaults,"+&
////	"CONSTRAINT DF_U_XLS_Templates_TemplatesName_1 DEFAULT ('') FOR TemplatesName ;"
//////
end subroutine

public subroutine of_create_inifile (string arg_inifile);IF Not FileExists(xls_inifilename) THEN
	Integer li_FileNum	
	li_FileNum = FileOpen(arg_inifile,LineMode!, Write!, LockWrite!, Append!)
	FileWrite(li_FileNum, "")
	FileClose(li_FileNum)	
END IF

end subroutine

public subroutine of_setprofilestring (string arg_filename, string arg_section, string arg_key, string arg_value);this.of_create_inifile( arg_filename)
SetProfileString(arg_filename, arg_section, arg_key, arg_value)
end subroutine

public subroutine of_setprofilestring (string arg_section, string arg_key, string arg_value);this.of_setprofilestring( this.xls_inifilename , arg_section, arg_key, arg_value)
end subroutine

public function string of_profilestring (string filename, string arg_section, string arg_key, string arg_default);this.of_create_inifile( filename)

return ProfileString(filename, arg_section, arg_key, arg_default)
end function

public function string of_profilestring (string arg_section, string arg_key, string arg_default);return this.of_profilestring( this.xls_inifilename ,arg_section, arg_key, arg_default)
end function

on uo_xls_constant.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_xls_constant.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

event constructor;
THIS.create_new_pwd( )
this.create_sql_table_string( )
this.create_acc_table_string( )

xls_tablelist[1] = 'U_XLS_BillColumn_Def'
xls_tablelist[2] = 'U_XLS_BillList'
xls_tablelist[3] = 'U_XLS_Templates'
xls_tablelist[4] = 'U_XLS_Column_Def'
xls_tablelist[5] = 'U_XLS_Table_Def'

end event