校园量多超市管理信息系统课程设计(3)

2019-02-17 15:20

③在输入正确销售员编号及密码之后，在其运行窗口中，输入不存在的商品号或商品名称

其运行窗口如下图

④输入正确商品号或商品名称，并且按正确方式查询

其运行窗口如下图

⑤点击返回查询窗口，其界面会返回到销售员密码窗口

5 设计代码

①Form1 “确定”按钮程序代码

Dim x As String, y As String

Private Sub Command1_Click() x = \y = \

Adodc1.Recordset.MoveFirst Do Until Adodc1.Recordset.EOF DataGrid1.Col = 0

If (Trim(Text1.Text) = Trim(DataGrid1.Text)) Then x = Trim(Text1.Text) DataGrid1.Col = 2

If (Trim(Text2.Text) = Trim(DataGrid1.Text)) Then y = Trim(Text2.Text) End If End If

Adodc1.Recordset.MoveNext Loop

If (x <> \Form1.Hide Form2.Show Else

MsgBox (\管理员编号或密码不正确\End If End Sub

②Form2 “按商品编号查询”按钮程序代码

Private Sub Command1_Click() Adodc2.Recordset.MoveFirst x = \

Do Until Adodc2.Recordset.EOF DataGrid1.Col = 0

If (Trim(Text1.Text) = Trim(DataGrid1.Text)) Then x = Trim(Text1.Text) DataGrid1.Col = 0

Text2.Text = DataGrid1.Text DataGrid1.Col = 1

Text3.Text = DataGrid1.Text DataGrid1.Col = 2

Text4.Text = DataGrid1.Text DataGrid1.Col = 3

Text5.Text = DataGrid1.Text DataGrid1.Col = 4

Text6.Text = DataGrid1.Text DataGrid1.Col = 5

Text7.Text = DataGrid1.Text Exit Do End If

Adodc2.Recordset.MoveNext Loop

If (x = \

MsgBox (\经查询，无此商品入库\End If End Sub

③Form2 “按商品名称查询”按钮程序代码

Private Sub Command2_Click() Adodc2.Recordset.MoveFirst x = \

Do Until Adodc2.Recordset.EOF DataGrid1.Col = 1