管理信息系统实验教程

管理信息系统设计与实践实验教程陈继红编著计算机科学与技术学院第1章实验的目的与基本要求一、实验目的学习设计与开发管理信息系统的基本方法和技能，进一步加深管理信息系统的设计原理及方法的理解，熟练掌握用C++ Builder开发管理信息系统方法。

为毕业设计打下坚实的基础。

二、实验要求1. 上机前要做好充分的准备，包括设计方案、程序框图、源程序清单、调试步骤、测试方法、对运行结果的分析等。

2. 上机时要遵守实验室的规章制度，爱护实验设备。

要熟悉与实验有关的系统软件、开发环境的使用方法。

在程序的调试过程中，有意识地学习及掌握集成环境调试程序的方法及技巧。

为了更好地进行上机管理，要求用硬盘储存程序，并建立和使用子目录，以避免文件被别人删除。

3．程序调试完后，须由实验指导教师在机器上检查运行结果。

每个实验完成后，应写出实验报告。

实验报告的要求如下：①设计说明：用来说明设计的内容。

它包括：程序名、功能、原理及算法说明、程序及数据结构、主要符号名的说明等。

②调试说明：便于学生总结经验提高编程及调试能力。

它包括：调试情况，如上机时遇到的问题及解决办法，观察到的现象及其分析，对程序设计技巧的总结及分析等；程序的输出结果及对结果的分析；实验的心得体会等。

③程序框图。

④程序清单。

第2章主窗体的设计与实现一、实验目的与要求1．熟悉C++ Builder开发环境。

2．掌握主窗体的设计方法。

二、实验内容新建一个工程，完成主窗体的设计。

主窗体包括菜单栏、工具栏及状态栏。

运行界面如图所示：三、设计步骤1．新建一个工程，方法为：File → New → Application。

23．在窗体中加入MainMenu、ImageList、ToolBar、StatusBar控件各一个，分别设置各控件属性：(1) 双击MainMent1控件，添加“系统管理”、“员工管理”2个一级菜单；在“系统管理”中添加“口令维护”、“操作员管理”、“退出”3个二级菜单；在“员工管理”中添加“员工信息维护”、“员工信息管理” 2个二级菜单。

方法是：设置相应菜单栏的Caption属性。

(2) 双击ImageList1控件，点击“Add”按钮，选择C++ Builder安装所在盘的Program Files\Borland\Borland Shared\Images\Buttons文件夹下的bmp图片，由于所选图片大小大于ImageList组件规定的图片大小，系统提示是否分为2个图片，点击“Yes”按钮，然后删除灰色图片。

采用此法，添加所需的图片。

(3) 双击StatusBar1控件，点击“Add New(Ins)”按钮，添加3个TStatusPanel，设置第一个TStatusPanel属性：(4) 选择ToolBar1控件，点击鼠标右键，新建3个Button和1个Separator，并设置分隔条的Style属性为“tbsDivider”；设置ToolBar1组件的Images属性为“ImageList1”。

可设置ToolButton的ImageIndex 属性选择不同的图标。

若要实现当鼠标移至快捷工具时，显示提示信息，可设置ToolButton的Hint属性，并将ShowHint属性设为true。

(5) 保存工程，方法为：File → Save All。

首先保存的是窗体的代码文件（文件名为main），然后保存的是工程文件（文件名为Employee）。

(6) 运行程序，方法为点击绿色三角快捷按钮。

中止程序运行可点击菜单Run → Program Reset。

