📄 manage.cpp
字号:
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from client,accounts,bankcards where ano='"+suiEdit17->Text+"' AND client.cno=accounts.cno");
ADOQuery1->Open();
if(!ADOQuery1->IsEmpty())
{
suiEdit21->Text=ADOQuery1->FieldByName("atype")->Value;
suiEdit22->Text=ADOQuery1->FieldByName("bctype")->Value;
suiEdit23->Text=ADOQuery1->FieldByName("amount")->Value;
suiEdit24->Text=ADOQuery1->FieldByName("cname")->Value;
suiEdit25->Text=ADOQuery1->FieldByName("csex")->Value;
suiEdit26->Text=ADOQuery1->FieldByName("address")->Value;
suiEdit27->Text=ADOQuery1->FieldByName("location")->Value;
suiEdit28->Text=ADOQuery1->FieldByName("date")->Value;
AdvStringGrid3->Cells[0][1] =1;
AdvStringGrid3->Cells[1][1] = ADOQuery1->FieldByName("cno")->Value;
AdvStringGrid3->Cells[2][1] = ADOQuery1->FieldByName("cname")->Value;
AdvStringGrid3->Cells[3][1] = ADOQuery1->FieldByName("csex")->Value;
AdvStringGrid3->Cells[4][1] = ADOQuery1->FieldByName("cid")->Value;
AdvStringGrid3->Cells[5][1] = ADOQuery1->FieldByName("ano")->Value;
AdvStringGrid3->Cells[6][1] = ADOQuery1->FieldByName("bcno")->Value;
AdvStringGrid3->Cells[7][1] = ADOQuery1->FieldByName("amount")->Value;
AdvStringGrid3->Cells[8][1] = ADOQuery1->FieldByName("date")->Value;
}
else
{
MessageBox(NULL,"对不起！该账户不存在。","错误提示",MB_ICONHAND);
suiEdit17->Text="";
}
}
}
else
if(suiComboBox3->Text=="卡 号")
{
if(suiEdit18->Text!="")
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from client,accounts,bankcards where bankcards.bcno='"+suiEdit18->Text+"' AND client.cno=bankcards.cno AND accounts.bcno='"+suiEdit18->Text+"'");
ADOQuery1->Open();
if(!ADOQuery1->IsEmpty())
{
suiEdit21->Text=ADOQuery1->FieldByName("atype")->Value;
suiEdit22->Text=ADOQuery1->FieldByName("bctype")->Value;
suiEdit23->Text=ADOQuery1->FieldByName("amount")->Value;
suiEdit24->Text=ADOQuery1->FieldByName("cname")->Value;
suiEdit25->Text=ADOQuery1->FieldByName("csex")->Value;
suiEdit26->Text=ADOQuery1->FieldByName("address")->Value;
suiEdit27->Text=ADOQuery1->FieldByName("location")->Value;
suiEdit28->Text=ADOQuery1->FieldByName("date")->Value;
AdvStringGrid3->Cells[0][1] =1;
AdvStringGrid3->Cells[1][1] = ADOQuery1->FieldByName("cno")->Value;
AdvStringGrid3->Cells[2][1] = ADOQuery1->FieldByName("cname")->Value;
AdvStringGrid3->Cells[3][1] = ADOQuery1->FieldByName("csex")->Value;
AdvStringGrid3->Cells[4][1] = ADOQuery1->FieldByName("cid")->Value;
AdvStringGrid3->Cells[5][1] = ADOQuery1->FieldByName("ano")->Value;
AdvStringGrid3->Cells[6][1] = ADOQuery1->FieldByName("bcno")->Value;
AdvStringGrid3->Cells[7][1] = ADOQuery1->FieldByName("amount")->Value;
AdvStringGrid3->Cells[8][1] = ADOQuery1->FieldByName("date")->Value;
}
else
{
MessageBox(NULL,"对不起！该账户不存在。","错误提示",MB_ICONHAND);
suiEdit18->Text="";
}
}
}
else
if(suiComboBox3->Text=="客 户 号")
{
if(suiEdit19->Text!="")
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from accounts,bankcards,client where accounts.cno='"+suiEdit19->Text+"' AND client.cno=accounts.cno AND bankcards.bcno=accounts.bcno");
ADOQuery1->Open();
if(!ADOQuery1->IsEmpty())
{
suiEdit24->Text=ADOQuery1->FieldByName("cname")->Value;
suiEdit25->Text=ADOQuery1->FieldByName("csex")->Value;
suiEdit26->Text=ADOQuery1->FieldByName("address")->Value;
suiEdit27->Text=ADOQuery1->FieldByName("location")->Value;
suiEdit28->Text=ADOQuery1->FieldByName("date")->Value;
AdvStringGrid3->RowCount = (ADOQuery1->RecordCount== 0 ? 2 : ADOQuery1->RecordCount + 1);
for(int i=1;i<=ADOQuery1->RecordCount;i++)
{
AdvStringGrid3->Cells[0][i] =i;
AdvStringGrid3->Cells[1][i] = ADOQuery1->FieldByName("cno")->Value;
AdvStringGrid3->Cells[2][i] = ADOQuery1->FieldByName("cname")->Value;
AdvStringGrid3->Cells[3][i] = ADOQuery1->FieldByName("csex")->Value;
AdvStringGrid3->Cells[4][i] = ADOQuery1->FieldByName("cid")->Value;
AdvStringGrid3->Cells[5][i] = ADOQuery1->FieldByName("ano")->Value;
AdvStringGrid3->Cells[6][i] = ADOQuery1->FieldByName("bcno")->Value;
AdvStringGrid3->Cells[7][i] = ADOQuery1->FieldByName("amount")->Value;
AdvStringGrid3->Cells[8][i] = ADOQuery1->FieldByName("date")->Value;
ADOQuery1->Next();
}
}
else
{
MessageBox(NULL,"对不起！该客户不存在。","错误提示",MB_ICONHAND);
suiEdit19->Text="";
}
}
}
else
if(suiComboBox3->Text=="身份证号")
{
if(suiEdit20->Text!="")
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from accounts,bankcards,client where client.cid='"+suiEdit20->Text+"' AND accounts.cno=client.cno AND bankcards.bcno=accounts.bcno");
ADOQuery1->Open();
if(!ADOQuery1->IsEmpty())
{
suiEdit24->Text=ADOQuery1->FieldByName("cname")->Value;
suiEdit25->Text=ADOQuery1->FieldByName("csex")->Value;
suiEdit26->Text=ADOQuery1->FieldByName("address")->Value;
suiEdit27->Text=ADOQuery1->FieldByName("location")->Value;
suiEdit28->Text=ADOQuery1->FieldByName("date")->Value;
AdvStringGrid3->RowCount = (ADOQuery1->RecordCount== 0 ? 2 : ADOQuery1->RecordCount + 1);
for(int i=1;i<=ADOQuery1->RecordCount;i++)
{
AdvStringGrid3->Cells[0][i] =i;
AdvStringGrid3->Cells[1][i] = ADOQuery1->FieldByName("cno")->Value;
AdvStringGrid3->Cells[2][i] = ADOQuery1->FieldByName("cname")->Value;
AdvStringGrid3->Cells[3][i] = ADOQuery1->FieldByName("csex")->Value;
AdvStringGrid3->Cells[4][i] = ADOQuery1->FieldByName("cid")->Value;
AdvStringGrid3->Cells[5][i] = ADOQuery1->FieldByName("ano")->Value;
AdvStringGrid3->Cells[6][i] = ADOQuery1->FieldByName("bcno")->Value;
AdvStringGrid3->Cells[7][i] = ADOQuery1->FieldByName("amount")->Value;
AdvStringGrid3->Cells[8][i] = ADOQuery1->FieldByName("date")->Value;
ADOQuery1->Next();
}
}
else
{
MessageBox(NULL,"对不起！该客户不存在。","错误提示",MB_ICONHAND);
suiEdit20->Text="";
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::suiButton12Click(TObject *Sender)
{
if(suiEdit33->Text!=""&&suiEdit34->Text!=""&&suiEdit35->Text!=""&&suiEdit36->Text!="")
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select adminpasswd from admin where adminno='"+suiEdit33->Text+"'");
ADOQuery1->Open();
if(!ADOQuery1->IsEmpty())
{
if(suiEdit34->Text==ADOQuery1->FieldByName("adminpasswd")->Value)
{
if(suiEdit35->Text==suiEdit36->Text)
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Update admin set adminpasswd='"+suiEdit35->Text+"' where adminno='"+suiEdit33->Text+"'");
ADOQuery1->ExecSQL();
suiEdit33->Text="";
suiEdit34->Text="";
suiEdit35->Text="";
suiEdit36->Text="";
MessageBox(NULL,"密码更新成功！","成功提示",MB_ICONINFORMATION);
}
else
{
MessageBox(NULL,"对不起，您两次输入的新密码不一致！","错误提示",MB_ICONERROR);
suiEdit35->Text="";
suiEdit36->Text="";
}
}
else
{
MessageBox(NULL,"您输入的密码不正确，请重新输入！","错误提示",MB_ICONERROR);
suiEdit34->Text="";
suiEdit35->Text="";
suiEdit36->Text="";
}
}
else
MessageBox(NULL,"对不起，该业务员不存在！","错误提示",MB_ICONERROR);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::suiButton13Click(TObject *Sender)
{
suiEdit33->Text="";
suiEdit34->Text="";
suiEdit35->Text="";
suiEdit36->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm2::suiButton11Click(TObject *Sender)
{
suiEdit29->Text="";
suiEdit30->Text="";
suiEdit31->Text="";
suiEdit32->Text="";
suiRadioButton3->Checked=true;
suiCheckBox1->Checked=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::suiButton9Click(TObject *Sender)
{
if(suiEdit29->Text!=""&&suiEdit30->Text!=""&&suiEdit31->Text!="")
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select adminpasswd from admin where adminno='"+suiEdit29->Text+"'");
ADOQuery1->Open();
if(!ADOQuery1->IsEmpty())
{
if(suiEdit30->Text==suiEdit31->Text)
{
if(suiEdit30->Text==ADOQuery1->FieldByName("adminpasswd")->Value)
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from admin where adminno='"+suiEdit29->Text+"'");
ADOQuery1->Open();
suiEdit30->Text="";
suiEdit31->Text="";
suiEdit32->Text=ADOQuery1->FieldByName("adminname")->Value;
String sex=ADOQuery1->FieldByName("adminsex")->Value;
if(sex=="男")
suiRadioButton3->Checked=true;
else
suiRadioButton4->Checked=true;
String sa=ADOQuery1->FieldByName("superadmin")->Value;
if(sa=="1")
suiCheckBox1->Checked=true;
else
suiCheckBox1->Checked=false;
}
else
{
MessageBox(NULL,"对不起，您输入的密码不正确！","错误提示",MB_ICONERROR);
suiEdit30->Text="";
suiEdit31->Text="";
}
}
else
{
MessageBox(NULL,"对不起，您两次输入的密码不一致！","错误提示",MB_ICONERROR);
suiEdit30->Text="";
suiEdit31->Text="";
}
}
else
{
MessageBox(NULL,"对不起！该业务员不存在。","错误提示",MB_ICONHAND);
suiEdit29->Text="";
suiEdit30->Text="";
suiEdit31->Text="";
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::suiButton10Click(TObject *Sender)
{
if(suiEdit29->Text!=""&&suiEdit30->Text!=""&&suiEdit31->Text!=""&&suiEdit32->Text!="")
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select adminpasswd from admin where adminno='"+suiEdit29->Text+"'");
ADOQuery1->Open();
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -