DataGrid1.Col = 1
If (Trim(Form2.Text1.Text) = Trim(Form3.Text1.Text)) Then x = Trim(Text1.Text) DataGrid2.Col = 0
Form3.Text1.Text = Form2.DataGrid2.Text Form2.DataGrid2.Col = 1
Form3.Text2.Text = Form2.DataGrid2.Text Form2.DataGrid2.Col = 2
Form3.Text3.Text = Form2.DataGrid2.Text Form2.DataGrid2.Col = 3
Form3.Text4.Text = Form2.DataGrid2.Text Form2.DataGrid2.Col = 4
Form3.Text5.Text = Form2.DataGrid2.Text Exit Do End If
Form2.Adodc2.Recordset.MoveNext Loop
If (x = \
MsgBox (\经查询，无此商品登记\End If End Sub
⑤Form2 “退出”按钮程序代码
Private Sub Command4_Click() Form1.Show Form2.Hide End Sub
⑥Form3 “返回查询窗口”按钮程序代码
Private Sub Command1_Click() Form3.Hide Form1.Show End Sub
15
五、课程设计结论
本次管理信息系统课程设计是对校园量多超市管理信息系统而进行设计的。通过实地调研，收集资料，处理信息，对其经营管理业务和现有销售信息及其库存管理而进行系统分析，系统设计，窗口设计，并且编写了代码。通过本次课程设计，学会了综合利用《管理信息系统》这门课程之中的理论知识和试验技能。在专业指导老师的指导下，对校园量多超市管理信息系统进行了设计，通过运用课堂上所学的VB和Access等计算机技术知识对所收集的数据和信息进行设计出来的，并且编写出了设计代码，经过运行，编码是正确的。通过了这次课程设计，我不仅大大提高了模型规划、系统设计和软件编程的能力，自身的各方面的素质也得到了提高。同时也培养了我的团队协作精神。这次课程设计不仅充实了我的计算机专业知识，扩大了知识面，增强分析问题和解决问题的能力，也提高自学的能力与软件开发能力，为今后的工作打下了坚实的基础。
在开发的过程中按照软件工程的方法，贯彻结构化的设计思想，运用VFP数据库开发工具进行数据库设计。同时也了解了超市管理的基本运作过程，增加管理经验。整个所设计的系统，贯彻了超市整个经营和销售环节，这将会为超市带来很大的方便，及节约一定量的资金。
因此，管理信息系统是现代企业经营管理所必须的一门基本知识，企业要走信息化道路，就应该搞好自己的管理信息系统。
16