管理信息系统课程设计报告书

管理信息系统课程设计报告书内容摘要：

D,M_Book_ISBN,M_Book_Prise,M_Book_Num) values(39。 + + 39。 ,39。 + + 39。 ,39。 + + 39。 ,39。 + + 39。 ) Set rec = (strSql) If = 0 Then MsgBox 成功加入流水账。 , vbOKOnly, 入库信息提示 Else MsgBox 数据插入错误 ,请重试。 , vbInformation, 入库信息提示 Exit Sub End If End Sub Private Sub Command3_Click() If = Then MsgBox 请输入查询条件。 , 33, 入库处理系统 ElseIf = 1 Then MsgBox 请选择查询类别。 , 33, 入库处理系统 Else Dim strselect1 As String Select Case Case 0 strselect1 = select * from M_Book_Store where M_Book_ISBN = 39。 Case 1 strselect1 = select * from M_Book_Store where M_Book_Author = 39。 Case 2 strselect1 = select * from M_Book_Store where M_Book_Press = 39。 Case 3 strselect1 = select * from M_Book_Store where M_Book_Name = 39。 End Select strselect1 = strselect1 amp。 Replace(Trim(), 39。 , 39。 39。 ) amp。 39。 = adCmdText = strselect1 Set = Adodc1 If = 0 Then MsgBox 数据库中暂无记录。 End If End If 16 End Sub Private Sub Form_Load() = Provider=。 Data Source= amp。 amp。 \。 Persist Security Info=False Dim strselect As String strselect = select * from M_Book_Store order by M_Book_ID asc = adCmdText = strselect Set = Adodc1 If = 0 Then MsgBox 数据库中暂无记录。 End If End Sub 客户订书单处理 这个窗体里面也是用代码将窗体 与订书单连接起来，在这里可以看见订书单的客户，根据客户的订书单来开发票或者是生成采购单，这里发票和采购单用了两个 frame 窗体，当一个出现的时候另一个会隐藏。 点击开发票会出现让你输入折扣率。 如果输入的折扣率类型不匹配系统会提示。 如果采购单或是发票已存在系统会提示你已经存在。 图 45 订书单处理数量足够开发票界面图示 17 图 46 订书单处理数量不足 生成采购单 界面图示 其主要实现代码如下： Private Sub Command1_Click() Dim i As Integer If = 1 Then MsgBox 请选择订单客户 , vbInformation, 信息提示 End If Dim str, str1 As String Dim name As String Dim isbn As String name = () str = select M_Book_ISBN,M_Book_Num from M_Book_BKBill where M_Book_CuName= 39。 str = str amp。 Trim(name) amp。 39。 Set rec = (str) If Then Exit Sub Else isbn = rec(M_Book_ISBN).Value End If str1 = select M_Book_ISBN,M_Book_Num from M_Book_All where M_Book_ISBN = 39。 amp。 isbn amp。 39。 Set rec1 = (str1) If Then = 无 18 = True = True = False = False ElseIf rec(M_Book_Num).Value = rec1(M_Book_Num).Value Then = 有 = 数量足够 = True = True = True = False = False Else = 有 = 数量不足 = True = True = False = True End If If = 无 Or = 数量不足 Then str = select * from M_Book_BKBill where M_Book_CuName = 39。 amp。 Trim(name) amp。 39。 Set rs = (str) = rs(M_Book_ID).Value = rs(M_Book_Date).Value = rs(M_Book_ISBN).Value = rs(M_Book_Name).Value = rs(M_Book_Author).Value = rs(M_Book_Press).Value = rs(M_Book_PrsDate).Value = rs(M_Book_Num).Value End If Exit Sub End Sub Private Sub Command2_Click() Dim str, s As String Dim name As String Dim str1 As String Dim i As Double 19 Dim str2 As String s = InputBox(请输入折扣利率 ,必须为 double 型 ,如： , 利率设定 , Format(0, )) If Not IsNumeric(s) Or IsNull(s) Then MsgBox 折扣利率必须为数字或者不能为空值 , vbInformation, 信息提示 Else i = CDbl(s) End If name = () str = select * from M_Book_BKBill where M_Book_CuName = 39。 amp。 Trim(name) amp。 39。 Set rs = (str) str1 = select M_Book_Prise from M_Book_Store where M_Book_ISBN = 39。 amp。 rs(M_Book_ISBN).Value amp。 39。 Set rs1 = (str1) = rs(M_Book_ID).Value = rs(M_Book_Date).Value = M_UserName = rs(M_Book_ISBN).Value = rs(M_Book_Name).Value = rs1(M_Book_Prise).Value = rs(M_Book_Num).Value = CStr(CDbl() * CDbl()) = CStr(CDbl() * CDbl() * (1 i)) = CStr(CDbl() * CDbl() CDbl())。