⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 dwldw.cpp

📁 企业合同管理系统:以企业合同为主线
💻 CPP
字号:
// DWLDW.cpp : implementation file
//

#include "stdafx.h"
#include "htglxt.h"
#include "DWLDW.h"
#include "DBaseQuery.h"
#include "externdllheader.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CDWLDW dialog


CDWLDW::CDWLDW(CWnd* pParent /*=NULL*/)
	: CDialog(CDWLDW::IDD, pParent)
{
	//{{AFX_DATA_INIT(CDWLDW)
	//}}AFX_DATA_INIT
}


void CDWLDW::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CDWLDW)
	DDX_Control(pDX, IDC_EDTMEM, m_EdtMem);
	DDX_Control(pDX, IDC_EDTTEL, m_EdtTel);
	DDX_Control(pDX, IDC_EDTSNAME, m_EdtSName);
	DDX_Control(pDX, IDC_EDTNAME, m_EdtName);
	DDX_Control(pDX, IDC_EDTLINKMANTEL, m_EdtLinkManTel);
	DDX_Control(pDX, IDC_EDTLINKMAN, m_EdtLinkMan);
	DDX_Control(pDX, IDC_EDTID, m_EdtID);
	DDX_Control(pDX, IDC_EDTFAX, m_EdtFax);
	DDX_Control(pDX, IDC_EDTEMAIL, m_EdtEmail);
	DDX_Control(pDX, IDC_EDTADDR, m_EdtAddr);
	DDX_Control(pDX, IDC_BUTUNDO2, m_ButUndo);
	DDX_Control(pDX, IDC_BUTSAVE2, m_ButSave);
	DDX_Control(pDX, IDC_BUTEXIT2, m_ButExit);
	DDX_Control(pDX, IDC_BUTDELE2, m_ButDele);
	DDX_Control(pDX, IDC_BUTCHANGE2, m_ButChange);
	DDX_Control(pDX, IDC_BUTADD, m_ButAdd);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CDWLDW, CDialog)
	//{{AFX_MSG_MAP(CDWLDW)
	ON_BN_CLICKED(IDC_BUTADD, OnButadd)
	ON_BN_CLICKED(IDC_BUTCHANGE2, OnButchange2)
	ON_BN_CLICKED(IDC_BUTDELE2, OnButdele2)
	ON_BN_CLICKED(IDC_BUTSAVE2, OnButsave2)
	ON_BN_CLICKED(IDC_BUTUNDO2, OnButundo2)
	ON_BN_CLICKED(IDC_BUTEXIT2, OnButexit2)
	ON_EN_CHANGE(IDC_EDTNAME, OnChangeEdtname)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CDWLDW message handlers

void CDWLDW::OnOK() 
{
	// TODO: Add extra validation here
	
	//CDialog::OnOK();
}

void CDWLDW::Clear()
{
	m_EdtTel.SetWindowText("");
	m_EdtSName.SetWindowText("");
	m_EdtName.SetWindowText("");
	m_EdtLinkManTel.SetWindowText("");
	m_EdtLinkMan.SetWindowText("");
	m_EdtFax.SetWindowText("");
	m_EdtEmail.SetWindowText("");
	m_EdtAddr.SetWindowText("");
	m_EdtMem.SetWindowText("");
}

void CDWLDW::Enabled(bool bEnabled)
{
	m_EdtTel.EnableWindow(bEnabled);
	m_EdtSName.EnableWindow(bEnabled);
	m_EdtName.EnableWindow(bEnabled);
	m_EdtLinkManTel.EnableWindow(bEnabled);
	m_EdtLinkMan.EnableWindow(bEnabled);
	m_EdtFax.EnableWindow(bEnabled);
	m_EdtEmail.EnableWindow(bEnabled);
	m_EdtMem.EnableWindow(bEnabled);
	m_EdtAddr.EnableWindow(bEnabled);
	m_ButUndo.EnableWindow(bEnabled);
	m_ButSave.EnableWindow(bEnabled);
	m_ButExit.EnableWindow(!bEnabled);
	m_ButDele.EnableWindow(!bEnabled);
	m_ButChange.EnableWindow(!bEnabled);
	m_ButAdd.EnableWindow(!bEnabled);
}

