frmflowersy.frm

鲜花管理系统

      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "FrmFlowerSY"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs As ADODB.Recordset
Public Sub huatu()

    '根据花名显示花的图片
    Select Case rs.Fields("鲜花名称")
       Case "白玫瑰"
            Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\白玫瑰.jpg")
        Case "百合"
            Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\百合.jpg")
        Case "黑玫瑰"
            Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\黑玫瑰.jpg")
        Case "红玫瑰"
            Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\红玫瑰.jpg")
        Case "康乃馨"
            Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\康乃馨.jpg")
        Case "蓝色妖姬"
            Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\蓝色妖姬.jpg")
        Case "满天星"
            Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\满天星.jpg")
        Case "牡丹花"
            Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\牡丹花.jpg ")
        Case "郁金香"
            Image1.Picture = LoadPicture(App.Path & "\图片\鲜花\郁金香.jpg")
        Case "福寿无疆"
            Image1.Picture = LoadPicture(App.Path & "\图片\春节\福寿无疆.gif")
        Case "合家欢喜"
            Image1.Picture = LoadPicture(App.Path & "\图片\春节\合家欢喜.gif")
        Case "金玉满堂"
            Image1.Picture = LoadPicture(App.Path & "\图片\春节\金玉满堂.jpg")
        Case "喜庆蝴蝶兰"
            Image1.Picture = LoadPicture(App.Path & "\图片\春节\喜庆蝴蝶兰.jpg")
        Case "恩情 "
            Image1.Picture = LoadPicture(App.Path & "\图片\父亲节\恩情.jpg")
        Case "阖家欢乐"
            Image1.Picture = LoadPicture(App.Path & "\图片\父亲节\阖家欢乐.jpg")
         Case "快快乐乐"
            Image1.Picture = LoadPicture(App.Path & "\图片\父亲节\快快乐乐.jpg")
         Case "如意"
            Image1.Picture = LoadPicture(App.Path & "\图片\父亲节\如意.jpg")
         Case "999枝玫瑰"
            Image1.Picture = LoadPicture(App.Path & "\图片\婚礼\999枝玫瑰.bmp")
        Case "爱恋永恒"
            Image1.Picture = LoadPicture(App.Path & "\图片\婚礼\爱恋永恒.bmp")
        Case "天长地久"
            Image1.Picture = LoadPicture(App.Path & "\图片\婚礼\天长地久.bmp")
        Case "心心相映"
            Image1.Picture = LoadPicture(App.Path & "\图片\婚礼\心心相映.bmp")
        Case "爱之泉"
            Image1.Picture = LoadPicture(App.Path & "\图片\教师节\爱之泉.jpg")
        Case "老师，我爱你"
            Image1.Picture = LoadPicture(App.Path & "\图片\教师节\老师，我爱你.jpg")
        Case "唯你尊敬"
            Image1.Picture = LoadPicture(App.Path & "\图片\教师节\唯你尊敬.jpg")
        Case "永远在心中"
            Image1.Picture = LoadPicture(App.Path & "\图片\教师节\永远在心中.jpg")
        Case "爱的奉献"
            Image1.Picture = LoadPicture(App.Path & "\图片\母亲节\爱的奉献.gif")
        Case "感恩母亲"
            Image1.Picture = LoadPicture(App.Path & "\图片\母亲节\感恩母亲.jpg")
        Case "念亲情"
            Image1.Picture = LoadPicture(App.Path & "\图片\母亲节\念亲情.gif")
        Case "温暖的怀抱"
            Image1.Picture = LoadPicture(App.Path & "\图片\母亲节\温暖的怀抱.gif")
        Case "宝贝我想你"
            Image1.Picture = LoadPicture(App.Path & "\图片\七夕节\宝贝我想你.jpg")
        Case "痴心"
            Image1.Picture = LoadPicture(App.Path & "\图片\七夕节\痴心.jpg")
        Case "粉红色的回忆"
            Image1.Picture = LoadPicture(App.Path & "\图片\七夕节\粉红色的回忆.gif")
        Case "七夕，纯纯的爱"
            Image1.Picture = LoadPicture(App.Path & "\图片\七夕节\七夕，纯纯的爱.gif")
        Case "美丽的季节"
            Image1.Picture = LoadPicture(App.Path & "\图片\友情\美丽的季节.gif")
        Case "朋友"
            Image1.Picture = LoadPicture(App.Path & "\图片\友情\朋友.bmp")
        Case "清纯"
            Image1.Picture = LoadPicture(App.Path & "\图片\友情\清纯.bmp")
        Case "勿忘我"
            Image1.Picture = LoadPicture(App.Path & "\图片\友情\勿忘我.bmp")
        Case "哀思"
            Image1.Picture = LoadPicture(App.Path & "\图片\葬礼\哀思.bmp")
        Case "节哀"
            Image1.Picture = LoadPicture(App.Path & "\图片\葬礼\节哀.bmp")
        Case "思念"
            Image1.Picture = LoadPicture(App.Path & "\图片\葬礼\思念.bmp")
        Case "共享天伦"
            Image1.Picture = LoadPicture(App.Path & "\图片\中秋节\共享天伦.jpg")
        Case "思乡"
            Image1.Picture = LoadPicture(App.Path & "\图片\中秋节\思乡.jpg")
        Case "想念亲人"
            Image1.Picture = LoadPicture(App.Path & "\图片\中秋节\想念亲人.jpg")
        Case "福如东海"
            Image1.Picture = LoadPicture(App.Path & "\图片\贺寿\福如东海.bmp")
        Case "吉祥"
            Image1.Picture = LoadPicture(App.Path & "\图片\贺寿\吉祥.jpg")
        Case "祝福"
            Image1.Picture = LoadPicture(App.Path & "\图片\贺寿\祝福.bmp")
        Case "健康"
            Image1.Picture = LoadPicture(App.Path & "\图片\慰问\健康.jpg")
        Case "精彩的人生"
            Image1.Picture = LoadPicture(App.Path & "\图片\慰问\精彩的人生.jpg")
        Case "问候"
            Image1.Picture = LoadPicture(App.Path & "\图片\慰问\问候.jpg")
        Case "早日康复"
            Image1.Picture = LoadPicture(App.Path & "\图片\慰问\早日康复.gif")
        Case "爱的祈祷"
            Image1.Picture = LoadPicture(App.Path & "\图片\圣诞节\爱的祈祷.bmp")
        Case "纯纯的爱恋"
            Image1.Picture = LoadPicture(App.Path & "\图片\圣诞节\纯纯的爱恋.jpg")
        Case "美梦成真"
            Image1.Picture = LoadPicture(App.Path & "\图片\圣诞节\美梦成真.jpg")
        Case "圣诞之夜最想你"
            Image1.Picture = LoadPicture(App.Path & "\图片\圣诞节\圣诞之夜最想你.bmp")
        Case "步步高"
            Image1.Picture = LoadPicture(App.Path & "\图片\商业\步步高.bmp")
        Case "欢聚一堂"
            Image1.Picture = LoadPicture(App.Path & "\图片\商业\欢聚一堂.jpg")
        Case "生意兴隆"
            Image1.Picture = LoadPicture(App.Path & "\图片\商业\生意兴隆.jpg")
        Case "朝夕相盼"
            Image1.Picture = LoadPicture(App.Path & "\图片\生日\朝夕相盼.gif")
        Case "好运"
            Image1.Picture = LoadPicture(App.Path & "\图片\生日\好运.gif")
        Case "玫瑰爱人"
            Image1.Picture = LoadPicture(App.Path & "\图片\生日\玫瑰爱人.jpg")
        Case "美梦成真"
            Image1.Picture = LoadPicture(App.Path & "\图片\生日\美梦成真.jpg")
        Case "爱的祈祷"
            Image1.Picture = LoadPicture(App.Path & "\图片\情人节\爱的祈祷.gif")
        Case "爱的甜蜜"
            Image1.Picture = LoadPicture(App.Path & "\图片\情人节\爱的甜蜜.jpg")
        Case "爱意无限"
            Image1.Picture = LoadPicture(App.Path & "\图片\情人节\爱的祈祷.gif")
        Case "嫁给我吧，宝贝"
            Image1.Picture = LoadPicture(App.Path & "\图片\情人节\爱的祈祷.gif")
        Case "爱你不后悔"
            Image1.Picture = LoadPicture(App.Path & "\图片\爱情\爱你不后悔.bmp")
        Case "伴你一生"
            Image1.Picture = LoadPicture(App.Path & "\图片\爱情\伴你一生.jpg")
        Case "爱相随"
            Image1.Picture = LoadPicture(App.Path & "\图片\爱情\爱相随.jpg")
        Case "纯纯的爱恋"
            Image1.Picture = LoadPicture(App.Path & "\图片\爱情\纯纯的爱恋.jpg")
    End Select
