管理信息系统实验教程

管理信息系统设计与实践

实验教程

陈继红编著

计算机科学与技术学院

第1章实验的目的与基本要求

一、实验目的

学习设计与开发管理信息系统的基本方法和技能，进一步加深管理信息系统的设计原理及方法的理解，熟练掌握用C++ Builder开发管理信息系统方法。为毕业设计打下坚实的基础。

二、实验要求

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

2. 上机时要遵守实验室的规章制度，爱护实验设备。要熟悉与实验有关的系统软件、开发环境的使用方法。在程序的调试过程中，有意识地学习及掌握集成环境调试程序的方法及技巧。

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

3．程序调试完后，须由实验指导教师在机器上检查运行结果。每个实验完成后，应写出实验报告。实验报告的要求如下：

①设计说明：用来说明设计的内容。它包括：程序名、功能、原理及算法

说明、程序及数据结构、主要符号名的说明等。

②调试说明：便于学生总结经验提高编程及调试能力。它包括：调试情况，

如上机时遇到的问题及解决办法，观察到的现象及其分析，对程序设计

技巧的总结及分析等；程序的输出结果及对结果的分析；实验的心得体

会等。

③程序框图。

④程序清单。

第2章主窗体的设计与实现

一、实验目的与要求

1．熟悉C++ Builder开发环境。

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

二、实验内容

新建一个工程，完成主窗体的设计。主窗体包括菜单栏、工具栏及状态栏。运行界面如图所示：

三、设计步骤

1．新建一个工程，方法为：File → New → Application。

2

3．在窗体中加入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～DBEdit11

5．编写代码：

(1) 在窗体的头文件中，定义3个公有函数和2个变量：

void __fastcall DBEditTrue(); //使输入框可用

void __fastcall DBEditFalse(); //使输入框不可用

void __fastcall autoinc(); //编号自动+1

AnsiString 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);

}

else

VBh="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菜单后调整控件顺序。

第5章通用查询窗体的设计与实现

一、实验目的与要求

1．掌握通用查询窗体的设计方法。

2．掌握select语句的使用方法。

二、实验内容

打开实验一设计的工程文件，新建一个查询窗体。运行界面如图所示：

三、设计步骤

1．新建查询窗体，方法为：File → New → Form。设置窗体属性，并以employeeseek.cpp文件名保存。主窗体、查询窗体互包含“头文件”。

2．在窗体中加入13个Label控件并分别设置它们的Caption属性、5个Edit 及4个ComboBox控件并删除Text属性内容、4个BitBtn控件并设置它们的

Caption和Glyph属性、4个DateTimePicker控件、2个ADOQuery控件、1个

3．编写代码：

(1) 在窗体的OnShow事件中编写如下代码：