問合せ用 App_01

  クラス定義



  
#define MyEXTERN extern
#include "MTN.h"

class App_51  
{
public:

	LboxListview *Lv;

	BOOL DataRequest( void );

	App_51( HWND hDlg, LboxListview *Lview );
	App_51();
	virtual ~App_51();
};
  



  コンストラクタタ



  
// *********************************************************
// コンストラクタ
// *********************************************************
App_51::App_51( HWND hDlg, LboxListview *Lview )
{

	Lv = Lview;

	// ダイアログオブジェクト作成
	Dlg = new LboxDlg( hDlg );
	Dlg->ChangeStyle( WS_MINIMIZEBOX | WS_SYSMENU, 0 );
	Dlg->ChangeExStyle( WS_EX_APPWINDOW, 0 );
	Dlg->StatusCreate( 0 );

	// プログラムID
	Dlg->EditSetText( IDC_PROGID, "HR510" );

	// 項目属性設定

}
  



  問合せ処理

  
// *********************************************************
// 問合せ実行
// *********************************************************
BOOL App_51::DataRequest( void )
{
	BOOL bRet;

	bRet = true;

	if ( !CurDb->Connect() ) {
		Dlg->MsgOk("データベースの接続に失敗しました    ");
		return false;
	}	

	Query->operator = ("select * from 商品分類マスタ");
	Dlg->EditGetText( IDC_COND, Item );
	Item->Trim("  ");
	if ( Item->operator != ("") ) {
		Item->Enclose( "%" );
		Item->Enclose( "'" );
		Query->operator += (" where 名称 like ");
		Query->operator += (Item);
	}
	if ( Column->operator == ( "" ) ) {
		Query->operator += (" order by 商品分類");
	}
	else {
		Query->operator += (" order by ");
		Query->operator += (Column);
	}

	Lv->Hide();
	CurDb->LoadSqlData( Lv, 0 , Query );
	Lv->Fit();
	Lv->Show();

	CurDb->DisConnect();

	return bRet;
}
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