📄 form2.frm
字号:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 600
TabIndex = 22
Top = 3000
Width = 1095
End
Begin VB.Label Label12
Caption = "威迪尔工作室出品版权所有翻用必究"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 5880
TabIndex = 20
Top = 6360
Width = 3495
End
Begin VB.Label Label11
BackColor = &H00C0C0C0&
Caption = "欢迎使用[manager]影片管理系统"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Left = 5880
TabIndex = 19
Top = 120
Width = 3375
End
Begin VB.Line Line2
X1 = 5640
X2 = 5640
Y1 = 0
Y2 = 6720
End
Begin VB.Line Line1
BorderColor = &H000000FF&
X1 = 480
X2 = 480
Y1 = 0
Y2 = 6840
End
Begin VB.Label Label9
Caption = "住址"
Height = 495
Left = 600
TabIndex = 15
Top = 6360
Width = 255
End
Begin VB.Label Label8
Caption = "还片"
Height = 615
Left = 600
TabIndex = 13
Top = 4680
Width = 255
End
Begin VB.Label Label6
Caption = "租片"
Height = 615
Left = 600
OLEDropMode = 1 'Manual
TabIndex = 12
Top = 3720
Width = 255
End
Begin VB.Label Label7
Caption = "剩余点数"
ForeColor = &H000000FF&
Height = 495
Left = 3120
TabIndex = 10
Top = 1440
Width = 495
End
Begin VB.Label Label5
Caption = "姓名"
Height = 495
Left = 600
TabIndex = 7
Top = 2400
Width = 255
End
Begin VB.Label Label4
Caption = "电话"
Height = 495
Left = 600
TabIndex = 6
Top = 1800
Width = 255
End
Begin VB.Label Label3
Caption = "客户"
Height = 495
Left = 600
TabIndex = 5
Top = 1200
Width = 255
End
End
Attribute VB_Name = "Form22"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strr
Private Sub Command10_Click()
Form55.Show
Load Form55
End Sub
Private Sub Command2_Click()
Dim msg
oldmark = Data2.Recordset.Bookmark
oldmark3 = Data3.Recordset.Bookmark
msg = Trim(InputBox("请输入客户号码", "查询"))
msg = "客户 = '" & msg & "'"
Data2.Recordset.FindFirst msg
Data3.Recordset.FindFirst msg
Data3.Recordset.FindLast msg
Form22.Text19.ForeColor = 0
If Data2.Recordset.NoMatch Then
Data2.Recordset.Bookmark = oldmark
Else
Print Text3.Text
If InStr(Text6.Text, " ") = 0 Then
Text6.Text = " " + Text6.Text
End If
If InStr(Text8.Text, " ") = 0 Then
Text8.Text = " " + Text8.Text
End If
Command1.SetFocus
End If
If Data3.Recordset.NoMatch Then
Data3.Recordset.Bookmark = oldmark3
End If
End Sub
Private Sub Command1_Click()
Dim msg
Dim StrExample As String
Dim str1 As String
Dim str2 As String
Dim str3 As String
str1 = Month(Date)
str2 = Day(Date)
str3 = Date
oldmark = Data1.Recordset.Bookmark
msg = Trim(InputBox("请输入条形码", "查询", , 4100, 860))
msg = "条形码 = '" & msg & "'"
Data1.Recordset.FindFirst msg
If Text16.Text <> "" Then
Dim s As Date
Dim st As Date
s = Text16.Text
st = Date - s + 1
Text23.Text = st
If st >= Text14.Text Then
Text13.Text = Text22.Text
Else
Text13.Text = Text21.Text
End If
End If
If Text2.Text <> "" Then
If InStr(Text8.Text, Text2.Text) <> 0 Then
If MsgBox("您已经租过此片!", vbYesNo + vbQuestion) = vbYes Then
Else
Text6.Text = (Text6.Text + "~" + Text2.Text + str3)
Text7.Text = (Text7.Text - Text11.Text)
Text12.Text = Date
End If
End If
If InStr(Text8.Text, Text2.Text) = 0 Then
Text6.Text = (Text6.Text + "~" + Text2.Text + str3)
Text7.Text = (Text7.Text - Text11.Text)
Text12.Text = Date
End If
Command1.Value = True
End If
If Data1.Recordset.NoMatch Then
Data1.Recordset.Bookmark = oldmark
End If
End Sub
Private Sub Command3_Click()
Dim msg
oldmark = Data2.Recordset.Bookmark
oldmark3 = Data3.Recordset.Bookmark
msg = Trim(InputBox("请输入电话号码", "查询"))
msg = "电话 = '" & msg & "'"
Data2.Recordset.FindFirst msg
Data3.Recordset.FindFirst msg
If Data2.Recordset.NoMatch Then
Data2.Recordset.Bookmark = oldmark
Else
Print Text4.Text
End If
If Data3.Recordset.NoMatch Then
Data3.Recordset.Bookmark = oldmark3
End If
End Sub
Private Sub Command4_Click()
If Text24.Text <> 0 Then
Text7.Text = Text7.Text - Text24.Text
Text24.Text = 0
End If
End Sub
Private Sub Command5_Click()
Dim msg
msg = Form22.Text3.Text
Data2.Refresh
oldmark = Data1.Recordset.Bookmark
msg = "客户 like '" & msg & "'"
Data2.Recordset.FindFirst msg
If Data2.Recordset.NoMatch Then
Data2.Recordset.Bookmark = oldmark
End If
Form22.Text3.ForeColor = 1000
End Sub
Private Sub Command5_LostFocus()
Form22.Text3.ForeColor = 0
End Sub
Private Sub Command6_Click()
Dim msg
Dim StrExample As String
Dim str3 As String
Dim St1 As String
Dim St2 As String
Dim St3 As String
Dim St4 As String
Dim St5 As String
Dim lefs As String
Dim rigs As String
Dim mids As String
Dim temp1 As Integer
Dim temp2 As Integer
Dim temp3 As Integer
Dim temp4 As Integer
Dim te1 As Integer
Dim te2 As Integer
St1 = Month(Date)
St2 = Day(Date)
St5 = Year(Date)
oldmark = Data1.Recordset.Bookmark
msg = Trim(InputBox("请输入条形码", "查询", , 4100, 2600))
msg = "条形码= '" & msg & "'"
Data1.Recordset.FindFirst msg
If Text2.Text <> "" Then
If InStr(Text6.Text, Text2.Text) <> 0 Then
temp1 = InStr(Text6.Text, Text2.Text)
lefs = Left(Text6.Text, temp1 - 2)
If InStr(temp1, Text6.Text, "~") <> 0 Then
temp3 = Len(Text6.Text)
temp2 = InStr(temp1, Text6.Text, "~")
rigs = Right(Text6.Text, temp3 - temp2 + 1)
temp4 = Len(Text2.Text)
te1 = temp1 + temp4
te2 = temp2 - temp4 - temp1
mids = Mid(Text6.Text, te1, te2)
Text6.Text = lefs + rigs
St4 = Date
Text8.Text = (Text8.Text + "~" + Text2.Text + mids + "[" + St4 + "]" + "#" + Text7.Text)
Dim mids7 As Date
mids7 = mids
Text9.Text = (Date - mids7 - Text13.Text + 1) / Text13.Text
If Text9.Text > 0 Then
Text9.Text = Int(Text9.Text) + 1
Else
Text9.Text = 0
End If
Text7.Text = Text7.Text - Text9.Text
Else
temp4 = Len(Text2.Text)
te1 = temp1 + temp4
temp3 = Len(Text6.Text)
mids = Right(Text6.Text, temp3 - te1 + 1)
Text6.Text = lefs
St4 = Date
Text8.Text = (Text8.Text + "~" + Text2.Text + mids + "[" + St4 + "]" + "#" + Text7.Text)
Dim mids8 As Date
mids8 = mids
Text9.Text = (Date - mids8 - Text13.Text) / Text13.Text
If Text9.Text > 0 Then
Text9.Text = Int(Text9.Text) + 1
Else
Text9.Text = 0
End If
Text7.Text = Text7.Text - Text9.Text
End If
End If
Command6.Value = True
End If
If Data1.Recordset.NoMatch Then
Data1.Recordset.Bookmark = oldmark
End If
End Sub
Private Sub Command7_Click()
If MsgBox("是否确定新笔入账!", vbYesNo) = vbYes Then
Form44.Show
Load Form44
End If
End Sub
Private Sub Command8_Click()
'Print Form22.DBCombo4.Text
'Print Form44.Text3.Text
If Form44.Text3.Text <> Form22.DBCombo4.Text Then
Exit Sub
End If
If Form44.Text2.Text <> Form44.Text1.Text Then
Exit Sub
End If
Unload Form44
Form33.Show
Load Form33
Print tt
Dim g1 As String
Dim g2 As String
g1 = DBCombo2.Text
g2 = DBCombo3.Text
If DBCombo2.Text <> 0 Then
Text18.Text = Text18.Text + DBCombo1.Text + "$" + DBCombo2.Text + "~" + Text17.Text
ElseIf DBCombo3.Text <> 0 Then
Text18.Text = Text18.Text + DBCombo1.Text + "$" + DBCombo3.Text + "~" + Text17.Text
End If
Dim msg
msg = Form22.Text19.Text
Data3.Refresh
oldmark = Data3.Recordset.Bookmark
msg = "客户 like '" & msg & "'"
Data3.Recordset.FindLast msg
If Data3.Recordset.NoMatch Then
Data3.Recordset.Bookmark = oldmark
End If
Form22.Text19.ForeColor = 1000
End Sub
Private Sub Command9_Click()
Form11.Show
Load Form11
End Sub
Private Sub Option1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim St1 As String
Dim St2 As String
Dim St5 As String
Dim St3 As Date
St1 = Month(Date)
St2 = Day(Date)
StrE = "(" + St1 + "/" + St2 + ")"
Text8.Text = Text8.Text + StrE + "#" + Text7.Text
If Text12.Text <> "" Then
St3 = Text12.Text
Text24.Text = Date - St3 + 1
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -