Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/sedona/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/sedona/dvds.dct

�@#VW"dvds.dbf
id&dvdprice.dbf
id,
genreidgenresgenreid)genres.dbfgenreid 

iddvds
id��� ��ߍ%�e-�U���j%�C�dvds����MCCC�-Enter password (type the word "Admin" below):�	DVD Login��f�ADMIN	��x�B�-���U
CTABLENAME�����������
M(�`�4�.Database opened by <<SYS(0)>>  <<DATETIME()>>.��T��C��LOG�����C��a���U
CDATABASENAME
LEXCLUSIVE	LNOUPDATE	LVALIDATELCSTRLCLOG�����������
M(�`�4�.Database closed by <<SYS(0)>>  <<DATETIME()>>.��T��C��LOG�����C��a���U
CDATABASENAME
LEXCLUSIVE	LNOUPDATE	LVALIDATELCSTRLCLOGa���%�C�genres�����Z�0��C�$Sorry, you cannot modify this table.�x��B�-���U
CTABLENAMEdbc_BeforeOpenTable,��dbc_OpenData���
dbc_CloseData���dbc_BeforeModifyTableS��8q�qA41��AAa41��AAa4q�qA1��'=L	%)�#DEFINE DVDLOGIN_LOC	[Enter password (type the word "Admin" below):]
#DEFINE DVDLOGINCAP_LOC	[DVD Login]
#DEFINE DATAOPEN_LOC	Database opened by
#DEFINE DATACLOSED_LOC	Database closed by
#DEFINE NOMOD_LOC		"Sorry, you cannot modify this table."


PROCEDURE dbc_BeforeOpenTable(cTableName)
*Just before a table or view is opened. Return .F. to prevent table or view being opened.
IF ATC("dvds",cTableName)#0 AND UPPER(ALLTRIM(INPUTBOX(DVDLOGIN_LOC,DVDLOGINCAP_LOC)))#"ADMIN"
	RETURN .F.
ENDIF
ENDPROC


PROCEDURE dbc_OpenData(cDatabaseName, lExclusive, lNoupdate, lValidate)
*Immediately after DBC is opened.
LOCAL lcStr,lcLog
TEXT TO lcStr NOSHOW TEXTMERGE
DATAOPEN_LOC <<SYS(0)>>  <<DATETIME()>>.
ENDTEXT
lcLog = FORCEEXT(cDatabaseName,"LOG")
STRTOFILE(lcStr,lcLog,.T.)
ENDPROC


PROCEDURE dbc_CloseData(cDatabaseName, lExclusive, lNoupdate, lValidate)
*Immediately after DBC is opened.
LOCAL lcStr,lcLog
TEXT TO lcStr NOSHOW TEXTMERGE
DATACLOSED_LOC <<SYS(0)>>  <<DATETIME()>>.
ENDTEXT
lcLog = FORCEEXT(cDatabaseName,"LOG")
STRTOFILE(lcStr,lcLog,.T.)
ENDPROC


PROCEDURE dbc_BeforeModifyTable(cTableName)
*Just before a table is modified. Return .F. to prevent modification.
IF ATC("genres",cTableName)#0
	MESSAGEBOX(NOMOD_LOC)
	RETURN .F.
ENDIF
ENDPROC
#DEFINE DVDLOGIN_LOC	[Enter password (type the word "Admin" below):]
#DEFINE DVDLOGINCAP_LOC	[DVD Login]
#DEFINE DATAOPEN_LOC	Database opened by
#DEFINE DATACLOSED_LOC	Database closed by
#DEFINE NOMOD_LOC		"Sorry, you cannot modify this table."


PROCEDURE dbc_BeforeOpenTable(cTableName)
*Just before a table or view is opened. Return .F. to prevent table or view being opened.
IF ATC("dvds",cTableName)#0 AND UPPER(ALLTRIM(INPUTBOX(DVDLOGIN_LOC,DVDLOGINCAP_LOC)))#"ADMIN"
	RETURN .F.
ENDIF
ENDPROC


PROCEDURE dbc_OpenData(cDatabaseName, lExclusive, lNoupdate, lValidate)
*Immediately after DBC is opened.
LOCAL lcStr,lcLog
TEXT TO lcStr NOSHOW TEXTMERGE
DATAOPEN_LOC <<SYS(0)>>  <<DATETIME()>>.

ENDTEXT
lcLog = FORCEEXT(cDatabaseName,"LOG")
STRTOFILE(lcStr,lcLog,.T.)
ENDPROC


PROCEDURE dbc_CloseData(cDatabaseName, lExclusive, lNoupdate, lValidate)
*Immediately after DBC is opened.
LOCAL lcStr,lcLog
TEXT TO lcStr NOSHOW TEXTMERGE
DATACLOSED_LOC <<SYS(0)>>  <<DATETIME()>>.

ENDTEXT
lcLog = FORCEEXT(cDatabaseName,"LOG")
STRTOFILE(lcStr,lcLog,.T.)
ENDPROC


PROCEDURE dbc_BeforeModifyTable(cTableName)
*Just before a table is modified. Return .F. to prevent modification.
IF ATC("genres",cTableName)#0
	MESSAGEBOX(NOMOD_LOC)
	RETURN .F.
ENDIF
ENDPROC
�� ��,�%�u9�U���j%�C�dvds����MCCC�-Enter password (type the word "Admin" below):�	DVD Login��f�ADMIN	��x�B�-���U
CTABLENAME�����������
M(�`�4�.Database opened by <<SYS(0)>>  <<DATETIME()>>.����T��C��LOG�����C��a���U
CDATABASENAME
LEXCLUSIVE	LNOUPDATE	LVALIDATELCSTRLCLOG�����������
M(�`�4�.Database closed by <<SYS(0)>>  <<DATETIME()>>.����T��C��LOG�����C��a���U
CDATABASENAME
LEXCLUSIVE	LNOUPDATE	LVALIDATELCSTRLCLOGa���%�C�genres�����Z�0��C�$Sorry, you cannot modify this table.�x��B�-���U
CTABLENAMEdbc_BeforeOpenTable,��dbc_OpenData���
dbc_CloseData���dbc_BeforeModifyTable_��8q�qA41��AaAa41��AaAa4q�qA1��)AP
')��#DEFINE DVDLOGIN_LOC	[Enter password (type the word "Admin" below):]
#DEFINE DVDLOGINCAP_LOC	[DVD Login]
#DEFINE DATAOPEN_LOC	Database opened by
#DEFINE DATACLOSED_LOC	Database closed by
#DEFINE NOMOD_LOC		"Sorry, you cannot modify this table."


PROCEDURE dbc_BeforeOpenTable(cTableName)
*Just before a table or view is opened. Return .F. to prevent table or view being opened.
IF ATC("dvds",cTableName)#0 AND UPPER(ALLTRIM(INPUTBOX(DVDLOGIN_LOC,DVDLOGINCAP_LOC)))#"ADMIN"
	* Since this is a sample, we will ignore password, however, you can enforce it by returning .F.
	* RETURN .F.
	RETURN .T.
ENDIF
ENDPROC


PROCEDURE dbc_OpenData(cDatabaseName, lExclusive, lNoupdate, lValidate)
*Immediately after DBC is opened.
LOCAL lcStr,lcLog
TEXT TO lcStr NOSHOW TEXTMERGE
DATAOPEN_LOC <<SYS(0)>>  <<DATETIME()>>.

ENDTEXT
lcLog = FORCEEXT(cDatabaseName,"LOG")
STRTOFILE(lcStr,lcLog,.T.)
ENDPROC


PROCEDURE dbc_CloseData(cDatabaseName, lExclusive, lNoupdate, lValidate)
*Immediately after DBC is opened.
LOCAL lcStr,lcLog
TEXT TO lcStr NOSHOW TEXTMERGE
DATACLOSED_LOC <<SYS(0)>>  <<DATETIME()>>.

ENDTEXT
lcLog = FORCEEXT(cDatabaseName,"LOG")
STRTOFILE(lcStr,lcLog,.T.)
ENDPROC


PROCEDURE dbc_BeforeModifyTable(cTableName)
* Just before a table is modified. Return .F. to prevent modification.
IF ATC("genres",cTableName)#0
	MESSAGEBOX(NOMOD_LOC)
	RETURN .F.
ENDIF
ENDPROC
�� ��,�%�u9�U���j%�C�dvds����MCCC�-Enter password (type the word "Admin" below):�	DVD Login��f�ADMIN	��x�B�a���U
CTABLENAME�����������
M(�`�4�.Database opened by <<SYS(0)>>  <<DATETIME()>>.����T��C��LOG�����C��a���U
CDATABASENAME
LEXCLUSIVE	LNOUPDATE	LVALIDATELCSTRLCLOG�����������
M(�`�4�.Database closed by <<SYS(0)>>  <<DATETIME()>>.����T��C��LOG�����C��a���U
CDATABASENAME
LEXCLUSIVE	LNOUPDATE	LVALIDATELCSTRLCLOGa���%�C�genres�����Z�0��C�$Sorry, you cannot modify this table.�x��B�-���U
CTABLENAMEdbc_BeforeOpenTable,��dbc_OpenData���
dbc_CloseData���dbc_BeforeModifyTable_��8q�sA41��AaAa41��AaAa4q�qA1�gv����))�l#DEFINE DVDLOGIN_LOC	[Enter password:]
#DEFINE DVDLOGINCAP_LOC	[DVD Login]
#DEFINE DATAOPEN_LOC	Database opened by
#DEFINE DATACLOSED_LOC	Database closed by
#DEFINE NOMOD_LOC		"Sorry, you cannot modify this table."


