📄 frmsdin.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2640
TabIndex = 32
Top = 2760
Width = 375
End
Begin VB.Label Label11
Caption = "元"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8640
TabIndex = 23
Top = 3360
Width = 615
End
Begin VB.Label Label10
Caption = "元"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8640
TabIndex = 22
Top = 2760
Width = 615
End
Begin VB.Label Label9
Caption = "月 份"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 20
Top = 2160
Width = 1215
End
Begin VB.Label Label8
Caption = "应收电费"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6240
TabIndex = 13
Top = 3360
Width = 1215
End
Begin VB.Label Label7
Caption = "应收水费"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6240
TabIndex = 12
Top = 2760
Width = 1215
End
Begin VB.Label Label6
Caption = "元/度"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5280
TabIndex = 9
Top = 3360
Width = 615
End
Begin VB.Label Label5
Caption = "元/吨"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5280
TabIndex = 8
Top = 2760
Width = 615
End
Begin VB.Label Label4
Caption = "本月用电量"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 3
Top = 3360
Width = 1215
End
Begin VB.Label Label3
Caption = "本月用水量"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 2
Top = 2760
Width = 1215
End
Begin VB.Label Label2
Caption = "姓 名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 1
Top = 1320
Width = 1215
End
Begin VB.Label Label1
Caption = "用户代码"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 0
Top = 840
Width = 1215
End
End
Attribute VB_Name = "frmSDin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text9.Enabled = True
Text1.SetFocus
Command3.Enabled = True
Command2.Visible = True
Command1.Visible = False
Data1.Recordset.AddNew
Text5.Text = Trim(Text10.Text) '设置完水电价格及月份后,自动填入表格中,减少输入,提高效率
Text6.Text = Trim(Text11.Text)
Text9.Text = Trim(Text12.Text)
End Sub
Private Sub Command2_Click()
On Error GoTo noupdate
Command1.Default = True
If Trim(Text1.Text) = "" Then
MsgBox "用户代码不能为空!", , "警告"
Text1.SetFocus
Else
prompt = "真的新增该条记录吗?"
answer = MsgBox(prompt, vbOKCancel, "提示")
If answer = vbOK Then
Dim Wa As Single, Wb As Single, Ea As Single, Eb As Single '对费用进行计算并更新数据库
Wa = Trim(Text3.Text)
Wb = Trim(Text5.Text)
Text7.Text = Wa * Wb
Ea = Trim(Text4.Text)
Eb = Trim(Text6.Text)
Text8.Text = Ea * Eb
Data1.Recordset.Update
Data1.Recordset.MoveLast
Else
Data1.Recordset.CancelUpdate
End If
Command2.Visible = False
Command1.Visible = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
End If
Command3.Enabled = False
Exit Sub
noupdate:
MsgBox "请填写所有信息!", , "提示"
Exit Sub
End Sub
Private Sub Command3_Click()
Data1.Refresh
Command2.Visible = False
Command1.Visible = True
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Command5_Click()
End Sub
Private Sub Data1_Reposition()
dataid = Data1.Recordset.AbsolutePosition + 1 '当前记录改变后，显示当前记录号
Label20.Caption = "第" & Str(dataid) & " 条记录"
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\水电费管理系统数据库.mdb"
Data1.RecordSource = "水电费表"
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Command2.Visible = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -