|
cmbUnit.AddItem "块" cmbUnit.AddItem "捆" http://www.paper51.com cmbUnit.AddItem "卷" http://www.paper51.com cmbUnit.AddItem "打" 内容来自论文无忧网 www.paper51.com
cmbUnit.AddItem "双" 内容来自论文无忧网 www.paper51.com
cmbUnit.AddItem "对" 内容来自论文无忧网 www.paper51.com cmbUnit.AddItem "米" copyright paper51.com cmbUnit.AddItem "厘米" copyright paper51.com cmbUnit.AddItem "斤" 内容来自论文无忧网 www.paper51.com cmbUnit.AddItem "公斤" 内容来自www.paper51.com cmbUnit.AddItem "克" 内容来自论文无忧网 www.paper51.com cmbUnit.AddItem "吨" copyright paper51.com Toolbar5.Buttons(5).Visible = False copyright paper51.com Toolbar5.Buttons(6).Visible = False copyright paper51.com
Call asPopup5_Click(False) http://www.paper51.com End Sub 内容来自www.paper51.com Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift AsInteger, x As Single, y As Single) paper51.com
DoDrag Me copyright paper51.com End Sub paper51.com Private Sub imgTitleMain_MouseDown(Button As Integer, Shift AsInteger, x As Single, y As Single) copyright paper51.com
DoDrag Me 内容来自论文无忧网 www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com Private Sub imgTitleMinimize_Click() 内容来自www.paper51.com Me.WindowState = 1 paper51.com End Sub paper51.com Private Sub 内容来自www.paper51.com imgTitleRight_MouseDown(Button As Integer, Shift As Integer, x AsSingle, y As Single) 内容来自论文无忧网 www.paper51.com DoDrag Me 内容来自www.paper51.com End Sub 内容来自www.paper51.com
Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer,x As Single, y As Single) http://www.paper51.com DoDrag Me paper51.com End Sub 内容来自www.paper51.com Private Sub imgTitleClose_Click() http://www.paper51.com Unload Me 内容来自www.paper51.com End Sub paper51.com Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) copyright paper51.com Select Case Button.Index 内容来自www.paper51.com Case 1 ''前进 内容来自www.paper51.com adcEmployee.Recordset.MovePrevious paper51.com If adcEmployee.Recordset.BOF = True Then 内容来自论文无忧网 www.paper51.com adcEmployee.Recordset.MoveFirst http://www.paper51.com End If 内容来自www.paper51.com Case 2 ''后退 copyright paper51.com
adcEmployee.Recordset.MoveNext paper51.com If adcEmployee.Recordset.EOF = True Then http://www.paper51.com
adcEmployee.Recordset.MoveLast paper51.com
End If http://www.paper51.com
Case 4 ''增加 内容来自www.paper51.com On Error GoTo add_error 内容来自www.paper51.com adcEmployee.Recordset.AddNew paper51.com add_error: copyright paper51.com If Err.Number =3426 Then copyright paper51.com MsgBox"已经使用过添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示" copyright paper51.com Unload Me 内容来自www.paper51.com |