assistunit.cpp

16人格测试 16人格测试 16人格测试 16人格测试

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "AssistUnit.h"
#include "DMUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Wwdatsrc"
#pragma link "DBGridEh"
#pragma link "GridsEh"
#pragma link "RzPanel"
#pragma resource "*.dfm"
Tfrm_assist *frm_assist;
//---------------------------------------------------------------------------
__fastcall Tfrm_assist::Tfrm_assist(TComponent* Owner)
	: TForm(Owner)
{
	if(!qry_assist->Active)
		qry_assist->Open(); 
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_assist::tmr1Timer(TObject *Sender)
{
	qry_assist->Close();
	qry_assist->Open();
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_assist::rzpnl1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    Refresh();
    if(Button == mbLeft)
    {
        ReleaseCapture();
        Perform(WM_SYSCOMMAND, 0xF017, 0);
    }    	
}
//---------------------------------------------------------------------------

void __fastcall Tfrm_assist::btn1Click(TObject *Sender)
{
	this->Close();	
}
//---------------------------------------------------------------------------