form1.frm

vb源码

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   1725
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11985
   Enabled         =   0   'False
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   1725
   ScaleWidth      =   11985
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer2 
      Interval        =   1
      Left            =   2400
      Top             =   600
   End
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   1320
      Top             =   480
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackColor       =   &H8000000D&
      BackStyle       =   0  'Transparent
      ForeColor       =   &H8000000E&
      Height          =   180
      Left            =   120
      TabIndex        =   3
      Top             =   1440
      Width           =   90
   End
   Begin VB.Image Image2 
      Height          =   370
      Left            =   11520
      Picture         =   "Form1.frx":0000
      Stretch         =   -1  'True
      Top             =   1238
      Visible         =   0   'False
      Width           =   420
   End
   Begin VB.Image Image3 
      Height          =   450
      Left            =   11520
      Picture         =   "Form1.frx":2BF9
      Stretch         =   -1  'True
      Top             =   1200
      Visible         =   0   'False
      Width           =   450
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Height          =   255
      Left            =   6720
      TabIndex        =   2
      Top             =   480
      Width           =   975
   End
   Begin VB.Label Label16 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   180
      Left            =   5400
      TabIndex        =   1
      Top             =   480
      Width           =   1125
   End
   Begin VB.Label Label17 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "|"
      Height          =   180
      Left            =   6480
      TabIndex        =   0
      Top             =   480
      Width           =   105
   End
   Begin VB.Image Image1 
      Height          =   1740
      Left            =   0
      Picture         =   "Form1.frx":5831
      Top             =   0
      Width           =   12000
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()
Form6.Left = 0
Form6.Width = Me.Width

Form1.Top = Me.Top + 7240
'Adodc5.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=管理系统"
'Adodc5.RecordSource = "SELECT * FROM 货存表 where 数量= 0"
'Adodc5.Refresh
'If Adodc5.Recordset.RecordCount <> 0 Then


'End If

Label3.Caption = Form2.yh + "正在使用此系统"

End Sub




Private Sub Timer1_Timer()
Label16.Caption = Date
Label1.Caption = Time
End Sub