|
이렇게 해보세요!
void __fastcall TForm6::BitBtn2Click(TObject *Sender)
{
String Expr;
Form2-> Query1-> Close();
Form2-> Query1-> SQL -> Clear();
Expr = "select * from employee where (Enumber='Edit8-> Text')\
and (Name = 'Edit9-> Text')";
Form2->Query1-> SQL-> Add(Expr);
Form2->Query1->Open();
if(!Form2->Query->Eof)
{
Edit1-> Text = Form2->Query1-> FieldByName("Enumber")->AsString;
Edit2-> Text = Form2->Query1-> FieldByName("Name")-> AsString;
Edit3-> Text = Form2->Query1-> FieldByName("Age")-> AsString;
Edit4-> Text = Form2->Query1-> FieldByName("Addr")-> AsString;
Edit5-> Text = Form2->Query1-> FieldByName("Tel")->AsString;
Edit6-> Text = Form2->Query1-> FieldByName("Cell")-> AsString;
Edit7-> Text = Form2->Query1-> FieldByName("Email")-> AsString;
}
Form2->Query1->Close();
}
|