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

📄 dhtqd.cpp

📁 合同管理系统
💻 CPP
字号:
🔍 
// Dhtqd.cpp : implementation file
//

#include "stdafx.h"
#include "htglxt.h"
#include "Dhtqd.h"
#include "DBaseQuery.h"
#include "externDllHeader.h"
#include "MyDoc.h"
#include "HtqdView.h"
#include "MainFrm.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
extern CHtglxtApp theApp;
/////////////////////////////////////////////////////////////////////////////
// CDhtqd dialog


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


void CDhtqd::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CDhtqd)
	DDX_Control(pDX, IDC_COMJFMC, m_ComJfmc);
	DDX_Control(pDX, IDC_EDTDZ, m_EdtDz);
	DDX_Control(pDX, IDC_EDTYSFS, m_EdtYsfs);
	DDX_Control(pDX, IDC_EDTYFDB, m_EdtYfdb);
	DDX_Control(pDX, IDC_EDTYB, m_EdtYb);
	DDX_Control(pDX, IDC_EDTXXXX, m_EdtXxxx);
	DDX_Control(pDX, IDC_EDTKHYH, m_EdtKhyh);
	DDX_Control(pDX, IDC_EDTJSFS, m_EdtJsfs);
	DDX_Control(pDX, IDC_EDTJHDD, m_EdtJhdd);
	DDX_Control(pDX, IDC_EDTJFDB, m_EdtJfdb);
	DDX_Control(pDX, IDC_EDTHTJE, m_EdtHtje);
	DDX_Control(pDX, IDC_EDTHTBH, m_EdtHtbh);
	DDX_Control(pDX, IDC_EDTDH, m_EdtDh);
	DDX_Control(pDX, IDC_EDTCZ, m_EdtCz);
	DDX_Control(pDX, IDC_EDTBZFF, m_EdtBzff);
	DDX_Control(pDX, IDC_EDTBZ, m_EdtBz);
	DDX_Control(pDX, IDC_EDTBH, m_EdtBh);
	DDX_Control(pDX, IDC_DTQYRQ, m_DtQurq);
	DDX_Control(pDX, IDC_COMXM, m_ComXm);
	DDX_Control(pDX, IDC_COMBM, m_ComBm);
	DDX_Control(pDX, IDC_BUTSAVE1, m_ButSave);
	DDX_Control(pDX, IDC_BUTPRINT, m_ButPrint);
	DDX_Control(pDX, IDC_BUTEXIT1, m_ButExit);
	DDX_Control(pDX, IDC_BUTDELE, m_ButDele);
	DDX_Control(pDX, IDC_BUTADD, m_ButAdd);
	//}}AFX_DATA_MAP
}


BEGIN_MESSAGE_MAP(CDhtqd, CDialog)
	//{{AFX_MSG_MAP(CDhtqd)
	ON_BN_CLICKED(IDC_BUTADD, OnButadd)
	ON_BN_CLICKED(IDC_BUTDELE, OnButdele)
	ON_BN_CLICKED(IDC_BUTEXIT1, OnButexit1)
	ON_BN_CLICKED(IDC_BUTSAVE1, OnButsave1)
	ON_BN_CLICKED(IDC_BUTPRINT, OnButprint)
	ON_CBN_KILLFOCUS(IDC_COMJFMC, OnKillfocusComjfmc)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CDhtqd message handlers

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

void CDhtqd::Clear()
{
	m_EdtDz.SetWindowText("");
	m_EdtHtbh.SetWindowText("");
	m_EdtYsfs.SetWindowText("");
	m_EdtYfdb.SetWindowText("");
	m_EdtYb.SetWindowText("");
	m_EdtXxxx.SetWindowText("");
	m_EdtKhyh.SetWindowText("");
	m_EdtJsfs.SetWindowText("");
	m_EdtJhdd.SetWindowText("");
	m_EdtJfdb.SetWindowText("");
	m_EdtHtje.SetWindowText("");
	m_ComJfmc.SetWindowText("");
	m_EdtDh.SetWindowText("");
	m_EdtCz.SetWindowText("");
	m_EdtBzff.SetWindowText("");
	m_EdtBz.SetWindowText("");
	m_EdtBh.SetWindowText("");
	m_DtQurq.SetWindowText("");
	m_ComXm.SetWindowText("");
	m_ComBm.SetWindowText("");
}

