Shift algorithm begging

Scheduling Algorithm begging for Delphi/Windows SDK/API
Http://www.delphi2007.net/DelphiBase/html/delphi_20061208131750224.html
Field Name field data type description
No. idint auto-Increment
Doctor No. docnochar [8] foreign key
Rotation cycle returntype int 0 week, 1 half month, 2 one month; default 0
Rotation number returnid int when returntype is 0, the value is 1-7; When returntype is 1, the value is 1-15; When returntype is 2, the value range is 1-31 (the value varies by month );

Shift returnsqint 1 morning shift, 2 afternoon shift, 3 evening shift, 0 whole shift
Effective date: validetime date
Expert isproboolean 0 NO, 1 is
Category: protypechar [6]


The form of the data table is as follows ~

A little less than 10 points! Haha.

But I can only write 10. Why ??

Help me get it ~

A little less than 10 points! Haha.
------------------- Don't worry about joking
No problem. Just give it to you. If you can wait. Good evening?

Okay. I thought of a very idiotic method myself. NoAlgorithm. All are implemented on the interface. after selecting the "rotation cycle" returntype, enter the "rotation sequence number" and use the mousedown event to determine the selected returntype. Based on the selected window, the system prompts you to select "rotation sequence number ", in this case, use ComboBox to manually add "rotation serial number" for selection. for example, if the returntype is set to 0, the system jumps out of another form. The above ComboBox is set to 1-7. and so on... very pediatric practice ~
Lao Feng has trouble pointing out more "professional" Algorithms