form15.frm

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

VERSION 5.00
Begin VB.Form Form12 
   BackColor       =   &H00FFFFFF&
   ClientHeight    =   3045
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6480
   LinkTopic       =   "Form12"
   ScaleHeight     =   3045
   ScaleWidth      =   6480
   StartUpPosition =   2  '屏幕中心
End
Attribute VB_Name = "Form12"
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 DataCombo1_Change()
bh = DataCombo1.Text
Adodc3.RecordSource = "select * from rs where 编号 ='" + bh + "'"
Adodc3.Refresh
End Sub