dlgtheck.cpp

一个超完善的医药管理系统

// DlgTheCK.cpp : implementation file
//

#include "stdafx.h"
#include "a1.h"
#include "DlgTheCK.h"
#include "myfunction.h"

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

/////////////////////////////////////////////////////////////////////////////
// CDlgTheCK dialog


CDlgTheCK::CDlgTheCK(CWnd* pParent /*=NULL*/)
	: CDialog(CDlgTheCK::IDD, pParent)
{
	//{{AFX_DATA_INIT(CDlgTheCK)
		// NOTE: the ClassWizard will add member initialization here
	//}}AFX_DATA_INIT
}


void CDlgTheCK::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CDlgTheCK)
	DDX_Control(pDX, IDC_EDIT1, m_editName);
	DDX_Control(pDX, IDC_COMBO1, m_comboYg);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CDlgTheCK, CDialog)
	//{{AFX_MSG_MAP(CDlgTheCK)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CDlgTheCK message handlers

BOOL CDlgTheCK::OnInitDialog() 
{
	CDialog::OnInitDialog();
	
	LRunSql m_runsql;
	CString str;
	CString sql;_variant_t value;
	sql.Format("select yg_id,yg_name from tabyginfo");
	if(m_runsql.CheckSQLResult(sql))
	while(!m_runsql.m_recordset->adoEOF)
	{
		
		value=m_runsql.m_recordset->GetCollect("yg_id");
		if(value.vt!=VT_NULL)
			str=(char*)(_bstr_t)value;
		str+=":";
		value=m_runsql.m_recordset->GetCollect("yg_name");
		if(value.vt!=VT_NULL)
			str+=(char*)(_bstr_t)value;

		this->m_comboYg.AddString(str);
		m_runsql.m_recordset->MoveNext();
	}
	m_comboYg.SetCurSel(0);
	if(m_bAdd)
		this->SetWindowText("添加新仓库");
	else
	{
		this->SetWindowText("修改仓库");
		this->m_editName.SetWindowText(m_strCkName);
		this->m_editName.SetReadOnly();
		int mark=-1;
		if((mark=m_comboYg.FindString(-1,m_strCkAdmi))>=0)
			m_comboYg.SetCurSel(mark);
	}


	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}

void CDlgTheCK::OnOK() 
{
	HWND hwnd=this->GetFocus()->GetSafeHwnd();
	if(hwnd==this->m_editName.GetSafeHwnd())
	{
		this->m_comboYg.SetFocus();
		return;
	}

	this->m_comboYg.GetWindowText(m_strCkAdmi);
	CString yg_id=m_strCkAdmi.Left(m_strCkAdmi.Find(':'));
	
	this->m_editName.GetWindowText(this->m_strCkName);
	if(m_strCkName=="")
	{
		MessageBox("仓库名称不能为空");
		m_editName.SetFocus();
		return;
	}
	LRunSql m_runsql;
	CString sql;
	if(m_bAdd)
	{
		sql.Format("select * from tabck where ck_name='%s'",this->m_strCkName);
		if(m_runsql.CheckSQLResult(sql))
		{
			MessageBox("该仓库已有，请换个仓库名称","注意");
			return;
		}

		sql.Format("insert into tabck(ck_name,yg_id) values('%s','%s')",
			m_strCkName,yg_id);//m_strCkAdmi
		m_runsql.RunSQL(sql);

		_variant_t value;CStringList slist;
		sql.Format("select * from tabypinfo");
		m_runsql.CheckSQLResult(sql);
		while(!m_runsql.m_recordset->adoEOF)
		{
			value=m_runsql.m_recordset->GetCollect("yp_id");
			slist.AddTail((char*)(_bstr_t)value);
			m_runsql.m_recordset->MoveNext();
		}
		POSITION pos=NULL;
		for(pos=slist.GetHeadPosition();pos!=NULL;)
		{
			sql.Format("insert into tabkc(yp_id,ck_name,kc_number,alert_leverup,alert_leverdown) \
			values('%s','%s',0,100000,10)",slist.GetNext(pos),m_strCkName);
		m_runsql.RunSQL(sql);	
		}

	}
	else
	{
		sql.Format("update tabck set yg_id='%s' where ck_name = '%s'",yg_id,m_strCkName);
		m_runsql.RunSQL(sql);
	}
	CDialog::OnOK();
}