(7) 编写代码退出程序，方法是：双击系统管理下的退出菜单，系统自动进入代码窗口，输入代码以下代码：void __fastcall TMainForm::N8Click(TObject *Sender){Close(); //此语句由键盘输入}第3章登录窗体的设计与实现一、实验目的与要求1．掌握Access数据库的建立方法。

2．掌握登录窗体的设计方法。

3．掌握C++ Builder连接数据库的方法。

二、实验内容打开实验一设计的工程文件，新建一个登录窗体。

运行界面如图所示：三、设计步骤1．在SQL Server中新建一个数据库employee，在employee库中新建一张表operator，表结构如下，其中：gongh字段为主键。

2．在实验一设计的主窗体中，加入ADOConnection控件，并设置属性：3．新建登录窗体，方法为：File → New → Form。

设置窗体属性，并以login.cpp文件名保存。

4．在窗体中加入7个Label控件、2个Edit控件、2个BitBtn控件、1个Bevel控件、1个ADOQuery控件，分别设置各控件属性：注：要完成ADOQuery1控件的Connection属性设置，主窗体中必须包含登录窗体的“头文件（login.h）”,同时登录窗体中也必须包含主窗体的“头文件（main.h）”。

包含“头文件”的方法是：File → Include Unit Hdr...，然后双击相应窗体。

5．编写代码：(1)在主窗体的头文件（main.h）中，定义两个公有变量：bool loginok;AnsiString username;(2)在主窗体的OnShow事件中编写如下代码：void __fastcall TMainForm::FormShow(TObject *Sender){loginok=false;Fm_login->ShowModal(); //调用登录窗体if(!loginok)Close();}(3)在登录窗体的bt_login按钮的OnClick事件中编写如下代码：void __fastcall TFm_login::bt_loginClick(TObject *Sender){static int count;AnsiString S;S="select * from operator where gongh='"+Edit1->Text+"' and koul='"+Edit2->Text+"'";pwdQuery->Close();pwdQuery->SQL->Clear();pwdQuery->SQL->Add(S);pwdQuery->Open();if(pwdQuery->Eof){count++;if(count>=3){pwdQuery->Close();Fm_login->Close();MainForm->Close();}Application->MessageBox("用户名或密码错误，请重新输入！", "错误", MB_ICONERROR+MB_OK);Edit2->Text="";Edit2->SetFocus();}else{MainForm->loginok=true;MainForm->StatusBar1->Panels->Items[1]->Text="操作员："+pwdQuery->FieldByName("xingm")->AsString;Edit1->Text="";Edit2->Text="";pwdQuery->Close();Fm_login->Close();}}(4)在登录窗体的bt_exit按钮的OnClick事件中编写如下代码：void __fastcall TFm_login::bt_exitClick(TObject *Sender){Close();MainForm->Close();}(5) 在登录窗体的Edit1的OnKeyPress事件中编写如下代码：void __fastcall TFm_login::Edit1KeyPress(TObject *Sender,char &Key) {if(Key==char(13))SelectNext((TWinControl*)(Sender),true,true);//回车后自动进入下一控件}(6) 设置Edit2的OnKeyPress事件指向Edit1的OnKeyPress事件(7) 设置窗体中各控件顺序的方法是：点击窗体空白处，再点击鼠标右键，选择Tab Order菜单后调整控件顺序。

第4章通用录入窗体的设计与实现一、实验目的与要求1．掌握通用录入窗体的设计方法。

2．掌握C++ Builder访问数据库的方法。

二、实验内容打开实验一设计的工程文件，新建一个录入窗体。

运行界面如图所示：三、设计步骤1．在employee数据库中新建表stuff，表结构如下，其中：bh字段为主键，不是必填的文本型字段，允许空字符串设为“是”。

2．在employee数据库中新建表basic，表结构如下，其中：xm、sjnr为主键，不是必填的文本型字段，允许空字符串设为“是”。

建完后输入各种学历、隶属部门、职务等信息。

3．新建登录窗体，方法为：File → New → Form。

设置窗体属性，并以employee.cpp文件名保存。

4．在窗体中加入11个Label控件并分别设置它们的Caption属性、7个DBEdit及4个DBComboBox控件、9个BitBtn控件并设置它们的Caption和Glyph 属性（其中检索、退出按钮后面还有查询（b_Search）、取消（b_Cancel）按钮）、2个ADOQuery控件、1个DataSource控件、1个DBNavigator控件、1个DBGrid 控件和一个Edit控件（在DBEdit2后面），部分控件属性设置如下：将7个DBEdit和4个DBComboBox控件的Name属性依次设为DBEdit1～DBEdit115．编写代码：(1) 在窗体的头文件中，定义3个公有函数和2个变量：void __fastcall DBEditTrue(); //使输入框可用void __fastcall DBEditFalse(); //使输入框不可用void __fastcall autoinc(); //编号自动+1AnsiString Temp,VBh;(2) 在窗体的代码窗口添加两个自定义函数：void __fastcall TFm_employee::DBEditTrue(){DBEdit1->Enabled=true;DBEdit2->Enabled=true;DBEdit3->Enabled=true;DBEdit4->Enabled=true;DBEdit5->Enabled=true;DBEdit6->Enabled=true;DBEdit7->Enabled=true;DBEdit8->Enabled=true;DBEdit9->Enabled=true;DBEdit10->Enabled=true;DBEdit11->Enabled=true;}//------------------------------------------------------------ void __fastcall TFm_employee::DBEditFalse(){DBEdit1->Enabled=false;DBEdit2->Enabled=false;DBEdit3->Enabled=false;DBEdit4->Enabled=false;DBEdit5->Enabled=false;DBEdit6->Enabled=false;DBEdit7->Enabled=false;DBEdit8->Enabled=false;DBEdit9->Enabled=false;DBEdit10->Enabled=false;DBEdit11->Enabled=false;}//------------------------------------------------------------ void __fastcall TFm_employee::autoinc() //编号自动+1{try{employeeQuery->Post();}catch(...){Temp=DBEdit1->Text;Temp=IntToStr(StrToInt(Temp)+10001);VBh=Temp.SubString(2,4);DBEdit1->Field->Text=VBh;autoinc();}}(3) 在窗体的OnShow事件中编写如下代码：void __fastcall TFm_employee::FormShow(TObject *Sender){AnsiString S;ShortDateFormat="yyyy-mm-dd"; //设定日期格式S="select * from stuff";employeeQuery->Close();employeeQuery->SQL->Clear();employeeQuery->SQL->Add(S);employeeQuery->Open();bt_new->Enabled=true;bt_modify->Enabled=true;bt_delete->Enabled=true;bt_search->Enabled=true;bt_save->Enabled=false;bt_cancel->Enabled=false;DBEditFalse();if(employeeQuery->IsEmpty()){bt_modify->Enabled=false;bt_delete->Enabled=false;}//下拉内容S="select * from basic where xm='学历'";Query->Close();Query->SQL->Clear();Query->SQL->Add(S);Query->Open();DBEdit5->Items->Clear();if(!Query->IsEmpty()){while(!Query->Eof){DBEdit5->Items->Add(Query->FieldByName("sjnr")->AsString); Query->Next();}}S="select * from basic where xm='部门名称'";Query->Close();Query->SQL->Clear();Query->SQL->Add(S);Query->Open();DBEdit6->Items->Clear();if(!Query->IsEmpty()){while(!Query->Eof){DBEdit6->Items->Add(Query->FieldByName("sjnr")->AsString); Query->Next();}}S="select * from basic where xm='职务'";Query->Close();Query->SQL->Clear();Query->SQL->Add(S);Query->Open();DBEdit7->Items->Clear();if(!Query->IsEmpty()){while(!Query->Eof){DBEdit7->Items->Add(Query->FieldByName("sjnr")->AsString); Query->Next();}}}(4) 在窗体的bt_new按钮的OnClick事件中编写如下代码：void __fastcall TFm_employee::bt_newClick(TObject *Sender){AnsiString S;DBNavigator1->Enabled=false;bt_search->Enabled=false;bt_new->Enabled=false;bt_save->Enabled=true;bt_modify->Enabled=false;bt_delete->Enabled=false;bt_cancel->Enabled=true;DBEditTrue();S="select Max(bh) as bh from stuff";Query->Close();Query->SQL->Clear();Query->SQL->Add(S);Query->Open();Temp=Query->FieldByName("bh")->AsString;if(Temp!=""){Temp=IntToStr(StrToInt(Temp)+10001);VBh=Temp.SubString(2,4);}elseVBh="0001";employeeQuery->Append();DBEdit1->Field->Text=VBh;DBEdit2->SetFocus();}(5) 在窗体的bt_modify按钮的OnClick事件中编写如下代码：void __fastcall TFm_employee::bt_modifyClick(TObject *Sender) {DBNavigator1->Enabled=false;bt_search->Enabled=false;bt_new->Enabled=false;bt_save->Enabled=true;bt_modify->Enabled=false;bt_delete->Enabled=false;bt_cancel->Enabled=true;DBEditTrue();employeeQuery->Edit();DBEdit2->SetFocus();}(6) 在窗体的bt_delete按钮的OnClick事件中编写如下代码：void __fastcall TFm_employee::bt_deleteClick(TObject *Sender){if (MessageDlg("确认数据删除吗?", mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes){employeeQuery->Delete();if (employeeQuery->IsEmpty()){bt_new->Enabled=true;bt_save->Enabled=false;bt_modify->Enabled=false;bt_delete->Enabled=false;bt_cancel->Enabled=false;bt_search->Enabled=false;}}}(7) 在窗体的bt_save按钮的OnClick事件中编写如下代码：void __fastcall TFm_employee::bt_saveClick(TObject *Sender) {autoinc();DBNavigator1->Enabled=true;bt_search->Enabled=true;bt_new->Enabled=true;bt_save->Enabled=false;bt_modify->Enabled=true;bt_delete->Enabled=true;bt_cancel->Enabled=false;DBEditFalse();bt_new->SetFocus();}(8) 在窗体的bt_cancel按钮的OnClick事件中编写如下代码：void __fastcall TFm_employee::bt_cancelClick(TObject *Sender) {employeeQuery->Cancel();DBNavigator1->Enabled=true;bt_search->Enabled=true;bt_new->Enabled=true;bt_save->Enabled=false;bt_modify->Enabled=true;bt_delete->Enabled=true;bt_cancel->Enabled=false;DBEditFalse();if(employeeQuery->IsEmpty()){bt_search->Enabled=false;bt_modify->Enabled=false;bt_delete->Enabled=false;}}(9) 在窗体的bt_search按钮的OnClick事件中编写如下代码：void __fastcall TFm_employee::bt_searchClick(TObject *Sender) {DBEdit2->Visible=false;Edit100->Visible=true;DBNavigator1->Enabled=false;bt_new->Enabled=false;bt_save->Enabled=false;bt_modify->Enabled=false;bt_delete->Enabled=false;bt_cancel->Enabled=false;bt_search->Visible=false;bt_exit->Visible=false;b_Cancel->Visible=true;b_Search->Visible=true;Edit100->SetFocus();Edit100->Text="";}(10) 在窗体的b_Search按钮的OnClick事件中编写如下代码：void __fastcall TFm_employee::b_SearchClick(TObject *Sender) {AnsiString S;if(Edit100->Text!=""){S="select * from stuff where xm like '%"+Edit100->Text+"%'"; employeeQuery->Close();employeeQuery->SQL->Clear();employeeQuery->SQL->Add(S);employeeQuery->Open();if(employeeQuery->IsEmpty()){S="select * from stuff ";employeeQuery->Close();employeeQuery->SQL->Clear();employeeQuery->SQL->Add(S);employeeQuery->Open();Application->MessageBox("未找到匹配记录！", "信息", MB_ICONINFORMATION);}}DBEdit2->Visible=true;Edit100->Visible=false;bt_search->Visible=true;bt_exit->Visible=true;b_Cancel->Visible=false;b_Search->Visible=false;DBNavigator1->Enabled=true;bt_new->Enabled=true;bt_modify->Enabled=true;bt_delete->Enabled=true;if (employeeQuery->IsEmpty()){bt_modify->Enabled=false;bt_delete->Enabled=false;}}(11) 在窗体的b_cancel按钮的OnClick事件中编写如下代码：void __fastcall TFm_employee::b_CancelClick(TObject *Sender){DBEdit2->Visible=true;Edit100->Visible=false;bt_search->Visible=true;bt_exit->Visible=true;b_Cancel->Visible=false;b_Search->Visible=false;DBNavigator1->Enabled=true;bt_new->Enabled=true;bt_modify->Enabled=true;bt_delete->Enabled=true;if (employeeQuery->IsEmpty()){bt_modify->Enabled=false;bt_delete->Enabled=false;}}(12) 在窗体的bt_exit按钮的OnClick事件中编写如下代码：void __fastcall TFm_employee::bt_exitClick(TObject *Sender){Close();}(13) 在窗体的DBEdit1的OnKeyPress事件中编写如下代码：void __fastcall TFm_employee::DBEdit1KeyPress(TObject *Sender, char &Key){if(Key==char(13))SelectNext((TWinControl*)(Sender),true,true);}(14) 在窗体的DBEdit11的OnKeyPress事件中编写如下代码：void __fastcall TFm_employee::DBEdit11KeyPress(TObject *Sender, char &Key){if(Key==char(13))bt_save->SetFocus();}(15) 设置窗体中各控件顺序的方法是：点击窗体空白处，再点击鼠标右键，选择Tab Order菜单后调整控件顺序。