unit2.~cpp

用bcb的ADO连接sql server 2000

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

#include <vcl.h>
#pragma hdrstop

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


void __fastcall TForm2::Button2Click(TObject *Sender)
{
Form2->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
if(Edit1->Text.IsEmpty())
  {ShowMessage("请输入用户名");
   Edit1->SetFocus();
  }
else{ if(ComboBox1->ItemIndex==0)
       {ADOQuery1->Close();
        ADOQuery1->SQL->Clear();
        ADOQuery1->SQL->Add("select * from reader where 借书证号="+Edit1->Text+";");
        ADOQuery1->Open();
        if(ADOQuery1->RecordCount!=1||ADOQuery1->FieldByName("密码")->AsString.Trim()!=Edit2->Text.Trim()||Edit2->Text.IsEmpty())
           {if(ADOQuery1->RecordCount!=1)
               {ShowMessage("借书证号不存在");
                Edit1->SetFocus();
               }
            if(ADOQuery1->FieldByName("密码")->AsString.Trim()!=Edit2->Text.Trim()||Edit2->Text.IsEmpty())
               {ShowMessage("密码错误");
               Edit2->SetFocus();
               }
           }
        else {Form2->Close();
              Form1->PageControl2->Visible=true;
              Form1->PageControl1->Visible=false;

              Form1->ADOTable2->Active=true;
              Form1->ADOTable2->Filter="借书证号='"+Edit1->Text+"'";
              Form1->Edit12->Text=Edit1->Text;
              Form1->ADOTable2->Filtered=true;
              Form1->Edit33->Text=Form1->ADOTable2->FieldByName("姓名")->AsString;
              Form1->Edit36->Text=Form1->ADOTable2->FieldByName("单位")->AsString;
              Form1->Edit32->Text=Form1->ADOTable2->FieldByName("身份")->AsString;
              Form1->Edit37->Text=Form1->ADOTable2->FieldByName("可借书数目")->Value;
              Form1->ADOTable3->Active=true;
              Form1->ADOTable3->Filter="借书证号='"+Edit1->Text+"'";
              Form1->ADOTable3->Filtered=true;
             }
       }
      if(ComboBox1->ItemIndex==1)
        {ADOQuery1->Close();
        ADOQuery1->SQL->Clear();
        ADOQuery1->SQL->Add("select * from manager where 编码="+Edit1->Text+";");
        ADOQuery1->Open();
        if(ADOQuery1->RecordCount!=1||ADOQuery1->FieldByName("密码")->AsString.Trim()!=Edit2->Text.Trim()||Edit2->Text.IsEmpty())
           {if(ADOQuery1->RecordCount!=1)
               {ShowMessage("帐号不存在");
                Edit1->SetFocus();
               }
            if(ADOQuery1->FieldByName("密码")->AsString.Trim()!=Edit2->Text.Trim()||Edit2->Text.IsEmpty())
               {ShowMessage("密码错误");
               Edit2->SetFocus();
               }
           }
        else {Form2->Close();
              Form1->PageControl1->Visible=true;
              Form1->PageControl2->Visible=false;
              
             }
       }
     }

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

void __fastcall TForm2::ComboBox1Change(TObject *Sender)
{
if(ComboBox1->ItemIndex==0)
Label2->Caption="借书证号   " ;
else Label2->Caption="管理员编号    " ;
}
//---------------------------------------------------------------------------