unit1.~cpp

用bcb的ADO连接sql server 2000

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------





void __fastcall TForm1::Button1Click(TObject *Sender)
{
int flag=0;
if(ComboBox6->Text==""&&Edit2->Text.IsEmpty()&&Edit3->Text.IsEmpty()&&Edit5->Text.IsEmpty()&&
Edit6->Text.IsEmpty()&&ComboBox6->Text==""&&ComboBox7->Text=="")
  ShowMessage("请输入查询条件！");
else{
if(ComboBox6->ItemIndex!=1)
{
ADOQuery3->SQL->Clear();
ADOQuery3->SQL->Add("SELECT * FROM book WHERE ");
if(Edit2->Text.IsEmpty()==0)
{if(flag==1)
 ADOQuery3->SQL->Add("AND ");
 ADOQuery3->SQL->Add("图书号='"+Edit2->Text+"' ");
 flag=1;
 }
if(Edit3->Text.IsEmpty()==0)
{if(flag==1)
 ADOQuery3->SQL->Add("AND ");
 ADOQuery3->SQL->Add("作者 like '%"+Edit3->Text+"%' ");
 flag=1;
 }

if(Edit5->Text.IsEmpty()==0)
{if(flag==1)
 ADOQuery3->SQL->Add("AND ");
 ADOQuery3->SQL->Add("书名 like '%"+Edit5->Text+"%' ");
 flag=1;
 }
if(Edit6->Text.IsEmpty()==0)
{if(flag==1)
 ADOQuery3->SQL->Add("AND ");
 ADOQuery3->SQL->Add("出版社 like '%"+Edit6->Text+"%' ");
 flag=1;
 }

if(ComboBox6->ItemIndex!=-1)
{if(flag==1)
 ADOQuery3->SQL->Add("AND ");
 Edit12->Text=ComboBox6->ItemIndex;
 ADOQuery3->SQL->Add("状态='"+Edit12->Text+"' ");
 flag=1;
 }

if(ComboBox7->ItemIndex!=-1&&ComboBox7->ItemIndex!=3)
{if(flag==1)
 ADOQuery3->SQL->Add("AND ");
 Edit12->Text=ComboBox7->ItemIndex;
 ADOQuery3->SQL->Add("分类码='"+Edit12->Text+"' ");
 flag=1;
 }
ADOQuery3->SQL->Add(";");
ADOQuery3->Open();}
else {ADOQuery3->SQL->Clear();
      ADOQuery3->SQL->Add("SELECT * FROM borrowbook  ");
      if(Edit2->Text.IsEmpty()==0)
          {
           ADOQuery3->SQL->Add("WHERE 图书号='"+Edit2->Text+"' ");

          }
      ADOQuery3->SQL->Add(";");
      ADOQuery3->Open();
      }
}
//ADOQuery3->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N1Click(TObject *Sender)
{
Form2->ShowModal();
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button2Click(TObject *Sender)
{
int tmp;
if(Edit10->Text.IsEmpty()==1)
  ShowMessage("密码不能为空");
else if(Edit10->Text==Edit11->Text)
{
//ADOQuery2->Active=true;
ADOTable2->Active=true;
ADOQuery2->Close();
        ADOQuery2->SQL->Clear();
        ADOQuery2->SQL->Add("select * from reader where 借书证号="+Edit9->Text.Trim()+";");
        ADOQuery2->Open();
        if(ADOQuery2->RecordCount>0)
//if(ADOQuery2->RecordCount==1)
ShowMessage("此借书证号已存在");
else{
     //ADOTable2->Active=true;
     ADOTable2->Insert();
     ADOTable2->FieldByName("借书证号")->AsString=Edit9->Text;
     ADOTable2->FieldByName("姓名")->AsString=Edit7->Text;
     ADOTable2->FieldByName("单位")->AsString=Edit8->Text;
     ADOTable2->FieldByName("身份")->Value=ComboBox2->Text;
     if(ComboBox2->ItemIndex==1)tmp=10;
     else tmp=5;
     ADOTable2->FieldByName("可借书数目")->AsInteger=tmp;
     ADOTable2->FieldByName("密码")->AsString=Edit10->Text;
     ADOTable2->Post();
     ShowMessage("注册成功");}
}
else ShowMessage("密码不一致");
}
//---------------------------------------------------------------------------






void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
 if(ComboBox1->ItemIndex==0)
   {Panel1->Visible=true;Panel3->Visible=false;Panel5->Visible=false;}
 if(ComboBox1->ItemIndex==1)
   {Panel3->Visible=true;Panel1->Visible=false;Panel4->Visible=false;Panel5->Visible=false;}
 if(ComboBox1->ItemIndex==2)
   {Panel1->Visible=false;Panel3->Visible=false;Panel5->Visible=true;}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
//ADOQuery2->Active=true;
ADOQuery2->Close();
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Add("select * from reader where 借书证号='"+Edit13->Text+"';");
ADOQuery2->Open();
        if(ADOQuery2->RecordCount!=1||ADOQuery2->FieldByName("密码")->AsString.Trim()!=Edit14->Text.Trim()||Edit14->Text.IsEmpty())
           {if(ADOQuery2->RecordCount!=1)
               {ShowMessage("借书证号不存在");
                Edit13->SetFocus();
               }
            if(ADOQuery2->FieldByName("密码")->AsString.Trim()!=Edit14->Text.Trim()||Edit14->Text.IsEmpty())
               {ShowMessage("密码错误");
               Edit14->SetFocus();
               }
           }
        else {Panel4->Visible=true;
              ADOTable2->Filter="借书证号='"+Edit13->Text+"'";
              ADOTable2->Filtered=true;
              Edit16->Text=ADOQuery2->FieldByName("姓名")->AsString;
              Edit19->Text=ADOQuery2->FieldByName("单位")->AsString;
              ComboBox5->Text=ADOQuery2->FieldByName("身份")->AsString;
              }
//if(Edit14->Text=

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


void __fastcall TForm1::Button5Click(TObject *Sender)
{
int tmp;
 if(Edit17->Text==Edit15->Text)
   {ADOTable2->Active=true;
    ADOTable2->Edit();
    ADOTable2->FieldByName("姓名")->AsString=Edit16->Text;
    ADOTable2->FieldByName("单位")->AsString=Edit19->Text;
    ADOTable2->FieldByName("身份")->AsString=ComboBox5->Text;
    if(ComboBox5->ItemIndex==1)tmp=10;
    else tmp=5;
    ADOTable2->FieldByName("可借书数目")->AsInteger=tmp;
    ADOTable2->FieldByName("密码")->AsString= Edit17->Text.Trim();
    ADOTable2->Post();
    ShowMessage("修改成功");
   }
 else ShowMessage("密码不一致");
}
//---------------------------------------------------------------------------




void __fastcall TForm1::FormShow(TObject *Sender)
{
Form3->ShowModal();
}
//---------------------------------------------------------------------------






void __fastcall TForm1::Button10Click(TObject *Sender)
{
//ADOQuery4->Active=true;
//ADOQuery1->Active=false;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT * FROM book WHERE 图书号='"+Edit1->Text+"';");
ADOQuery1->Open();
//ADOQuery4->Active=true;
//ADOQuery4->Filter="图书号="+Edit1->Text+"'";
//ADOQuery4->Filtered=true;
//
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button9Click(TObject *Sender)
{
        ADOQuery4->Close();
        ADOQuery4->SQL->Clear();
        ADOQuery4->SQL->Add("SELECT * FROM book WHERE 图书号='"+Edit1->Text.Trim()+"';");
        ADOQuery4->Open();
        ADOQuery2->Close();
        ADOQuery2->SQL->Clear();
        ADOQuery2->SQL->Add("SELECT * FROM reader WHERE 借书证号='"+Edit38->Text.Trim()+"';");
        ADOQuery2->Open();
        //if(ADOQuery2->RecordCount==0)
        //ShowMessage("成功");
        //ADOQuery2->Filter="借书证号='"+Edit38->Text+"'";
        if(ADOQuery2->RecordCount!=1||ADOQuery2->FieldByName("密码")->AsString.Trim()!=Edit39->Text.Trim()||Edit39->Text.IsEmpty())
           {if(ADOQuery2->RecordCount!=1)
               {ShowMessage("借书证号不存在");

               }
            else//(ADOQuery2->FieldByName("密码")->AsString.Trim()!=Edit39->Text.Trim()||Edit39->Text.IsEmpty())
               {ShowMessage("密码错误");