form1.frm

ScienceOps has answers. Rapid Custom Algorithm development www.ScienceOps.com Simpleware From 3

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   120
   ClientTop       =   420
   ClientWidth     =   9900
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   9900
   StartUpPosition =   3  'Windows 扁夯蔼
   Begin VB.Frame Frame1 
      Caption         =   "烙狼立辟规侥"
      Height          =   2655
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   9495
      Begin VB.CommandButton Command6 
         Caption         =   "辆丰窍扁"
         Height          =   495
         Left            =   8040
         TabIndex        =   14
         Top             =   1800
         Width           =   1215
      End
      Begin VB.CommandButton Command5 
         Caption         =   "    傈眉       饭内靛 佬扁"
         Height          =   495
         Left            =   6720
         TabIndex        =   13
         Top             =   1800
         Width           =   1215
      End
      Begin VB.CommandButton Command4 
         Caption         =   "    捞饶      饭内靛 佬扁"
         Height          =   495
         Left            =   8040
         TabIndex        =   12
         Top             =   960
         Width           =   1215
      End
      Begin VB.CommandButton Command3 
         Caption         =   "    捞傈      饭内靛 佬扁"
         Height          =   495
         Left            =   6720
         TabIndex        =   11
         Top             =   960
         Width           =   1215
      End
      Begin VB.CommandButton Command2 
         Caption         =   "     眠啊      历厘窍扁"
         Height          =   495
         Left            =   8040
         TabIndex        =   10
         Top             =   240
         Width           =   1215
      End
      Begin VB.CommandButton Command1 
         Caption         =   "   饭内靛     锅龋佬扁"
         Height          =   495
         Left            =   6720
         TabIndex        =   9
         Top             =   240
         Width           =   1215
      End
      Begin VB.TextBox Text4 
         Height          =   2055
         Left            =   2520
         MultiLine       =   -1  'True
         TabIndex        =   8
         Top             =   240
         Width           =   3975
      End
      Begin VB.TextBox Text3 
         Height          =   375
         Left            =   840
         TabIndex        =   7
         Top             =   1920
         Width           =   1575
      End
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   840
         TabIndex        =   6
         Top             =   1440
         Width           =   1575
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Left            =   840
         TabIndex        =   5
         Top             =   960
         Width           =   1575
      End
      Begin VB.Label Label4 
         Caption         =   "捞抚"
         Height          =   495
         Left            =   240
         TabIndex        =   4
         Top             =   2040
         Width           =   1335
      End
      Begin VB.Label Label3 
         Caption         =   "切锅"
         Height          =   495
         Left            =   240
         TabIndex        =   3
         Top             =   1560
         Width           =   1335
      End
      Begin VB.Label Label2 
         Caption         =   "切苞"
         Height          =   495
         Left            =   240
         TabIndex        =   2
         Top             =   1080
         Width           =   1335
      End
      Begin VB.Label Label1 
         Caption         =   "傈眉饭内靛/泅犁饭内靛/眠啊饭内靛 : "
         Height          =   495
         Left            =   240
         TabIndex        =   1
         Top             =   480
         Width           =   2055
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Label1.Caption = "傈眉饭内靛/泅犁饭内靛/眠啊饭内靛: " _
    & m_All_record & "/" & m_C_record & "/" & m_Append_record
End Sub

Private Sub Command2_Click()
m_Saram.t_Dept = Text1.Text
m_Saram.t_Number = Text2.Text
m_Saram.t_Name = Text3.Text

Put #m_Fno, m_Append_record, m_Saram

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
m_All_record = m_All_record + 1
m_C_record = m_C_record + 1
m_Append_record = m_Append_record + 1

Call Command1_Click

End Sub

Private Sub Command3_Click()
If m_C_record > 1 Then
    m_C_record = m_C_record - 1
    Call m_showRecord
End If

End Sub

Private Sub Command4_Click()
If m_C_record < m_All_record Then
    m_C_record = m_C_record + 1
    Call m_showRecord
End If
End Sub

Private Sub Command5_Click()
Dim i As Integer
Dim record As String
For i = 1 To m_All_record
    Get #m_Fno, i, m_Saram
    record = m_Saram.t_Name & m_Saram.t_Number & m_Saram.t_Dept & vbCrLf
    Text4.Text = Text4.Text & record
Next

End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Form_Load()
m_Fno = FreeFile
Open App.Path + "\random_7_2.txt" For Random As m_Fno _
Len = Len(m_Saram)

m_All_record = LOF(m_Fno) / Len(m_Saram)
m_C_record = m_All_record
m_Append_record = m_All_record + 1

End Sub

Private Sub m_showRecord()
Get #m_Fno, m_C_record, m_Saram
    Text1.Text = m_Saram.t_Name
    Text2.Text = m_Saram.t_Number
    Text3.Text = m_Saram.t_Dept
Call Command1_Click
End Sub