請問各位高手：
我如何把ADO資料庫執行的程式放到自訂函數內：
編譯沒錯誤 執行時出現 Project Education.exe raised exception class EAccessViolation with message 'Access violation at address 00401E95 in module 'Education.exe'.Read of address 00000344'. Process stopped. Use Step or Run to continue.
以下是程式碼：
<textarea class="cpp" rows="10" cols="60" name="code">
//---------------------------------------------------------------------------
#include
#pragma hdrstop #include "Unit1.h"
#include "Unit2.h" //---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm_Personnel *Form_Personnel; //---------------------------------------------------------------------------
void ShowData(){
Form_Personnel->ADOQuery1->SQL->Clear();
Form_Personnel->ADOQuery1->SQL->Add("Select * from Personnel");
Form_Personnel->ADOQuery1->Open();
Form_Personnel->Ed_Id->Text= Form_Personnel->ADOQuery1->FieldByName("P_Id")->AsString;
Form_Personnel->Ed_Account->Text= Form_Personnel->ADOQuery1->FieldByName("P_Account")->AsString;
Form_Personnel->Ed_Cipher->Text= Form_Personnel->ADOQuery1->FieldByName("P_Cipher")->AsString;
Form_Personnel->Ed_Birthday->Text= Form_Personnel->ADOQuery1->FieldByName("P_Birthday")->AsString;
Form_Personnel->Ed_Address->Text= Form_Personnel->ADOQuery1->FieldByName("P_Address")->AsString;
Form_Personnel->Ed_Movele->Text= Form_Personnel->ADOQuery1->FieldByName("P_Movele")->AsString;
Form_Personnel->Ed_TEL->Text= Form_Personnel->ADOQuery1->FieldByName("P_TEL")->AsString;
Form_Personnel->Ed_Liaison->Text= Form_Personnel->ADOQuery1->FieldByName("P_Liaison")->AsString;
Form_Personnel->Ed_Department->Text= Form_Personnel->ADOQuery1->FieldByName("P_Department")->AsString;
Form_Personnel->Ed_Professional->Text= Form_Personnel->ADOQuery1->FieldByName("P_Professional")->AsString;
Form_Personnel->Ed_Plane->Text= Form_Personnel->ADOQuery1->FieldByName("P_Plane")->AsString;
Form_Personnel->Ed_Workday->Text= Form_Personnel->ADOQuery1->FieldByName("P_Workday")->AsString;
Form_Personnel->Ed_Departee->Text= Form_Personnel->ADOQuery1->FieldByName("P_Departee")->AsString; }
//---------------------------------------------------------------------------
__fastcall TForm_Personnel::TForm_Personnel(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm_Personnel::FormClose(TObject *Sender, TCloseAction &Action)
{
Action=caFree;
}
//--------------------------------------------------------------------------- void __fastcall TForm_Personnel::FormCreate(TObject *Sender)
{
ShowData(); }
</textarea>
------
學藝不精 謝多多指教
發表時間：2007-02-28 18:00:33
IP:219.86.xxx.xxx 訂閱