void CDWLDW::Display(CString sID)
{
	if(sID.IsEmpty())
		return;
	CString sSQL;
	RxRecordset drst;
	sSQL.Format("SELECT * FROM 往来单位信息表 WHERE 编号='%s'",sID);
	drst.Open(sSQL,adCmdText);
	if(drst.GetRecordCount()<1)
		return;
	CString sName,sSName,sAddr,sTel,sFax,sLinkMan,sLinkManTel,sEmail,sMem;
	
	sName=drst.GetFieldValue("名称");
	sSName=drst.GetFieldValue("简称");
	sAddr=drst.GetFieldValue("地址");
	sTel=drst.GetFieldValue("电话");
	sFax=drst.GetFieldValue("传真");
	sLinkMan=drst.GetFieldValue("联系人");
	sLinkManTel=drst.GetFieldValue("联系人电话");
	sEmail=drst.GetFieldValue("邮箱网址");
	sMem=drst.GetFieldValue("备注");
	m_EdtID.SetWindowText(m_sID);
	m_EdtName.SetWindowText(sName);
	m_EdtSName.SetWindowText(sSName);
	m_EdtAddr.SetWindowText(sAddr);
	m_EdtTel.SetWindowText(sTel);
	m_EdtFax.SetWindowText(sFax);
	m_EdtLinkMan.SetWindowText(sLinkMan);
	m_EdtLinkManTel.SetWindowText(sLinkManTel);
	m_EdtEmail.SetWindowText(sEmail);
	m_EdtMem.SetWindowText(sMem);

}

void CDWLDW::OnButadd() 
{
	AddOrChange=1;
	this->Enabled(true);
	this->Clear();
	CString NewID=ado.AutoNumber("往来单位信息表","编号","WD",2);
	m_EdtID.SetWindowText(NewID);
	m_EdtName.SetFocus();
	
}

void CDWLDW::OnButchange2() 
{
	AddOrChange=2;
	this->Enabled(true);
	m_EdtName.SetFocus();
	
}

void CDWLDW::OnButdele2() 
{
	if(MessageBox("确定要删除此条记录吗?","系统提示",MB_OKCANCEL|MB_ICONQUESTION)!=1)
		return;
	CString sSQL;
	sSQL.Format("DELETE FROM 往来单位信息表 WHERE 编号='%s'",m_sID);
	RxRecordset Drst;
	Drst.Open(sSQL,adCmdText);
	this->OnCancel();
	
}

void CDWLDW::OnButsave2() 
{
	if(MessageBox("确定要保存记录吗?","系统提示",MB_OKCANCEL|MB_ICONQUESTION)!=1)
		return;
	CString sSQL,sID,sName,sSName,sAddr,sTel,sFax,sLinkMan,sLinkManTel,sEmail,sMem;
	m_EdtID.GetWindowText(m_sID);
	m_EdtName.GetWindowText(sName);
	m_EdtSName.GetWindowText(sSName);
	m_EdtAddr.GetWindowText(sAddr);
	m_EdtTel.GetWindowText(sTel);
	m_EdtFax.GetWindowText(sFax);
	m_EdtLinkMan.GetWindowText(sLinkMan);
	m_EdtLinkManTel.GetWindowText(sLinkManTel);
	m_EdtEmail.GetWindowText(sEmail);
	m_EdtMem.GetWindowText(sMem);
	m_EdtID.GetWindowText(sID);
	if(AddOrChange==1)//添加操作
		sSQL.Format("Insert Into 往来单位信息表 Values('%s','%s','%s','%s','%s','%s','%s','%s','%s','%s')",sID,sName,sSName,sAddr,sTel,sFax,sLinkMan,sLinkManTel,sEmail,sMem);
	else
		sSQL.Format("Update 往来单位信息表 set 名称='%s',简称='%s',地址='%s',电话='%s',传真='%s',联系人='%s',联系人电话='%s',邮箱网址='%s',备注='%s' WHERE 编号='%s'",sName,sSName,sAddr,sTel,sFax,sLinkMan,sLinkManTel,sEmail,sMem,sID);
	RxRecordset arst;
	arst.Open(sSQL,adCmdText);
	this->Enabled(false);
	this->m_ButAdd.SetFocus();

}

void CDWLDW::OnButundo2() 
{
	if(MessageBox("确定要撤消操作吗?","系统提示",MB_OKCANCEL|MB_ICONQUESTION)!=1)
		return;
	this->Enabled(false);
	this->Clear();
	this->Display(m_sID);
	this->m_ButAdd.SetFocus();
	
}

void CDWLDW::OnButexit2() 
{
	this->OnCancel();	
	
}

BOOL CDWLDW::OnInitDialog() 
{
	CDialog::OnInitDialog();
	
	RxGrid grid;
	CDBaseQuery* ParentWnd=(CDBaseQuery*)FindWindow(NULL,"往来单位信息查询");
	m_sID=ParentWnd->m_Grid.GetItemText(ParentWnd->m_Grid.GetRow(),0);
	if(m_sID.IsEmpty())
	{
		this->m_ButChange.EnableWindow(false);
		this->m_ButDele.EnableWindow(false);
	}
	this->Display(m_sID);
	
	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}

void CDWLDW::OnChangeEdtname() 
{
	CString str1,str2;
	this->m_EdtName.GetWindowText(str1);
	str2=CharToLetterCode(str1);
	this->m_EdtSName.SetWindowText(str2);
}

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -