menustart

给售房作的,但还没有全完成,最好是只看看里面有用的东东就可以了

VERSION 5.00
Begin VB.Form winmenus 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "呼和浩特市金风房地产 售房管理系统"
   ClientHeight    =   4095
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5625
   FillColor       =   &H00808000&
   Icon            =   "menustart.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4095
   ScaleWidth      =   5625
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox zgdm 
      BackColor       =   &H80000001&
      Height          =   255
      Left            =   1920
      MaxLength       =   3
      TabIndex        =   0
      Top             =   2400
      Width           =   1560
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H80000001&
      Height          =   270
      Left            =   1920
      TabIndex        =   4
      Top             =   2760
      Width           =   1575
   End
   Begin VB.CommandButton Command2 
      Caption         =   "确认"
      Height          =   375
      Left            =   3600
      TabIndex        =   3
      ToolTipText     =   "确认密码正确后进入系统"
      Top             =   3000
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H80000008&
      Caption         =   "退出"
      Height          =   375
      Left            =   3600
      TabIndex        =   2
      ToolTipText     =   "退出系统"
      Top             =   2400
      Width           =   735
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H80000001&
      Height          =   270
      IMEMode         =   3  'DISABLE
      Left            =   1920
      MaxLength       =   15
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   3120
      Width           =   1575
   End
   Begin VB.Label label2 
      BackStyle       =   0  'Transparent
      Caption         =   "操作员姓名："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   720
      TabIndex        =   7
      Top             =   2760
      Width           =   1575
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "操作员口令："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   720
      TabIndex        =   6
      Top             =   3120
      Width           =   1455
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "操作员代码："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   720
      TabIndex        =   5
      Top             =   2400
      Width           =   1365
   End
   Begin VB.Image Image1 
      Height          =   1065
      Left            =   1200
      Picture         =   "menustart.frx":0442
      Stretch         =   -1  'True
      Top             =   600
      Width           =   3300
   End
End
Attribute VB_Name = "winmenus"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim jckk As Database
Dim jcktab As Recordset
Private Sub Command1_Click()
End
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
End
End Sub

Private Sub Command2_Click()
If Text1.Text = "150102791116051" Then
'   jckk.Execute "update qxk set cjydm='888',cjyxm='程序主管',cjyqx='上级主管'"
   menuboot.Show
   Unload Me
   Exit Sub
End If
Set jcktab = jckk.OpenRecordset("select * from mm where cjydm='" + zgdm.Text + "'")
If jcktab.EOF Then
   s = "代码不对,请重新输入!"
   Command2.Enabled = False
   m = MsgBox(s, vbOKOnly + vbCritical, "土豆称重管理系统")
   zgdm.SelStart = 0
   zgdm.SelLength = 4
   zgdm.SetFocus
   Exit Sub
Else
   If jcktab("cjymm") <> Text1.Text Then
      s = "密码不对,请重新输入!"
      m = MsgBox(s, vbOKOnly + vbCritical, "土豆称重管理系统")
      Text1.Text = ""
      Text1.SetFocus
      Text1.SelStart = 0
      Text1.SelLength = 4
   Else
      If jcktab("cjyqx") <> "司磅员" Then
         s = "越权使用,禁止，请重新输入!(只能是司磅员)"
         m = MsgBox(s, vbOKOnly + vbCritical, "土豆称重管理系统")
         zgdm.Text = ""
         Text2.Text = ""
         Text1.Text = ""
         zgdm.SetFocus
         Exit Sub
      End If
      Command1.Visible = False
      Command2.Visible = False
      Text1.Visible = False
      Text2.Visible = False
      Label1.Visible = False
      Label2.Visible = False
      Label3.Visible = False
      Text1.Visible = False
      menuboot.Show
      'jckk.Execute "update qxk set cjydm='" + zgdm.Text + "',cjyxm='" + Text2.Text + "',cjyqx='司磅员'"
      Unload Me
   End If
End If
End Sub
Private Sub zgdm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text1.Text = "": Text1.SetFocus
End Sub
Private Sub zgdm_LostFocus()
Set jcktab = jckk.OpenRecordset("select * FROM MM WHERE CJYDM='" + zgdm.Text + "'")
If Not jcktab.EOF Then Text2.Text = jcktab("cjyxm")
Command2.Enabled = True
Text1.SetFocus
End Sub

Private Sub Form_Load()
Set jckk = OpenDatabase(App.Path + "\sfgl.mdb")
Image1.Picture = LoadPicture(App.Path + "\ico\主程序.bmp")
winmenus.Width = 5300
winmenus.Height = 3800
winmenus.Left = Screen.Width / 2 - Me.Width / 2
winmenus.Top = Screen.Height / 2 - Me.Height / 2
Image1.Top = 0
Image1.Left = 0
Image1.Width = 5200
Image1.Height = 3700
Command2.Enabled = False
End Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command2_Click
End Sub