dlgorderinlibsearch.cpp

用VC编写的立体仓库的管理软件源程序和设计说明书。

// DlgOrderInlibSearch.cpp : implementation file
//

#include "stdafx.h"
#include "Manage_WH.h"
#include "DlgOrderInlibSearch.h"
#include "DlgPreparent.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CDlgOrderInlibSearch dialog


CDlgOrderInlibSearch::CDlgOrderInlibSearch(CWnd* pParent /*=NULL*/)
	: CDialog(CDlgOrderInlibSearch::IDD, pParent)
{
	//{{AFX_DATA_INIT(CDlgOrderInlibSearch)
	m_beginDate = 0;
	m_endDate = 0;
	m_condition = _T("");
	//}}AFX_DATA_INIT
	m_hIcon = AfxGetApp()->LoadIcon(IDI_MYICON);
}


void CDlgOrderInlibSearch::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CDlgOrderInlibSearch)
	DDX_Control(pDX, IDC_LIST_FROM, m_listFrom);
	DDX_Control(pDX, IDC_LIST_MAIN, m_listMain);
	DDX_DateTimeCtrl(pDX, IDC_BEGIN_DATE, m_beginDate);
	DDX_DateTimeCtrl(pDX, IDC_END_DATE, m_endDate);
	DDX_Text(pDX, IDC_CONDITION, m_condition);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CDlgOrderInlibSearch, CDialog)
	//{{AFX_MSG_MAP(CDlgOrderInlibSearch)
	ON_BN_CLICKED(IDC_SEARCH, OnSearch)
	ON_NOTIFY(NM_DBLCLK, IDC_LIST_MAIN, OnDblclkListMain)
	ON_BN_CLICKED(IDC_PRINT, OnPrint)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CDlgOrderInlibSearch message handlers

BOOL CDlgOrderInlibSearch::PreTranslateMessage(MSG* pMsg) 
{
	if (pMsg->message==WM_KEYDOWN && (pMsg->wParam==13 || pMsg->wParam==27))
		return TRUE;
	return CDialog::PreTranslateMessage(pMsg);
}

BOOL CDlgOrderInlibSearch::OnInitDialog() 
{
	CDialog::OnInitDialog();
	
	SetIcon(m_hIcon,TRUE);
	m_listMain.InsertColumn(0,"入库单号",LVCFMT_LEFT,100,-1);
	m_listMain.InsertColumn(1,"供应商全称",LVCFMT_LEFT,160,-1);
	m_listMain.InsertColumn(2,"商品名称",LVCFMT_LEFT,100,-1);
	m_listMain.InsertColumn(3,"入库数量",LVCFMT_LEFT,90,-1);
	m_listMain.InsertColumn(4,"入库时间",LVCFMT_LEFT,90,-1);
	m_listMain.SetExtendedStyle( LVS_EX_GRIDLINES|LVS_EX_FULLROWSELECT);
	
	m_listFrom.InsertColumn(0,"入库单号",LVCFMT_LEFT,100,-1);
	m_listFrom.InsertColumn(1,"商品名称",LVCFMT_LEFT,100,-1);
	m_listFrom.InsertColumn(2,"商品条形码",LVCFMT_LEFT,120,-1);
	m_listFrom.InsertColumn(3,"商品价格(RMB)",LVCFMT_LEFT,120,-1);
	m_listFrom.InsertColumn(4,"商品规格",LVCFMT_LEFT,120,-1);
	m_listFrom.InsertColumn(5,"商品颜色",LVCFMT_LEFT,120,-1);
	m_listFrom.InsertColumn(6,"商品重量(KG)",LVCFMT_LEFT,120,-1);
	m_listFrom.InsertColumn(7,"计量单位",LVCFMT_LEFT,120,-1);
	m_listFrom.InsertColumn(8,"供应商全称",LVCFMT_LEFT,160,-1);
	m_listFrom.SetExtendedStyle( LVS_EX_GRIDLINES|LVS_EX_FULLROWSELECT);

	CTime tm(CTime::GetCurrentTime());
	m_beginDate = m_endDate = tm;
	UpdateData(FALSE);

	return TRUE;
}

