frm_ico.frm

ktv场所的包房开房、迎宾、预定管理系统。

         Caption         =   "预买包厢图标"
         Height          =   195
         Index           =   5
         Left            =   120
         TabIndex        =   33
         Top             =   2730
         Width           =   1110
      End
      Begin VB.Label Label2 
         Caption         =   "背景颜色"
         Height          =   405
         Index           =   4
         Left            =   5535
         TabIndex        =   32
         Top             =   2160
         Width           =   420
      End
      Begin VB.Image Image1 
         BorderStyle     =   1  'Fixed Single
         Height          =   390
         Index           =   4
         Left            =   4035
         Stretch         =   -1  'True
         Top             =   2175
         Width           =   600
      End
      Begin VB.Label Label1 
         Caption         =   "以结账包厢图标"
         Height          =   195
         Index           =   4
         Left            =   15
         TabIndex        =   27
         Top             =   2250
         Width           =   1290
      End
      Begin VB.Label Label2 
         Caption         =   "背景颜色"
         Height          =   405
         Index           =   3
         Left            =   5535
         TabIndex        =   18
         Top             =   1650
         Width           =   420
      End
      Begin VB.Label Label2 
         Caption         =   "背景颜色"
         Height          =   405
         Index           =   2
         Left            =   5535
         TabIndex        =   17
         Top             =   1140
         Width           =   420
      End
      Begin VB.Label Label2 
         Caption         =   "背景颜色"
         Height          =   405
         Index           =   1
         Left            =   5535
         TabIndex        =   16
         Top             =   735
         Width           =   420
      End
      Begin VB.Label Label2 
         Caption         =   "背景颜色"
         Height          =   405
         Index           =   0
         Left            =   5535
         TabIndex        =   15
         Top             =   300
         Width           =   420
      End
      Begin VB.Image Image1 
         BorderStyle     =   1  'Fixed Single
         Height          =   390
         Index           =   3
         Left            =   4035
         Stretch         =   -1  'True
         Top             =   1680
         Width           =   600
      End
      Begin VB.Image Image1 
         BorderStyle     =   1  'Fixed Single
         Height          =   390
         Index           =   2
         Left            =   4035
         Stretch         =   -1  'True
         Top             =   1180
         Width           =   600
      End
      Begin VB.Image Image1 
         BorderStyle     =   1  'Fixed Single
         Height          =   390
         Index           =   1
         Left            =   4035
         Stretch         =   -1  'True
         Top             =   730
         Width           =   600
      End
      Begin VB.Image Image1 
         BorderStyle     =   1  'Fixed Single
         Height          =   390
         Index           =   0
         Left            =   4035
         Stretch         =   -1  'True
         Top             =   250
         Width           =   600
      End
      Begin VB.Label Label1 
         Caption         =   "整修包厢图标"
         Height          =   195
         Index           =   3
         Left            =   120
         TabIndex        =   10
         Top             =   1785
         Width           =   1095
      End
      Begin VB.Label Label1 
         Caption         =   "预定包厢图标"
         Height          =   195
         Index           =   2
         Left            =   150
         TabIndex        =   7
         Top             =   1290
         Width           =   1095
      End
      Begin VB.Label Label1 
         Caption         =   "空包厢图标"
         Height          =   195
         Index           =   1
         Left            =   195
         TabIndex        =   4
         Top             =   825
         Width           =   945
      End
      Begin VB.Label Label1 
         Caption         =   "占用包厢图标"
         Height          =   195
         Index           =   0
         Left            =   150
         TabIndex        =   1
         Top             =   360
         Width           =   1095
      End
   End
   Begin MSComDlg.CommonDialog CDlg1 
      Index           =   1
      Left            =   7605
      Top             =   990
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSComDlg.CommonDialog CDlg1 
      Index           =   2
      Left            =   7620
      Top             =   1470
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSComDlg.CommonDialog CDlg1 
      Index           =   3
      Left            =   7620
      Top             =   1935
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSComDlg.CommonDialog CDlg1 
      Index           =   4
      Left            =   7605
      Top             =   2460
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSComDlg.CommonDialog CDlg1 
      Index           =   5
      Left            =   7605
      Top             =   2940
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
End
Attribute VB_Name = "frm_ico"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public msgtext As String
Private Sub cmd_no_Click()
  Unload Me
End Sub
Private Function MyPath() As String
    MyPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
