Introduction - If you have any usage issues, please Google them yourself
TFinput1.Create(Application)
action:=cafree
OpenPictureDialog1.InitialDir := GetCurrentDir
if OpenPictureDialog1.Execute then
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName)
P357:
SELECT MAX(学号) FROM StuInfo