void CDlgOrderInlibSearch::OnSearch() 
{
	UpdateData(TRUE);
	CString sSQL,sBeginDate,sEndDate;
	sBeginDate.Format("%.4d-%.2d-%.2d 00:00:00",m_beginDate.GetYear(),m_beginDate.GetMonth(),m_beginDate.GetDay());
	sEndDate.Format("%.4d-%.2d-%.2d 23:59:59",m_endDate.GetYear(),m_endDate.GetMonth(),m_endDate.GetDay());
	if (m_condition.IsEmpty())
	{
		sSQL = "select * from T_Order_History where F_Kind=2 and F_Status=1 and F_EndTime>='"+sBeginDate+"' and F_EndTime<='"+sEndDate+"'";
	}
	else
	{
		sSQL = "select * from T_Order_History where F_Kind=2 and F_Status=1 and F_OrderIndex='"+m_condition+"'";
	}
	CAdoConnection cn;
	CAdoRecordSet  rs;

	cn.OpenUDLFile(gstrConSQLSer);
	rs.SetAdoConnection(&cn);
	rs.Open(sSQL,adCmdText);
	if (rs.GetRecordCount() > 0)
	{
		int row = 0,iCount = 0;
		CString sFormNum,sSupplier,sGoodsName,sDate,sCount;
		m_listMain.DeleteAllItems();
		rs.MoveFirst();
		while (!rs.IsEOF())
		{
			rs.GetCollect("F_OrderIndex",sFormNum);
			rs.GetCollect("F_GoodsName",sGoodsName);
			rs.GetCollect("F_Count",iCount);
			rs.GetCollect("F_CompanyName",sSupplier);
			rs.GetCollect("F_EndTime",sDate);
			sCount.Format("%d",iCount);
			row = m_listMain.InsertItem(row,"");
			m_listMain.SetItemText(row,0,sFormNum);
			m_listMain.SetItemText(row,1,sSupplier);
			m_listMain.SetItemText(row,2,sGoodsName);
			m_listMain.SetItemText(row,3,sCount);
			m_listMain.SetItemText(row,4,sDate);
			rs.MoveNext();
			row++;
		}
	}
}

void CDlgOrderInlibSearch::OnDblclkListMain(NMHDR* pNMHDR, LRESULT* pResult) 
{
	for (int i=0;i<m_listMain.GetItemCount();i++)
	{
		if (m_listMain.GetItemState(i,LVIS_SELECTED) == LVIS_SELECTED)
		{
			CString sGoodsCode,sPrice,sSpec,sColor,sWeight,sUnit;
			m_sFormNum	 = m_listMain.GetItemText(i,0);
			m_supplier	 = m_listMain.GetItemText(i,1);
			m_sGoodsName = m_listMain.GetItemText(i,2);

			CAdoConnection cn;
			CAdoRecordSet  rs;
			cn.OpenUDLFile(gstrConSQLSer);
			rs.SetAdoConnection(&cn);
			rs.Open("select * from T_Products where F_Name='"+m_sGoodsName+"'",adCmdText);
			if (rs.GetRecordCount() != 0)
			{
				rs.MoveFirst();
				rs.GetCollect("F_Price",sPrice);
				rs.GetCollect("F_Spec",sSpec);
				rs.GetCollect("F_Color",sColor);
				rs.GetCollect("F_Weight",sWeight);
				rs.GetCollect("F_Unit",sUnit);
			}
			rs.Close();

			rs.Open("select * from T_InOutLibRec where F_TaskKind=1 and F_OrderIndex1='"+m_sFormNum+"'",adCmdText);
			if (rs.GetRecordCount() != 0)
			{
				rs.MoveFirst();
				int row = 0;
				CString s;
				m_listFrom.DeleteAllItems();
				while (!rs.IsEOF())
				{
					for (int k=0;k<8;k++)
					{
						s.Format("%d",k);
						s = "F_Index"+s+"";
						rs.GetCollect(s,sGoodsCode);
						if (!sGoodsCode.IsEmpty())
						{
							row = m_listFrom.InsertItem(row,"");
							m_listFrom.SetItemText(row,0,m_sFormNum);
							m_listFrom.SetItemText(row,1,m_sGoodsName);
							m_listFrom.SetItemText(row,2,sGoodsCode);
							m_listFrom.SetItemText(row,3,sPrice);
							m_listFrom.SetItemText(row,4,sSpec);
							m_listFrom.SetItemText(row,5,sColor);
							m_listFrom.SetItemText(row,6,sWeight);
							m_listFrom.SetItemText(row,7,sUnit);
							m_listFrom.SetItemText(row,8,m_supplier);
							row++;
						}
					}
					rs.MoveNext();
				}
			}
			rs.Close();
			cn.Close();
			break;
		}
	}
	*pResult = 0;
}

void CDlgOrderInlibSearch::OnPrint() 
{
	if(m_listFrom.GetItemCount() <= 0)
		return;
	PRNINFO PrnInfo = {0};
	PrnInfo.hListView = m_listFrom.m_hWnd;
	PrnInfo.hWnd = this->m_hWnd;
	PrnInfo.IsPrint = FALSE;
	PrnInfo.nCurPage = 1;
	PrnInfo.nMaxLine = m_listFrom.GetItemCount();
	
	CDlgPreparent DlgPreView;
	DlgPreView.SetCallBackFun(DrawInfo, PrnInfo);
	DlgPreView.DoModal();	
}

