26、Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command3_Click()On Error Resume NextCommand1.Enabled = FalseCommand2.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = FalseIf Command3.Caption = 修改 ThenCommand3.Caption =。

27、确认Adodc1.Recordset.UpdateText4.SetFocusElseCommand3.Caption = 修改Adodc1.Recordset.UpdateCommand1.Enabled = TrueCommand2.Enabled = TrueCommand5.Enabled = TrueEnd IfEnd SubPrivate Sub Command5_Click(Index As Integer)Frame1.Visible = TrueEnd Sub进货管理：Private Sub Command1_Click()On Error Resume NextComman 。

28、d2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = FalseIf Command1.Caption = 添加 ThenCommand1.Caption = 确认Adodc1.Recordset.AddNewText1.SetFocusElseCommand1.Caption = 添加Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastCommand2.Enabled = TrueCommand3.Enabled = TrueComma 。

29、nd5.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()On Error Resume NextCommand1.Enabled = FalseCommand2.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = FalseIf Command3.Caption = 修改 ThenCommand3.Caption = 确认Adodc1.Recordset.UpdateText1.SetFocusElse 。

30、Command3.Caption = 修改Adodc1.Recordset.UpdateCommand1.Enabled = TrueCommand2.Enabled = TrueCommand5.Enabled = TrueEnd IfEnd SubPrivate Sub Command5_Click(Index As Integer)Frame1.Visible = TrueEnd SubPrivate Sub Label3_Click(Index As Integer)End Sub销售管理：Private Sub Command1_Click()On Error Resume Next 。

31、Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = FalseIf Command1.Caption = 新增 ThenCommand1.Caption = 确认Adodc1.Recordset.AddNewText4.SetFocusElseCommand1.Caption = 新增Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastCommand2.Enabled = TrueCommand3.Enabled = Tru 。

32、eCommand5.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()On Error Resume NextAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command3_Click()On Error Resume NextCommand1.Enabled = FalseCommand2.Enabled = FalseCommand4.E 。

33、nabled = TrueCommand5.Enabled = FalseIf Command3.Caption = 修改 ThenCommand3.Caption = 确认Adodc1.Recordset.UpdateText4.SetFocusElseCommand3.Caption = 修改Adodc1.Recordset.UpdateCommand1.Enabled = TrueCommand2.Enabled = TrueCommand5.Enabled = TrueEnd IfEnd SubPrivate Sub Command5_Click(Index As Integer)Fr 。

34、ame1.Visible = TrueEnd SubPrivate Sub Form_Load()End SubPrivate Sub Label3_Click(Index As Integer)End Sub第3章 调试与运行用户登录：系统主界面：基础信息管理：销售管理：进货管理：小 结本次课程设计调查从事医药产品的零售、批发等工作的企业 ， 根据其具体情况 ， 设计医药销售管理系统 。
加深了对数据库课程知识的理解 。
由于时间仓促 ， 软件还有很多不足之处 ， 如：药品信息查询部分不够完善 ， 软件代码交冗余、效率不高等等 ， 都相关功能缺乏认识造成的 。
在今后的学习中我们会加强理论的实践的结合 ， 通过不断摸索来弥补自己在 。

35、软件制作方面的差距 。
参考文献1.萨师煊 ， 王 珊.数据库系统概论M.北京：高等教育出版社,1997:91-132.2. 刘真原.SQL SERVER2000培训教程M.北京：清华大学出版社 ， 2003：42-56.3. Ferland JA , Fleurent C. SA PH IR: A decision support system for course scheduling J . Interfaces,1994, 24 (2) : 105- 115.4. 李清国.Windows 2000+ ASP SQL Server案例教程M.上海: 中科多媒体电子出版社,2001: 330.5. 李晓黎.ASP+SQLSERVER网络应用系统开发指南M.北京：人民邮电出版社 ， 2004.1：48-52.- 24 - 。

稿源：(未知)

【傻大方】网址：/a/2021/0822/0023893471.html

标题：医药|医药销售管理数据库课程设计( 四 )