汽车销售系统实训报告(6)

If Trim(Text2.Text) = \

MsgBox \密码不能为空，请重新输入！\警告\ Text2.Text = \ Text2.SetFocus Exit Sub End If

If Trim(Text2.Text) <> Trim(Text3.Text) Then

MsgBox \两次密码不一致\ Text2.SetFocus Text2.Text = \ Text3.Text = \ Exit Sub

ElseIf Trim(Combo1.Text) <> \ MsgBox \请选择正确的用户权限\ Combo1.SetFocus Combo1.Text = \ Exit Sub Else

rs_add.AddNew

rs_add.Fields(0) = Text1.Text rs_add.Fields(1) = Text2.Text rs_add.Fields(2) = Combo1.Text rs_add.Update rs_add.Close

MsgBox \添加用户成功\ Unload Me End If End If End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load() Combo1.AddItem \Combo1.AddItem \End Sub

修改密码代码如下：

Private Sub Command1_Click() Dim rs_chang As New ADODB.Recordset Dim sql As String

If Trim(Text1.Text) <> Trim(Text2.Text) Then

MsgBox \密码不一致！\ Text1.SetFocus Text1.Text = \ Text2.Text = \Else

sql = \系统管理 where 用户名='\ rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(1) = Text1.Text rs_chang.Update rs_chang.Close

MsgBox \密码修改成功\ Unload Me End If End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load()

End Sub

入库查询输出代码如下：

Option Explicit

Dim rs_find As New ADODB.Recordset Private Sub Command1_Click() On Error GoTo cmderror Dim find_date1 As String Dim find_date2 As String If Option1.Value = True Then

sqlfind = \入库单 where 入库单号 between '\ Combo1(0).Text & \End If

If Option2.Value = True Then

find_date1 = Format(CDate(Comboy(0).Text & \ Combom(0).Text & \ find_date2 = Format(CDate(Comboy(1).Text & \ Combom(1).Text & \ sqlfind = \入库单 where 日期 between #\ find_date1 & \End If

rs_data1.Open sqlfind, conn, adOpenKeyset, adLockPessimistic frmdatamanage.Show

frmdatamanage.displaygrid1 Unload Me

If Err.Number <> 0 Then

MsgBox \请输入正确的查询条件！\警告\ End If End Sub

Private Sub Command2_Click() Unload Me MDIForm1.Show End Sub

Private Sub Form_Load() Dim i As Integer Dim sql As String Option1.Value = True If findok = True Then rs_data1.Close End If

sql = \入库单 order by 入库单号 desc\rs_find.CursorLocation = adUseClient

rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_find.EOF = False Then '添加编号 With rs_find

Do While Not .EOF

Combo1(0).AddItem .Fields(0) Combo1(1).AddItem .Fields(0) .MoveNext Loop End With End If

For i = 2001 To 2005 '添加年 Comboy(0).AddItem i Comboy(1).AddItem i Next i

For i = 1 To 12 '添加月 Combom(0).AddItem i Combom(1).AddItem i Next i

For i = 1 To 31 '添加日 Combod(0).AddItem i Combod(1).AddItem i Next i

Private Sub Form_Unload(Cancel As Integer) rs_find.Close End Sub

销售查询输出代码如下：

Option Explicit

Dim rs_find As New ADODB.Recordset Private Sub Command1_Click() On Error GoTo cmderror Dim find_date1 As String Dim find_date2 As String If Option1.Value = True Then

sqlfind = \销售单 where 提货单号 between '\ Combo1(0).Text & \End If

If Option2.Value = True Then

find_date1 = Format(CDate(Comboy(0).Text & \ Combom(0).Text & \ find_date2 = Format(CDate(Comboy(1).Text & \ Combom(1).Text & \ sqlfind = \销售单 where 日期 between #\ find_date1 & \End If

rs_data1.Open sqlfind, conn, adOpenKeyset, adLockPessimistic frmdataxsmanage.Show