📄 wsform.frm
字号:
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1200
TabIndex = 21
Top = 4440
Width = 2055
End
Begin VB.Shape Shape1
BorderColor = &H80000001&
BorderWidth = 3
FillColor = &H0000FF00&
Height = 2775
Left = 120
Top = 4200
Width = 5295
End
End
Begin VB.Frame Frame1
Caption = " 录入卫生情况"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 8535
Left = 120
TabIndex = 0
Top = 120
Width = 6135
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "E:\sushek.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
ForeColor = &H00FF0000&
Height = 735
Left = 600
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "wsb"
Top = 2160
Visible = 0 'False
Width = 2775
End
Begin VB.TextBox Text3
DataField = "pfsj"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2520
TabIndex = 14
Text = "Text3"
Top = 5640
Width = 2175
End
Begin VB.TextBox Text2
DataField = "wspf"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2520
TabIndex = 13
Text = "Text2"
Top = 5040
Width = 2175
End
Begin VB.TextBox Text1
DataField = "jsm"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2520
TabIndex = 12
Text = "Text1"
Top = 4440
Width = 2175
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Bindings = "wsform.frx":0014
Height = 3375
Left = 120
TabIndex = 2
Top = 240
Width = 6015
_ExtentX = 10610
_ExtentY = 5953
_Version = 393216
FixedCols = 0
BackColor = 8421440
ForeColor = 12582912
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label3
Caption = "评分人员"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 3
Left = 600
TabIndex = 11
Top = 6360
Width = 2295
End
Begin VB.Label Label3
Caption = "评分时间"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 2
Left = 600
TabIndex = 10
Top = 5760
Width = 2295
End
Begin VB.Label Label3
Caption = "得分"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 1
Left = 1080
TabIndex = 9
Top = 5160
Width = 2295
End
Begin VB.Label Label3
Caption = "寝室名"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 0
Left = 960
TabIndex = 8
Top = 4440
Width = 2295
End
Begin VB.Line Line4
BorderColor = &H80000001&
BorderWidth = 3
X1 = 6000
X2 = 6000
Y1 = 6960
Y2 = 4200
End
Begin VB.Line Line3
BorderColor = &H80000001&
BorderWidth = 3
X1 = 120
X2 = 6000
Y1 = 6960
Y2 = 6960
End
Begin VB.Line Line2
BorderColor = &H80000001&
BorderWidth = 3
X1 = 120
X2 = 120
Y1 = 4200
Y2 = 6960
End
Begin VB.Line Line1
BorderColor = &H80000001&
BorderWidth = 3
X1 = 120
X2 = 6000
Y1 = 4200
Y2 = 4200
End
End
Begin VB.Label Label1
Caption = "Label1"
Height = 495
Left = 5400
TabIndex = 3
Top = 4080
Width = 1215
End
End
Attribute VB_Name = "wsform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addcm_Click()
wsform.Data2.Recordset.AddNew
savecancelenable2
End Sub
Private Sub addcmd_Click(Index As Integer)
wsform.Data1.Recordset.AddNew
savecancelenable
End Sub
Public Sub savecancelenable()
addcmd(0).Enabled = False
canccmd(0).Enabled = True
delecmd(0).Enabled = False
surecmd(0).Enabled = True
End Sub
Private Sub canccm_Click()
wsform.Data2.Recordset.CancelUpdate
ii
End Sub
Private Sub canccmd_Click(Index As Integer)
wsform.Data1.Recordset.CancelUpdate
iii
End Sub
Private Sub delecm_Click()
Dim sel As Integer
On Error GoTo delrror
sel = MsgBox("确定要删除这条记录吗? ", vbOKCancel + vbQuestion, "确定删除 ")
If sel = 1 Then
BeginTrans
wsform.Data2.Recordset.Delete
CommitTrans
wsform.Data2.Recordset.MovePrevious
wsform.Data2.Refresh
If wsform.Data2.Recordset.RecordCount <= 0 Then
x = MsgBox("数据库中没有记录 ", vbOKOnly, "数据库信息 ")
End If
End If
ii
delrror:
MsgBox Err.Description
End Sub
Private Sub delecmd_Click(Index As Integer)
Dim sel As Integer
On Error GoTo delrror
sel = MsgBox("确定要删除这条记录吗? ", vbOKCancel + vbQuestion, "确定删除 ")
If sel = 1 Then
BeginTrans
wsform.Data1.Recordset.Delete
CommitTrans
wsform.Data1.Recordset.MovePrevious
wsform.Data1.Refresh
If wsform.Data1.Recordset.RecordCount <= 0 Then
x = MsgBox("数据库中没有记录 ", vbOKOnly, "数据库信息 ")
End If
End If
iii
delrror:
MsgBox Err.Description
End Sub
Private Sub Form_Activate()
iii
ii
End Sub
Private Sub surecm_Click()
wsform.Data2.Recordset.Update
wsform.Data2.Refresh
ii
End Sub
Private Sub surecmd_Click(Index As Integer)
BeginTrans
wsform.Data1.Recordset.Update
CommitTrans
wsform.Data1.Refresh
iii
End Sub
Public Sub iii()
If wsform.Data1.Recordset.RecordCount = 0 Then
addcmd(0).Enabled = True
canccmd(0).Enabled = False
delecmd(0).Enabled = False
surecmd(0).Enabled = False
Else
addcmd(0).Enabled = True
canccmd(0).Enabled = False
delecmd(0).Enabled = True
surecmd(0).Enabled = False
End If
End Sub
Public Sub ii()
If wsform.Data2.Recordset.RecordCount = 0 Then
addcm.Enabled = True
canccm.Enabled = False
delecm.Enabled = False
surecm.Enabled = False
Else
addcm.Enabled = True
canccm.Enabled = False
delecm.Enabled = True
surecm.Enabled = False
End If
End Sub
Public Sub savecancelenable2()
addcm.Enabled = False
canccm.Enabled = True
delecm.Enabled = False
surecm.Enabled = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -