client.cpp

银行账户管理系统

                    suiEdit2->Enabled=false;
                    suiEdit3->Enabled=false;
                    suiEdit4->Enabled=false;
                    suiEdit5->Enabled=false;
                }

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

void __fastcall TForm3::suiButton1Click(TObject *Sender)
{
    if(suiComboBox1->Text=="客户号")
    {
        if(suiEdit1->Text!=""&&suiEdit2->Text!="")
        {
            ADOQuery1->SQL->Clear();
            ADOQuery1->SQL->Add("select cid from client where cno='"+suiEdit1->Text+"'");
            ADOQuery1->Open();

            if(!ADOQuery1->IsEmpty())
                if(suiEdit2->Text==ADOQuery1->FieldByName("cid")->Value)
                {
                    ADOQuery1->SQL->Clear();
                    ADOQuery1->SQL->Add("select * from accounts,bankcards,client where accounts.cno='"+suiEdit1->Text+"' AND client.cno=accounts.cno AND bankcards.bcno=accounts.bcno");
                    ADOQuery1->Open();

                    AdvStringGrid1->RowCount = (ADOQuery1->RecordCount== 0 ? 2 : ADOQuery1->RecordCount + 1);

                    for(int i=1;i<=ADOQuery1->RecordCount;i++)
                    {
                        AdvStringGrid1->Cells[0][i] =i;
                        AdvStringGrid1->Cells[1][i] = ADOQuery1->FieldByName("cno")->Value;
                        AdvStringGrid1->Cells[2][i] = ADOQuery1->FieldByName("cname")->Value;
                        AdvStringGrid1->Cells[3][i] = ADOQuery1->FieldByName("csex")->Value;
                        AdvStringGrid1->Cells[4][i] = ADOQuery1->FieldByName("cid")->Value;
                        AdvStringGrid1->Cells[5][i] = ADOQuery1->FieldByName("ano")->Value;
                        AdvStringGrid1->Cells[6][i] = ADOQuery1->FieldByName("bcno")->Value;
                        AdvStringGrid1->Cells[7][i] = ADOQuery1->FieldByName("amount")->Value;
                        AdvStringGrid1->Cells[8][i] = ADOQuery1->FieldByName("date")->Value;

                        ADOQuery1->Next();
                    }
                    suiEdit1->Text="";
                    suiEdit2->Text="";
                }
                else
                {
                    MessageBox(NULL,"对不起，您的身份证号不正确！","错误提示",MB_ICONERROR);
                    suiEdit2->Text="";
                }
            else
            {
                MessageBox(NULL,"对不起！该客户不存在。","错误提示",MB_ICONHAND);
                suiEdit1->Text="";
                suiEdit2->Text="";
            }
        }
    }
    else
        if(suiComboBox1->Text=="账户号")
        {
            if(suiEdit3->Text!=""&&suiEdit5->Text!="")
            {
                ADOQuery1->SQL->Clear();
                ADOQuery1->SQL->Add("select password from accounts,bankcards where accounts.ano='"+suiEdit3->Text+"' AND bankcards.bcno=accounts.bcno");
                ADOQuery1->Open();

                if(!ADOQuery1->IsEmpty())
                    if(suiEdit5->Text==ADOQuery1->FieldByName("password")->Value)
                    {
                        ADOQuery1->SQL->Clear();
                        ADOQuery1->SQL->Add("select * from client,accounts,bankcards where accounts.ano='"+suiEdit3->Text+"' AND client.cno=accounts.cno");
                        ADOQuery1->Open();

                        AdvStringGrid1->Cells[0][1] =1;
                        AdvStringGrid1->Cells[1][1] = ADOQuery1->FieldByName("cno")->Value;
                        AdvStringGrid1->Cells[2][1] = ADOQuery1->FieldByName("cname")->Value;
                        AdvStringGrid1->Cells[3][1] = ADOQuery1->FieldByName("csex")->Value;
                        AdvStringGrid1->Cells[4][1] = ADOQuery1->FieldByName("cid")->Value;
                        AdvStringGrid1->Cells[5][1] = ADOQuery1->FieldByName("ano")->Value;
                        AdvStringGrid1->Cells[6][1] = ADOQuery1->FieldByName("bcno")->Value;
                        AdvStringGrid1->Cells[7][1] = ADOQuery1->FieldByName("amount")->Value;
                        AdvStringGrid1->Cells[8][1] = ADOQuery1->FieldByName("date")->Value;

                        suiEdit3->Text="";
                        suiEdit5->Text="";
                    }
                    else
                    {
                        MessageBox(NULL,"对不起，您输入的密码不正确！","错误提示",MB_ICONERROR);
                        suiEdit5->Text="";
                    }
                else
                {
                    MessageBox(NULL,"对不起！该账户不存在。","错误提示",MB_ICONHAND);
                    suiEdit3->Text="";
                    suiEdit5->Text="";
                }
            }
        }
        else
            if(suiComboBox1->Text=="卡   号")
            {
                if(suiEdit4->Text!=""&&suiEdit5->Text!="")
                {
                    ADOQuery1->SQL->Clear();
                    ADOQuery1->SQL->Add("select password from bankcards where bcno='"+suiEdit4->Text+"'");
                    ADOQuery1->Open();

                    if(!ADOQuery1->IsEmpty())
                        if(suiEdit5->Text==ADOQuery1->FieldByName("password")->Value)
                        {
                            ADOQuery1->SQL->Clear();
                            ADOQuery1->SQL->Add("select * from client,accounts,bankcards where bankcards.bcno='"+suiEdit4->Text+"' AND client.cno=bankcards.cno AND accounts.bcno='"+suiEdit4->Text+"'");
                            ADOQuery1->Open();

                            AdvStringGrid1->Cells[0][1] =1;
                            AdvStringGrid1->Cells[1][1] = ADOQuery1->FieldByName("cno")->Value;
                            AdvStringGrid1->Cells[2][1] = ADOQuery1->FieldByName("cname")->Value;
                            AdvStringGrid1->Cells[3][1] = ADOQuery1->FieldByName("csex")->Value;
                            AdvStringGrid1->Cells[4][1] = ADOQuery1->FieldByName("cid")->Value;
                            AdvStringGrid1->Cells[5][1] = ADOQuery1->FieldByName("ano")->Value;
                            AdvStringGrid1->Cells[6][1] = ADOQuery1->FieldByName("bcno")->Value;
                            AdvStringGrid1->Cells[7][1] = ADOQuery1->FieldByName("amount")->Value;
                            AdvStringGrid1->Cells[8][1] = ADOQuery1->FieldByName("date")->Value;

                            suiEdit4->Text="";
                            suiEdit5->Text="";
                        }
                        else
                        {
                            MessageBox(NULL,"对不起，您输入的密码不正确！","错误提示",MB_ICONERROR);
                            suiEdit5->Text="";
                        }
                    else
                    {
                        MessageBox(NULL,"对不起！该账户不存在。","错误提示",MB_ICONHAND);
                        suiEdit4->Text="";
                        suiEdit5->Text="";
                    }
                }
            }
}
//---------------------------------------------------------------------------

