成语词典设计

综合设计实验成语词典查询系统设计一、实验目的1．了解SQL语言各语句的语法与使用方法；2．掌握Command 和DataSet两个核心组件的常用属性、方法的含义及使用方法；3．掌握利用Command 和DataSet两个核心组件实现数据库记录的插入、修改、删除的方法；4．使学生能够通过老师讲过的内容灵活运用多种控件，实现对简单数据库的维护，能够自行调试，显示或保存实验结果。

并使学生更深入的掌握面向对象程序设计这门课程。

二、实验要求（1）创建成语词典查询系统所需的表（成语词典表），并能连接上数据库；（2）完成对所建成语词典表的插入、修改、删除功能；（3）完成对成语的精确和模糊查询；（4）完成对成语词典查询结果保存为Word文档；（5）为完成上述功能，还需运用菜单、工具条等多种控件。

三、数据库设计1.SQL Server的设计数据库是按照一定组织方式存储的相关数据的集合，可以分为关系、层次、和网状三种模型，其中数据库模型较为流行。

连接数据库对象的方式如下Form1(void){InitializeComponent();//在此处添加构造函数代码con=gcnew SqlConnection();//在窗体的构造函数中对con进行初始化con->ConnectionString = L"Data Source= ** 的电脑;Initial Catalog=成语词典库;Integrated Security=True";}本次实验SQL Server数据库名:成语词典库，电脑的全名: ** 的电脑。

常用的对象如下（1）：DataSet对象（2）：DataAdapter对象（3）：DataGridView对象（4）：Command对象（5）：DataReader对象（6）：Connection对象2.表的设计该数据库只含有一张表，即“成语词典表”，表含有ID、汉字检索、拼音检索和备注四个字段，只有ID为数字类型，其余的都为文本类型，并设ID为主键。

本实验数据库的设计表如下图3-1 成语词典表四、软件界面1.界面设计图4-1 主窗体效果图图4-2 浏览和查询菜单的设计图2.控件属性及控件值控件名称属性属性值MenuStrip Items浏览（查看所有、保存结果、退出）、查询（精确查询、模糊查询）、添加、删除、修改、退出Label1 Text 选择查询方式：GroupBox1 Text 操作界面Label2 Text 设置查询值：Label3 Text 拼音：Label4 Text 成语：Label5 Text 备注：Label6 Text 显示界面：button1 Text 精确查询button2 Text 模糊查询button3 Text 添加button4 Text 导出Word文件》button5 Text 修改button6 Text 删除comboBox1 Items 拼音检索、汉字检索 Label7 Text ID表4-1控件属性及控件值五：主要功能代码一、查看所有-功能代码private: System::Void 查看所有MToolStripMenuItem_Click(System::Object^sender, System::EventArgs^ e){String^ sql= " select * from 成语词典表;DataSet^ ds=gcnew DataSet();SqlDataAdapter^ ourda = gcnew SqlDataAdapter( sql,con); try{ourda->Fill(ds,"ID");//把数据适配器的内容添加到数据集内this->dataGridView1->DataSource=ds->Tables["ID"];}catch(System::Data::SqlClient::SqlException^ ex){MessageBox::Show("数据的异常信息是："+ex->Errors,"提示信息");}}图5-1 查询全部结果成功二、精确查询-功能代码private: System::Void 精确查询AToolStripMenuItem_Click(System::Object^sender, System::EventArgs^ e){String^ sql= " select * from 成语词典表where "+comboBox1- >Text+"='"+textBox1->Text+"'";DataTable^ ourtable=gcnew DataTable();SqlDataAdapter^ ourda = gcnew SqlDataAdapter( sql,con);try{ourda->Fill(ourtable);this->dataGridView1->DataSource=ourtable;}catch(System::Data::SqlClient::SqlException^ ex){MessageBox::Show("数据异常信息是："+ex->Errors,"提示信息");}}图5-2 精确查询结果成功三、模糊查询-功能代码private: System::Void 模糊查询BToolStripMenuItem_Click(System::Object^sender, System::EventArgs^ e){String^ sql= " select * from 成语词典表where "+comboBox1- >Text+"like'%"+textBox1->Text+"%'";DataTable^ ourtable=gcnew DataTable();SqlDataAdapter^ ourda = gcnew SqlDataAdapter( sql,con);try{ourda->Fill(ourtable);this->dataGridView1->DataSource=ourtable;}catch(System::Data::SqlClient::SqlException^ ex){MessageBox::Show("数据异常信息是："+ex->Errors,"提示信息");}}图5-3 模糊查询结果成功四、添加记录-功能代码private: System::Void 添加记录HToolStripMenuItem_Click(System::Object^ sender, System::EventArgs^ e){String^ sql= " insert into （成语词典表ID,汉字检索,拼音检索,备注）values('"+textBox5->Text+"','"+textBox2- >Text+"','"+textBox3->Text+"','"+textBox4->Text+"')";DataTable^ ourtable=gcnew DataTable();SqlDataAdapter^ ourda = gcnew SqlDataAdapter( sql,con);try{ourda->Fill(ourtable);}catch(System::Data::SqlClient::SqlException^ ex){MessageBox::Show("数据的异常信息是："+ex->Message,"提示信息");}}图5-4 添加记录结果成功五、修改记录-功能代码private: System::Void 修改记录KToolStripMenuItem_Click(System::Object^sender, System::EventArgs^ e){String^ sql= " update 成语词典表set 汉字检索='"+textBox2- >Text+"',拼音检索='"+textBox3->Text+"',备注='"+textBox4- >Text+"'whereID='"+textBox5->Text+"'" ;;DataTable^ ourtable=gcnew DataTable();SqlDataAdapter^ ourda = gcnew SqlDataAdapter( sql,con);try{ourda->Fill(ourtable);}catch(System::Data::SqlClient::SqlException^ ex){MessageBox::Show("数据的异常信息是："+ex->Message,"提示信息");}}图5-5 修改记录结果成功六、删除记录-功能代码private: System::Void 删除记录JToolStripMenuItem_Click(System::Object^sender, System::EventArgs^ e){String^ sql= "delete 成语词典表where " +comboBox1->Text+"='"+textBox1->Text+"'";;DataTable^ ourtable=gcnew DataTable();SqlDataAdapter^ ourda = gcnew SqlDataAdapter( sql,con);try{ourda->Fill(ourtable);}catch(System::Data::SqlClient::SqlException^ ex){MessageBox::Show("数据的异常信息是："+ex->Message,"提示信息");}}图5-6 删除记录结果成功七、保存结果-功能代码private: System::Void 保存结果NToolStripMenuItem_Click(System::Object^ sender, System::EventArgs^ e){if(saveFileDialog1>ShowDialog()==Windows::Forms::DialogResult::OK){StreamWriter^str=File::CreateText(saveFileDialog1->FileName);str->Write(DataGridView->Text);str->Close();}}八、导出word文档-功能代码private: System::Void button4_Click(System::Object^ sender,System::EventArgs^ e){OpenFileDialog->InitialDirectory=”d:\\我的文档\\”;OpenFileDialog->Filter=”word文件t(*.doc|*>doc”;if( OpenFileDialog->ShowDialog()==Windows::Forms:: DialogResult::OK){StreamReader^str=File::OpenFileDialog1->FileName);dataGridView1->DataSource=str->ReadToEnd();Str->Close();}}九、退出-功能代码private: System::Void 退出PToolStripMenuItem_Click(System::Object^ sender, System::EventArgs^ e){this->Close();}十、刷新-功能代码private: System::Void 刷新ToolStripMenuItem_Click(System::Object^ sender, System::EventArgs^ e){String^ sql= " select * from 成语词典表;DataSet^ ds=gcnew DataSet();SqlDataAdapter^ ourda = gcnew SqlDataAdapter( sql,con);try{ourda->Fill(ds,"ID");//把数据适配器的内容添加到数据集内this->dataGridView1->DataSource=ds->Tables["ID"];}catch(System::Data::SqlClient::SqlException^ ex){MessageBox::Show("数据的异常信息是："+ex->Errors,"提示信息"); }}图5-7 刷新结果成功六、头文件代码及实验步骤1.头文件代码在窗体头文件中添加包含文件，代码如下using namespace System::Data::SqlClient;using namespace System::IO;2.实验步骤如下（一）、创建数据库：打开SQL Server2008，创建数据库——通讯录库单击“视图|对象资源管理器”菜单项，单击“新建数据库”菜单项，弹出“新建数据库”页面，在数据库名称文本框中输入将要建立的数据库的名称“成语词典库”。