End Function
Private Sub cmd_open_Click(Index As Integer)
   On Error Resume Next
           CDlg1(Index).DialogTitle = "打开图标"
           CDlg1(Index).InitDir = MyPath
           CDlg1(Index).Filter = "ICO文件|*.ico|JPG文件|*.jpg|BMP文件|*.bmp|GIF文件|*.gif"
           CDlg1(Index).ShowOpen
           If Exists(CDlg1(Index).FileName) Then
              Image1(Index).Picture = LoadPicture(CDlg1(Index).FileName)
              txt_path(Index).text = CurDir() & "\" & CDlg1(Index).FileTitle
           Else
               txt_path(Index).text = ""
               Call MsgBox("图标不存在，请另选择！！！")
           End If
End Sub
Private Sub cmd_sel_Click(Index As Integer)
   frm_color.Show 1
   If Not frm_color.cl = &H8000000F Then
     Picture1(Index).BackColor = frm_color.cl
   End If
End Sub
Private Sub cmd_yes_Click()
'   Dim mytempds As Recordset
   Dim mytempds As ADODB.Recordset
   sql$ = "select * from ico  "
'   Set mytempds = myDB.OpenRecordset(sql$, dbOpenDynaset)
   Set mytempds = ExecuteSQL(sql$, msgtext)
   If mytempds.EOF Then
     mytempds.AddNew
'   Else
'     mytempds.Edit
   End If
   mytempds!zypath = txt_path(0).text
   mytempds!kpath = txt_path(1).text
   mytempds!ydpath = txt_path(2).text
   mytempds!zlpath = txt_path(3).text
'   mytempds!jzpath = txt_path(4).text
'   mytempds!ympath = txt_path(5).text
   mytempds!zycolor = Picture1(0).BackColor
   mytempds!kcolor = Picture1(1).BackColor
   mytempds!ydcolor = Picture1(2).BackColor
   mytempds!zlcolor = Picture1(3).BackColor
'   mytempds!jzcolor = Picture1(4).BackColor
'   mytempds!ymcolor = Picture1(5).BackColor
   mytempds.Update
   Unload Me
End Sub
Private Sub Form_Load()
    Dim i As Integer
'    Dim mytempds As Recordset
    Dim mytempds As ADODB.Recordset
    Me.height = 3945
    Me.width = 8235
    Me.Left = (Screen.width - Me.width) / 2
    Me.Top = 600
    Me.BackColor = &HFFCF80
    Frame1.BackColor = &HFFCF80
    For i = 0 To 5
      Label1(i).BackColor = &HFFCF80
      Label2(i).BackColor = &HFFCF80
      cmd_open(i).BackColor = &HFFCF80
      cmd_sel(i).BackColor = &HFFCF80
    Next
    cmd_yes.BackColor = &HFFCF80
    cmd_no.BackColor = &HFFCF80
   
   sql$ = "select * from ico  "
'   Set mytempds = myDB.OpenRecordset(sql$, dbOpenSnapshot)
   Set mytempds = ExecuteSQL(sql$, msgtext)
   If Not mytempds.EOF Then
        txt_path(0).text = "" & mytempds!zypath
        If Exists(txt_path(0).text) Then
          Image1(0).Picture = LoadPicture(txt_path(0).text)
        End If
        txt_path(1).text = "" & mytempds!kpath
        If Exists(txt_path(1).text) Then
          Image1(1).Picture = LoadPicture(txt_path(1).text)
        End If
        txt_path(2).text = "" & mytempds!ydpath
        If Exists(txt_path(2).text) Then
          Image1(2).Picture = LoadPicture(txt_path(2).text)
        End If
        txt_path(3).text = "" & mytempds!zlpath
        If Exists(txt_path(3).text) Then
         Image1(3).Picture = LoadPicture(txt_path(3).text)
        End If
'        txt_path(4).text = "" & mytempds!jzpath
'        If Exists(txt_path(3).text) Then
'         Image1(4).Picture = LoadPicture(txt_path(4).text)
'        End If
'        txt_path(5).text = "" & mytempds!ympath
'        If Exists(txt_path(5).text) Then
'         Image1(5).Picture = LoadPicture(txt_path(5).text)
'        End If
        If Not mytempds!zycolor = "" Then
          Picture1(0).BackColor = mytempds!zycolor
        End If
        If Not mytempds!kcolor = "" Then
          Picture1(1).BackColor = mytempds!kcolor
        End If
        If Not mytempds!ydcolor = "" Then
            Picture1(2).BackColor = mytempds!ydcolor
        End If
        If Not mytempds!zlcolor = "" Then
            Picture1(3).BackColor = mytempds!zlcolor
        End If
'        If Not mytempds!jzcolor = "" Then
'            Picture1(4).BackColor = mytempds!jzcolor
'        End If
'        If Not mytempds!ymcolor = "" Then
'            Picture1(5).BackColor = mytempds!ymcolor
'        End If
  End If
End Sub