www.pudn.com > MyRecord.rar > RecordQuery.cpp
// RecordQuery.cpp : implementation file
//
#include "stdafx.h"
#include "MyRecord.h"
#include "RecordQuery.h"
#include "RecordFile.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
extern CMyRecordApp theApp; // 在此引用应用类中的theApp来获取库连接指针
/////////////////////////////////////////////////////////////////////////////
// CRecordQuery dialog
CRecordQuery::CRecordQuery(CWnd* pParent /*=NULL*/)
: CDialog(CRecordQuery::IDD, pParent)
{
//{{AFX_DATA_INIT(CRecordQuery)
m_name = _T("");
m_time = _T("");
//}}AFX_DATA_INIT
Num=0;
}
void CRecordQuery::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CRecordQuery)
DDX_Control(pDX, IDC_LIST1, m_list1);
DDX_Text(pDX, IDC_NAME, m_name);
DDX_Text(pDX, IDC_TIME, m_time);
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CRecordQuery, CDialog)
//{{AFX_MSG_MAP(CRecordQuery)
ON_BN_CLICKED(IDC_QUERY, OnQuery)
ON_BN_CLICKED(IDC_OPEN, OnOpen)
ON_BN_CLICKED(IDC_DELETE, OnDelete)
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CRecordQuery message handlers
BOOL CRecordQuery::OnInitDialog()
{
CDialog::OnInitDialog();
// TODO: Add extra initialization here
//------------------------初始化ListCtrl控件----------------------------------//
//----------------------------------------------------------------------------//
DWORD dwStyle = m_list1.GetExtendedStyle();
dwStyle |= LVS_EX_GRIDLINES; //网格线（只适用与report风格的listctrl）
m_list1.SetExtendedStyle(dwStyle); //设置扩展风格
CString Field[4]={"姓名","手术时间","手术项目","备注"};
for(int j=0;j<4;j++)
{
m_list1.InsertColumn(j,Field[j],LVCFMT_LEFT,100);
}
return TRUE; // return TRUE unless you set the focus to a control
// EXCEPTION: OCX Property Pages should return FALSE
}
void CRecordQuery::OnQuery()
{
// TODO: Add your control notification handler code here
m_list1.DeleteAllItems();
LV_ITEM lvitem;
_variant_t var;
lvitem.pszText="";
lvitem.mask=LVIF_TEXT;
lvitem.iSubItem=0;
CString strname,strtime,stritem,strnote;
GetDlgItem(IDC_NAME)->GetWindowText(strname);
GetDlgItem(IDC_TIME)->GetWindowText(strtime);
//检测用户
CString strSQL;
//取得数据
strSQL.Format("Select * from info where patientname like '%%%s%%' and operationtime like '%%%s%%' ",strname,strtime);
try
{
m_pRecordset.CreateInstance("ADODB.Recordset"); //连接Access数据库
m_pRecordset->Open((_variant_t)strSQL,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText); //执行SQL语句
if(m_pRecordset->adoEOF) //查询数据时，数据的存在的条件
{
CString temp="此数据不存在！";
AfxMessageBox(temp);
}
while(!m_pRecordset->adoEOF)
{
var=m_pRecordset->GetCollect("patientname");
if(var.vt!=VT_NULL)
strname=(LPCSTR)_bstr_t(var);
var=m_pRecordset->GetCollect("operationtime");
if(var.vt!=VT_NULL)
strtime=(LPCSTR)_bstr_t(var);
var=m_pRecordset->GetCollect("operationitem");
if(var.vt!=VT_NULL)
stritem=(LPCSTR)_bstr_t(var);
var=m_pRecordset->GetCollect("note");
if(var.vt!=VT_NULL)
strnote=(LPCSTR)_bstr_t(var);
//将各个控件的值传递给记录数组
Num+=1;
GName1[Num-1]=strname;
GTime1[Num-1]=strtime;
GItem1[Num-1]=stritem;
GNote1[Num-1]=strnote;
m_list1.DeleteAllItems();
//重新在列表框中列出所有记录
for(int i=0;iMoveNext();
}
m_pRecordset->Close();
}
catch(_com_error e)
{
CString temp;
temp.Format("查询数据出错:%s",e.ErrorMessage());
AfxMessageBox(temp);
return;
}
m_name = _T("");
m_time = _T("");
UpdateData(FALSE);
}
void CRecordQuery::OnOpen()
{
// TODO: Add your control notification handler code here
POSITION pos = m_list1.GetFirstSelectedItemPosition(); //得到选定的位置
int m_nIndex = m_list1.GetNextSelectedItem(pos); // 得到项目索引
CRecordFile filedlg;
filedlg.namestr =m_list1.GetItemText(m_nIndex,0); //得到第一列所对应的姓名
filedlg.DoModal();
}
void CRecordQuery::OnDelete()
{
// TODO: Add your control notification handler code here
int m_nIndex;
POSITION pos = m_list1.GetFirstSelectedItemPosition(); //得到选定的位置
m_nIndex = m_list1.GetNextSelectedItem(pos); // 得到项目索引
CString strName =m_list1.GetItemText(m_nIndex,0);
if(m_nIndex==-1)
{
MessageBox("请选择一项再删除!","提示",MB_ICONINFORMATION);
return;
}
CString sql;
sql="select * from info where patientname='"+strName+"'";
try
{
m_pRecordset.CreateInstance("ADODB.Recordset");
m_pRecordset->Open((_variant_t)sql,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);
if(AfxMessageBox("确定删除此联系人信息吗？",MB_YESNO)==IDYES)
{
m_pRecordset->Delete(adAffectCurrent);///删除当前记录
}
else
return;
m_pRecordset->Update();
}
catch(_com_error e)///捕捉异常
{
CString temp;
temp.Format("删除联系人信息出错:%s",e.ErrorMessage());
AfxMessageBox(temp);
return;
}
InitListData();
}
void CRecordQuery::InitListData()
{
/* m_list1.DeleteAllItems();
int Num=0;
_variant_t var;
CString strname,strtime,stritem,strnote;
//检测用户
CString strSQL;
//取得数据
strSQL.Format("Select * from info where patientname like '%%%s%%' and operationtime like '%%%s%%' ",strname,strtime);
try
{
m_pRecordset.CreateInstance("ADODB.Recordset"); //连接Access数据库
m_pRecordset->Open((_variant_t)strSQL,_variant_t((IDispatch*)theApp.m_pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText); //执行SQL语句
if(m_pRecordset->adoEOF) //查询数据时，数据的存在的条件
{
CString temp="此数据不存在！";
AfxMessageBox(temp);
}
while(!m_pRecordset->adoEOF)
{
var=m_pRecordset->GetCollect("patientname");
if(var.vt!=VT_NULL)
strname=(LPCSTR)_bstr_t(var);
var=m_pRecordset->GetCollect("operationtime");
if(var.vt!=VT_NULL)
strtime=(LPCSTR)_bstr_t(var);
var=m_pRecordset->GetCollect("operationitem");
if(var.vt!=VT_NULL)
stritem=(LPCSTR)_bstr_t(var);
var=m_pRecordset->GetCollect("note");
if(var.vt!=VT_NULL)
strnote=(LPCSTR)_bstr_t(var);
//将各个控件的值传递给记录数组
Num+=1;
GName1[Num-1]=strname;
GTime1[Num-1]=strtime;
GItem1[Num-1]=stritem;
GNote1[Num-1]=strnote;
m_list1.DeleteAllItems();
//重新在列表框中列出所有记录
for(int i=0;iMoveNext();
}
m_pRecordset->Close();
}
catch(_com_error e)
{
CString temp;
temp.Format("查询数据出错:%s",e.ErrorMessage());
AfxMessageBox(temp);
return;
}*/
//删除所有list中的数据。
m_list1.DeleteAllItems();
}