uda.cpp

超市配货中心进销存源码 超市配货中心进销存源码

//----------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "UDa.h"
#include "uas.h"
#include "uKH.h"
#include "udata.h"
#include "UMenu.h"
//----------------------------------------------------------------------------
#pragma resource "*.dfm"
TfDA *fDA;
//----------------------------------------------------------------------------
__fastcall TfDA::TfDA(TComponent *Owner)
	: TForm(Owner)
{
}
//----------------------------------------------------------------------------
void __fastcall TfDA::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
       TDBGrid *tdbgTemp=(TDBGrid *)Sender;
       TRect a;
       a=Rect;
       if(State.Contains(gdSelected))
        {
        tdbgTemp->Canvas->Brush->Color=clRed;
        tdbgTemp->Canvas->Font->Color=clYellow;
        a.Top=Rect.Top+1;
        a.Bottom=Rect.Bottom-2;
        a.Bottom=Rect.Bottom-1;
        }
      else
      {
        tdbgTemp->Canvas->Brush->Color=(TColor)0x00A0D7E0;
        a.Left=Rect.Left+1;
        a.Top=Rect.Top+1;
      }
      tdbgTemp->Canvas->FillRect(a);
      //DBGrid2->Canvas->TextOut(a.Left,a.Top,Column->Field->AsString);
      DrawText(tdbgTemp->Canvas->Handle,Column->Field->AsString.c_str(),Column->Field->AsString.Length(),&a,DT_CENTER|DT_VCENTER|DT_SINGLELINE);



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

void __fastcall TfDA::FormShow(TObject *Sender)
{
        if(!dsData->qDA->Active)
        {
                dsData->qDA->Close();
                dsData->qDA->SQL->Clear();
                dsData->qDA->SQL->Add("SELECT *");
                dsData->qDA->SQL->Add("FROM 'Kc.dbf' Kc");
                dsData->qDA->SQL->Add("ORDER BY KM");
                dsData->qDA->Open();
                dsData->qDA->First();
        }
}
//---------------------------------------------------------------------------






void __fastcall TfDA::bKHClick(TObject *Sender)
{
    fKH = new TfKH(this);
    fKH->ShowModal();
    dbnDa->BtnClick(nbEdit);
    dsData->qDA->FieldByName("KH")->AsString=dsData->qKH->FieldByName("KH")->AsString;
    delete fKH;


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

void __fastcall TfDA::dbgDADrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
       TDBGrid *tdbgTemp=(TDBGrid *)Sender;
       TRect a;
       a=Rect;
       if(State.Contains(gdSelected))
        {
        tdbgTemp->Canvas->Brush->Color=clRed;
        tdbgTemp->Canvas->Font->Color=clYellow;
        a.Top=Rect.Top+1;
        a.Bottom=Rect.Bottom-2;
        a.Bottom=Rect.Bottom-1;
        }
      else
      {
        tdbgTemp->Canvas->Brush->Color=(TColor)0x00A0D7E0;
        tdbgTemp->Canvas->Font->Color=clBlack;
        a.Left=Rect.Left+1;
        a.Top=Rect.Top+1;
      }
      tdbgTemp->Canvas->FillRect(a);
      //DBGrid2->Canvas->TextOut(a.Left,a.Top,Column->Field->AsString);
      DrawText(tdbgTemp->Canvas->Handle,Column->Field->AsString.c_str(),Column->Field->AsString.Length(),&a,DT_CENTER|DT_VCENTER|DT_SINGLELINE);



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

void __fastcall TfDA::dbgDADblClick(TObject *Sender)
{
        if(dsData->qDA->State == dsEdit||dsData->qDA->State ==dsInsert)
             if(Application->MessageBox("数据还没存盘,是否退出?","警告",0x00000021)!=ID_OK)
                  return;
          Close();
}
//---------------------------------------------------------------------------


void __fastcall TfDA::tcDaChange(TObject *Sender)
{
        //WHERE  KM LIKE '0005%'
//        Format("There are now %d records in the table", ARRAYOFCONST(((int)DataSet->RecordCount));
        String sTemp;
        if(tcDa->TabIndex<10)
           sTemp=Format("WHERE KM LIKE '000%d%%'",ARRAYOFCONST(((int)tcDa->TabIndex)));
        else
           sTemp=Format("WHERE KM LIKE '00%d%%'",ARRAYOFCONST(((int)tcDa->TabIndex)));
        dsData->qDA->Close();
        dsData->qDA->SQL->Clear();
        dsData->qDA->SQL->Add("SELECT *");
        dsData->qDA->SQL->Add("FROM 'Kc.dbf' Kc");
        if(tcDa->TabIndex)
          dsData->qDA->SQL->Add(sTemp);
        dsData->qDA->Open();
        dsData->qDA->First();

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