PROCEDURE dbc_BeforeOpenTable(cTableName)
*Just before a table or view is opened. Return .F. to prevent table or view being opened.
IF ATC("dvds",cTableName)#0 AND UPPER(ALLTRIM(INPUTBOX(DVDLOGIN_LOC,DVDLOGINCAP_LOC)))#"ADMIN"
	* Since this is a sample, we will ignore password, however, you can enforce it by returning .F.
	* RETURN .F.
	RETURN .T.
ENDIF
ENDPROC


PROCEDURE dbc_OpenData(cDatabaseName, lExclusive, lNoupdate, lValidate)
*Immediately after DBC is opened.
LOCAL lcStr,lcLog
TEXT TO lcStr NOSHOW TEXTMERGE
DATAOPEN_LOC <<SYS(0)>>  <<DATETIME()>>.

ENDTEXT
lcLog = FORCEEXT(cDatabaseName,"LOG")
STRTOFILE(lcStr,lcLog,.T.)
ENDPROC


PROCEDURE dbc_CloseData(cDatabaseName, lExclusive, lNoupdate, lValidate)
*Immediately after DBC is opened.
LOCAL lcStr,lcLog
TEXT TO lcStr NOSHOW TEXTMERGE
DATACLOSED_LOC <<SYS(0)>>  <<DATETIME()>>.

