frmlogin.frm

来自「通用书店管理系统」· FRM 代码 · 共 196 行

VERSION 5.00
Begin VB.Form frmLogin 
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "合计"
   ClientHeight    =   1515
   ClientLeft      =   3300
   ClientTop       =   4440
   ClientWidth     =   2775
   ControlBox      =   0   'False
   ForeColor       =   &H00FF0000&
   Icon            =   "frmLogin.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmLogin.frx":030A
   ScaleHeight     =   1515
   ScaleWidth      =   2775
   ShowInTaskbar   =   0   'False
   Tag             =   "合计"
   Begin VB.TextBox txtTotal 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Index           =   2
      Left            =   1035
      Locked          =   -1  'True
      TabIndex        =   5
      Top             =   990
      Width           =   1575
   End
   Begin VB.TextBox txtTotal 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Index           =   1
      Left            =   1035
      Locked          =   -1  'True
      TabIndex        =   4
      Top             =   510
      Width           =   1575
   End
   Begin VB.TextBox txtTotal 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Index           =   0
      Left            =   1035
      Locked          =   -1  'True
      TabIndex        =   3
      Top             =   30
      Width           =   1575
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "总实洋："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   2
      Left            =   90
      TabIndex        =   2
      Top             =   1065
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "总码洋："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   1
      Left            =   90
      TabIndex        =   1
      Top             =   585
      Width           =   975
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "总数量："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Index           =   0
      Left            =   90
      TabIndex        =   0
      Top             =   105
      Width           =   975
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Function PtInRect Lib "user32" (lpRect As RECT, ByVal ptx As Long, ByVal pty As Long) As Long   '准备用来使窗体始终在最前面



Const HWND_TOPMOST = -1
 
Private Type POINTAPI
    x As Long
    Y As Long
End Type

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private MyRect As RECT
Private MyPoint As POINTAPI
Public strDate As String
Public strSign As String


Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Call Openrs
End Sub
Public Sub Openrs()
    
    On Error GoTo err
   
    Exit Sub
err:
    MsgBox "操作失败：" & err.Description, vbInformation

End Sub

Private Sub Form_Paint()
    If PtInRect(MyRect, MyPoint.x, MyPoint.Y) = 0 Then
         SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / Screen.TwipsPerPixelX, Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, Me.Height \ Screen.TwipsPerPixelY, 0
    End If
End Sub