Page 31 - H - 資訊本

【資訊本】 肆、活動運用
For i = 1 To n
If t <> p(i) Then
Print #1, p(i)
Else
Label4.ForeColor = vbBlue
Label4.Caption = "管院 " & Text1.Text & " 取消購票"
MsgBox "刪除成功", vbOKOnly + vbInformation, "取消購票"
x = 1
End If
Next
If x = 0 Then
Label4.ForeColor = vbRed
Label4.Caption = "管院 " & Text1.Text & " 查無紀錄"
MsgBox "查無紀錄", vbRetryCancel + vbInformation, "取消購票"
End If
Close
End Sub

Sub nmsbuy()
Open "購票人.txt" For Append As #1
Print #1, "2" & nms + 1
Close
Label4.ForeColor = vbBlue
Label4.Caption = "非管院 購票成功"
MsgBox "購票成功", vbOKOnly + vbInformation, "成功"
End Sub

Sub nmsrebuy()
x = 0
Open "購票人.txt" For Output As #1
t = "2" & nms
For i = 1 To n
If t <> p(i) Then
Print #1, p(i)
Else
MsgBox "刪除成功", vbOKOnly + vbInformation, "取消訂票"
x = 1
End If
Next
If x = 0 Then MsgBox "刪除失敗，請手動刪除", vbRetryCancel + vbInformation, "取消訂
票"
Close
Label4.ForeColor = vbBlue
Label4.Caption = "非管院 取消購票"
End Sub

Private Sub Command2_Click()
Open "購票人.txt" For Append As #1
Print #1, "3" & free + 1
Close
Label4.ForeColor = vbBlue
Label4.Caption = "買十送一 送出成功"
MsgBox "送出成功", vbOKOnly + vbInformation, "成功"
Call Form_Activate
End Sub

Private Sub Form_Activate()
ms = 0
nms = 0

28