16,472
社区成员
发帖
与我相关
我的任务
分享
//
CExecl2Dlg::CExecl2Dlg(CWnd* pParent /*=NULL*/)
: CDialog(CExecl2Dlg::IDD, pParent)
{
//{{AFX_DATA_INIT(CExecl2Dlg)
m_BookAuthor = _T("");
m_BookID = _T("");
m_BookISBN = _T("");
m_BookName = _T("");
//}}AFX_DATA_INIT
// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
//ListData();
}
void CExecl2Dlg::DoDataExchange(CDataExchange* pDX)
{
CDialog::DoDataExchange(pDX);
//{{AFX_DATA_MAP(CExecl2Dlg)
DDX_Control(pDX, IDC_LIST1, m_list);
DDX_Text(pDX, IDC_BookAuthor, m_BookAuthor);
DDX_Text(pDX, IDC_BookID, m_BookID);
DDX_Text(pDX, IDC_BookISBN, m_BookISBN);
DDX_Text(pDX, IDC_BookName, m_BookName);
//}}AFX_DATA_MAP
}
BEGIN_MESSAGE_MAP(CExecl2Dlg, CDialog)
//{{AFX_MSG_MAP(CExecl2Dlg)
ON_WM_SYSCOMMAND()
ON_WM_PAINT()
ON_WM_QUERYDRAGICON()
ON_BN_CLICKED(IDC_BUTTON4, OnDelete)
ON_BN_CLICKED(IDC_BUTTON1, OnWritedata)
ON_LBN_SELCHANGE(IDC_LIST1, OnSelchangeList)
ON_BN_CLICKED(IDC_BUTTON2, OnModify)
ON_BN_CLICKED(IDC_BUTTON3, OnQuery)
ON_BN_CLICKED(IDC_BUTTON5, Onfresh)
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CExecl2Dlg message handlers
BOOL CExecl2Dlg::OnInitDialog()
{
CDialog::OnInitDialog();
// TODO: Add extra initialization here
//使用ADO创建数据库记录集
m_pRecordset.CreateInstance(__uuidof(Recordset));
// 在ADO操作中建议语句中要常用try...catch()来捕获错误信息,
// 因为它有时会经常出现一些想不到的错误
try
{
m_pRecordset->Open("SELECT * FROM Book", // 查询s表中所有字段
theApp.m_pConnection.GetInterfacePtr(), // 获取库接库的IDispatch指针
adOpenDynamic,
adLockOptimistic,
adCmdText);
ListData();
}
catch(_com_error *e)
{
AfxMessageBox(e->ErrorMessage());
}
// Add "About..." menu item to system menu.
// IDM_ABOUTBOX must be in the system command range.
ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
ASSERT(IDM_ABOUTBOX < 0xF000);
CMenu* pSysMenu = GetSystemMenu(FALSE);
if (pSysMenu != NULL)
{
CString strAboutMenu;
strAboutMenu.LoadString(IDS_ABOUTBOX);
if (!strAboutMenu.IsEmpty())
{
pSysMenu->AppendMenu(MF_SEPARATOR);
pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
}
}
// Set the icon for this dialog. The framework does this automatically
// when the application's main window is not a dialog
SetIcon(m_hIcon, TRUE); // Set big icon
SetIcon(m_hIcon, FALSE); // Set small icon
// TODO: Add extra initialization here
return TRUE; // return TRUE unless you set the focus to a control
// TODO: Add extra initialization here
//使用ADO创建数据库记录集
}
void CExecl2Dlg::OnSysCommand(UINT nID, LPARAM lParam)
{
if ((nID & 0xFFF0) == IDM_ABOUTBOX)
{
CAboutDlg dlgAbout;
dlgAbout.DoModal();
}
else
{
CDialog::OnSysCommand(nID, lParam);
}
}
// If you add a minimize button to your dialog, you will need the code below
// to draw the icon. For MFC applications using the document/view model,
// this is automatically done for you by the framework.
void CExecl2Dlg::OnPaint()
{
if (IsIconic())
{
CPaintDC dc(this); // device context for painting
SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);
// Center icon in client rectangle
int cxIcon = GetSystemMetrics(SM_CXICON);
int cyIcon = GetSystemMetrics(SM_CYICON);
CRect rect;
GetClientRect(&rect);
int x = (rect.Width() - cxIcon + 1) / 2;
int y = (rect.Height() - cyIcon + 1) / 2;
// Draw the icon
dc.DrawIcon(x, y, m_hIcon);
}
else
{
CDialog::OnPaint();
}
}
// The system calls this to obtain the cursor to display while the user drags
// the minimized window.
HCURSOR CExecl2Dlg::OnQueryDragIcon()
{
return (HCURSOR) m_hIcon;
}
void CExecl2Dlg::OnDelete()
{
// TODO: Add your control notification handler code here
//名称:OnDelete
//功能:删除选中的学生信息
if(m_list.GetCount() == 0)
return;
else if(m_list.GetCurSel() < 0 || m_list.GetCurSel() > m_list.GetCount())
m_list.SetCurSel(0);
try
{
// 删除当前行记录
m_pRecordset->Delete(adAffectCurrent);
m_pRecordset->Update();
// 删除列表中当前值
int nCurSel = m_list.GetCurSel();
m_list.DeleteString(nCurSel);
if(nCurSel == 0 && (m_list.GetCount() != 0))
m_list.SetCurSel(nCurSel);
else if(m_list.GetCount() != 0)
m_list.SetCurSel(nCurSel-1);
// 移动记录指针到新的位置
OnSelchangeList();
}
catch(_com_error *e)
{
AfxMessageBox(e->ErrorMessage());
}
}
void CExecl2Dlg::OnSelchangeList()
{
// TODO: Add your control notification handler code here
//名称:OnSelchangeList
//功能:当每次选择新的记录时,都会移动指针到新的记录位置并将值显示出来
int curSel = m_list.GetCurSel();
_variant_t var,varIndex;
if(curSel < 0)
return;
try
{
// 先将指针移向第一条记录,然后就可以相对第一条记录来随意移动记录指针
m_pRecordset->MoveFirst();
m_pRecordset->Move(long(curSel));
var = m_pRecordset->GetCollect("BookName");
if(var.vt != VT_NULL)
m_BookName = (LPCSTR)_bstr_t(var);
var = m_pRecordset->GetCollect("BookAuthor");
if(var.vt != VT_NULL)
m_BookAuthor = (LPCSTR)_bstr_t(var);
var = m_pRecordset->GetCollect("BookID");
if(var.vt != VT_NULL)
m_BookID = (LPCSTR)_bstr_t(var);
var = m_pRecordset->GetCollect("BookISBN");
if(var.vt != VT_NULL)
m_BookISBN = (LPCSTR)_bstr_t(var);
UpdateData(false);
}
catch(_com_error *e)
{
AfxMessageBox(e->ErrorMessage());
}
}
void CExecl2Dlg::ListData()
{
//名称:ListData
//功能:将数据库中的数据显示在列表框中
_variant_t var;
CString strBookName,strBookAuthor,strBookID,strBookISBN;
//清空列表框
m_list.ResetContent();
strBookName=strBookAuthor=strBookID=strBookISBN="";
//在ADO操作中建议语句中要常用try...catch()来捕获错误信息,
//因为它有时会经常出现一些想不到的错误。
try
{
if(!m_pRecordset->BOF)
m_pRecordset->MoveFirst();
else
{
AfxMessageBox("表内数据为空");
return;
}
// 读入库中各字段并加入列表框中
while(!m_pRecordset->adoEOF)
{
var = m_pRecordset->GetCollect("BookID");
if(var.vt != VT_NULL)
strBookID = (LPCSTR)_bstr_t(var);
var = m_pRecordset->GetCollect("BookAuthor");
if(var.vt != VT_NULL)
strBookAuthor = (LPCSTR)_bstr_t(var);
var = m_pRecordset->GetCollect("BookName");
if(var.vt != VT_NULL)
strBookName= (LPCSTR)_bstr_t(var);
var = m_pRecordset->GetCollect("BookISBN");
if(var.vt != VT_NULL)
strBookISBN = (LPCSTR)_bstr_t(var);
m_list.AddString( strBookID + " --> " +strBookAuthor + " --> "+strBookName+ " --> "+ strBookISBN);
m_pRecordset->MoveNext();
}
// 默认列表指向第一项,同时移动记录指针并显示
m_list.SetCurSel(0);
OnSelchangeList();
}
catch(_com_error *e)
{
AfxMessageBox(e->ErrorMessage());
}
}
void CExecl2Dlg::OnWritedata()
{
// TODO: Add your control notification handler code here
//名称:OnWritedata
//功能:将编辑框中输入的学生信息插入到s表中
UpdateData();
if(m_BookName == "" || m_BookAuthor == "")
{
AfxMessageBox("学号和姓名信息不能为空!");
return;
}
//在ADO操作中建议语句中要常用try...catch()来捕获错误信息,
//因为它有时会经常出现一些想不到的错误。
try
{
// 写入各字段值
m_pRecordset->AddNew();
m_pRecordset->PutCollect("BookName", _variant_t(m_BookName));
m_pRecordset->PutCollect("BookAuthor", _variant_t(m_BookAuthor));
m_pRecordset->PutCollect("BookID", atol(m_BookID));
m_pRecordset->PutCollect("BookISBN", _variant_t(m_BookISBN));
m_pRecordset->Update();
AfxMessageBox("插入成功!");
// 更新显示其库内容
int nCurSel = m_list.GetCurSel();
ListData();
m_list.SetCurSel(nCurSel);
// 移动记录指针到新的位置
OnSelchangeList();
}
catch(_com_error *e)
{
AfxMessageBox(e->ErrorMessage());
}
}
void CExecl2Dlg::OnModify()
{
// TODO: Add your control notification handler code here
//名称:OnModify
//功能:修改学生信息
UpdateData(); // 更新对话框数据
if(m_list.GetCount() == 0)
{
AfxMessageBox("表中记录数为空!");
return;
}
else if(m_list.GetCurSel() < 0 || m_list.GetCurSel() > m_list.GetCount())
m_list.SetCurSel(0);
// 修改当前记录的字段值
try
{
m_pRecordset->PutCollect("BookID", _variant_t(m_BookID));
m_pRecordset->PutCollect("BookAuthor", _variant_t(m_BookAuthor));
m_pRecordset->PutCollect("BookName", atol(m_BookName));
m_pRecordset->PutCollect("BookISBN", _variant_t(m_BookISBN));
m_pRecordset->Update();
// 重新读入库记录更新显示
int nCurSel = m_list.GetCurSel();
ListData();
m_list.SetCurSel(nCurSel);
// 移动记录指针到新的位置
OnSelchangeList();
}
catch(_com_error *e)
{
AfxMessageBox(e->ErrorMessage());
}
}
void CExecl2Dlg::OnQuery()
{
//名称:OnQuery()
//功能:按照学号和姓名查询学生信息,如果只输入学号则只按照学号查询
//只输入姓名则只按照姓名查询,两者都没有输入则查询所有学生信息
UpdateData(TRUE);
//构造Sql语句
//为简单考虑,这里只把学号和姓名作为查询条件
CString strSql;
if(m_BookName != "" && m_BookAuthor != "")
strSql.Format("SELECT * FROM Book WHERE BookName = '%s' AND BookAuthor = '%s'",
m_BookName,m_BookAuthor);
else if(m_BookName != "" && m_BookAuthor== "")
strSql.Format("SELECT * FROM Book WHERE BookName = '%s'",m_BookName);
else if(m_BookName == "" && m_BookAuthor != "")
strSql.Format("SELECT * FROM Book WHERE BookName = '%s'",m_BookName);
else
strSql = "SELECT * FROM Book";
try
{
//先关闭已经打开的记录集对象
m_pRecordset->Close();
//根据新的Sql查询语句,重新打开记录集对象
m_pRecordset->Open(strSql.AllocSysString(),
theApp.m_pConnection.GetInterfacePtr(),
adOpenDynamic,
adLockOptimistic,
adCmdText);
}
catch(_com_error *e)
{
AfxMessageBox(e->ErrorMessage());
}
//将查询后得到的新记录集显示出来
ListData();
}
void CExecl2Dlg::Onfresh()
{
// TODO: Add your control notification handler code here
//名称:OnRefresh
//功能:刷新编辑框和列表框
m_BookName="";
m_BookAuthor="";
m_BookID="";
m_BookISBN="";
m_list.ResetContent();
UpdateData(false);
//ListData();
}