clientmanager.cpp

客户管理挂件

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

#include <vcl.h>
#pragma hdrstop

#include "ClientManager.h"
#include "ClientEdit.h"
#include "ClientSearch.h"
#include "TypePeter.h"
#include "ControlBase.h"
#include "VerForm.h"
#include "Modiypass.h"
#include "LoginForm.h"
#include "PrintAll.h" 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzButton"
#pragma link "RzPanel"
#pragma link "RzStatus"
#pragma link "RzLabel"
#pragma link "RzBckgnd"
#pragma link "RzDBGrid"
#pragma resource "*.dfm"
TMainManager *MainManager;
TEditClient *EditClient;
TSearchForm *SearchForm;
//---------------------------------------------------------------------------
__fastcall TMainManager::TMainManager(TComponent* Owner)
        : TForm(Owner)
{
}
__fastcall TMainManager::TMainManager(TComponent* Owner,bool iManager)
        : TForm(Owner)
{
   if(iManager == 1)
      N6->Enabled = true;
   sClientID = "";
   ichange = 0;
   CurPath = GetCurrentDir();
   RzBitBtn4->Enabled = false;
   RzBitBtn7->Enabled = false;
   RzBitBtn5->Enabled = false;
   RzBitBtn6->Enabled = true;
   QryChange->Active =true;
   RzBitBtn2->Color =  0x00EABFD9 ;
   RzBitBtn1->Color =  0x00F0F4F4 ;
}
//---------------------------------------------------------------------------
void __fastcall TMainManager::Timer1Timer(TObject *Sender)
{
    TDateTime *TimeShow;
    TimeGlyphStatus->Caption = TimeShow->CurrentDateTime();
}
//---------------------------------------------------------------------------
void __fastcall TMainManager::Timer2Timer(TObject *Sender)
{
    RzLabel3->Left = RzLabel3->Left - 1 ;
    if(RzLabel3->Left < 304 )
    {
       RzLabel3->Left = 768   ;
    }
}
//---------------------------------------------------------------------------
void __fastcall TMainManager::RzBitBtn4Click(TObject *Sender)
{
   iNewFlag = 1;
   ShowForm("客户新增");
}
//---------------------------------------------------------------------------

void __fastcall TMainManager::RzBitBtn3Click(TObject *Sender)
{
   Close();
}
//---------------------------------------------------------------------------

void __fastcall TMainManager::ShowForm(String sFormTitle)
{
   if(iNewFlag == 1) //新增标志1,编辑标志0
      EditClient  = new TEditClient(Application,sFormTitle,"",QryChange,1);
   else
      EditClient  = new TEditClient(Application,sFormTitle,sClientID,QryChange,0);
   EditClient->ShowModal();
   delete  EditClient;

}
void __fastcall TMainManager::ShowGridDblClick(TObject *Sender)
{
    if(sClientID=="")
    {
       Application->MessageBox("请选择客户!","科技",MB_OK);
       return;
    }
    iNewFlag = 0;
    ShowForm("客户编辑");
}
//---------------------------------------------------------------------------
void __fastcall TMainManager::RzBitBtn6Click(TObject *Sender)
{
   SearchForm  = new TSearchForm(Application,QryChange);
   SearchForm->ShowModal();
   delete  SearchForm;
}
//---------------------------------------------------------------------------

void __fastcall TMainManager::ShowGridCellClick(TColumn *Column)
{
  sClientID = QryChange->FieldByName("ID")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall TMainManager::ShowGridDrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
   for(int i=0;i<ShowGrid->Columns->Count;i=i+1)
   {
     if(i % 2 ==0) //
     {
      ShowGrid->Columns->Items[i]->Color=0X00DCEFF0;
     }
     else
     {
      ShowGrid->Columns->Items[i]->Color=0X00E3DAD1;
     }
   }
}
//---------------------------------------------------------------------------


