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

入库管理 销售管理 incheck sale 无 无 增加新用户 系统管理 system 修改密码 退出系统 入库查询输出 查询管理 find 销售查询输出 按日期汇总 车辆汇总 clhz 按入库单 按入库单+日期

按供应商汇总 clwh 无 无 add_user modify_pw exit rkfind xsfind arqhz summary_custom summary_ruku summary_date_ruku 6．建立登陆窗体和其他窗体。代码见文本文件。理解代码的含义。在进行窗体建立时，将数据库和工程窗体放置于一个文件夹下，开始窗体的建立与代码的输入。

登陆窗体代码如下：

Option Explicit

Dim cnt As Integer '记录确定次数

Dim sql As String

Dim rs_login As New ADODB.Recordset

If Trim(txtuser.Text) = \判断输入的用户名是否为空 MsgBox \没有这个用户\ txtuser.SetFocus Else

sql = \系统管理 where 用户名='\ rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then

MsgBox \没有这个用户\ txtuser.SetFocus

Else '检验密码是否正确 If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then userID = txtuser.Text userpow = rs_login.Fields(2) rs_login.Close Unload Me MDIForm1.Show Else

MsgBox \密码不正确\ txtpwd.SetFocus End If End If End If cnt = cnt + 1 If cnt = 3 Then Unload Me End If Exit Sub End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load() Dim connectionstring As String

connectionstring = \ \conn.Open connectionstring cnt = 0

欢迎界面代码如下：

Private Sub add_user_Click() frmadduser.Show End Sub

Private Sub data_manage_Click() frmdatamanage.Show End Sub

Private Sub clwh_Click() frmcarfix.Show End Sub

Private Sub exit_Click() Dim s

s = MsgBox(\您确定要退出汽车销售系统吗？\If s = vbOK Then Unload Me End If End Sub

Private Sub rkfind_Click() frmfind_menu = \入库单\frmfind.Show End Sub

Private Sub xsfind_Click() frmxsfind_menu = \提货单\

End Sub

Private Sub incheck_Click() incheck1.Show End Sub

Private Sub modify_pw_Click() frmchangepwd.Show End Su

Private Sub rkwh_Click() frmrkfix.Show End Sub

Private Sub sale_Click() sale1.Show End Sub

Private Sub summary_custom_Click() summary_menu = \frmsum.Show 1 End Sub

Private Sub summary_date_Click() summary_menu = \frmsum.Show 1 End Sub

Private Sub summary_date_ruku_Click() summary_menu = \frmsum.Show 1 End Sub

Private Sub summary_ruku_Click() summary_menu = \frmsum.Show 1 End Sub

Private Sub xswh_Click() frmxsfix.Show End Sub

入库管理代码如下：

Option Explicit

Dim rs_checkname As New ADODB.Recordset '车辆名称对应的数据对象 Dim rs_custom As New ADODB.Recordset '供应商名称对应的数据对象 Const row_num = 10 '表格行数 Const col_num = 6 '表格列数 Private Sub Combo2_Click() MSFlexGrid1.Text = Combo2.Text MSFlexGrid1.Row = MSFlexGrid1.Row + 1 MSFlexGrid1.Col = 0 Combo2.Visible = False Text5.Visible = True

nextposition MSFlexGrid1.Row, MSFlexGrid1.Col End Sub

Private Sub Command1_Click() Dim rs_save As New ADODB.Recordset Dim sql As String Dim i As Integer

Dim s As String '转化数据用 On Error GoTo saveerror If Trim(Text1.Text) = \

MsgBox \入库单号不能为空!\ Text1.SetFocus