What you don't know-student information management system

The student information management system was finally completed after 12 days. Although the source code was referenced in the first system in my life, it took a lot of effort and time to complete it.

For the first time, I made a complete system. Starting from the requirement analysis, I analyzed all the functions of the entire system, mainly divided into five parts: user management, student status management, class management, Course settings, and score management. Each part has corresponding addition, modification, and query functions.CodeIn the process of practice, we also fully verified that "thinking and doing are two different things ".

At the beginning, I had a lot of ideas. I always wanted to change the system and change it. But when I changed the system, I found that it was a big deal, so some of my thoughts were stranded.

For example, on the logon page, when the same user name is incorrectly logged on three times, you cannot log on to the system. When a logon error occurs, only the system prompts a wrong password, I want to add a reminder of the number of logins to the login form. When a user logs on incorrectly for the first time, the system prompts the user to "Log on incorrectly once, there are two more opportunities". So, I recommend this ...... But when I really think about code, I find that it's so simple. It's not a hassle, but I still have too few things to learn, I want to learn more ......

after the entire system is created, many things are connected, and one function are broken down, the discovery does not take much time. As long as you clearly know the role of each function, code implementation becomes much easier. In the end, some records are added, modified, and queried, in addition, these are the same. The real code is nothing more than several functions, several select statements, and several if statements ......

Private sub cmdok_click () dim txtsql as string dim rst as ADODB. recordset dim msgtext as string if trim (txtclassno. TEXT = "") Then msgbox "class number cannot be blank. Please enter it again! ", Vbokonly + vbexclamation," warning "txtclassno. setfocus exit sub end if trim (combograde. Text =" ") Then msgbox" cannot be blank. Please reselect it! ", Vbokonly + vbexclamation," warning "combograde. setfocus exit sub end if trim (txtdirector. Text =" ") Then msgbox" cannot be blank. Please enter it again! ", Vbokonly + vbexclamation," warning "txtclassno. setfocus exit sub end if trim (txtclassroom. Text =" ") Then msgbox" Classroom cannot be blank. Please enter it again! ", Vbokonly + vbexclamation," warning "txtclassroom. setfocus exit sub end if not isnumeric (TRIM (txtclassno. Text) Then msgbox" class number must be a number! ", Vbokonly + vbexclamation," warning "txtclassno. setfocus exit sub end if txtsql = "select * From class_info" set rst = executesql (txtsql, msgtext) if not (RST. bof and RST. EOF) Then rst. movenext end if while (RST. EOF = false) If trim (RST. fields (0) = trim (txtclassno. text) Then msgbox "this record already exists! ", Vbokonly + vbexclamation," warning "txtclassno. TEXT = "" txtclassno. setfocus else rst. movenext end if Wend rst. addnew rst. fields (0) = trim (txtclassno. text) rst. fields (1) = trim (combograde. text) rst. fields (2) = trim (txtdirector. text) rst. fields (3) = trim (txtclassroom. text) rst. update rst. close me. hide msgbox "class information added! ", Vbokonly + vbexclamation," added successfully "End sub

Every day, I will record how much I have done and how I feel every day. Every day, I have to take time to listen to English and handle various CEO affairs. So, there is little time to do this system, and it feels like every day is time-consuming. Sometimes, one day later, I find that I have not finished writing a form, and I will use the evening time to write a little more, in order to ensure my rest time, when I go back at night, I usually only hold the book, do not take the battery, and the computer is no longer powered, so that the end of the day can be declared perfect.

Do you know? After packaging and publishing, I went to the fifth floor to open three computers. After installation, multiple users log on at the same time. The system and database were separated and accessed remotely ...... The excitement of All implementations cannot be replaced by any material reward.

A lot of things, as long as we do and work hard, will certainly return. I believe that "shoude cloud is coming soon "~~~

There is nothing impossible to do.