mainpage.cpp

电费管理程序 VC源码-系统控制 这个源码是一个系统控制的电费管理系统 功能很强大

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

#include "mainpage.h"

#include "unit2.h"
#include "unit3.h"
#include "mainpage.h"

#include "Unit1.h"
#include "Unit4.h"
#include "unit5.h"
#include "unit10.h"

#include "registry.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------


LRESULT CALLBACK ControlWndProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
    return MainForm->ListViewProc(hWnd, uMsg, wParam, lParam);
}








__fastcall TMainForm::TMainForm(TComponent* Owner)
	: TForm(Owner)
{
  /*
    bkBitmap=new Graphics::TBitmap;
    bkBitmap->LoadFromFile("wellcome.bmp");
    */
    FOriginalListViewProc = (WNDPROC) GetWindowLong(ClientHandle, GWL_WNDPROC);
    SetWindowLong(ClientHandle, GWL_WNDPROC, (LONG)ControlWndProc);


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

__fastcall TMainForm::~TMainForm()
{
    SetWindowLong(ClientHandle, GWL_WNDPROC, (LONG) FOriginalListViewProc);


}





/*
void _fastcall TMainForm::HandleBackground(TMessage&Msg)
{

  //	Canvas->Draw(0,0,bkBitmap);
  /*
    int BitmapInfoSize, BitmapImageSize;
    long DIBWidth, DIBHeight;
    PChar BitmapImage;
    Windows::PBitmapInfo BitmapInfo;
    Graphics::TBitmap *Bitmap;



//    Bitmap = new Graphics::TBitmap();
//    Bitmap->Assign(Image1->Picture);
    GetDIBSizes(bkBitmap->Handle, BitmapInfoSize, BitmapImageSize);
    BitmapInfo  = (PBitmapInfo) new char[BitmapInfoSize];
    BitmapImage = (PChar) new char [BitmapImageSize];
    GetDIB(bkBitmap->Handle, 0, BitmapInfo, BitmapImage);
    DIBWidth  = BitmapInfo->bmiHeader.biWidth;
    DIBHeight = BitmapInfo->bmiHeader.biHeight;
    StretchDIBits((HDC)Msg.WParam,
                0, 0, DIBWidth, DIBHeight,
                0, 0, DIBWidth, DIBHeight,
                BitmapImage, BitmapInfo,
               DIB_RGB_COLORS, SRCCOPY);
    delete [] BitmapImage;
    delete [] BitmapInfo;
//    delete Bitmap;







}


*/


void __fastcall TMainForm::FormCreate(TObject *Sender)
{
    /*
    TRegistry *m_reg=new TRegistry;
    if (!m_reg->OpenKey("dfgl",false))  Application->Terminate();
    else
    {
        AnsiString k=m_reg->ReadString("Times");
        int cishu=k.ToInt();

        if (cishu>30)
          Application->Terminate();
        else
           m_reg->WriteString("Times",AnsiString(cishu+1));
     }

     m_reg->CloseKey();
     delete m_reg;
    */

    Form4=new TForm4(this);
    Form4->ShowModal();
    delete Form4;
    PasswordDlg=new TPasswordDlg(this);
    PasswordDlg->ShowModal();
    delete PasswordDlg;

     char  *tempchar=new char[250];
     GetModuleFileName(HInstance,tempchar, 250);
     curPath=ExtractFilePath(StrPas(tempchar));
     delete tempchar;


     Left=0;
     Top=0;
 //   Image1->Picture->LoadFromFile("wellcome.bmp");
}
//---------------------------------------------------------------------------
LRESULT __fastcall TMainForm::ListViewProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
    LRESULT lResult = 0;
    switch(uMsg)
    {
        case WM_ERASEBKGND:
            PaintListView((HDC)wParam);
            lResult = 0;
            break;
        case WM_HSCROLL:
        case WM_VSCROLL:
            LockWindowUpdate(hWnd);
            lResult = CallWindowProc ((FARPROC)FOriginalListViewProc, hWnd, uMsg,
                                      wParam, lParam);
            InvalidateRect (hWnd, 0, true);
            LockWindowUpdate(NULL);
            break;
        default:
            lResult = CallWindowProc ((FARPROC)FOriginalListViewProc, hWnd, uMsg,
                                      wParam, lParam);
            break;
    }
    return lResult;
}

void __fastcall TMainForm::PaintListView(HDC &dc)
{
  //  TRect rect = ListView1->BoundsRect;

    Graphics::TBitmap *MemBitmap = new Graphics::TBitmap;
    MemBitmap->Width = ClientWidth;//rect.Right - rect.Left;
    MemBitmap->Height= ClientHeight;//rect.Bottom- rect.Top;
 /*
    MemBitmap->Canvas->Brush->Style = bsSolid;
    MemBitmap->Canvas->Brush->Color = clAqua;

    MemBitmap->Canvas->FillRect(Rect(0,0,
                                   MemBitmap->Width,
                                   MemBitmap->Height));
 */

    MemBitmap->LoadFromFile(curPath+"wellcome.bmp");

  //  MemBitmap->Canvas->Pen->Color = clNavy;
  //  MemBitmap->Canvas->Pen->Width = 20;
  //  MemBitmap->Canvas->MoveTo(0,0);
  //  MemBitmap->Canvas->LineTo(MemBitmap->Width, MemBitmap->Height);

    ::BitBlt(dc,0,0,MemBitmap->Width, MemBitmap->Height,
           MemBitmap->Canvas->Handle,0,0,SRCCOPY);
    delete MemBitmap; // delete the temporary bitmap.
}




void __fastcall TMainForm::ToolButton1Click(TObject *Sender)
{

     if(MDIChildCount==0)
     {
        TForm2 *Forma;
        Forma=new TForm2(this);
      }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::ToolButton3Click(TObject *Sender)
{
    PagesDlg->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::ToolButton4Click(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------



void __fastcall TMainForm::ToolButton2Click(TObject *Sender)
{

   Form10->ShowModal();


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