📄 manage.cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Manage.h"
#include "Login.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIForm"
#pragma link "SUIButton"
#pragma link "SUIEdit"
#pragma link "SUIPageControl"
#pragma link "SUITabControl"
#pragma link "AdvGrid"
#pragma link "BaseGrid"
#pragma link "SUIComboBox"
#pragma link "SUIStatusBar"
#pragma link "SUIGroupBox"
#pragma link "SUIImagePanel"
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
suiEdit2->Text=Now().FormatString("yyyy-mm-dd");
suiStatusBar1->Panels->Items[9]->Text=Now().FormatString("yyyy-mm-dd");
suiEdit9->Enabled=false;
suiRadioButton1->Enabled=false;
suiRadioButton2->Enabled=false;
suiEdit11->Enabled=false;
suiComboBox2->Enabled=false;
suiEdit12->Enabled=false;
suiComboBox1->Enabled=false;
suiEdit13->Enabled=false;
suiEdit17->Enabled=false;
suiEdit18->Enabled=false;
suiEdit19->Enabled=false;
suiEdit20->Enabled=false;
suiEdit37->Enabled=false;
suiEdit38->Enabled=false;
suiEdit39->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::suiButton3Click(TObject *Sender)
{
if(suiEdit3->Text!=""&&suiEdit5->Text!="")
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from client,accounts,bankcards where ano='"+suiEdit3->Text+"' AND client.cno=accounts.cno");
ADOQuery1->Open();
if(!ADOQuery1->IsEmpty())
{
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=ADOQuery1->FieldByName("bcno")->Value;
suiEdit6->Text=ADOQuery1->FieldByName("cno")->Value;
suiEdit7->Text=ADOQuery1->FieldByName("cname")->Value;
suiEdit8->Text=ADOQuery1->FieldByName("cid")->Value;
if(MessageBox(NULL,"请仔细核对客户的账户信息，再继续！","确认提示",MB_OKCANCEL)==IDOK)
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Update accounts set amount=amount+'"+suiEdit5->Text+"' where ano='"+suiEdit3->Text+"'");
ADOQuery1->ExecSQL();
String sid="CK"+Now().FormatString("yymmddhhmmss");
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Insert into manage(adminno,ano,sid,bname,bdate,bamount) values('"+suiEdit1->Text+"', '"+suiEdit3->Text+"','"+sid+"','存款','"+Now().FormatString("yyyy-mm-dd hh:mm:ss")+"','"+suiEdit5->Text+"')");
ADOQuery1->ExecSQL();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from client,accounts,bankcards where ano='"+suiEdit3->Text+"' AND client.cno=accounts.cno");
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="";
}
}
else
if(suiEdit4->Text!=""&&suiEdit5->Text!="")
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from bankcards,accounts,client where bankcards.bcno='"+suiEdit4->Text+"' AND accounts.bcno=bankcards.bcno AND client.cno=bankcards.cno");
ADOQuery1->Open();
if(!ADOQuery1->IsEmpty())
{
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=ADOQuery1->FieldByName("ano")->Value;
suiEdit6->Text=ADOQuery1->FieldByName("cno")->Value;
suiEdit7->Text=ADOQuery1->FieldByName("cname")->Value;
suiEdit8->Text=ADOQuery1->FieldByName("cid")->Value;
if(MessageBox(NULL,"请仔细核对客户的账户信息，再继续！","确认提示",MB_OKCANCEL)==IDOK)
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Update accounts set amount=amount+'"+suiEdit5->Text+"' where bcno='"+suiEdit4->Text+"'");
ADOQuery1->ExecSQL();
String sid="CK"+Now().FormatString("yymmddhhmmss");
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Insert into manage(adminno,ano,sid,bname,bdate,bamount) values('"+suiEdit1->Text+"', '"+suiEdit3->Text+"','"+sid+"','存款','"+Now().FormatString("yyyy-mm-dd hh:mm:ss")+"','"+suiEdit5->Text+"')");
ADOQuery1->ExecSQL();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from bankcards,accounts,client where bankcards.bcno='"+suiEdit4->Text+"' AND accounts.bcno=bankcards.bcno AND client.cno=bankcards.cno");
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::suiButton4Click(TObject *Sender)
{
if(suiEdit3->Text!=""&&suiEdit5->Text!="")
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from client,accounts,bankcards where ano='"+suiEdit3->Text+"' AND client.cno=accounts.cno");
ADOQuery1->Open();
if(!ADOQuery1->IsEmpty())
{
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=ADOQuery1->FieldByName("bcno")->Value;
suiEdit6->Text=ADOQuery1->FieldByName("cno")->Value;
suiEdit7->Text=ADOQuery1->FieldByName("cname")->Value;
suiEdit8->Text=ADOQuery1->FieldByName("cid")->Value;
if(MessageBox(NULL,"请仔细核对客户的账户信息，再继续！","确认提示",MB_OKCANCEL)==IDOK)
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Update accounts set amount=amount-'"+suiEdit5->Text+"' where ano='"+suiEdit3->Text+"'");
ADOQuery1->ExecSQL();
String sid="QK"+Now().FormatString("yymmddhhmmss");
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Insert into manage(adminno,ano,sid,bname,bdate,bamount) values('"+suiEdit1->Text+"', '"+suiEdit3->Text+"','"+sid+"','取款','"+Now().FormatString("yyyy-mm-dd hh:mm:ss")+"','"+suiEdit5->Text+"')");
ADOQuery1->ExecSQL();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from client,accounts,bankcards where ano='"+suiEdit3->Text+"' AND client.cno=accounts.cno");
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="";
}
}
else
if(suiEdit4->Text!=""&&suiEdit5->Text!="")
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from bankcards,accounts,client where bankcards.bcno='"+suiEdit4->Text+"' AND accounts.bcno=bankcards.bcno AND client.cno=bankcards.cno");
ADOQuery1->Open();
if(!ADOQuery1->IsEmpty())
{
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=ADOQuery1->FieldByName("ano")->Value;
suiEdit6->Text=ADOQuery1->FieldByName("cno")->Value;
suiEdit7->Text=ADOQuery1->FieldByName("cname")->Value;
suiEdit8->Text=ADOQuery1->FieldByName("cid")->Value;
if(MessageBox(NULL,"请仔细核对客户的账户信息，再继续！","确认提示",MB_OKCANCEL)==IDOK)
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Update accounts set amount=amount-'"+suiEdit5->Text+"' where bcno='"+suiEdit4->Text+"'");
ADOQuery1->ExecSQL();
String sid="QK"+Now().FormatString("yymmddhhmmss");
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Insert into manage(adminno,ano,sid,bname,bdate,bamount) values('"+suiEdit1->Text+"', '"+suiEdit3->Text+"','"+sid+"','取款','"+Now().FormatString("yyyy-mm-dd hh:mm:ss")+"','"+suiEdit5->Text+"')");
ADOQuery1->ExecSQL();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from bankcards,accounts,client where bankcards.bcno='"+suiEdit4->Text+"' AND accounts.bcno=bankcards.bcno AND client.cno=bankcards.cno");
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -