📄 formjz.frm
字号:
VERSION 5.00
Begin VB.Form formjz
Caption = "机长管理"
ClientHeight = 8940
ClientLeft = 60
ClientTop = 450
ClientWidth = 10950
LinkTopic = "Form1"
ScaleHeight = 8940
ScaleWidth = 10950
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdfh
BackColor = &H00E0E0E0&
Caption = "返回"
Height = 735
Left = 5160
TabIndex = 24
Top = 7920
Width = 1815
End
Begin VB.Frame Frame3
Caption = "会员给我们的平均分"
Height = 855
Left = 600
TabIndex = 21
Top = 7800
Width = 3855
Begin VB.CommandButton cmdtf
Caption = "统计"
Height = 375
Left = 600
TabIndex = 23
Top = 240
Width = 1215
End
Begin VB.TextBox txtfs
Height = 270
Left = 2040
TabIndex = 22
Top = 240
Width = 855
End
End
Begin VB.Frame Frame2
Caption = "男女的个数"
Height = 855
Left = 5160
TabIndex = 14
Top = 6720
Width = 5415
Begin VB.TextBox txtnv
Height = 375
Left = 3480
TabIndex = 19
Top = 360
Width = 735
End
Begin VB.TextBox txtna
Height = 375
Left = 2040
TabIndex = 17
Top = 360
Width = 735
End
Begin VB.CommandButton cmdtx
Caption = "统计"
Height = 375
Left = 240
TabIndex = 16
Top = 360
Width = 1455
End
Begin VB.Label Label8
Caption = "女"
Height = 255
Left = 4320
TabIndex = 20
Top = 360
Width = 375
End
Begin VB.Label Label7
Caption = "男"
Height = 375
Left = 2760
TabIndex = 18
Top = 360
Width = 615
End
End
Begin VB.Frame Frame1
Caption = "总会员的平均年龄"
Height = 855
Left = 600
TabIndex = 11
Top = 6720
Width = 3855
Begin VB.TextBox txtnl
Height = 270
Left = 2040
TabIndex = 13
Top = 360
Width = 855
End
Begin VB.CommandButton cmdts
Caption = "统计"
Height = 375
Left = 600
TabIndex = 12
Top = 360
Width = 1215
End
Begin VB.Label Label6
Caption = "岁"
Height = 255
Left = 3000
TabIndex = 15
Top = 360
Width = 375
End
End
Begin VB.CommandButton cmdhk
Caption = "开始搜索"
Height = 375
Left = 8280
TabIndex = 9
Top = 5280
Width = 1095
End
Begin VB.CommandButton cmdnk
Caption = "开始搜索"
Height = 375
Left = 3360
TabIndex = 8
Top = 5280
Width = 1095
End
Begin VB.TextBox txthh
Height = 375
Left = 6600
TabIndex = 7
Top = 5280
Width = 1575
End
Begin VB.TextBox txtnc
Height = 375
Left = 1680
TabIndex = 5
Top = 5280
Width = 1575
End
Begin VB.CommandButton cmdlb
Caption = "列出全部会员信息"
Height = 495
Left = 3240
TabIndex = 1
Top = 4080
Width = 1575
End
Begin VB.ListBox lst
Height = 3480
ItemData = "formjz.frx":0000
Left = 480
List = "formjz.frx":0002
TabIndex = 0
Top = 480
Width = 10455
End
Begin VB.Label Label5
Caption = "统计不同的类型"
Height = 255
Left = 3960
TabIndex = 10
Top = 6240
Width = 1335
End
Begin VB.Line Line2
X1 = 0
X2 = 10920
Y1 = 6120
Y2 = 6120
End
Begin VB.Label Label4
Caption = "会员号"
Height = 375
Left = 5880
TabIndex = 6
Top = 5400
Width = 615
End
Begin VB.Label Label3
Caption = "昵称"
Height = 375
Left = 1080
TabIndex = 4
Top = 5400
Width = 495
End
Begin VB.Label Label2
Caption = "通过昵称或会员号查找"
Height = 255
Left = 3720
TabIndex = 3
Top = 4800
Width = 1815
End
Begin VB.Label Label1
Caption = "全部会员信息列表"
Height = 255
Left = 3960
TabIndex = 2
Top = 240
Width = 1455
End
Begin VB.Line Line1
BorderStyle = 2 'Dash
X1 = 120
X2 = 11040
Y1 = 4680
Y2 = 4680
End
End
Attribute VB_Name = "formjz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a, xa, xv As String, m, d, z As Integer, l, h As Long
Private Sub cmdfh_Click()
formjz.Hide
formwel.Show
End Sub
Private Sub cmdhk_Click()
'l:
b = Val(txthh.Text)
Open "a:\hy.dat" For Random As #1 Len = Len(hy)
Open "a:\hm.dat" For Random As #2 Len = Len(hm)
Get #2, 1, hm
d = hm.o
Close #2
'Get #1, Record_No, Student
If IsNumeric(b) And d >= b Then 'Record_No = Val(txtRecord_No)
Get #1, b, hy 'Open "c:\STUDENT.DAT" For Random As #1 Len = Len(Student)
Formzc.txtmz.Text = hy.name
Formzc.txthh.Text = hy.no
Formzc.txtcn.Text = hy.year
Formzc.txtcy.Text = hy.month
Formzc.txtjg.Text = hy.jiguan
Formzc.optna.Value = hy.man
Formzc.optnv.Value = hy.woman
Formzc.txtdz.Text = hy.email
Formzc.cmblb.Text = hy.leibie
Formzc.txtyd.Text = hy.zuiy
Formzc.txtpp.Text = hy.zuip
Formzc.txtzs.Text = hy.pingj
' Formzc.pctxp.Picture = hy.pctx
Close #1
formjz.Hide
Formzc.Show
Else
MsgBox "此号码还没注册", , "信息"
Formzc.Show ' GoTo l
End If
End Sub
Private Sub cmdlb_Click()
Open "a:\hm.dat" For Random As #2 Len = Len(hm)
Get #2, 1, hm
d = hm.o
Close #1
For m = 1 To d
Open "a:\hy.dat" For Random As #1 Len = Len(hy)
Get #1, m, hy
If hy.man = True Then xa = "男" Else xa = "女" 'If hy.name = a Then '改进
lst.List(m - 1) = "昵称：" & hy.name & " 会员号：" & hy.no & " 出生年份：" & hy.year & " 出生月份：" & hy.month & " 籍贯：" & hy.jiguan & " 性别：" & xa _
& " 电子邮件：" & hy.email & " 类别：" & hy.leibie & " 最喜欢的乒球手：" & hy.zuiy & " 最喜欢的乒球品牌：" & " 对我们的评价分数：" & hy.pingj
Close #1
Next m
End Sub
Private Sub cmdnk_Click()
'q:
a = txtnc.Text
If a Like "" Then '这问题
b = MsgBox("出错！", vbRetryCancel, "输入错误")
If b = 4 Then
formjz.Show ''''''''''''''''''''''''''
Else
formjz.Show ''''''''''''''''''''''''''
End If
Else
Open "a:\hm.dat" For Random As #2 Len = Len(hm)
Get #2, 1, hm
d = hm.o
Close #2
m = 1
Do While m <= d + 1
If m = d + 1 Then
Exit Do
MsgBox "没有这个人", , "找不到"
formjz.Show
Else
Open "a:\hy.dat" For Random As #1 Len = Len(hy)
Get #1, m, hy
If hy.name = a Then '改进
Formzc.txtmz.Text = hy.name
Formzc.txthh.Text = hy.no
Formzc.txtcn.Text = hy.year
Formzc.txtcy.Text = hy.month
Formzc.txtjg.Text = hy.jiguan
Formzc.optna.Value = hy.man
Formzc.optnv.Value = hy.woman
Formzc.txtdz.Text = hy.email
Formzc.cmblb.Text = hy.leibie
Formzc.txtyd.Text = hy.zuiy
Formzc.txtpp.Text = hy.zuip
Formzc.txtzs.Text = hy.pingj
'Formzc.pctxp.Picture = hy.pctx
Exit Do
Else
m = m + 1
End If
End If
Loop ' b = MsgBox("未查到", vbOKOnly, "信息")
'If b = 1 Then GoTo q
'Else
'no = no + 1 ' 这可能有问题
End If
'End If
Close #1
End Sub
Private Sub cmdtf_Click()
Open "a:\hm.dat" For Random As #2 Len = Len(hm)
Get #2, 1, hm
d = hm.o
Close #2
l = 0
For m = 1 To d
Open "a:\hy.dat" For Random As #1 Len = Len(hy)
Get #1, m, hy
z = hy.pingj
l = z + l
Close #1
Next m
txtfs.Text = Str(l / d)
End Sub
Private Sub cmdts_Click()
Open "a:\hm.dat" For Random As #2 Len = Len(hm)
Get #2, 1, hm
d = hm.o
Close #2
l = 0
For m = 1 To d
Open "a:\hy.dat" For Random As #1 Len = Len(hy)
Get #1, m, hy
z = year(Date) - hy.year
l = z + l
Close #1
Next m
txtnl.Text = Str(l / d)
End Sub
Private Sub cmdtx_Click()
Open "a:\hm.dat" For Random As #2 Len = Len(hm)
Get #2, 1, hm
d = hm.o
Close #2
h = 0
l = 0
For m = 1 To d
Open "a:\hy.dat" For Random As #1 Len = Len(hy)
Get #1, m, hy
If hy.man = True Then
l = l + 1
Else
h = h + 1
End If
Close #1
Next m
txtna.Text = l: txtnv.Text = h
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -