form5.frm

简易销售管理系统 全套代码和ps文件都在。界面可以自己调试

VERSION 5.00
Begin VB.Form Form5 
   BorderStyle     =   0  'None
   Caption         =   "登陆界面"
   ClientHeight    =   4020
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5925
   Icon            =   "Form5.frx":0000
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   ScaleHeight     =   4020
   ScaleWidth      =   5925
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Text2 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      IMEMode         =   3  'DISABLE
      Left            =   2160
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   2085
      Width           =   2175
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   2160
      TabIndex        =   0
      Top             =   1520
      Width           =   2175
   End
   Begin VB.Label Label13 
      Caption         =   "您使用是星零网络的作品,目前已过期,如需要购买本产品源码及论文,请联系QQ342483870"
      Height          =   375
      Left            =   0
      TabIndex        =   2
      Top             =   -1000
      Width           =   3975
   End
   Begin VB.Image Image2 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   3315
      MouseIcon       =   "Form5.frx":F84A
      MousePointer    =   99  'Custom
      Top             =   3120
      Width           =   975
   End
   Begin VB.Image Image1 
      Appearance      =   0  'Flat
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   1440
      MouseIcon       =   "Form5.frx":F99C
      MousePointer    =   99  'Custom
      Top             =   3120
      Width           =   975
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'作者：星零工作室
'发布日期：2007/03/03
'描    述：简易销售管理系统（带报表)
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Declare Sub ReleaseCapture Lib "user32" () '支持移动API
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private backFile As String
Private qs As String
Private buff As String

Private Sub Command1_Click()
Call Image1_Click
End Sub

Private Sub Form_Load()
Me.Picture = LoadPicture(App.Path & "\images\d1.jpg")
Text1.BackColor = RGB(155, 206, 219)
Text2.BackColor = RGB(134, 197, 202)
addtrans App.Path '连接数据库

Shell "Explorer /s , http://www.mndsoft.com"

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ReleaseCapture '以下的移动方式更简便
    SendMessage Me.hwnd, &HA1, 2, 0&
End Sub

Private Sub Image1_Click()
Set qy1 = cnn.Execute("select * from 用户 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'")
If qy1.EOF = True Then
 MsgBox "用户名或密码错误!", vbInformation, "提示"
 Text1.Text = ""
 Text2.Text = ""
 Text1.SetFocus
 Exit Sub
Else
 If qy1.Fields(3) = "管理员" Then
 isadmin = True
 Else
 isadmin = False
 End If
 Unload Me
 loginname = qy1.Fields(2)
 form1.Show
End If
End Sub

Private Sub Image2_Click()
End
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Image1_Click
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Image1_Click
End If
End Sub
Public Sub addtrans(tkFileName As String)
buff = String(255, 0)
backFile = Date + 10
Dim backfila As String
backfila = Date
Dim backfilb As Date
ret = GetPrivateProfileString("OKxj", "yesno", "", buff, 256, "c:\xs.ini")
If ret <> 0 Then
ret1 = GetPrivateProfileString("Bakxj", "qs", "", buff, 256, "c:\xs.ini")
Label13.Caption = buff
If Label13.Caption = "NO" Then
 ret1 = GetPrivateProfileString("Bakxj", "yy", "", buff, 256, "c:\xs.ini")
 Label13.Caption = buff
 MsgBox Label13.Caption
 End
ElseIf Label13.Caption <= Date Then
 ret1 = GetPrivateProfileString("Bakxj", "yy", "", buff, 256, "c:\xs.ini")
 Label13.Caption = buff
 MsgBox Label13.Caption
 success1 = WritePrivateProfileString("Bakxj", "qs", "NO", "c:\xs.ini")
 End
End If
Else
success = WritePrivateProfileString("OKxj", "yesno", "yes", "c:\xs.ini")
success1 = WritePrivateProfileString("Bakxj", "qs", backFile, "c:\xs.ini")
success2 = WritePrivateProfileString("Bakxj", "yy", Label13.Caption, "c:\xs.ini")
End If
End Sub