vb学习源码 Dim rs As ADODB.Recordset Dim SQL As String Dim msg As String Dim Index As Integer Dim flag As String '判断是新增记录还是修改记录 Private Sub Form_Load() Call LoadData '装载数据 If rs.RecordCount > 0 Then Call ShowData '显示数据 Else '移动控件不可用 For Index = 0 To
vb+sql图书管理系统 Public Class frmBorrow Inherits System.Windows.Forms.Form Private dtData As DataTable #Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New()
