EndIf
IfRight$(App.Path,1)=\"\\\"Then
curFile=App.Path\"datebase.txt\"
Else
curFile=App.Path\"\\datebase.txt\"
EndIf
question=MsgBox(MyRecord.date\"\"MyRecord.name\"\"MyRecord.sex\"\"MyRecord.class\"\"MyRecord.positionMyRecord.logvbNewLine\"请确认以上信息是否正确!\",vbYesNovbExclamation,\"确认\")
Ifquestion=6Then
OpencurFileForRandomAs#1Len=Len(MyRecord)
num=FileLen(curFile)/Len(MyRecord)
Put#1,num1,MyRecord
Close#1
MsgBox\"成功记录当前信息!\",vbOKOnly,\"提交记录\"
EndIf
ExitSub
write_error:
MsgBox\"记录当前信息失败!\",vbOKOnlyvbCritical,\"Error\"
EndSub
PrivateSubCommand2_Click()
DimmystrAsString
IfRight$(App.Path,1)=\"\\\"Then
curFile=App.Path\"datebase.txt\"
Else
curFile=App.Path\"\\datebase.txt\"
EndIf
LoadForm2
Form2.List1.Clear
OpencurFileForRandomAs#1Len=Len(MyRecord)
num=FileLen(curFile)/Len(MyRecord)
Fori=1Tonum
Get#1,i,MyRecord
mystr=MyRecord.date\"\"MyRecord.nameMyRecord.sex\"\"MyRecord.class\"\"MyRecord.position\"\"MyRecord.log
mystr=Replace(mystr,Chr(0),\"\")\'防止listbox不识别的字符
SelectCaseCombo6.Text
Case\"日期\"
searchName=Combo7.Text\"年\"Combo8.Text\"月\"Combo9.Text\"日\"
s=InStr(UCase(MyRecord.date),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
Case\"姓名\"
searchName=Text2.Text
IfsearchName=\"\"Then
MsgBox\"请输入要查询的姓名!\",vbOKOnlyvbCritical,\"Error\"
Close#1
ExitSub
EndIf
s=InStr(UCase(MyRecord.name),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
Case\"班组号\"
IfCheck1.Value=0AndCheck2.Value=0AndCheck3.Value=0AndCheck4.Value=0Then
MsgBox\"请至少选择一个班组号!\",vbOKOnlyvbCritical,\"Error\"
Close#1
ExitSub
EndIf
IfCheck1.Value=1Then
searchName=Check1.Caption
s=InStr(UCase(MyRecord.class),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
EndIf
IfCheck2.Value=1Then
searchName=Check2.Caption
s=InStr(UCase(MyRecord.class),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
EndIf
IfCheck3.Value=1Then
searchName=Check3.Caption
s=InStr(UCase(MyRecord.class),UCase(searchName))
Ifs0ThenForm2.List1.AddItemmystr
EndIf
|
