<?

$Column_list	= "コード,名前,学年,convert(char(10),誕生日,111),電話番号";
$Main_table	= "学生マスタ";
$Sort_key	= "コード";

# *********************************************************
# データセット
# *********************************************************
function F_SetData( &$SQL, &$VAL ) {

	for ( $i = 0; $i < $VAL->LineMax; $i++ ) {

		if ( FALSE == $SQL->Fetch() ) {
			break;
		}
		if ( $i == 0 ) {
			$VAL->StartKey = $SQL->Field[0];
		}
		$VAL->strData1[$i]	= $SQL->Field[0];
		$VAL->strData2[$i]	= $SQL->Field[1];
		$VAL->nData3[$i]	= $SQL->Field[2];
		$VAL->dtData4[$i]	= $SQL->Field[3];
		$VAL->strData5[$i]	= $SQL->Field[4];

		$VAL->EndKey = $SQL->Field[0];
	}

	return $i;
}
# *********************************************************
# 初期データ・カレントデータ
# *********************************************************
function F_LoadDataInit( &$SQL, &$VAL ) {

	$SqlQuery = "select {$GLOBALS["Column_list"]}";
	$SqlQuery .= " from {$GLOBALS["Main_table"]}";
	$SqlQuery .= " where {$GLOBALS["Sort_key"]} >= '{$VAL->StartKey}'";
	$SqlQuery .= " order by {$GLOBALS["Sort_key"]}";
	$SQL->Query( $SqlQuery );

	F_SetData( $SQL, $VAL );
	$SQL->Free();
}
# *********************************************************
# 次データ
# *********************************************************
function F_LoadDataNext( &$SQL, &$VAL ) {

	$SqlQuery = "select {$GLOBALS["Column_list"]}";
	$SqlQuery .= " from {$GLOBALS["Main_table"]}";
	$SqlQuery .= " where {$GLOBALS["Sort_key"]} > '{$VAL->EndKey}'";
	$SqlQuery .= " order by {$GLOBALS["Sort_key"]}";
	$SQL->Query( $SqlQuery );

	$i = F_SetData( $SQL, $VAL );
	$SQL->Free();
	if ( $i == 0 ) {
		F_LoadDataInit( $SQL, $VAL );
	}
}
# *********************************************************
# 前データ
# *********************************************************
function F_LoadDataPrev( &$SQL, &$VAL ) {

	$SqlQuery = "select {$GLOBALS["Column_list"]}";
	$SqlQuery .= " from {$GLOBALS["Main_table"]}";
	$SqlQuery .= " where {$GLOBALS["Sort_key"]} < '{$VAL->StartKey}'";
	$SqlQuery .= " order by {$GLOBALS["Sort_key"]} desc";
	$SQL->Query( $SqlQuery );

	// 読み飛ばし
	for ( $i = 0; $i < $VAL->LineMax; $i++ ) {
		if ( FALSE == $SQL->Fetch() ) {
			break;
		}	
		if ( $i == 0 ) {
			$VAL->EndKey = $SQL->Field[0];
		}
		$VAL->StartKey = $SQL->Field[0];
	}

	$SQL->Free();
	F_LoadDataInit( $SQL, $VAL );
}
?>