毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

Visual Basic6.0+SQL Server2000图片管理系统 第5页

更新时间:2008-8-9:  来源:毕业论文

Visual Basic6.0+SQL Server2000图片管理系统 第5页

§5.3 主要功能模块设计
    5.3.1
新书订购管理
 
窗体界面设计如下:程序代码设计
新书添加代码如下:
Private Sub Command5_Click()
  clear
    Dim temp1
    temp1 = Format(Now, "yyyymmdd")
    Adodc2.RecordSource = "select * from newtb where
订单号 like '%" + temp1 + "%' order by 订单号
"
    Adodc2.Refresh
        If Adodc2.Recordset.RecordCount > 0 Then
            Adodc2.Recordset.MoveLast
            Text1.Text = Val(Adodc2.Recordset.Fields("
订单号
")) + 1
        Else
            Text1.Text = temp1 + "0001"
        End If
    Adodc2.RecordSource = "select * from newtb where
是否验收=0 order by 订单号
"
    Adodc2.Refresh
  DT1.SetFocus
End Sub
记录删除代码如下:

Private Sub Command4_Click()
If Adodc2.Recordset.EOF = False Then
     c = MsgBox("
您确认要删除该记录吗?", 17, "提示信息")
     If c = vbOK Then
        Adodc2.Recordset.Delete
        Adodc2.Refresh
     Else
     End If
  Else
  MsgBox "
当前数据库中已经没有可删除的记录", 64, "提示信息
"
  End If
  End Sub
记录保存代码如下:

Private Sub Command1_Click()
 If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Or Text10.Text = "" Or Text11.Text = "" Or Text12.Text = "" Then
 MsgBox "
输入的信息不能为空!", , "提示提示"
 Else
  Adodc2.RecordSource = "select * from newtb where
条码号
='" & Text11.Text & "'"
  Adodc2.Refresh
  If Adodc2.Recordset.RecordCount > 0 Then
  MsgBox "
此条码号已经存在!", , "信息提示
"
  Adodc2.RecordSource = "select * from newtb"
  Adodc2.Refresh
  Else
    rs1.Open "select * from newtb where
订单号
='" & Text1.Text & "'", cnn, adOpenKeyset, adLockOptimistic
    If rs1.RecordCount > 0 Then
       MsgBox "
订单号已存在!", , "提示信息
"
    Else
       Dim sql, temp As String
       temp = "0"
       sql = "insert into newtb values('" & Text1 & "','" & DT1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Text5 & "','" & DT2 & "','" & Text6 & "','" & Text7 & "'," & Text8.Text & ",'" & Text9 & "','" & Text10 & "','" & Text11 & "','" & Text12 & "','" & Text13 & "','" & temp & "')"
       cnn.Execute (sql)
       MsgBox "
数据保存成功!", 64, "提示信息
"
       Adodc2.Refresh
    End If
    rs1.Close
 End If
 End If
End Sub
5.3.2
读者借书管理

窗体界面设计如下:

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页

Visual Basic6.0+SQL Server2000图片管理系统 第5页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。