void CDlgOrderInlibSearch::DrawInfo(CDC &memDC, PRNINFO PrnInfo)
{
	if(memDC.m_hDC == NULL)
		return;

	int nCurPage = PrnInfo.nCurPage;	//当前页
	BOOL IsPrint = PrnInfo.IsPrint;		//是否打印
	int nMaxPage = PrnInfo.nCountPage;	//最大页码
	HWND hWnd = PrnInfo.hWnd;
	HWND hList = PrnInfo.hListView;
	CString csLFinality, csRFinality;
	CTime time;
	time=CTime::GetCurrentTime();
	csLFinality = time.Format("报表日期:%Y年%m月%d日");
	csRFinality.Format("第 %i 页/共 %i 页", nCurPage, nMaxPage);

	TCHAR szTitle[] = TEXT("入库单报表");

	CRect rc, rt1,rt2, rt3, rt4, rt5, rt6,rtSupp,rtGoodsName,rtNum,rtCount;
	CPen *hPenOld;
	CPen cPen;
	CFont TitleFont, DetailFont, *oldfont;
	//标题字体
	TitleFont.CreateFont(-MulDiv(14,memDC.GetDeviceCaps(LOGPIXELSY),72),
		0,0,0,FW_NORMAL,0,0,0,GB2312_CHARSET,
		OUT_STROKE_PRECIS,CLIP_STROKE_PRECIS,DRAFT_QUALITY,
		VARIABLE_PITCH|FF_SWISS,_T("黑体"));
	//细节字体
	DetailFont.CreateFont(-MulDiv(10,memDC.GetDeviceCaps(LOGPIXELSY),72),
		0,0,0,FW_NORMAL,0,0,0,GB2312_CHARSET,
		OUT_STROKE_PRECIS,CLIP_STROKE_PRECIS,DRAFT_QUALITY,
		VARIABLE_PITCH|FF_SWISS,_T("宋体"));
	//粗笔
	cPen.CreatePen(PS_SOLID, 2, RGB(0, 0, 0));

 	int xP = GetDeviceCaps(memDC.m_hDC, LOGPIXELSX);	//x方向每英寸像素点数
	int yP = GetDeviceCaps(memDC.m_hDC, LOGPIXELSY);	//y方向每英寸像素点数

	DOUBLE xPix = (DOUBLE)xP*10/254;	//每 mm 宽度的像素
	DOUBLE yPix = (DOUBLE)yP*10/254;	//每 mm 高度的像素
	DOUBLE fAdd = 7*yPix;		//每格递增量
	DOUBLE nTop = 25*yPix;		//第一页最上线
	int	  iStart = 0;			//从第几行开始读取
	DOUBLE nBottom = nTop+A4_ONELINE*fAdd;
	if(nCurPage != 1)
		nTop = 25*yPix-fAdd;	//非第一页最上线
	if(nCurPage == 2)
		iStart = A4_ONELINE;
	if(nCurPage>2)
		iStart = A4_ONELINE+(nCurPage - 2)*A4_OTHERLINE;

	DOUBLE nLeft = 10*xPix;			//最左线
	DOUBLE nRight = xPix*(A4_W-10);	//最右线


	DOUBLE nTextAdd = 1.5*xPix;
	if(IsPrint)
	{
		//真正打印部分
		static DOCINFO di = {sizeof (DOCINFO),  szTitle} ;
		//开始文档打印
		if(memDC.StartDoc(&di)<0)
		{
			::MessageBox(hWnd, "连接到打印机化败!", "错误", MB_ICONSTOP);
		}
		else
		{
			iStart = 0;
			nTop = 25*yPix;		//第一页最上线
			for(int iTotalPages = 1; iTotalPages<=nMaxPage; iTotalPages++)
			{
				int nCurPage = iTotalPages;
				csRFinality.Format("第 %i 页/共 %i 页", nCurPage, nMaxPage);
				time=CTime::GetCurrentTime();
				csLFinality = time.Format("报表日期:%Y-%m-%d");

				if(nCurPage != 1)
					nTop = 25*yPix-fAdd;	//非第一页最上线
				if(nCurPage == 2)
					iStart = A4_ONELINE;
				if(nCurPage>2)
					iStart = A4_ONELINE+(nCurPage - 2)*A4_OTHERLINE;
				//开始页
				if(memDC.StartPage() < 0)
				{
					::MessageBox(hWnd, _T("打印失败!"), "错误", MB_ICONSTOP);
					memDC.AbortDoc();