frmls.frm

来自「小巧的个人股票、资金管理系统」· FRM 代码 · 共 152 行

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmls 
   BackColor       =   &H0080C0FF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "股票卖出历史记录"
   ClientHeight    =   4365
   ClientLeft      =   2235
   ClientTop       =   1935
   ClientWidth     =   7965
   Icon            =   "frmls.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4365
   ScaleWidth      =   7965
   Begin VB.Data d1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   285
      Left            =   240
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   3720
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.CommandButton CmdNO 
      Caption         =   "清空"
      Height          =   375
      Left            =   2520
      Picture         =   "frmls.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   3600
      Width           =   975
   End
   Begin VB.CommandButton CmdOK 
      Caption         =   "关闭"
      Default         =   -1  'True
      Height          =   375
      Left            =   4920
      Picture         =   "frmls.frx":074C
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   3600
      Width           =   975
   End
   Begin VB.Frame fra1 
      BackColor       =   &H0080C0FF&
      Caption         =   "个股卖出历史记录："
      ForeColor       =   &H00FF0000&
      Height          =   3135
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   7815
      Begin MSFlexGridLib.MSFlexGrid grid 
         Bindings        =   "frmls.frx":0A56
         Height          =   2775
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   7575
         _ExtentX        =   13361
         _ExtentY        =   4895
         _Version        =   393216
         Cols            =   1
         FixedCols       =   0
         BackColor       =   16777215
         ForeColor       =   16711680
         BackColorFixed  =   -2147483624
         BackColorSel    =   16744576
         ForeColorSel    =   16777215
         BackColorBkg    =   16777215
         GridColor       =   0
         FillStyle       =   1
         GridLinesFixed  =   1
         SelectionMode   =   1
         AllowUserResizing=   3
      End
   End
   Begin MSComctlLib.StatusBar Sbr 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   4
      Top             =   3990
      Width           =   7965
      _ExtentX        =   14049
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmls"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
'Download by http://www.codefans.net
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public dbs As Database
Public rec As Recordset
Private Sub CmdNO_Click()
If rec.RecordCount = 0 Then Exit Sub
r = MsgBox("是否确认清空记录？(Y/N)", vbQuestion + vbOKCancel + vbDefaultButton1, "个人股票管理")
If r = 1 Then
   rec.MoveFirst
   Do While Not rec.EOF
    rec.Delete
    rec.MoveNext
   Loop
   d1.Refresh
fra1.Caption = "个股卖出历史记录有：0 条"
End If
End Sub
Private Sub CmdOK_Click()
 Unload Me
End Sub
Private Sub Form_Load()
 Sbr.Panels(1).Width = frmls.Width
 frmls.Left = 2000
 frmls.Top = 700
Dim numhj As Integer
Dim numh As Integer
numh = 0
  filename = App.Path & "\股票.mdb"
  Set dbs = OpenDatabase(filename)
  Set rec = dbs.OpenRecordset("股票卖出历史")
  d1.DatabaseName = filename
  d1.RecordSource = "select * from 股票卖出历史"
  fra1.Caption = "个股卖出历史记录有：" & rec.RecordCount & "条"
  If rec.RecordCount = 0 Then Exit Sub
  Do While Not rec.EOF
     numh = numh + rec.Fields("收益")
     rec.MoveNext
  Loop
  Sbr.Panels(1).Text = "当前资金帐户损益：" & numh & "元"
End Sub