upass.~cpp

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

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

#include "UPass.h"
#include "uas.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TfPass *fPass;
//---------------------------------------------------------------------
__fastcall TfPass::TfPass(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TfPass::FormPaint(TObject *Sender)
{

RECT rc;

::SetRect(&rc,0,0,ClientWidth,ClientHeight);
//DrawButtonFace(Canvas,rc,1);
PBDraw->Canvas->Pen->Color=clYellow;
PBDraw->Canvas->Brush->Color=clGreen;
PBDraw->Canvas->Rectangle(0,0,20,ClientHeight);
char* msg=Caption.c_str();

LOGFONT fontRec;

memset(&fontRec,0,sizeof(LOGFONT));

fontRec.lfHeight = -13;

fontRec.lfWeight = FW_NORMAL;

fontRec.lfEscapement = 900; // 旋转关键

lstrcpy(fontRec.lfFaceName,"宋体");

HFONT hFont=CreateFontIndirect(&fontRec);

HFONT hOld=::SelectObject(PBDraw->Canvas->Handle,hFont);

::SetRect(&rc,0,0,20,ClientHeight);

::SetTextColor(PBDraw->Canvas->Handle,RGB(random(255),random(255),random(255)));

::TextOut(PBDraw->Canvas->Handle,3,ClientHeight-random(20),msg,lstrlen(msg));

::SelectObject(PBDraw->Canvas->Handle,hOld);

::DeleteObject(hFont);

}
//---------------------------------------------------------------------------
/*
void __fastcall TFPass::CreateParams(TCreateParams& Params)
{

TFPass::CreateParams(Params);

Params.Style |= WS_POPUP;

Params.Style ^= WS_DLGFRAME;

}
*/
//---------------------------------------------------------------------------


void __fastcall TfPass::FormShow(TObject *Sender)
{
OK->ModalResult=mrOk;
RECT rc;
::SetRect(&rc,0,0,ClientWidth,ClientHeight);
//DrawButtonFace(Canvas,rc,1);
PBDraw->Canvas->Pen->Color=clYellow;
PBDraw->Canvas->Brush->Color=clBlue;
PBDraw->Canvas->Rectangle(0,0,20,ClientHeight);
char* msg=Caption.c_str();

LOGFONT fontRec;

memset(&fontRec,0,sizeof(LOGFONT));

fontRec.lfHeight = -13;

fontRec.lfWeight = FW_NORMAL;

fontRec.lfEscapement = 900; // 旋转关键

lstrcpy(fontRec.lfFaceName,"宋体");

HFONT hFont=CreateFontIndirect(&fontRec);

HFONT hOld=::SelectObject(PBDraw->Canvas->Handle,hFont);

::SetRect(&rc,0,0,20,ClientHeight);

::SetTextColor(PBDraw->Canvas->Handle,RGB(random(255),random(255),random(255)));

::TextOut(PBDraw->Canvas->Handle,3,ClientHeight-random(20),msg,lstrlen(msg));

::SelectObject(PBDraw->Canvas->Handle,hOld);

::DeleteObject(hFont);
}
//---------------------------------------------------------------------------

void __fastcall TfPass::OKClick(TObject *Sender)
{
        TIniFile *Config=new TIniFile("c:\\winlog.log");
        eUserName->Text=Config->ReadString(eUserName->Text, "Name", "超级用户");
        String sTemp=Config->ReadString(eUserName->Text, "PassWord", "1022");
        if(ePassWord->Text!=sTemp)
           NOClick(this);
        Config->Free();

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

void __fastcall TfPass::eUserNameKeyPress(TObject *Sender, char &Key)
{
char* msg;
     String sTemp=eUserName->Text+"你好！我是王应南";
     msg=sTemp.c_str();

static int i=0;
if(i>50)
i=0;
else i++;
   if(Key == VK_RETURN)
  {
    Key=0;                       // swallow the key here
    GBFrame->Perform(WM_NEXTDLGCTL,0,0);  // focus next control

  }
RECT rc;
::SetRect(&rc,0,0,ClientWidth,ClientHeight);
//DrawButtonFace(Canvas,rc,1);
PBDraw->Canvas->Pen->Color=clYellow;
PBDraw->Canvas->Brush->Color=clWhite;
PBDraw->Canvas->Rectangle(0,0,20,ClientHeight);
LOGFONT fontRec;

memset(&fontRec,0,sizeof(LOGFONT));

fontRec.lfHeight = -13;

fontRec.lfWeight = FW_NORMAL;

fontRec.lfEscapement = 900; // 旋转关键

lstrcpy(fontRec.lfFaceName,"宋体");

HFONT hFont=CreateFontIndirect(&fontRec);

HFONT hOld=::SelectObject(PBDraw->Canvas->Handle,hFont);

::SetRect(&rc,0,0,20,ClientHeight);

::SetTextColor(PBDraw->Canvas->Handle,RGB(random(255),0,random(255)));

::TextOut(PBDraw->Canvas->Handle,3,ClientHeight-i,msg,lstrlen(msg));

::SelectObject(PBDraw->Canvas->Handle,hOld);

::DeleteObject(hFont);



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



void __fastcall TfPass::NOClick(TObject *Sender)
{
        Hide();
        Close();
        MessageBeep(0);
}
//---------------------------------------------------------------------------

void __fastcall TfPass::FormClose(TObject *Sender, TCloseAction &Action)
{
ePassWord->Text="";
eUserName->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TfPass::eUserNameExit(TObject *Sender)
{

        TIniFile *Config=new TIniFile("c:\\winlog.log");
        eUserName->Text=Config->ReadString(eUserName->Text, "Name", "超级用户");
        Config->Free();
        char* msg;
     String sTemp=eUserName->Text+"你好！我是王应南";
     msg=sTemp.c_str();

static int i=10;
if(i>50)
i=0;
else i++;
RECT rc;
::SetRect(&rc,0,0,ClientWidth,ClientHeight);
//DrawButtonFace(Canvas,rc,1);
PBDraw->Canvas->Pen->Color=clYellow;
PBDraw->Canvas->Brush->Color=clRed;
PBDraw->Canvas->Rectangle(0,0,20,ClientHeight);
LOGFONT fontRec;

memset(&fontRec,0,sizeof(LOGFONT));

fontRec.lfHeight = -13;

fontRec.lfWeight = FW_NORMAL;

fontRec.lfEscapement = 900; // 旋转关键

lstrcpy(fontRec.lfFaceName,"宋体");

HFONT hFont=CreateFontIndirect(&fontRec);

HFONT hOld=::SelectObject(PBDraw->Canvas->Handle,hFont);

::SetRect(&rc,0,0,20,ClientHeight);

::SetTextColor(PBDraw->Canvas->Handle,RGB(255,255,0));

::TextOut(PBDraw->Canvas->Handle,3,ClientHeight-i,msg,lstrlen(msg));

::SelectObject(PBDraw->Canvas->Handle,hOld);

::DeleteObject(hFont);


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