ENDTEXT
lcLog = FORCEEXT(cDatabaseName,"LOG")
STRTOFILE(lcStr,lcLog,.T.)
ENDPROC


PROCEDURE dbc_BeforeModifyTable(cTableName)
* Just before a table is modified. Return .F. to prevent modification.
IF ATC("genres",cTableName)#0
	MESSAGEBOX(NOMOD_LOC)
	RETURN .F.
ENDIF
ENDPROC
�� ��x%�W�Ua���L%�C�dvds����/CCC�Enter password:�	DVD Login��f�ADMIN	��Z�B�a���U
CTABLENAME�����������
M(�`�4�.Database opened by <<SYS(0)>>  <<DATETIME()>>.����T��C��LOG�����C��a���U
CDATABASENAME
LEXCLUSIVE	LNOUPDATE	LVALIDATELCSTRLCLOG�����������
M(�`�4�.Database closed by <<SYS(0)>>  <<DATETIME()>>.����T��C��LOG�����C��a���U
CDATABASENAME
LEXCLUSIVE	LNOUPDATE	LVALIDATELCSTRLCLOGa���%�C�genres�����Z�0��C�$Sorry, you cannot modify this table.�x��B�-���U
CTABLENAMEdbc_BeforeOpenTable,��dbc_OpenData���
dbc_CloseDatao��dbc_BeforeModifyTableA��8q�sA41��AaAa41��AaAa4q�qA1�IXm|��a))