📄 frmgm.frm
字号:
Width = 975
End
Begin VB.TextBox Txtzj
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "幼圆"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2325
TabIndex = 1
Text = "0"
Top = 1845
Width = 975
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel13
Height = 375
Left = 180
OleObjectBlob = "frmgm.frx":047F
TabIndex = 6
Top = 270
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel14
Height = 375
Left = 1665
OleObjectBlob = "frmgm.frx":04D6
TabIndex = 7
Top = 285
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel15
Height = 375
Left = 1185
OleObjectBlob = "frmgm.frx":052D
TabIndex = 8
Top = 285
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel16
Height = 375
Left = 675
OleObjectBlob = "frmgm.frx":0584
TabIndex = 9
Top = 285
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel17
Height = 375
Left = 1170
OleObjectBlob = "frmgm.frx":05DB
TabIndex = 10
Top = 870
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel18
Height = 375
Left = 1680
OleObjectBlob = "frmgm.frx":0632
TabIndex = 11
Top = 870
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel19
Height = 375
Left = 1170
OleObjectBlob = "frmgm.frx":068B
TabIndex = 12
Top = 1350
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel20
Height = 375
Left = 1680
OleObjectBlob = "frmgm.frx":06E2
TabIndex = 13
Top = 1365
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel39
Height = 375
Left = 1170
OleObjectBlob = "frmgm.frx":0739
TabIndex = 14
Top = 1860
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel40
Height = 375
Left = 1680
OleObjectBlob = "frmgm.frx":0790
TabIndex = 15
Top = 1860
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel21
Height = 375
Left = 180
OleObjectBlob = "frmgm.frx":07E7
TabIndex = 16
Top = 855
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel22
Height = 375
Left = 675
OleObjectBlob = "frmgm.frx":083E
TabIndex = 17
Top = 855
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel41
Height = 375
Left = 180
OleObjectBlob = "frmgm.frx":0895
TabIndex = 18
Top = 1350
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel42
Height = 375
Left = 660
OleObjectBlob = "frmgm.frx":08EC
TabIndex = 19
Top = 1350
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel43
Height = 375
Left = 180
OleObjectBlob = "frmgm.frx":0943
TabIndex = 20
Top = 1845
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel44
Height = 375
Left = 660
OleObjectBlob = "frmgm.frx":099A
TabIndex = 21
Top = 1845
Width = 375
End
End
Begin ACTIVESKINLibCtl.Skin Skin1
Left = 5940
OleObjectBlob = "frmgm.frx":09F1
Top = 45
End
End
Attribute VB_Name = "frmgm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Rs As ADODB.Recordset
Dim zj As Integer
Private Sub Combo1_Click()
Dim sql As String
Select Case Combo1.ListIndex
Case 0
Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\白玫瑰.jpg")
sql = "白玫瑰"
Txtdj.Text = seljg(sql)
Case 1
Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\百合.jpg")
sql = "百合"
Txtdj.Text = seljg(sql)
Case 2
Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\黑玫瑰.jpg")
sql = "黑玫瑰"
Txtdj.Text = seljg(sql)
Case 3
Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\红玫瑰.jpg")
sql = "红玫瑰"
Txtdj.Text = seljg(sql)
Case 4
Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\康乃馨.jpg")
sql = "康乃馨"
Txtdj.Text = seljg(sql)
Case 5
Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\蓝色妖姬.jpg")
sql = "蓝色妖姬"
Txtdj.Text = seljg(sql)
Case 6
Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\满天星.jpg")
sql = "满天星"
Txtdj.Text = seljg(sql)
Case 7
Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\牡丹花.jpg ")
sql = "牡丹花"
Txtdj.Text = seljg(sql)
Case 8
Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\郁金香.jpg")
sql = "郁金香"
Txtdj.Text = seljg(sql)
End Select
End Sub
Private Sub Command1_Click()
On Error Resume Next
Txt1.Text = ""
Txt2.Text = ""
Txt3.Text = ""
Combo1.Text = ""
Txt7.Text = 0
Txtdj.Text = 0
txtzj.Text = 0
End Sub
Private Sub Command2_Click()
If Rs.RecordCount <> 0 Then
Rs.MoveLast
txtid.Text = Format(Right(Rs.Fields("订单编号"), 5) + 1, "0####")
Else
txtid.Text = "00001"
End If
If Txt1 = "" Then
MsgBox "客户姓名不能为空！"
Exit Sub
End If
If Combo1.Text = "" Then
MsgBox "送花名称不能为空！"
Exit Sub
End If
Rs.AddNew
Rs.Fields("订单编号") = txtid
Rs.Fields("客户姓名") = Txt1
Rs.Fields("联系电话") = Txt2
Rs.Fields("联系地址") = Txt3
Rs.Fields("鲜花名称").Value = Combo1.Text
Rs.Fields("鲜花数量").Value = Txt7
Rs.Fields("鲜花总价").Value = txtzj
Rs.Update
Set Rs = search("select * from floweryy where 鲜花名称='" & Combo1.Text & "'")
If Rs.RecordCount <> 0 Then
Rs.Fields("鲜花数量") = Rs.Fields("鲜花数量").Value - Txt7.Text
Rs.Update
End If
MsgBox "购买成功！"
Set Rs = search("select * from yonghu where 顾客姓名='" & Txt1.Text & "'")
If Rs.RecordCount <> 0 Then
Else
Set Rs = search("select * from yonghu")
If Rs.RecordCount <> 0 Then
Rs.MoveLast
txtid.Text = Format(Right(Rs.Fields("顾客编号"), 5) + 1, "0####")
Else
txtid.Text = "00001"
End If
Rs.AddNew
Rs.Fields("顾客编号").Value = txtid.Text
Rs.Fields("顾客姓名") = Txt1
Rs.Fields("顾客电话") = Txt2
Rs.Fields("顾客地址") = Txt3
Rs.Fields("会员").Value = "否"
Rs.Update
MsgBox "此人是新顾客，已经把他的信息添加到了数据库中！"
End If
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set Rs = search("select * from dingdan")
Call showskin(Skin1, hwnd)
Txtdj.Enabled = False
txtzj.Enabled = False
End Sub
Private Sub Txt7_Change()
On Error Resume Next
If Txt7 <> "" Then
txtzj.Text = Txtdj * (Txt7 - zj)
Else
txtzj.Text = 0
Exit Sub
End If
End Sub
Private Sub Txt7_KeyPress(KeyAscii As Integer)
If KeyAscii > 47 And KeyAscii < 58 Or KeyAscii = 8 Then
Else
KeyAscii = 0
MsgBox "只能输入数字！"
Txt7.SetFocus
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -