form1.frm

时空erp软件sql2000数据库 两数据库间复制单据

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1 
   BackColor       =   &H8000000D&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "时空补丁-单据复制系统"
   ClientHeight    =   4065
   ClientLeft      =   3075
   ClientTop       =   3450
   ClientWidth     =   6570
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4065
   ScaleWidth      =   6570
   Begin VB.CommandButton Command2 
      BackColor       =   &H8000000D&
      Caption         =   "退出"
      Height          =   375
      Left            =   4560
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   3600
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H8000000D&
      Caption         =   "确定"
      Height          =   375
      Left            =   4560
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   3120
      Width           =   975
   End
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   105
      Left            =   -120
      TabIndex        =   4
      Top             =   3000
      Width           =   6735
      _ExtentX        =   11880
      _ExtentY        =   185
      _Version        =   393216
      BorderStyle     =   1
      Appearance      =   0
      Scrolling       =   1
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H00FFFFFF&
      Height          =   360
      IMEMode         =   3  'DISABLE
      Left            =   2160
      PasswordChar    =   "*"
      TabIndex        =   3
      Text            =   "ken_oye"
      Top             =   3600
      Width           =   2175
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H00FFFFFF&
      Height          =   360
      Left            =   2160
      TabIndex        =   2
      Top             =   3120
      Width           =   2175
   End
   Begin VB.Image Image1 
      Height          =   1095
      Left            =   0
      Picture         =   "Form1.frx":1CCA
      Stretch         =   -1  'True
      Top             =   3000
      Width           =   1095
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "密码："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   210
      Left            =   1320
      TabIndex        =   1
      Top             =   3720
      Width           =   495
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "用户名："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   210
      Left            =   1200
      TabIndex        =   0
      Top             =   3240
      Width           =   840
   End
   Begin VB.Image Image3 
      Height          =   3015
      Left            =   -120
      Picture         =   "Form1.frx":3994
      Stretch         =   -1  'True
      Top             =   0
      Width           =   6735
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text1.Text = "ken" Then
If Text2.Text = "ken_oye" Then
MsgBox "登陆系统小心操作!", "64", "系统管理员提示"
Form2.Show
Unload Me
Else
MsgBox "密码错误!请重新输入", "64", "系统提示"
Exit Sub
End If
Else
MsgBox "用户名错误!请重新输入", "64", "系统登陆提示"
Exit Sub
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim c As Integer
c = 0
ProgressBar1.Max = 10000
Do While c < 10000
ProgressBar1.Value = c
ProgressBar1.Refresh

c = c + 1

Loop

End Sub

Private Sub Image2_Click()

End Sub