📄 manage.cpp
字号:
ADOQuery1->Open();
suiEdit5->Text=ADOQuery1->FieldByName("amount")->Value;
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;
MessageBox(NULL,"下账成功！","成功提示",MB_ICONINFORMATION);
}
else
{
suiEdit3->Text="";
suiEdit4->Text="";
suiEdit5->Text="";
}
}
else
{
MessageBox(NULL,"对不起！该账户不存在。","错误提示",MB_ICONHAND);
suiEdit3->Text="";
suiEdit4->Text="";
suiEdit5->Text="";
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::suiButton5Click(TObject *Sender)
{
suiEdit3->Text="";
suiEdit4->Text="";
suiEdit5->Text="";
suiEdit6->Text="";
suiEdit7->Text="";
suiEdit8->Text="";
AdvStringGrid1->Rows[1]->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::suiButton7Click(TObject *Sender)
{
suiEdit9->Text="";
suiRadioButton1->Checked=true;
suiEdit10->Text="";
suiEdit11->Text="";
suiEdit12->Text="";
suiEdit13->Text="";
suiComboBox1->Text="";
suiComboBox2->Text="";
AdvStringGrid2->Rows[1]->Clear();
suiEdit9->Enabled=false;
suiRadioButton1->Enabled=false;
suiRadioButton2->Enabled=false;
suiEdit11->Enabled=false;
suiComboBox2->Enabled=false;
suiEdit12->Enabled=false;
suiComboBox1->Enabled=false;
suiEdit13->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::suiButton6Click(TObject *Sender)
{
if(suiComboBox2->Enabled==true&&suiEdit12->Enabled==true&&suiComboBox1->Enabled==true&&suiEdit13->Enabled==true)
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from client where cid='"+suiEdit10->Text+"'");
ADOQuery1->Open();
if(ADOQuery1->IsEmpty())
{
if(suiEdit9->Text!=""&&suiEdit10->Text!=""&&suiEdit11->Text!=""&&suiEdit12->Text!=""&&suiEdit13->Text!=""&&suiComboBox1->Text!=""&&suiComboBox2->Text!="")
{
if(MessageBox(NULL,"请仔细核对客户的账户信息，再继续！","确认提示",MB_OKCANCEL)==IDOK)
{
String sex;
if(suiRadioButton1->Checked==true)
sex="男";
else
sex="女";
String cno="8"+Now().FormatString("mmddhhmmss");
String ano="8410870"+Now().FormatString("yymmddhhmmss");
String sid="KH"+Now().FormatString("yymmddhhmmss");
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Insert into client(cno,cname,csex,cid,address,location,date) values('"+cno+"','"+suiEdit9->Text+"','"+sex+"','"+suiEdit10->Text+"','"+suiEdit11->Text+"','中国银行成都分行','"+Now().FormatString("yyyy-mm-dd hh:mm:ss")+"')");
ADOQuery1->SQL->Add("Insert into bankcards(bcno,bctype,password,cno) values('"+suiEdit12->Text+"','"+suiComboBox1->Text+"','123456','"+cno+"')");
ADOQuery1->SQL->Add("Insert into accounts(ano,atype,cno,bcno,amount) values('"+ano+"','"+suiComboBox2->Text+"','"+cno+"','"+suiEdit12->Text+"','"+suiEdit13->Text+"')");
ADOQuery1->SQL->Add("Insert into manage(adminno,ano,sid,bname,bdate,bamount) values('"+suiEdit1->Text+"', '"+ano+"','"+sid+"','开户','"+Now().FormatString("yyyy-mm-dd hh:mm:ss")+"','"+suiEdit13->Text+"')");
ADOQuery1->ExecSQL();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from client,bankcards,accounts where cid='"+suiEdit10->Text+"' AND bankcards.bcno='"+suiEdit12->Text+"' AND accounts.bcno='"+suiEdit12->Text+"'");
ADOQuery1->Open();
AdvStringGrid2->Cells[0][1] =1;
AdvStringGrid2->Cells[1][1] = ADOQuery1->FieldByName("cno")->Value;
AdvStringGrid2->Cells[2][1] = ADOQuery1->FieldByName("cname")->Value;
AdvStringGrid2->Cells[3][1] = ADOQuery1->FieldByName("csex")->Value;
AdvStringGrid2->Cells[4][1] = ADOQuery1->FieldByName("cid")->Value;
AdvStringGrid2->Cells[5][1] = ADOQuery1->FieldByName("ano")->Value;
AdvStringGrid2->Cells[6][1] = ADOQuery1->FieldByName("bcno")->Value;
AdvStringGrid2->Cells[7][1] = ADOQuery1->FieldByName("amount")->Value;
AdvStringGrid2->Cells[8][1] = ADOQuery1->FieldByName("date")->Value;
suiEdit9->Text="";
suiRadioButton1->Checked=true;
suiEdit10->Text="";
suiEdit11->Text="";
suiEdit12->Text="";
suiEdit13->Text="";
suiComboBox1->Text="";
suiComboBox2->Text="";
MessageBox(NULL,"开户成功！","成功提示",MB_ICONINFORMATION);
}
else
{
suiEdit9->Text="";
suiRadioButton1->Checked=true;
suiEdit10->Text="";
suiEdit11->Text="";
suiEdit12->Text="";
suiEdit13->Text="";
suiComboBox1->Text="";
suiComboBox2->Text="";
}
}
else
MessageBox(NULL,"对不起，请把账户信息输入完全！","错误提示",MB_ICONERROR);
}
else
{
if(suiEdit10->Text!=""&&suiEdit12->Text!=""&&suiEdit13->Text!=""&&suiComboBox1->Text!=""&&suiComboBox2->Text!="")
{
if(MessageBox(NULL,"请仔细核对客户的账户信息，再继续！","确认提示",MB_OKCANCEL)==IDOK)
{
String sex;
if(suiRadioButton1->Checked==true)
sex="男";
else
sex="女";
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from client where cid='"+suiEdit10->Text+"'");
ADOQuery1->Open();
String cno=ADOQuery1->FieldByName("cno")->Value;
String ano="8410870"+Now().FormatString("yymmddhhmmss");
String sid="KH"+Now().FormatString("yymmddhhmmss");
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Insert into bankcards(bcno,bctype,password,cno) values('"+suiEdit12->Text+"','"+suiComboBox1->Text+"','123456','"+cno+"')");
ADOQuery1->SQL->Add("Insert into accounts(ano,atype,cno,bcno,amount) values('"+ano+"','"+suiComboBox2->Text+"','"+cno+"','"+suiEdit12->Text+"','"+suiEdit13->Text+"')");
ADOQuery1->SQL->Add("Insert into manage(adminno,ano,sid,bname,bdate,bamount) values('"+suiEdit1->Text+"', '"+ano+"','"+sid+"','开户','"+Now().FormatString("yyyy-mm-dd hh:mm:ss")+"','"+suiEdit13->Text+"')");
ADOQuery1->ExecSQL();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from client,bankcards,accounts where cid='"+suiEdit10->Text+"' AND bankcards.bcno='"+suiEdit12->Text+"' AND accounts.bcno='"+suiEdit12->Text+"'");
ADOQuery1->Open();
AdvStringGrid2->Cells[0][1] =1;
AdvStringGrid2->Cells[1][1] = ADOQuery1->FieldByName("cno")->Value;
AdvStringGrid2->Cells[2][1] = ADOQuery1->FieldByName("cname")->Value;
AdvStringGrid2->Cells[3][1] = ADOQuery1->FieldByName("csex")->Value;
AdvStringGrid2->Cells[4][1] = ADOQuery1->FieldByName("cid")->Value;
AdvStringGrid2->Cells[5][1] = ADOQuery1->FieldByName("ano")->Value;
AdvStringGrid2->Cells[6][1] = ADOQuery1->FieldByName("bcno")->Value;
AdvStringGrid2->Cells[7][1] = ADOQuery1->FieldByName("amount")->Value;
AdvStringGrid2->Cells[8][1] = ADOQuery1->FieldByName("date")->Value;
suiEdit9->Text="";
suiRadioButton1->Checked=true;
suiEdit10->Text="";
suiEdit11->Text="";
suiEdit12->Text="";
suiEdit13->Text="";
suiComboBox1->Text="";
suiComboBox2->Text="";
MessageBox(NULL,"开户成功！","成功提示",MB_ICONINFORMATION);
}
else
{
suiEdit9->Text="";
suiRadioButton1->Checked=true;
suiEdit10->Text="";
suiEdit12->Text="";
suiEdit13->Text="";
suiComboBox1->Text="";
suiComboBox2->Text="";
}
}
else
MessageBox(NULL,"对不起，请把账户信息输入完全！","错误提示",MB_ICONERROR);
}
}
else
{
MessageBox(NULL,"对不起，请先验证该客户是否存在！","错误提示",MB_ICONERROR);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::suiButton8Click(TObject *Sender)
{
if(suiEdit14->Text!=""&&suiEdit16->Text!="")
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from client,accounts,bankcards where ano='"+suiEdit14->Text+"' AND client.cno=accounts.cno");
ADOQuery1->Open();
if(!ADOQuery1->IsEmpty())
{
if(suiEdit16->Text==ADOQuery1->FieldByName("cid")->Value)
{
suiEdit15->Text=ADOQuery1->FieldByName("bcno")->Value;
AdvStringGrid2->Cells[0][1] =1;
AdvStringGrid2->Cells[1][1] = ADOQuery1->FieldByName("cno")->Value;
AdvStringGrid2->Cells[2][1] = ADOQuery1->FieldByName("cname")->Value;
AdvStringGrid2->Cells[3][1] = ADOQuery1->FieldByName("csex")->Value;
AdvStringGrid2->Cells[4][1] = ADOQuery1->FieldByName("cid")->Value;
AdvStringGrid2->Cells[5][1] = ADOQuery1->FieldByName("ano")->Value;
AdvStringGrid2->Cells[6][1] = ADOQuery1->FieldByName("bcno")->Value;
AdvStringGrid2->Cells[7][1] = ADOQuery1->FieldByName("amount")->Value;
AdvStringGrid2->Cells[8][1] = ADOQuery1->FieldByName("date")->Value;
if(MessageBox(NULL,"请仔细核对客户的账户信息，再继续！","确认提示",MB_OKCANCEL)==IDOK)
if(ADOQuery1->FieldByName("amount")->Value)
if(MessageBox(NULL,"账户存在余额，该操作会先对账户进行下账清零再注销账户！","警告提示",MB_OKCANCEL)==IDOK)
{
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("delete from manage where ano='"+suiEdit14->Text+"'");
ADOQuery1->SQL->Add("delete from accounts where ano='"+suiEdit14->Text+"'");
ADOQuery1->SQL->Add("delete from bankcards where bcno='"+AdvStringGrid2->Cells[6][1]+"'");
ADOQuery1->ExecSQL();
suiEdit14->Text="";
suiEdit15->Text="";
suiEdit16->Text="";
AdvStringGrid2->Rows[1]->Clear();
MessageBox(NULL,"销户成功！","成功提示",MB_ICONINFORMATION);
}
else
{
suiEdit14->Text="";
suiEdit15->Text="";
suiEdit16->Text="";
AdvStringGrid2->Rows[1]->Clear();
}
else
{
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("delete from manage where ano='"+suiEdit14->Text+"'");
ADOQuery1->SQL->Add("delete from accounts where ano='"+suiEdit14->Text+"'");
ADOQuery1->SQL->Add("delete from bankcards where bcno='"+AdvStringGrid2->Cells[6][1]+"'");
ADOQuery1->ExecSQL();
suiEdit14->Text="";
suiEdit15->Text="";
suiEdit16->Text="";
AdvStringGrid2->Rows[1]->Clear();
MessageBox(NULL,"销户成功！","成功提示",MB_ICONINFORMATION);
}
else
{
suiEdit14->Text="";
suiEdit15->Text="";
suiEdit16->Text="";
AdvStringGrid2->Rows[1]->Clear();
}
}
else
{
MessageBox(NULL,"对不起，账户身份认证失败！","错误提示",MB_ICONERROR);
suiEdit14->Text="";
suiEdit15->Text="";
suiEdit16->Text="";
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -