frmduix.frm

鲜花管理系统

End Sub

Private Sub cmdqued_Click()
    Dim jq As Integer
    Dim a As String
    If Chk1.Value = 0 And Chk2.Value = 0 And Chk3.Value = 0 And Chk4.Value = 0 Then
        Exit Sub
    Else
        If Chk1.Value = 1 Then
            jq = jq + Txt1
            FrmDGXX.Lst.AddItem Chk1.Caption
        End If
        If Chk2.Value = 1 Then
            jq = jq + Txt2
            FrmDGXX.Lst.AddItem Chk2.Caption
        End If
        If Chk3.Value = 1 Then
            jq = jq + Txt3
            FrmDGXX.Lst.AddItem Chk3.Caption
        End If
        If Chk4.Value = 1 Then
            jq = jq + Txt4
            FrmDGXX.Lst.AddItem Chk4.Caption
        End If
        FrmDGXX.Lst.ListIndex = 0
        FrmDGXX.txtzj = jq
        Unload Me
    End If
End Sub

Private Sub Form_Load()
    Dim sql As String
    Call showskin(Skin1, hwnd)
    
    '根据送花原因不同，显示不同图片
    Select Case FrmDGXX.Combo2.ListIndex
        Case 0
            Image1.Picture = LoadPicture(App.Path & "\图片\爱情\爱你不后悔.bmp")
            Chk1.Caption = "爱你不后悔"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\爱情\爱相随.jpg")
            Chk2.Caption = "爱相随"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\爱情\伴你一生.jpg")
            Chk3.Caption = "伴你一生"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\爱情\纯纯的爱恋.jpg")
            Chk4.Caption = "纯纯的爱恋"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
        Case 1
            Image1.Picture = LoadPicture(App.Path & "\图片\春节\福寿无疆.gif")
            Chk1.Caption = "福寿无疆"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\春节\合家欢喜.gif")
            Chk2.Caption = "合家欢喜"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\春节\金玉满堂.jpg")
            Chk3.Caption = "金玉满堂"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\春节\喜庆蝴蝶兰.jpg")
            Chk4.Caption = "喜庆蝴蝶兰"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
        Case 2
            Image1.Picture = LoadPicture(App.Path & "\图片\父亲节\恩情.jpg")
            Chk1.Caption = "恩情"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\父亲节\阖家欢乐.jpg")
            Chk2.Caption = "阖家欢乐"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\父亲节\快快乐乐.jpg")
            Chk3.Caption = "快快乐乐"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\父亲节\如意.jpg")
            Chk4.Caption = "如意"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
        Case 3
            Image1.Picture = LoadPicture(App.Path & "\图片\婚礼\999枝玫瑰.bmp")
            Chk1.Caption = "999枝玫瑰"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\婚礼\爱恋永恒.bmp")
            Chk2.Caption = "爱恋永恒"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\婚礼\天长地久.bmp")
            Chk3.Caption = "天长地久"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\婚礼\心心相映.bmp")
            Chk4.Caption = "心心相映"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
       Case 4
            Image1.Picture = LoadPicture(App.Path & "\图片\教师节\爱之泉.jpg")
            Chk1.Caption = "爱之泉"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\教师节\老师，我爱你.jpg")
            Chk2.Caption = "老师，我爱你"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\教师节\唯你尊敬.jpg")
            Chk3.Caption = "唯你尊敬"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\教师节\永远在心中.jpg")
            Chk4.Caption = "永远在心中"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
       Case 5
            Image1.Picture = LoadPicture(App.Path & "\图片\母亲节\爱的奉献.gif")
            Chk1.Caption = "爱的奉献"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\母亲节\感恩母亲.jpg")
            Chk2.Caption = "感恩母亲"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\母亲节\念亲情.gif")
            Chk3.Caption = "念亲情"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\母亲节\温暖的怀抱.gif")
            Chk4.Caption = "温暖的怀抱"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
       Case 6
            Image1.Picture = LoadPicture(App.Path & "\图片\七夕节\宝贝我想你.jpg")
             Chk1.Caption = "宝贝我想你"
             sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\七夕节\痴心.jpg")
            Chk2.Caption = "痴心"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\七夕节\粉红色的回忆.gif")
            Chk3.Caption = "粉红色的回忆"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\七夕节\七夕，纯纯的爱.gif")
            Chk4.Caption = "七夕，纯纯的爱"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
       Case 7
            Image1.Picture = LoadPicture(App.Path & "\图片\友情\美丽的季节.gif")
            Chk1.Caption = "美丽的季节"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\友情\朋友.bmp")
            Chk2.Caption = "朋友"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\友情\清纯.bmp")
            Chk3.Caption = "清纯"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\友情\勿忘我.bmp")
            Chk4.Caption = "勿忘我"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
       Case 8
            Image1.Picture = LoadPicture(App.Path & "\图片\葬礼\哀思.bmp")
            Chk1.Caption = "哀思"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\葬礼\节哀.bmp")
            Chk2.Caption = "节哀"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\葬礼\静.bmp")
            Chk3.Caption = "静"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\葬礼\思念.bmp")
            Chk4.Caption = "思念"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
       Case 9
            Image1.Picture = LoadPicture(App.Path & "\图片\中秋\共享天伦.jpg")
            Chk1.Caption = "共享天伦"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\中秋\思乡.jpg")
            Chk2.Caption = "思乡"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\中秋\想念亲人.jpg")
            Chk3.Caption = "想念亲人"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Chk4.Enabled = False
       Case 10
            Image1.Picture = LoadPicture(App.Path & "\图片\贺寿\福如东海.bmp")
            Chk1.Caption = "福如东海"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\贺寿\吉祥.jpg")
            Chk2.Caption = "吉祥"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\贺寿\祝福.bmp")
            Chk3.Caption = "祝福"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Chk4.Enabled = False
       Case 11
            Image1.Picture = LoadPicture(App.Path & "\图片\慰问\健康.jpg")
            Chk1.Caption = "健康"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\慰问\精彩的人生.jpg")
            Chk2.Caption = "精彩的人生"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\慰问\问候.jpg")
            Chk3.Caption = "问候"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\慰问\早日康复.gif")
            Chk4.Caption = "早日康复"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
       Case 12
            Image1.Picture = LoadPicture(App.Path & "\图片\圣诞节\爱的祈祷.bmp")
            Chk1.Caption = "爱的祈祷"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\圣诞节\纯纯的爱恋.jpg")
            Chk2.Caption = "纯纯的爱恋"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\圣诞节\美梦成真.jpg")
            Chk3.Caption = "美梦成真"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\圣诞节\圣诞之夜最想你.bmp")
            Chk4.Caption = "圣诞之夜最想你"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
       Case 13
            Image1.Picture = LoadPicture(App.Path & "\图片\商业\步步高.bmp")
            Chk1.Caption = "步步高"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\商业\欢聚一堂.jpg")
            Chk2.Caption = "欢聚一堂"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\商业\生意兴隆.jpg")
            Chk3.Caption = "生意兴隆"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\商业\幸运星.jpg")
            Chk4.Caption = "幸运星"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
       Case 14
            Image1.Picture = LoadPicture(App.Path & "\图片\生日\朝夕相盼.gif")
            Chk1.Caption = "朝夕相盼"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\生日\好运.gif")
            Chk2.Caption = "好运"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\生日\玫瑰爱人.jpg")
            Chk3.Caption = "玫瑰爱人"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\生日\美梦成真.jpg")
            Chk4.Caption = "美梦成真"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
       Case 15
            Image1.Picture = LoadPicture(App.Path & "\图片\情人节\爱的祈祷.gif")
            Chk1.Caption = "爱的祈祷"
            sql = Chk1.Caption
            Txt1.Text = seljg(sql)
            Image2.Picture = LoadPicture(App.Path & "\图片\情人节\爱的甜蜜.jpg")
            Chk2.Caption = "爱的甜蜜"
            sql = Chk2.Caption
            Txt2.Text = seljg(sql)
            Image3.Picture = LoadPicture(App.Path & "\图片\情人节\爱意无限.gif")
            Chk3.Caption = "爱意无限"
            sql = Chk3.Caption
            Txt3.Text = seljg(sql)
            Image4.Picture = LoadPicture(App.Path & "\图片\情人节\嫁给我吧，宝贝.gif")
            Chk4.Caption = "嫁给我吧，宝贝"
            sql = Chk4.Caption
            Txt4.Text = seljg(sql)
    End Select
End Sub

Private Sub Image1_Click()
    Chk1.Value = 1
End Sub
Private Sub Image2_Click()
    Chk2.Value = 1
End Sub
Private Sub Image3_Click()
    Chk3.Value = 1
End Sub
Private Sub Image4_Click()
    Chk4.Value = 1
End Sub