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

📄 unit1.cpp

📁 一个建立在BDE引擎上的
💻 CPP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cmp_TBackDrop"
#pragma link "XPMenu"
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString text;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{      
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int button;
button=Application->MessageBox("确认要增加此数据？","确认增加",65);
if(button==1)
{
Table1->Open();
DataSource1->DataSet->Edit();
Table1->Append();
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::Button2Click(TObject *Sender)
{
 Table1->Open();
DataSource1->DataSet->Edit();
Table1->Delete();
Table1->Close();
Table1->Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
  int button;
button=Application->MessageBox("确认要增加此数据？","确认增加",65);
if(button==1)
{
Query2->Open();
DataSource2->DataSet->Edit();
Query2->Append();
Query2->FieldValues["KeD"]=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::Button4Click(TObject *Sender)
{
 Query2->Open();
DataSource2->DataSet->Edit();
Query2->Delete();
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::Button3Click(TObject *Sender)
{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;


banshu->Visible=false; zushu->Visible=false;
bushu->Visible=false;keshu->Visible=true;DBGrid2->Visible=true;
DBGrid1->Visible=false; DBGrid3->Visible=false; DBGrid4->Visible=false;

text=Edit1->Text;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)
{ bushu->Visible=false;  DBGrid3->Visible=true;
DBGrid1->Visible=false; DBGrid2->Visible=false; DBGrid4->Visible=false;
banshu->Visible=true;keshu->Visible=false; zushu->Visible=false;
text=Edit5->Text;

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::Button8Click(TObject *Sender)
{
      int button;
button=Application->MessageBox("确认要增加此数据？","确认增加",65);
if(button==1)
{
Query3->Open();
DataSource3->DataSet->Edit();
Query3->Append();
Query3->FieldValues["BanD"]=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::Button7Click(TObject *Sender)
{
Query3->Open();
DataSource3->DataSet->Edit();
Query3->Delete();
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::Button9Click(TObject *Sender)
{     DBGrid4->Visible=true;
    bushu->Visible=false;  DBGrid3->Visible=false;
DBGrid1->Visible=false; DBGrid2->Visible=false;
banshu->Visible=false;keshu->Visible=false;
zushu->Visible=true;
text=Edit9->Text;

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::Button12Click(TObject *Sender)
{
Query4->Open();
DataSource4->DataSet->Edit();
Query4->Delete();
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::Button13Click(TObject *Sender)
{
  int button;
button=Application->MessageBox("确认要增加此数据？","确认增加",65);
if(button==1)
{
Query4->Open();
DataSource4->DataSet->Edit();
Query4->Append();
Query4->FieldValues["RD"]=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;
12

⌨️ 快捷键说明

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