void __fastcall TForm3::suiButton3Click(TObject *Sender)
{
    if(suiEdit6->Text!=""&&suiEdit7->Text!=""&&suiEdit8->Text!=""&&suiEdit9->Text!="")
    {
        ADOQuery1->SQL->Clear();
        ADOQuery1->SQL->Add("select password from bankcards where bcno='"+suiEdit6->Text+"'");
        ADOQuery1->Open();

        if(!ADOQuery1->IsEmpty())
            if(suiEdit7->Text==ADOQuery1->FieldByName("password")->Value)
            {
                if(suiEdit8->Text==suiEdit9->Text)
                {
                    ADOQuery1->SQL->Clear();
                    ADOQuery1->SQL->Add("Update bankcards set password='"+suiEdit8->Text+"' where bcno='"+suiEdit6->Text+"'");
                    ADOQuery1->ExecSQL();

                    suiEdit6->Text="";
                    suiEdit7->Text="";
                    suiEdit8->Text="";
                    suiEdit9->Text="";

                    MessageBox(NULL,"密码更新成功！","成功提示",MB_ICONINFORMATION);
                }
                else
                {
                    MessageBox(NULL,"对不起，您两次输入的新密码不一致！","错误提示",MB_ICONERROR);
                    suiEdit8->Text="";
                    suiEdit9->Text="";
                }
            }
            else
            {
                MessageBox(NULL,"您输入的密码不正确，请重新输入！","错误提示",MB_ICONERROR);
                suiEdit7->Text="";
                suiEdit8->Text="";
                suiEdit9->Text="";
            }
        else
        {
            MessageBox(NULL,"对不起！该账户不存在。","错误提示",MB_ICONHAND);
            suiEdit6->Text="";
            suiEdit7->Text="";
            suiEdit8->Text="";
            suiEdit9->Text="";
        }
    }
}
//---------------------------------------------------------------------------