client.cpp

银行账户管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "Client.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SUIForm"
#pragma link "AdvGrid"
#pragma link "BaseGrid"
#pragma link "SUIButton"
#pragma link "SUIComboBox"
#pragma link "SUIEdit"
#pragma link "SUIGroupBox"
#pragma link "SUIImagePanel"
#pragma link "SUIMemo"
#pragma link "SUIStatusBar"
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
    suiStatusBar1->Panels->Items[6]->Text=Now().FormatString("yyyy-mm-dd");
    if(suiComboBox1->Text=="")
    {
        suiEdit1->Enabled=false;
        suiEdit2->Enabled=false;
        suiEdit3->Enabled=false;
        suiEdit4->Enabled=false;
        suiEdit5->Enabled=false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm3::suiButton6Click(TObject *Sender)
{
    exit(0);        
}
//---------------------------------------------------------------------------

void __fastcall TForm3::suiButton2Click(TObject *Sender)
{
    Label4->Font->Color=clWindowText;
    Label5->Font->Color=clWindowText;
    Label6->Font->Color=clWindowText;
    Label7->Font->Color=clWindowText;
    Label8->Font->Color=clWindowText;
    suiEdit1->Enabled=false;
    suiEdit2->Enabled=false;
    suiEdit3->Enabled=false;
    suiEdit4->Enabled=false;
    suiEdit5->Enabled=false;
    suiComboBox1->Text="";
    suiEdit1->Text="";
    suiEdit2->Text="";
    suiEdit3->Text="";
    suiEdit4->Text="";
    suiEdit5->Text="";
    for(int i=1;i<=AdvStringGrid1->RowCount;i++)
    {
        AdvStringGrid1->Rows[i]->Clear();
    }
    AdvStringGrid1->RowCount=2;
}
//---------------------------------------------------------------------------

void __fastcall TForm3::suiButton4Click(TObject *Sender)
{
    suiEdit6->Text="";
    suiEdit7->Text="";
    suiEdit8->Text="";
    suiEdit9->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TForm3::suiButton5Click(TObject *Sender)
{
    Label4->Font->Color=clWindowText;
    Label5->Font->Color=clWindowText;
    Label6->Font->Color=clWindowText;
    Label7->Font->Color=clWindowText;
    Label8->Font->Color=clWindowText;
    suiEdit1->Enabled=false;
    suiEdit2->Enabled=false;
    suiEdit3->Enabled=false;
    suiEdit4->Enabled=false;
    suiEdit5->Enabled=false;
    suiComboBox1->Text="";
    suiEdit1->Text="";
    suiEdit2->Text="";
    suiEdit3->Text="";
    suiEdit4->Text="";
    suiEdit5->Text="";
    suiEdit6->Text="";
    suiEdit7->Text="";
    suiEdit8->Text="";
    suiEdit9->Text="";
    for(int i=1;i<=AdvStringGrid1->RowCount;i++)
    {
        AdvStringGrid1->Rows[i]->Clear();
    }
    AdvStringGrid1->RowCount=2;
}
//---------------------------------------------------------------------------

void __fastcall TForm3::suiComboBox1Change(TObject *Sender)
{
    if(suiComboBox1->Text=="客户号")
    {
        suiEdit1->Text="";
        suiEdit2->Text="";
        suiEdit3->Text="";
        suiEdit4->Text="";
        suiEdit5->Text="";
        for(int i=1;i<=AdvStringGrid1->RowCount;i++)
        {
            AdvStringGrid1->Rows[i]->Clear();
        }
        AdvStringGrid1->RowCount=2;
        Label4->Font->Color=clRed;
        Label5->Font->Color=clRed;
        Label6->Font->Color=clWindowText;
        Label7->Font->Color=clWindowText;
        Label8->Font->Color=clWindowText;
        suiEdit1->Enabled=true;
        suiEdit2->Enabled=true;
        suiEdit3->Enabled=false;
        suiEdit4->Enabled=false;
        suiEdit5->Enabled=false;
    }
    else
        if(suiComboBox1->Text=="账户号")
        {
            suiEdit1->Text="";
            suiEdit2->Text="";
            suiEdit3->Text="";
            suiEdit4->Text="";
            suiEdit5->Text="";
            for(int i=1;i<=AdvStringGrid1->RowCount;i++)
            {
                AdvStringGrid1->Rows[i]->Clear();
            }
            AdvStringGrid1->RowCount=2;
            Label4->Font->Color=clWindowText;
            Label5->Font->Color=clWindowText;
            Label6->Font->Color=clRed;
            Label7->Font->Color=clWindowText;
            Label8->Font->Color=clRed;
            suiEdit1->Enabled=false;
            suiEdit2->Enabled=false;
            suiEdit3->Enabled=true;
            suiEdit4->Enabled=false;
            suiEdit5->Enabled=true;
        }
        else
            if(suiComboBox1->Text=="卡   号")
            {
                suiEdit1->Text="";
                suiEdit2->Text="";
                suiEdit3->Text="";
                suiEdit4->Text="";
                suiEdit5->Text="";
                for(int i=1;i<=AdvStringGrid1->RowCount;i++)
                {
                    AdvStringGrid1->Rows[i]->Clear();
                }
                AdvStringGrid1->RowCount=2;
                Label4->Font->Color=clWindowText;
                Label5->Font->Color=clWindowText;
                Label6->Font->Color=clWindowText;
                Label7->Font->Color=clRed;
                Label8->Font->Color=clRed;
                suiEdit1->Enabled=false;
                suiEdit2->Enabled=false;
                suiEdit3->Enabled=false;
                suiEdit4->Enabled=true;
                suiEdit5->Enabled=true;
            }
            else
                if(suiComboBox1->Text=="")
                {
                    suiEdit1->Text="";
                    suiEdit2->Text="";
                    suiEdit3->Text="";
                    suiEdit4->Text="";
                    suiEdit5->Text="";
                    for(int i=1;i<=AdvStringGrid1->RowCount;i++)
                    {
                        AdvStringGrid1->Rows[i]->Clear();
                    }
                    AdvStringGrid1->RowCount=2;
                    Label4->Font->Color=clWindowText;
                    Label5->Font->Color=clWindowText;
                    Label6->Font->Color=clWindowText;
                    Label7->Font->Color=clWindowText;
                    Label8->Font->Color=clWindowText;
                    suiEdit1->Enabled=false;