📄 frmdgxx.frm
字号:
Begin VB.TextBox Txt2
Height = 405
Left = 2370
TabIndex = 5
Top = 810
Width = 2175
End
Begin VB.TextBox Txt3
Height = 405
Left = 2370
TabIndex = 4
Top = 1395
Width = 4245
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
Height = 375
Left = 225
OleObjectBlob = "FrmDGXX.frx":06E0
TabIndex = 6
Top = 270
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel2
Height = 375
Left = 1665
OleObjectBlob = "FrmDGXX.frx":0737
TabIndex = 7
Top = 285
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 375
Left = 1185
OleObjectBlob = "FrmDGXX.frx":078E
TabIndex = 8
Top = 285
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4
Height = 375
Left = 705
OleObjectBlob = "FrmDGXX.frx":07E5
TabIndex = 9
Top = 285
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel5
Height = 375
Left = 225
OleObjectBlob = "FrmDGXX.frx":083C
TabIndex = 10
Top = 1410
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel6
Height = 375
Left = 1665
OleObjectBlob = "FrmDGXX.frx":0893
TabIndex = 11
Top = 1410
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel7
Height = 375
Left = 1185
OleObjectBlob = "FrmDGXX.frx":08EA
TabIndex = 12
Top = 1410
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel8
Height = 375
Left = 705
OleObjectBlob = "FrmDGXX.frx":0941
TabIndex = 13
Top = 1410
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel9
Height = 375
Left = 225
OleObjectBlob = "FrmDGXX.frx":0998
TabIndex = 14
Top = 825
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel10
Height = 375
Left = 1665
OleObjectBlob = "FrmDGXX.frx":09EF
TabIndex = 15
Top = 825
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel11
Height = 375
Left = 1185
OleObjectBlob = "FrmDGXX.frx":0A46
TabIndex = 16
Top = 825
Width = 375
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel12
Height = 375
Left = 705
OleObjectBlob = "FrmDGXX.frx":0A9D
TabIndex = 17
Top = 825
Width = 375
End
End
Begin VB.CommandButton Command3
Caption = "退 出"
Height = 495
Left = 5805
TabIndex = 2
Top = 5670
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "确 定"
Height = 495
Left = 840
TabIndex = 1
Top = 5670
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "清 空"
Height = 495
Left = 3420
TabIndex = 0
Top = 5670
Width = 1215
End
Begin ACTIVESKINLibCtl.Skin Skin1
Left = 5895
OleObjectBlob = "FrmDGXX.frx":0AF4
Top = 45
End
End
Attribute VB_Name = "FrmDGXX"
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 Combo2_Click()
Frmduix.Show
End Sub
Private Sub Command1_Click() '实现清空功能
Dim i As Integer
On Error Resume Next
Txt1.Text = ""
Txt2.Text = ""
Txt3.Text = ""
Combo2.Text = ""
For i = 0 To 9 '清空列表框中的内容
Lst.RemoveItem (0)
Next
Txt4.Text = ""
Txt6.Text = ""
txtzj.Text = 0
End Sub
Private Sub Command2_Click()
Dim i As Integer
On Error Resume Next
If rs.RecordCount <> 0 Then '自动生成编号
rs.MoveLast
txtid.Text = Format(Right(rs.Fields("订单编号"), 5) + 1, "0####")
Else
txtid.Text = "00001"
End If
If Txt1.Text = "" Then
MsgBox "客户姓名不能为空！"
Exit Sub
End If
If Txt2.Text = "" Then
MsgBox "客户电话不能为空！"
Exit Sub
End If
If Txt6 = "" Then
MsgBox "送花地址不能为空！"
Exit Sub
End If
If Combo2.Text = "" Then
MsgBox "请选择花束！"
Exit Sub
End If
rs.AddNew '新建
rs.Fields("订单编号") = txtid '赋值
rs.Fields("客户姓名") = Txt1 '赋值
rs.Fields("联系电话") = Txt2 '赋值
rs.Fields("联系地址") = Txt3
rs.Fields("送花原因") = Combo2.Text
rs.Fields("送花对象") = Txt4 '赋值
rs.Fields("送花时间") = DTPicker1.Value '赋值
rs.Fields("送花地址") = Txt6.Text
For i = 0 To 10
rs.Fields("鲜花名称") = rs.Fields("鲜花名称") & Chr(13) & Lst.List(i)
Next
rs.Fields("鲜花数量") = 1
rs.Fields("鲜花总价") = txtzj.Text
rs.Update '更新保存数据
For i = 0 To 10 '鲜花购买成功后，鲜花数量自动减少
Set rs = search("select * from floweryy where 鲜花名称='" & Lst.List(i) & "'")
If rs.RecordCount <> 0 Then
rs.Fields("鲜花数量") = rs.Fields("鲜花数量").Value - 1
rs.Update
End If
Next
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 "此人是新的顾客" & Chr(13) & "已经把他的信息添加到了数据库中！"
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)
txtzj.Enabled = False
txtzj.Text = 0
End Sub
Private Sub Lst_Click()
MsgBox Lst.List(0)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -