⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.cpp

📁 一个建立在BDE引擎上的
💻 CPP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
Query4->Append();
Query4->Close();
Query4->Active=true;  }
Query4->SQL->Clear();     //清除以前的SQL语句
DataSource4->Enabled = false;
    Query4->Active=false;
//形成SQL语句的开始部分
    Query4->SQL->Add("select *");
    Query4->SQL->Add("FROM"+Edit25->Text+" where");
     Query4->SQL->Add(" BuNa = '"+Edit2->Text+AnsiString("'"));
     Query4->SQL->Add(" AND ");
  Query4->SQL->Add(" KeNa = '"+Edit6->Text+AnsiString("'"));
   Query4->SQL->Add(" AND ");
   Query4->SQL->Add(" BanNa = '"+Edit10->Text+AnsiString("'"));
     DataSource4->Enabled =true;
     Query4->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormActivate(TObject *Sender)
{ sex->Text="男";
hyear->Text="一年";
Table1->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button10Click(TObject *Sender)
{
   DBGrid3->Visible=true;
    bushu->Visible=false;  DBGrid4->Visible=false;
DBGrid1->Visible=false; DBGrid2->Visible=false;
zushu->Visible=false;keshu->Visible=false;
banshu->Visible=true;
Query3->SQL->Clear();     //清除以前的SQL语句
DataSource3->Enabled = false;
    Query3->Active=false;
//形成SQL语句的开始部分
    Query3->SQL->Add("select *");
    Query3->SQL->Add("FROM"+Edit19->Text+" where");
     Query3->SQL->Add(" BuNa = '"+Edit2->Text+AnsiString("'"));
     Query3->SQL->Add(" AND ");
  Query3->SQL->Add(" KeNa = '"+Edit6->Text+AnsiString("'"));
     DataSource3->Enabled =true;
     Query3->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button11Click(TObject *Sender)
{   DBGrid3->Visible=false;
       Table1->Active=true;
    banshu->Visible=false;  DBGrid4->Visible=false;
DBGrid1->Visible=false; DBGrid2->Visible=false;
zushu->Visible=false;keshu->Visible=false;
bushu->Visible=true;   DBGrid1->Visible=true;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button14Click(TObject *Sender)
{
DBGrid3->Visible=false;
       Table1->Active=true;
    banshu->Visible=false;  DBGrid4->Visible=false;
DBGrid1->Visible=false; DBGrid2->Visible=false;
zushu->Visible=false;keshu->Visible=false;
bushu->Visible=true;   DBGrid1->Visible=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button15Click(TObject *Sender)
{
DBGrid1->Visible=false;
    DBGrid2->Visible=true;
    banshu->Visible=false;  DBGrid4->Visible=false;
DBGrid1->Visible=false; DBGrid3->Visible=false;
zushu->Visible=false;bushu->Visible=false;
keshu->Visible=true;
Query2->SQL->Clear();     //清除以前的SQL语句
DataSource2->Enabled = false;
    Query2->Active=false;
//形成SQL语句的开始部分
    Query2->SQL->Add("select *");
    Query2->SQL->Add("FROM"+Edit16->Text+" where");
     Query2->SQL->Add(" BuNa = '"+Edit2->Text+AnsiString("'"));
     DataSource2->Enabled =true;
     Query2->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button16Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::cha2Click(TObject *Sender)
{
Form2->Show();Form1->Hide(); Form3->Hide();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit3Change(TObject *Sender)
{
if(Edit1->Text==""||Edit2->Text=="")
Button3->Enabled=false;
else
Button3->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit11Change(TObject *Sender)
{
  if(Edit9->Text==""||Edit10->Text=="")
Button9->Enabled=false;
else
Button9->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit15Change(TObject *Sender)
{
   if(Edit14->Text==""||Edit15->Text=="")
Button11->Enabled=false;
else
Button11->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit5Change(TObject *Sender)
{
  if(Edit5->Text==""||Edit6->Text=="")
Button6->Enabled=false;
else
Button6->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button17Click(TObject *Sender)
{
int button;
button=Application->MessageBox("确认要修改此数据？","确认修改",65);
if(button==1)
{
Query2->Open();
DataSource2->DataSet->Edit();
Query2->FieldValues["KeD"]=text+Edit5->Text;
Query2->FieldValues["KeNa"]=Edit6->Text;
Query2->FieldValues["KeC"]=Edit8->Text;
Query2->FieldValues["KeNu"]=Edit7->Text;
Query2->FieldValues["KeJ"]=Memo2->Text;
Query2->FieldValues["BuD"]=Edit1->Text;
Query2->FieldValues["BuNa"]=Edit2->Text;
Query2->Append();
Query2->Close();
Query2->Active=true;  }
Query2->SQL->Clear();     //清除以前的SQL语句
DataSource2->Enabled = false;
    Query2->Active=false;
//形成SQL语句的开始部分
    Query2->SQL->Add("select *");
    Query2->SQL->Add("FROM"+Edit16->Text+" where");
     Query2->SQL->Add(" BuNa = '"+Edit2->Text+AnsiString("'"));
     DataSource2->Enabled =true;
     Query2->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button18Click(TObject *Sender)
{
 int button;
button=Application->MessageBox("确认要修改此数据？","确认修改",65);
if(button==1)
{
Table1->Open();
DataSource1->DataSet->Edit();
Table1->FieldValues["BuD"]=Edit1->Text;
Table1->FieldValues["BuNa"]=Edit2->Text;
Table1->FieldValues["BuC"]=Edit3->Text;
Table1->FieldValues["BuNu"]=Edit4->Text;
Table1->FieldValues["BuJ"]=Memo1->Text;
Table1->Append();
Table1->Close();
Table1->Active=true;  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button19Click(TObject *Sender)
{
  int button;
button=Application->MessageBox("确认要修改此数据？","确认修改",65);
if(button==1)
{
Query3->Open();
DataSource3->DataSet->Edit();
Query3->FieldValues["BanD"]=text+Edit9->Text;
Query3->FieldValues["BanNa"]=Edit10->Text;
Query3->FieldValues["BanC"]=Edit12->Text;
Query3->FieldValues["BanNu"]=Edit11->Text;
Query3->FieldValues["BanJ"]=Memo3->Text;
Query3->FieldValues["BuD"]=Edit1->Text;
Query3->FieldValues["BuNa"]=Edit2->Text;
Query3->FieldValues["KeD"]=Edit5->Text;
Query3->FieldValues["KeNa"]=Edit6->Text;
Query3->Append();
Query3->Close();
Query3->Active=true;  }
Query3->SQL->Clear();     //清除以前的SQL语句
DataSource3->Enabled = false;
    Query3->Active=false;
//形成SQL语句的开始部分
    Query3->SQL->Add("select *");
    Query3->SQL->Add("FROM"+Edit19->Text+" where");
     Query3->SQL->Add(" BuNa = '"+Edit2->Text+AnsiString("'"));
     Query3->SQL->Add(" AND ");
  Query3->SQL->Add(" KeNa = '"+Edit6->Text+AnsiString("'"));
     DataSource3->Enabled =true;
     Query3->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button20Click(TObject *Sender)
{
int button;
button=Application->MessageBox("确认要修改此数据？","确认修改",65);
if(button==1)
{
Query4->Open();
DataSource4->DataSet->Edit();
Query4->FieldValues["RD"]=text+Edit14->Text;
Query4->FieldValues["RName"]=Edit15->Text;
Query4->FieldValues["RSex"]=sex->Text;
Query4->FieldValues["RAge"]=Edit24->Text;
Query4->FieldValues["RXue"]=Edit13->Text;
Query4->FieldValues["Rjg"]=Edit17->Text;
Query4->FieldValues["Rborn"]=Edit22->Text;
Query4->FieldValues["Rxian"]=hyear->Text;
Query4->FieldValues["Rwei"]=Edit30->Text;
Query4->FieldValues["Rtel"]=Edit20->Text;
Query4->FieldValues["Rstel"]=Edit23->Text;
Query4->FieldValues["Rmail"]=Edit21->Text;
Query4->FieldValues["Radr"]=Edit18->Text;
Query4->FieldValues["Rjtime"]=Edit31->Text;
Query4->FieldValues["Rhtime"]=Edit32->Text;
Query4->FieldValues["RJ"]=Memo5->Text;
Query4->FieldValues["BuD"]=Edit1->Text;
Query4->FieldValues["BuNa"]=Edit2->Text;
Query4->FieldValues["KeD"]=Edit5->Text;
Query4->FieldValues["KeNa"]=Edit6->Text;
Query4->FieldValues["BanD"]=Edit9->Text;
Query4->FieldValues["BanNa"]=Edit10->Text;
Query4->Append();
Query4->Close();
Query4->Active=true;  }
Query4->SQL->Clear();     //清除以前的SQL语句
DataSource4->Enabled = false;
    Query4->Active=false;
//形成SQL语句的开始部分
    Query4->SQL->Add("select *");
    Query4->SQL->Add("FROM"+Edit25->Text+" where");
     Query4->SQL->Add(" BuNa = '"+Edit2->Text+AnsiString("'"));
     Query4->SQL->Add(" AND ");
  Query4->SQL->Add(" KeNa = '"+Edit6->Text+AnsiString("'"));
   Query4->SQL->Add(" AND ");
   Query4->SQL->Add(" BanNa = '"+Edit10->Text+AnsiString("'"));
     DataSource4->Enabled =true;
     Query4->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button24Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -