VB信息存储程序-说明.docVIP

VB信息存储程序 用户名123456 密码123456 解释部分：保存账号，密码，开始时间和结束时间等四种信息。 FORM1由五个LABEL控件，六个TEXTBOX和六个COMMAND构成的； FORM2由两个LABEL控件，两个TEXTBOX和两个COMMAND构成的； FORM3由一个LABEL控件，和两个COMMAND构成的； 建立了一个数据库-----账号，密码，开始时间，结束时间---代表字段号（zh,mm,ks,js）； 窗口介绍： FORM1： 保存(COMMAND1)代码： If Text1.Text = Or Text2.Text = Then MsgBox 输入账号或密码 Else Dim Conn As New ADODB.Connection Dim conStr As String Dim Sql As String conStr = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= IIf(Right(App.Path, 1) = \, App.Path, App.Path \) shujuku.mdb //两行写在一行里面 Conn.Open conStr Sql = insert into shouchu(zh,mm,ks,js)Values( Text1.Text , Text2.Text , Text3.Text , Text4.Text ) //两行写在一行里面 Conn.Execute Sql Conn.Close MsgBox (帐号： Text1.Text vbCrLf 密码： Text2.Text vbCrLf 开始： Text3.Text vbCrLf 结束： Text4.Text) //两行写在一行里面 Text1.Text = Text2.Text = End If 删除（COMMAND2）代码： Dim Conn As New ADODB.Connection Dim conStr As String Dim Sql As String conStr = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= IIf(Right(App.Path, 1) = \, App.Path, App.Path \) shujuku.mdb //两行写在一行里面 Conn.Open conStr Sql = DELETE FROM shouchu WHERE zh= + Text5.Text + //根据输入的账号来删除该账号包括的所有信息 Conn.Execute Sql Conn.Close Text5.Text = 查询（COMMAND3）代码： Dim Conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim conStr As String Dim Sql As String conStr = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= IIf(Right(App.Path, 1) = \, App.Path, App.Path \) shujuku.mdb //两行写在一行里面 Conn.Open conStr Sql = select * from shouchu where zh= + Text5.Text + //根据输入的账号来查询该账号包括的所有信息 rs.Open Sql, Conn, 1 Text6.Text = 账号： rs.Fields(zh).Value + vbCrLf 密码： rs.Fields(mm).Value + vbCrLf 开始： rs.Fields(ks).Value + vbCrLf 结束： rs.Fields(js).Value //三行写在一行里面，根据上面的条件在TEXT6.TEXT显示该账号包括的字段内容 Conn.Execute Sql rs.Close Conn.Close 退出（COMMAND4）代码： End 生成日期（COMMAND5）代码： 我设置的是开始时间和结束时间差别一个月； Dim a As Integer a = Month(Date) If a = a +