void CDhtqd::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 sBH,sBM,sXM,sHTBH,sJFMC,sJFDH,sJFCZ,sKHYH,
		sXXDZ,sYB,sHJJE,sQDRQ,sYSFS,sBZBF,sJSFS,
		sJFDB,sYFDB,sJHDD,sXXXX,sBZ;
	sBH=drst.GetFieldValue("编号");
	sBM=drst.GetFieldValue("部门");
	sXM=drst.GetFieldValue("项目");
	sHTBH=drst.GetFieldValue("合同包号");
	sJFMC=drst.GetFieldValue("甲方名称");
	sJFDH=drst.GetFieldValue("甲方电话");
	sJFCZ=drst.GetFieldValue("甲方传真");
	sXXDZ=drst.GetFieldValue("详细地址");
	sKHYH=drst.GetFieldValue("开户银行");
	sYB=drst.GetFieldValue("邮编");
	sHJJE=drst.GetFieldValue("合计金额");
	sQDRQ=drst.GetFieldValue("签订日期");
	sYSFS=drst.GetFieldValue("运输方式");
	sBZBF=drst.GetFieldValue("包装办法");
	sJSFS=drst.GetFieldValue("结算方式");
	sJFDB=drst.GetFieldValue("甲方代表");
	sYFDB=drst.GetFieldValue("乙方代表");
	sJHDD=drst.GetFieldValue("交货地点");
	sXXXX=drst.GetFieldValue("详细信息");
	sBZ=drst.GetFieldValue("备注");
	
	m_EdtDz.SetWindowText(sXXDZ);
	m_EdtYsfs.SetWindowText(sYSFS);
	m_EdtHtbh.SetWindowText(sHTBH);
	m_EdtYfdb.SetWindowText(sYFDB);
	m_EdtYb.SetWindowText(sYB);
	m_EdtXxxx.SetWindowText(sXXXX);
	m_EdtKhyh.SetWindowText(sKHYH);
	m_EdtJsfs.SetWindowText(sJSFS);
	m_EdtJhdd.SetWindowText(sJHDD);
	m_EdtJfdb.SetWindowText(sJFDB);
	m_EdtHtje.SetWindowText(sHJJE);
	m_ComJfmc.SetWindowText(sJFMC);
	m_EdtDh.SetWindowText(sJFDH);
	m_EdtCz.SetWindowText(sJFCZ);
	m_EdtBzff.SetWindowText(sBZBF);
	m_EdtBz.SetWindowText(sBZ);
	m_EdtBh.SetWindowText(m_sID);
	CTime tQDRQ;
	tQDRQ=CStringTOCTime(sQDRQ);
	m_DtQurq.SetTime(&tQDRQ);
	m_ComXm.SetWindowText(sXM);
	m_ComBm.SetWindowText(sBM);
}

void CDhtqd::Enabled(bool bEnabled)
{
	m_EdtDz.EnableWindow(bEnabled);
	m_EdtYsfs.EnableWindow(bEnabled);
	m_EdtYfdb.EnableWindow(bEnabled);
	m_EdtYb.EnableWindow(bEnabled);
	m_EdtXxxx.EnableWindow(bEnabled);
	m_EdtKhyh.EnableWindow(bEnabled);
	m_EdtJsfs.EnableWindow(bEnabled);
	m_EdtJhdd.EnableWindow(bEnabled);
	m_EdtJfdb.EnableWindow(bEnabled);
	m_EdtHtje.EnableWindow(bEnabled);
	m_ComJfmc.EnableWindow(bEnabled);
	m_EdtHtbh.EnableWindow(bEnabled);
	m_EdtDh.EnableWindow(bEnabled);
	m_EdtCz.EnableWindow(bEnabled);
	m_EdtBzff.EnableWindow(bEnabled);
	m_EdtBz.EnableWindow(bEnabled);
	m_DtQurq.EnableWindow(bEnabled);
	m_ComXm.EnableWindow(bEnabled);
	m_ComBm.EnableWindow(bEnabled);
	m_ButSave.EnableWindow(bEnabled);
	m_ButPrint.EnableWindow(!bEnabled);
	m_ButExit.EnableWindow(!bEnabled);
	m_ButDele.EnableWindow(!bEnabled);
	m_ButAdd.EnableWindow(!bEnabled);
}

BOOL CDhtqd::OnInitDialog() 
{
	CDialog::OnInitDialog();
	
	CDBaseQuery* ParentWnd=(CDBaseQuery*)FindWindow(NULL,"合同签订查询");
	m_sID=ParentWnd->m_Grid.GetItemText(ParentWnd->m_Grid.GetRow(),0);
	this->Display(m_sID);
	this->ShowWindow(SW_SHOWMAXIMIZED);

	RxRecordset irst;
	irst.Open("部门信息表");
	this->m_ComBm.SetRecordset(irst,"名称");
	irst.Open("项目信息表");
	this->m_ComXm.SetRecordset(irst,"名称");
	irst.Open("往来单位信息表");
	m_ComJfmc.SetRecordset(irst,"名称");
	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}

void CDhtqd::OnButadd() 
{
	CString sNewID;
	sNewID=ado.AutoNumber("合同签订记录","编号","HT",3);
	this->Clear();
	this->Enabled(true);
	this->m_EdtBh.SetWindowText(sNewID);
	this->m_ComBm.SetFocus();
	CTime time;
	time=time.GetCurrentTime();
	this->m_DtQurq.SetTime(&time);
}

void CDhtqd::OnButdele() 
{
	CString sSQL,sID;
	m_EdtBh.GetWindowText(sID);

	if(MessageBox("确定要删除记录吗？","系统提示",MB_OKCANCEL|MB_ICONQUESTION)!=1)
		return;
	sSQL.Format("DELETE 合同签订记录 WHERE 编号 ='%s'",sID);
	RxRecordset drst;
	drst.Open(sSQL,adCmdText);
	this->OnCancel();	
	
}

