form21.frm

一个简单完整的工资管理系统 毕业论文里的代码

VERSION 5.00
Begin VB.Form Form18 
   ClientHeight    =   6000
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9435
   LinkTopic       =   "Form18"
   ScaleHeight     =   6000
   ScaleWidth      =   9435
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form18"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
On Error Resume Next
Adodc1.Recordset.Delete
End Sub

Private Sub Command3_Click()
On Error Resume Next

Adodc1.Refresh
End Sub


Private Sub Command4_Click()
ids = DataCombo3.Text
bm = DataCombo2.Text



Dim mycn As New ADODB.Connection
Dim myrs As New ADODB.Recordset
Set myrs = New ADODB.Recordset
mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;"


myrs.Open "update  rs set 部门='" + bm + "'  where 编号='" + ids + "';", mycn, adOpenKeyset, adLockOptimistic

End Sub

Private Sub Command5_Click()
ids = DataCombo3.Text
zw = DataCombo5.Text



Dim mycn As New ADODB.Connection
Dim myrs As New ADODB.Recordset
Set myrs = New ADODB.Recordset
mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;"


myrs.Open "update  rs set 职位='" + zw + "'  where 编号='" + ids + "';", mycn, adOpenKeyset, adLockOptimistic

End Sub

Private Sub DataCombo3_Change()
bh = DataCombo3.Text
Adodc4.RecordSource = "select * from rs where 编号 ='" + bh + "'"
Adodc4.Refresh

End Sub