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

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

10

其运行窗口如下图

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

其运行窗口如下图

11

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

5 设计代码

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

Dim x As String, y As String

Private Sub Command1_Click() x = \y = \

12

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

13

If (x = \

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

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

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

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

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 Command3_Click() Form3.Show Form2.Hide

Adodc2.Recordset.MoveFirst Do Until Adodc2.Recordset.EOF

14

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库校园量多超市管理信息系统课程设计(3)在线全文阅读。