form1.frm

职工管理系统

VERSION 5.00
Begin VB.Form main 
   Caption         =   "main"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command4 
      Caption         =   "显示"
      Height          =   495
      Left            =   2640
      TabIndex        =   3
      Top             =   1560
      Width           =   1095
   End
   Begin VB.CommandButton Command3 
      Caption         =   "随机文件"
      Height          =   495
      Left            =   840
      TabIndex        =   2
      Top             =   1560
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "男职工"
      Height          =   495
      Left            =   2760
      TabIndex        =   1
      Top             =   600
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "输入"
      Height          =   495
      Left            =   840
      TabIndex        =   0
      Top             =   600
      Width           =   1215
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Load sr
    sr.Show
End Sub

Private Sub Command2_Click()
Dim i As Integer
Kill "d:\rsk2.txt"
Open "d:\rsk1.txt" For Input As #1
Open "d:\rsk2.txt" For Random As #2 Len = Len(zg1)
Do While Not EOF(1)
    Input #1, zg1.zgh, zg1.zgxm, zg1.zgxb, zg1.zggz, zg1.zgbt
    If zg1.zgxb = 0 Then
        i = i + 1
        Put #2, i, zg1
        
    End If
Loop
Close #1, #2

End Sub

Private Sub Command3_Click()
Dim i As Integer
i = 1
Dim zgrclear As zgrad
zgrclear.zgxm = "        "
Kill "d:\rsk3.txt"
Open "d:\rsk1.txt" For Input As #1
Open "d:\rsk3.txt" For Random As #2 Len = Len(zgr1)
Do While Not EOF(1)
    Input #1, zg1.zgh, zgr1.zgxm, zgr1.zgxb, zgr1.zggz, zgr1.zgbt
    If zg1.zgh >= i Then
        For m = i To zg1.zgh
            Put #2, m, zgrclear
            i = m + 1
        Next m
        Put #2, i - 1, zgr1
    Else
        Put #2, zg1.zgh, zgr1
    End If
Loop
Close #1, #2

End Sub

Private Sub Command4_Click()
Load xs
xs.Show
End Sub

Private Sub Form_Load()

End Sub