ukh.cpp

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

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

#include "uKH.h"
#include "uas.h"
#include "udata.h"
#include "UInto.h"
//----------------------------------------------------------------------------
#pragma resource "*.dfm"
TfKH *fKH;
//----------------------------------------------------------------------------
__fastcall TfKH::TfKH(TComponent *Owner)
	: TForm(Owner)
{
}
//----------------------------------------------------------------------------

void __fastcall TfKH::FormShow(TObject *Sender)
{

        dsData->qKH->Close();
        dsData->qKH->SQL->Clear();
        dsData->qKH->SQL->Add("SELECT *");
        dsData->qKH->SQL->Add("FROM 'Ghs.dbf' Ghs");
        dsData->qKH->Open();
        dsData->qKH->First();


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


void __fastcall TfKH::DBGrid1ColEnter(TObject *Sender)
{
   KH=dsData->qKH->FieldByName("KH")->AsString;        
}
//---------------------------------------------------------------------------

void __fastcall TfKH::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 TfKH::DBGrid1DblClick(TObject *Sender)
{
    Close();    
}
//---------------------------------------------------------------------------