毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

仓库管理系统源代码数据库实训 第9页

更新时间:2009-7-23:  来源:毕业论文
仓库管理系统源代码数据库实训 第9页
operater.Recordset.Fields(0) = Trim(Text1(0))
    operater.Recordset.Fields(1) = Trim(Text1(1))
    operater.Recordset.Fields(2) = czqx
    operater.Recordset.Update
    operater.Refresh
  End If
  List.Enabled = True
  Call flash
  Text1(0) = ""
  Text1(1) = ""
  Option1(1).Value = True
  Text1(0).SetFocus
End Sub

Private Sub cmdCancel_Click()     '取消
  Text1(0) = ""
  Text1(1) = ""
  Text1(0).SetFocus
  Text1(0).Locked = False
  Text1(0).TabStop = True
  pd = 0
  cmdADD.Visible = True
  cmdCancel.Enabled = False
  cmdCancel.Visible = False
End Sub

Private Sub cmddel_Click()          '删除操作员信息
  operater.RecordSource = "select * from operater where 姓名='" & Trim(Text1(0)) & "'"
  operater.Refresh
  If operater.Recordset.EOF = True Then
    MsgBox "没有这个操作员!!"
    Text1(0).SetFocus
  Else
    aa = MsgBox("是否删除操作员【" & Text1(0) & "】的信息", 1 + 32)
    If aa = 1 Then
      operater.Recordset.Delete
      operater.Recordset.Update
      operater.Refresh
      Call csf
      Call pdd
      If datacount <> 0 Then Call flash
    End If
    Call cmdCancel_Click
  End If
End Sub

Private Sub cmdMODI_Click()         '修改操作员信息
  If Trim(Text1(1)) = "" Then
    MsgBox "密码不能为空!!!"
    Text1(1).SetFocus
    Exit Sub
  Else
    aa = MsgBox("是否修改此操作员的信息", 1 + 32)
    If aa = 1 Then
      operater.RecordSource = "select * from operater where 姓名='" & Trim(Text1(0)) & "'"
      operater.Refresh
      operater.Recordset.Fields(1) = Text1(1)
      If Option1(0).Value = True Then
        operater.Recordset.Fields(2) = 1
      Else
        operater.Recordset.Fields(2) = 2
      End If
      operater.Recordset.Update
      operater.Refresh
      Call flash
    End If
  End If
  Call cmdCancel_Click
End Sub

Private Sub cmdRet_Click()        '返回
  pd = 0
  Unload frmOperater
End Sub

Private Sub Form_Load()           '初始化
  Me.Top = (Mainform.Height - Me.Height) / 2 - 800
  Me.Left = (Mainform.Width - Me.Width) / 2
  Me.Caption = "仓库管理系统→" & "操作员设置"
  operater.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Storehouse.mdb;Persist Security Info=False"
  Call csf
  Call pdd
  If datacount <> 0 Then Call flash
End Sub

Private Sub List_Click()          '选中某一条记录
  pd = 1
  row1 = List.Row
  Text1(0) = List.TextMatrix(row1, 0)
  Text1(1) = ""
  If List.TextMatrix(row1, 2) = 1 Then
    Option1(0).Value = True
  Else
    Option1(1).Value = True
  End If
  cmdMODI.Enabled = True
  CmdDel.Enabled = True
  cmdADD.Enabled = False
  cmdADD.Visible = False
  cmdCancel.Enabled = True
  cmdCancel.Visible = True
  Text1(0).Locked = True
  Text1(0).TabStop = False
  Text1(1).SetFocus
End Sub

Private Sub Text1_Change(Index As Integer)      '判断输入是否为空
  If Trim(Text1(0)) = "" Or Trim(Text1(1)) = "" Then
    cmdADD.Enabled = False
    CmdDel.Enabled = False
  Else
    If pd = 1 Then
      CmdDel.Enabled = True
    Else
      cmdADD.Enabled = True
      CmdDel.Enabled = True
    End If
  End If
End Sub

Private Sub Text1_GotFocus(Index As Integer)
  If Text1(Index).TabStop = True Then
    Text1(Index).BackColor = &HC0FFFF
    Text1(Index).SelStart = 0
    Text1(Index).SelLength = 12
  End If
End Sub
Private Sub Text1_LostFocus(Index As Integer)
  Text1(Index).BackColor = &HFFC0C0
End Sub
Private Sub pdd()             '判断数据库中是否有记录
  operater.RecordSource = "select * from operater"
  operater.Refresh
  datacount = operater.Recordset.RecordCount
  If datacount = 0 Then
    List.Enabled = False
  Else
    List.Enabled = True
  End If
End Sub

Private Sub flash()           '刷新列表
Dim roww As Integer           ''行
  roww = 1
  List.Clear
  List.rows = 1
  Call csf
  operater.RecordSource = "operater"
  operater.Refresh
  operater.Recordset.MoveFirst
  Do While operater.Recordset.EOF = False
    List.rows = List.rows + 1
    List.TextMatrix(roww, 0) = operater.Recordset.Fields(0)
    List.TextMatrix(roww, 1) = operater.Recordset.Fields(1)
    List.TextMatrix(roww, 2) = operater.Recordset.Fields(2)
    roww = roww + 1
    operater.Recordset.MoveNext
  Loop
End Sub
Private Sub csf()             '列表初始化
  List.TextMatrix(0, 0) = "姓名"
  List.TextMatrix(0, 1) = "密码"
  List.TextMatrix(0, 2) = "权限"
  List.ColWidth(0) = 1500
  List.ColWidth(1) = 2500
  List.ColWidth(2) = 1000
End Sub

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页

仓库管理系统源代码数据库实训 第9页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。