frmflashin.frm

< 飞鸿商品>>零售是基于VB+SQL2000开的商品零售管理系统. 开发的很好.可以一看

VERSION 5.00
Begin VB.Form FrmFlashIN 
   BorderStyle     =   0  'None
   ClientHeight    =   4515
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6015
   Picture         =   "FrmFlashIN.frx":0000
   ScaleHeight     =   4515
   ScaleWidth      =   6015
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer tmrFlash 
      Left            =   4320
      Top             =   3600
   End
End
Attribute VB_Name = "FrmFlashIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
  tmrFlash.Interval = 1500
  tmrFlash.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim Rst As ADODB.Recordset

Set Rst = New ADODB.Recordset
Rst.CursorLocation = adUseClient
Rst.Open "select * from sysseting", Conn, adOpenDynamic, adLockReadOnly, adCmdText
If Rst.EOF Then Exit Sub

If DateDiff("d", Rst.Fields(0), Date$) >= Rst.Fields(1) Then
  MsgBox "本软件为试用版，使用期限已到！请与供应商联系。", 64
  Exit Sub
End If

frmLogin.Show
Set FrmFlashIN = Nothing
End Sub

Private Sub tmrFlash_Timer()
  tmrFlash.Enabled = False
  Unload Me
End Sub