📄 form5.frm

📁 因本人没有充足的时间
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text6.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text6.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Data1.Recordset.Index = "rm"
Data1.Recordset.Seek "=", Text33.Text
Set ds = Data1.Recordset
RS = ds.RecordCount
Data2.Recordset.Index = "rm"
Data2.Recordset.Seek "=", Text33.Text
MSF.Refresh
Dim re As Integer
MSF.Row = 0
MSF.Col = 0
MSF.Text = "序号"
Data2.Refresh
Set sd = Data2.Recordset
re = sd.RecordCount
For A = 1 To re
MSF.Row = A
MSF.Col = 0
MSF.Text = A
Next A
End Sub

Private Sub Q9_Click(Index As Integer)
r = InputBox("请输入姓名！")
Text33.Text = r
If Text33.Text = "" Then
MsgBox ("请输入姓名!")
Exit Sub
Else
Dim RS As Integer
Data1.Recordset.Index = "rm3"
Data1.Recordset.Seek "=", Text33.Text
If Text9.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text9.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text9.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text9.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text9.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text9.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text9.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text9.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text9.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text9.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
If Text9.Text = Text33.Text Then
Data2.Recordset.AddNew
TextA1.Text = Text1.Text
TextA2.Text = Text2.Text
TextA3.Text = Text3.Text
TextA4.Text = Text4.Text
TextA5.Text = Text5.Text
TextA6.Text = Text6.Text
TextA7.Text = Text7.Text
TextA8.Text = Text8.Text
TextA9.Text = Text9.Text
TextA10.Text = Text10.Text
TextA11.Text = Text11.Text
TextA12.Text = Text12.Text
TextA13.Text = Text13.Text
Data2.UpdateRecord
Data2.Recordset.MoveFirst
Data1.Recordset.MoveNext
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Data1.Recordset.Index = "rm3"
Data1.Recordset.Seek "=", Text33.Text
Set ds = Data1.Recordset
RS = ds.RecordCount
Data2.Recordset.Index = "rm3"
Data2.Recordset.Seek "=", Text33.Text
MSF.Refresh
Dim re As Integer
MSF.Row = 0
MSF.Col = 0
MSF.Text = "序号"
Set sd = Data2.Recordset
re = sd.RecordCount
For A = 1 To re
MSF.Row = A
MSF.Col = 0
MSF.Text = A
Next A
End Sub

Private Sub w1_Click(Index As Integer)
If TextA1.Text = "" Then
MsgBox ("已清空表单!")
Data2.Refresh
Else
Data2.Recordset.MoveLast
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Refresh
Exit Sub
Else
Data2.Recordset.Delete
Data2.Recordset.MovePrevious
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

Private Sub w3_Click(Index As Integer)
Unload Me
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -