Private Sub cmdCr_Click()
FormStudent.Show
End Sub
Private Sub cmdLst_Click()
FormStudLst.Show
End Sub
-----------------------------------------------------
Private Sub cmdSave_Click()
SaveRecordStud
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub
Private Sub Form_Load()
Open "\Student.dat" For Random As #1 _
Len = Len(RecStud)
nRecStud = LOF(1) / Len(RecStud) + 1
txtNomSt.Text = nRecStud
cmbMonth.AddItem "январь"
cmbMonth.AddItem "февраль"
cmbMonth.AddItem "март"
cmbMonth.AddItem "апрель"
cmbMonth.AddItem "май"
cmbMonth.AddItem "июнь"
cmbMonth.AddItem "июль"
cmbMonth.AddItem "август"
cmbMonth.AddItem "сентябрь"
cmbMonth.AddItem "октябрь"
cmbMonth.AddItem "ноябрь"
cmbMonth.AddItem "декабрь"
End Sub
Private Sub SaveRecordStud()
RecStud.NomSt = nRecStud
RecStud.Fio = txtFIO.Text
RecStud.Adr = txtAdr.Text
If Opt1 = True Then
RecStud.Pol = "м"
ElseIf Opt2 = True Then
RecStud.Pol = "ж"
End If
mes = LTrim(Str(cmbMonth.ListIndex + 1))
way = LTrim(Str(UpDownDay.Value))
god = LTrim(Right(Str(UpDownYear.Value), 2))
RecStud.DataR = CDate(way + "." + mes + "." + god)
RecStud.NomGr = txtNomGr.Text
RecStud.Sp = lstSp.Text
If Check1.Value = 1 Then
RecStud.VidOpl = True
Else
RecStud.VidOpl = False
End If
Put #1, nRecStud, RecStud
nRecStud = nRecStud + 1
txtNomSt.Text = nRecStud
txtFIO.Text = ""
txtAdr.Text = ""
txtNomGr.Text = ""
UpDownDay.Value = 1
UpDownYear.Value = 1970
Opt1.Value = True
Opt2.Value = False
Check1.Value = 1
cmbMonth.Text = ""
End Sub
---------------------------
Private Sub cmdCr_Click()
FormStudent.Show
End Sub
Private Sub CmdDown_Click()
If nRecStud1 Then
nRecStud = nRecStud - 1
ReadRecordStud
Else
MsgBox "Начало файла"
End If
End Sub
Private Sub Form_Load()
Open "\Student.dat" For Random _
As #1 Len = Len(RecStud)
nRecStud = 1
ReadRecordStud
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub
-----------------------------
Type RecordStud
NomSt As Integer
Fio As String * 20
Adr As String * 40
Pol As String * 1
DataR As Date
NomGr As Integer
Sp As String * 30
VidOpl As Boolean
End Type
Public RecStud As RecordStud
Public nRecStud As Integer
Private Sub ReadRecordStud()
Get #1, nRecStud, RecStud
txtFIO1.Text = RecStu.Fio
txtAdr1.Text = RecStu.Adr
txtNomSt1.Text = RecStu.NomSt
txtPol1 = RecStu.Pol
txtDr1 = RecStu.DataR
txtNomGr1.Text = RecStu.NomGr
txtSp1.Text = RecStu.Sp
If RecStu.VidOpl = True Then
Check_1.Value = 1
Else
Check_1.Value = 0
End If
End Sub
在标准模块中定义getvalue 函数 Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" ( _ ByVal hKey As Long, _ ByVal lpValueName As String, _ ByVal lpReserved As Long, _ lpType As Long, lpData As Any, _ lpcbData As Long) As Long Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" ( _