各位大虾,帮帮忙啊!
谁能给我讲讲Query控件的用法?主要是向数据库中存数据,
我在单独写数据时好用,为什么在Page页中写不进去呢?
帮帮忙吧,呜
代码如下:
void __fastcall TWizardForm::NextBtnClick(TObject *Sender)
{
if(WizardForm->PageControl1->ActivePage==TabSheet1)
{
if(WizardForm->Edit1->Text=="")
{
MessageBox(NULL,"帐套代号不能为空!!","提示",MB_ICONASTERISK);
WizardForm->Edit1->SetFocus();
return;
}
if(WizardForm->Edit3->Text=="")
{
MessageBox(NULL,"公司名称不能为空!!","提示",MB_ICONASTERISK);
WizardForm->Edit3->SetFocus();
return;
}
bool iY=false;;
CustomerData->CountQuery->First();
while(!CustomerData->CountQuery->Eof){
if(CustomerData->CountQuery->Fields->Fields[0]
->AsString==WizardForm->Edit1->Text){
iY=true;
break;
}
CustomerData->CountQuery->Next();
}
if(iY==false){
CustomerData->CountQuery->Close();
CustomerData->CountQuery->SQL->Clear();
CustomerData->CountQuery->SQL->Add("Select * From count1");//此句以后跳到别处执行,不知为什么
CustomerData->CountQuery->Insert();
CustomerData->CountQueryNUM->Value=WizardForm->Edit1
->Text;//CountQueryNum是Query中字段名
CustomerData->CountQueryCOMPANY->Value=WizardForm->Edit3->Text;//这一句好象执行不到
CustomerData->CountQuery->ApplyUpdates();
//CustomerData->CountQuery->Fields->Fields[0]->AsString=WizardForm->Edit1->Text;
//CustomerData->CountQuery->Fields->Fields[1]->AsString=WizardForm->Edit3->Text;
}
else{
MessageBox(NULL,"帐套代号已经被使用","提示",MB_ICONASTERISK);
return;
}
ToPage2();
}
else if(WizardForm->PageControl1->ActivePage==TabSheet2)
ToPage3();
else if(WizardForm->PageControl1->ActivePage==TabSheet3)
if(Edit4->Text=="")
{
MessageBox(NULL,"管理员名称不能为空","提示",MB_ICONASTERISK);
Edit4->SetFocus();
return;
}
else
ToPage4();
else if(WizardForm->PageControl1->ActivePage==TabSheet4)
ToPage5();
else if(WizardForm->PageControl1->ActivePage==TabSheet5)
ToPage6();
else
{
//CustomerData->CountQuery->Open();
CustomerData->CountQuery->ApplyUpdates();
/*
CustomerData->CountQuery->Post();
CustomerData->CountQuery->ApplyUpdates();
CustomerData->CountQuery->CommitUpdates();
*/
SetStringGrid(SelectCForm->StringGrid1,CustomerData);
MessageBeep(0xffffff);
WizardForm->Close();
}
}