form10.frm

因本人没有充足的时间

      EndProperty
      Height          =   300
      Left            =   600
      TabIndex        =   8
      Text            =   "Text2"
      Top             =   1080
      Width           =   975
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H8000000F&
      DataSource      =   "Data1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   600
      TabIndex        =   7
      Text            =   "Text1"
      Top             =   1440
      Width           =   1215
   End
   Begin VB.OLE OLE1 
      BackColor       =   &H0000C000&
      Height          =   915
      Left            =   0
      TabIndex        =   27
      Top             =   0
      Width           =   8655
   End
   Begin VB.Label Label7 
      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       =   &H00C00000&
      Height          =   255
      Left            =   3840
      TabIndex        =   6
      Top             =   1440
      Width           =   495
   End
   Begin VB.Label Label6 
      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       =   &H00C00000&
      Height          =   255
      Left            =   1920
      TabIndex        =   5
      Top             =   1440
      Width           =   735
   End
   Begin VB.Label Label5 
      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       =   &H00C00000&
      Height          =   255
      Left            =   5160
      TabIndex        =   4
      Top             =   1080
      Width           =   495
   End
   Begin VB.Label Label4 
      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       =   &H00C00000&
      Height          =   255
      Left            =   3360
      TabIndex        =   3
      Top             =   1080
      Width           =   495
   End
   Begin VB.Label Label3 
      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       =   &H00C00000&
      Height          =   255
      Left            =   1680
      TabIndex        =   2
      Top             =   1080
      Width           =   495
   End
   Begin VB.Label Label2 
      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       =   &H00C00000&
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   1080
      Width           =   495
   End
   Begin VB.Label Label1 
      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       =   &H00C00000&
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   1440
      Width           =   495
   End
End
Attribute VB_Name = "Form10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
Data1.Refresh
Data1.Recordset.MoveLast
Text8.Text = Text4.Caption
Data1.Recordset.AddNew
Command2.Enabled = True
Command1.Enabled = False
Command8.Enabled = False
End Sub

Private Sub Command10_Click()
msg = MsgBox("真的要修改吗?", vbYesNo)
If msg = vbYes Then
Data1.Recordset.Edit
Text8.Text = Text4.Caption
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
Command1.Enabled = False
Else
Exit Sub
End If
End Sub

Private Sub Command2_Click()
Dim c As Double
Dim d As Double
Dim e As Double
Dim f As Double
Dim g As Double
Dim h As String
c = Text8.Text
d = Text2.Text
e = Text3.Text
c = (c + d) - e
Text4.Caption = c
f = (c / 31690000) * 100
Text9.Text = f
Text5.Caption = Text9.Text + "%"
Data1.Recordset.Update
Command8.Enabled = False
Data1.Refresh
MSFlexGrid1.Refresh
Command1.Enabled = True
Command2.Enabled = False
Command8.Enabled = True
Command10.Enabled = True
End Sub

Private Sub Command3_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
MsgBox ("已到第一笔交易！")
End If
End Sub

Private Sub Command4_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
MsgBox ("已到最后一笔交易!")
End If
End Sub

Private Sub Command5_Click()
msg = MsgBox("要删除吗?", vbYesNo)
If msg = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
MsgBox ("没有交易了！")
End If
End If
End Sub
Private Sub Command6_Click()
Form2.Show
End Sub

Private Sub Command7_Click()
Form7.Show
End Sub

Private Sub Command8_Click()
Unload Me
End Sub

Private Sub Command9_Click()
Data1.Refresh
MSFlexGrid1.Refresh
End Sub

Private Sub Form_Load()
Dim wk As Workspace
Dim sjkdb As Database
Dim td As TableDef
Dim rss As Recordsets
Dim rs As Recordset
Dim tds As TableDefs
Dim fl As Field
Dim fls As Fields
Static a As String
DBEngine.DefaultType = dbUseJet
Set wk = DBEngine.Workspaces(0)
Set sjkdb = wk.OpenDatabase("c:\data\msdb2.mdb", False, False, ";pwd=empty")
Data1.Connect = ";pwd=empty"
Data1.DatabaseName = "c:\data\msdb2.mdb"
a = InputBox$("请输入股东代码！")
Text10.Text = a
If a = "" Then
MsgBox "真的要放弃吗?", vbExclamation, "输入对话框"
Else
Set rs = sjkdb.OpenRecordset(a)
Data1.RecordSource = a
Text1.DataField = "摘要"
Text2.DataField = "增加"
Text3.DataField = "减少"
Text4.DataField = "余额"
Text5.DataField = "权重"
Text6.DataField = "经办人"
Text7.DataField = "日期"
rs.MoveLast
End If
Command2.Enabled = False
End Sub




Public Static Function a()
a = Text10.Text
End Function