void CDhtqd::OnButexit1() 
{
	this->OnCancel();	
}

void CDhtqd::OnButsave1() 
{
	if(MessageBox("确定要保存记录吗？","系统提示",MB_OKCANCEL|MB_ICONQUESTION)!=1)
		return;
	CString sBM,sXM,sSQL;
	CString sBH,sBMBH,sXMBH,sHTBH,sJFMC,sJFDH,sJFCZ,sKHYH,
		sXXDZ,sYB,sHJJE,sQDRQ,sYSFS,sBZBF,sJSFS,
		sJFDB,sYFDB,sJHDD,sXXXX,sBZ;
	m_EdtBh.GetWindowText(sBH);
	m_EdtDz.GetWindowText(sXXDZ);
	m_EdtYsfs.GetWindowText(sYSFS);
	m_EdtHtbh.GetWindowText(sHTBH);
	m_EdtYfdb.GetWindowText(sYFDB);
	m_EdtYb.GetWindowText(sYB);
	m_EdtXxxx.GetWindowText(sXXXX);
	m_EdtKhyh.GetWindowText(sKHYH);
	m_EdtJsfs.GetWindowText(sJSFS);
	m_EdtJhdd.GetWindowText(sJHDD);
	m_EdtJfdb.GetWindowText(sJFDB);
	m_EdtHtje.GetWindowText(sHJJE);
	m_ComJfmc.GetWindowText(sJFMC);
	m_EdtDh.GetWindowText(sJFDH);
	m_EdtCz.GetWindowText(sJFCZ);
	m_EdtBzff.GetWindowText(sBZBF);
	m_EdtBz.GetWindowText(sBZ);
	m_EdtBh.GetWindowText(m_sID);
	CTime tQDRQ;
	m_DtQurq.GetTime(tQDRQ);
	sQDRQ=CTimeToCString(tQDRQ);
	m_ComXm.GetWindowText(sXM);
	m_ComBm.GetWindowText(sBM);

	sXMBH=ado.FieldToOtherField("项目信息表","名称",sXM,"编号",1);
	if(sXMBH.IsEmpty())
	{
		MessageBox("您输入的项目名称不存在！请确定此项目在 [基础信息]/[项目信息] 中已经添加!","系统提示",MB_OK|MB_ICONSTOP);
		m_ComXm.SetFocus();
		return;
	}
	sBMBH=ado.FieldToOtherField("部门信息表","名称",sBM,"编号",1);
	if(sBMBH.IsEmpty())
	{
		MessageBox("您输入的部门名称不存在！请确定此部门在 [基础信息]/[部门信息] 中已经添加!","系统提示",MB_OK|MB_ICONSTOP);
		m_ComBm.SetFocus();
		return;
	}
	sSQL.Format("Insert Into 合同签订记录 Values('%s',%s,'%s',%s,'%s','%s','%s','%s','%s','%s',%s,'%s','%s','%s','%s','%s','%s','%s','%s','%s')",sBH,sBMBH,sXMBH,sHTBH,sJFMC,sJFDH,sJFCZ,sKHYH,sXXDZ,sYB,sHJJE,sQDRQ,sYSFS,sBZBF,sJSFS,sJFDB,sYFDB,sJHDD,sXXXX,sBZ);
	RxRecordset arst;
	arst.Open(sSQL,adCmdText);
	this->Enabled(false);
}

void CDhtqd::OnButprint() 
{
	m_EdtBh.GetWindowText(PrintID);
	theApp.m_pDocManager=NULL;
	theApp.m_pMainWnd=NULL;
	CSingleDocTemplate* pDocTemplate;
	pDocTemplate = new CSingleDocTemplate(
		IDR_MAINFRAME,
		RUNTIME_CLASS(CMyDoc),
		RUNTIME_CLASS(CMainFrame),       // main SDI frame window
		RUNTIME_CLASS(CHtqdView));
	theApp.AddDocTemplate(pDocTemplate);
	CCommandLineInfo cmdInfo;
	theApp.ParseCommandLine(cmdInfo);
	if (!theApp.ProcessShellCommand(cmdInfo))
		return ;
	theApp.m_pMainWnd->ShowWindow(SW_SHOWMAXIMIZED);
	theApp.m_pMainWnd->UpdateWindow();
	
}

void CDhtqd::OnKillfocusComjfmc() 
{
	CString sSQL,sJfmc;
	m_ComJfmc.GetWindowText(sJfmc);
	if(sJfmc.IsEmpty())
		return;
	sSQL.Format("SELECT * FROM 往来单位信息表 WHERE 名称='%s'",sJfmc);
	RxRecordset rst;
	rst.Open(sSQL,adCmdText);

	if(rst.GetRecordCount()<1)
	{
		MessageBox("您输入的往来单位名称不正确，请确定在[基础信息]\[往来单位管理]中已添加!","系统提示",MB_OK|MB_ICONSTOP);
		m_ComJfmc.SetWindowText("");
		m_ComJfmc.SetFocus();
	}
}

⌨️ 快捷键说明

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