End Sub
    

Private Sub Command1_Click()
On Error Resume Next
     rs.MoveFirst
     Call huatu
     If rs.BOF Then
        MsgBox "您正在查看的是第一条数据"
    End If
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Command3_Click()
    frmflwtj.Caption = "添加鲜花"
    frmflwtj.Show vbModal
End Sub

Private Sub Command4_Click()
    frmflwtj.Caption = "修改鲜花"
    frmflwtj.txtid.Text = rs.Fields("鲜花编号").Value
    frmflwtj.Show vbModal
End Sub

Private Sub Command5_Click()

        '删除数据
    If MsgBox("确定要删除么？", vbOKCancel) = vbOK Then
        rs.Delete
        rs.MoveFirst
        MsgBox "删除成功"
    End If
End Sub

Private Sub Command6_Click()
   On Error Resume Next
    rs.MoveLast
    Call huatu
    If rs.EOF Then
        MsgBox "您正在查看的是最后一条数据"
    End If
End Sub

Private Sub Command7_Click()
    On Error Resume Next
    rs.MoveNext
    Call huatu
    If rs.EOF Then
        MsgBox "您正在查看的是最后一条数据"
        rs.MoveLast
    End If
End Sub

Private Sub Command8_Click()

    '数据向下移动
    On Error Resume Next
     rs.MovePrevious
     Call huatu
     If rs.BOF Then
        MsgBox "您正在查看的是第一条数据"
        rs.MoveFirst
    End If
End Sub

Private Sub Form_Load()
    Call showskin(Skin1, hwnd)
    Set rs = search("select 鲜花编号,鲜花名称,送花原因,价格,鲜花数量,进货日期 from floweryy")
    Set DataGrid1.DataSource = rs
    Call huatu
'    Image1.Picture = LoadPicture(App.Path & "\图片\爱情\伴你一生.jpg")
End Sub