void __fastcall TMainManager::RzBitBtn7Click(TObject *Sender)
{
   ShowGridDblClick(Sender);
}
//---------------------------------------------------------------------------


void __fastcall TMainManager::RzBitBtn5Click(TObject *Sender)
{
try
{
     if(!MsgYN("是否删除？"))
     return;

   DeleteFile(CurPath+"\\Pic\\"+ sClientID+".bmp""");
   SetCurrentDir(CurPath+"\\Pic\\"+ sClientID+".bmp""");

   ExecSQL_Tra(QryChange->Connection,"delete from ClientData where ID = '"+sClientID+"'") ;
   QryChange->Active = false;
   QryChange->Active = true;


}
catch(...)
{
  MsgShow("操作有误！") ;
}
}
//---------------------------------------------------------------------------

void __fastcall TMainManager::RzBitBtn2Click(TObject *Sender)
{
   RzBitBtn4->Enabled = false;
   RzBitBtn7->Enabled = false;
   RzBitBtn5->Enabled = false;
   RzBitBtn6->Enabled = true;
   RzBitBtn2->Color =  0x00EABFD9 ;
   RzBitBtn1->Color =  0x00F0F4F4 ;
}
//---------------------------------------------------------------------------

void __fastcall TMainManager::RzBitBtn1Click(TObject *Sender)
{
   RzBitBtn4->Enabled = true;
   RzBitBtn7->Enabled = true;
   RzBitBtn5->Enabled = true;
   RzBitBtn6->Enabled = false;
   RzBitBtn1->Color =  0x00EABFD9 ;
   RzBitBtn2->Color =  0x00F0F4F4 ;
}
//---------------------------------------------------------------------------


void __fastcall TMainManager::N5Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------

void __fastcall TMainManager::N3Click(TObject *Sender)
{
   if(!N3->Checked)
   {
         N3->Checked = true;
         RzBitBtn2->Visible = false;
         RzBitBtn1->Visible = false;
         RzBitBtn3->Visible = false;
         TreeView1->Visible = true;

   }
   else
   {     N3->Checked = false;
         RzBitBtn2->Visible = true;
         RzBitBtn1->Visible = true;
         RzBitBtn3->Visible = true;
       TreeView1->Visible = false;
       }

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

void __fastcall TMainManager::TreeView1DblClick(TObject *Sender)
{
   if(TreeView1->Selected->Text=="客户查询")
   {
       RzBitBtn2Click(Sender);
   }
   else if(TreeView1->Selected->Text=="客户管理")
   {
       RzBitBtn1Click(Sender);
   }

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

void __fastcall TMainManager::N4Click(TObject *Sender)
{
   TVerframe *Verframe;
   Verframe  = new TVerframe(NULL);
   Verframe->ShowModal();
}
//---------------------------------------------------------------------------




void __fastcall TMainManager::N6Click(TObject *Sender)
{
     TModifyUser *ModifyUser;
     ModifyUser  = new TModifyUser(NULL);
     ModifyUser->ShowModal();

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




void __fastcall TMainManager::PrintBClick(TObject *Sender)
{
    String sSQL =  QryChange->SQL->Text;
    TQuickReport1 *QuickReport1;
    QuickReport1 = new TQuickReport1(Application,sSQL);
    QuickReport1->Preview();
    delete QuickReport1;
}
//---------------------------------------------------------------------------

void __fastcall TMainManager::ShowGridTitleClick(TColumn *Column)
{
if(Column->FieldName=="ID")
  {
    if(i==0)
    {
      QryChange->Sort="ID ASC";
      i=1;
    }
    else
    {
      QryChange->Sort="ID DESC";
      i=0;
    }
  }
if(Column->FieldName=="Name")
  {
    if(i==0)
    {
      QryChange->Sort="Name ASC";
      i=1;
    }
    else
    {
      QryChange->Sort="Name DESC";
      i=0;
    }
  }
}
//---------------------------------------------------------------------------