高校教务排课系统代码-无忧无虑毕设网

无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 本文配套程序下载地址 ： 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务！ DL-MAIN（登陆主函数） 框架代码 unit dl_main； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, DB, DBTables, TransEff, teTimed, teRoll, FormCont, teForm, teBlend, teBmpMsk, teMasked, teBlock, teCircle, teDrip, teFuse, teWipe, teIntrlc, teWFall, teRadial； type Tmainform = class(TForm) Timer1: TTimer； procedure Timer1Timer(Sender: TObject)； procedure FormShow(Sender: TObject)； private Private declarations public Public declarations end； var mainform: Tmainform； implementation uses yhdl, main； $R *.dfm procedure Tmainform.Timer1Timer(Sender: TObject)； begin mainform.Hide ； f_main.Show； f_main.Enabled :=false； f_dl.show ； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： mainform.Timer1.Enabled :=false； end； procedure Tmainform.FormShow(Sender: TObject)； begin timer1.Enabled :=true； /标志是真，则运行程序 end； end. Dlll(登陆浏览 )代码 unit dlll； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, DBCtrls, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, ADODB； type Tf_dlll = class(TForm) Panel1: TPanel； DBGrid1: TDBGrid； dsdlll: TDataSource； DBNavigator1: TDBNavigator； dlll: TTable； procedure BitBtn1Click(Sender: TObject)； procedure FormShow(Sender: TObject)； procedure FormClose(Sender: TObject； var Action: TCloseAction)； private Private declarations public Public declarations end； var f_dlll: Tf_dlll； implementation 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： uses main； $R *.dfm procedure Tf_dlll.BitBtn1Click(Sender: TObject)； begin dlll.Close ； f_dlll.Close； end； procedure Tf_dlll.FormShow(Sender: TObject)； begin dlll.open； end； procedure Tf_dlll.FormClose(Sender: TObject； var Action: TCloseAction)； begin dlll.Close ； end； end. Main(主页面 ) unit main； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls, jpeg, DB, DBTables, Menus, XPBarMenu, ComCtrls,shellapi, FR_Class, ToolWin, ImgList, ADODB, Grids, DBGridEh, DBCtrls, PrnDbgeh, ExtDlgs； type Tf_main = class(TForm) d: TImage； MainMenu1: TMainMenu； N1: TMenuItem； N3: TMenuItem； N6: TMenuItem； N7: TMenuItem； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： N8: TMenuItem； N9: TMenuItem； N12: TMenuItem； N13: TMenuItem； N14: TMenuItem； sb: TStatusBar； N15: TMenuItem； N17: TMenuItem； N27: TMenuItem； ImageList2: TImageList； CoolBar1: TCoolBar； ToolBar1: TToolBar； ToolButtonexit: TToolButton； ToolButton1: TToolButton； ToolButton4: TToolButton； ToolButton5: TToolButton； SpeedButton1: TSpeedButton； SpeedButton2: TSpeedButton； SpeedButton3: TSpeedButton； SpeedButton4: TSpeedButton； N4: TMenuItem； cd: TColorDialog； ToolButton2: TToolButton； ToolButton3: TToolButton； ToolButton8: TToolButton； PrintDialog1: TPrintDialog； N2: TMenuItem； ToolButton9: TToolButton； SpeedButton5: TSpeedButton； pb: TProgressBar； N10: TMenuItem； N5: TMenuItem； N11: TMenuItem； N19: TMenuItem； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： N20: TMenuItem； opd1: TOpenPictureDialog； ImageList1: TImageList； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure N6Click(Sender: TObject)； procedure N10Click(Sender: TObject)； procedure Image1MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； procedure SpeedButton2MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； procedure SpeedButton3MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； procedure SpeedButton4MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； procedure N27Click(Sender: TObject)； procedure dMouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； procedure ToolButton4Click(Sender: TObject)； procedure ToolButtonexitClick(Sender: TObject)； procedure e_jiereKeyDown(Sender: TObject； var Key: Word； Shift: TShiftState)； procedure ToolButton2Click(Sender: TObject)； procedure SpeedButton2Click(Sender: TObject)； procedure SpeedButton3Click(Sender: TObject)； procedure SpeedButton5MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； procedure SpeedButton1MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； procedure SpeedButton4Click(Sender: TObject)； procedure SpeedButton1Click(Sender: TObject)； procedure N3Click(Sender: TObject)； procedure N13Click(Sender: TObject)； procedure N19Click(Sender: TObject)； procedure N2Click(Sender: TObject)； procedure N11Click(Sender: TObject)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure N15Click(Sender: TObject)； procedure N17Click(Sender: TObject)； procedure N4Click(Sender: TObject)； procedure ToolButton3Click(Sender: TObject)； procedure opd1CanClose(Sender: TObject； var CanClose: Boolean)； procedure N20Click(Sender: TObject)； procedure SpeedButton5Click(Sender: TObject)； procedure N14Click(Sender: TObject)； procedure N12Click(Sender: TObject)； procedure N9Click(Sender: TObject)； private Private declarations public Public declarations end； var f_main: Tf_main； / function can_pk(week:integer,note:integer,code:integer):boolean； implementation uses dl_main,yhdl, dlll, password, u_base, u_apply, u_set_tj,u_data, U_look, u_wrong, u_add_user,u_abort； $R *.dfm /判断教室是否冲突的函数 ； function can_pk(week:integer；note:string；tec_code:integer；adr_code:integer):boolean； var can,yes:boolean； n,now:integer； begin can:=true； yes:=true； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： with datamodule1 do begin have_pk.Close； have_pk.Open； have_pk.First ； while not have_pk.Eof do begin if have_pkcodenull then begin t_scan.Close； t_scan.TableName :=kc+inttostr(have_pkcode)+.db； /找到周数、节数以及地点的代码 ； now:=2 ； for n:=1 to week-1 do now:=now+2； t_scan.Open； t_scan.RecNo :=now； if t_scannotenull then/如果该节不为空 ； begin if t_scannote=adr_code then yes :=false else yes:=true； CAN:=CAN AND YES； end else /如果该节不为空 ； begin can:=true； have_pk.Next ； continue； end； IF can=false then break； /是否可以排课，如果不能则跳出程序 ； t_scan.Close； /周节数以及教师的代码 ； now:=3； for n:=1 to week-1 do now:=now+3； t_scan.Open； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： t_scan.RecNo :=now； if t_scannote0 then begin if t_scannote=tec_code then yes:=false else yes:=true； can:=can and yes； if can=false then break； /是否可以排课，如果不能则跳出程序 ； end else begin can:=true； have_pk.Next ； continue； end； end； have_pk.Next ； end； have_pk.Close； t_scan.Close； end； result:=can； end； procedure Tf_main.FormClose(Sender: TObject； var Action: TCloseAction)； begin mainform.Close； end； procedure Tf_main.N6Click(Sender: TObject)； begin mainform.Close； f_main.Close ； application.Terminate ； end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure Tf_main.N10Click(Sender: TObject)； var classcode:string； begin /shellexecute(handle,nil,pchar(mailto:),nil,nil,SW_SHOWNORMAL)； with datamodule1 do begin have_pk.Close； have_pk.EmptyTable； tb_class.Close； tb_class.Filtered :=false； tb_class.Filter :=； tb_class.Open； tb_class.First ； while not tb_class.Eof do begin classcode:=inttostr(tb_classcode)； temp.Close； temp2.Close； temp.TableName:=； temp.TableName :=kc+classcode+.db； temp2.TableName :=； temp2.TableName :=pk+classcode+.db； temp.Close； temp.EmptyTable ； temp2.Close； temp2.EmptyTable ； tb_class.Next ； end； tb_class.Close； temp.Close； tb_apply.Close； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： tb_apply.Open； tb_apply.First ； while not tb_apply.Eof do begin tb_apply.Edit ； tb_applyready:=tb_applyxueshi； tb_apply.Post ； tb_apply.Next ； end； end； showmessage(clear over!)； end； procedure Tf_main.Image1MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； begin sb.Panels0.Text :=； SpeedButton1.Font.Color:=clwindow； SpeedButton2.Font.Color:=clwindow； SpeedButton3.Font.Color:=clwindow； SpeedButton4.Font.Color:=clwindow； end； procedure Tf_main.SpeedButton2MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； begin SpeedButton2.Font.Color:=clblue； sb.Panels0.Text :=进行班级排课的申请 ； end； procedure Tf_main.SpeedButton3MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； begin SpeedButton3.Font.Color:=clblue； sb.Panels0.Text :=排课前的条件设置 ； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； procedure Tf_main.SpeedButton4MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； begin SpeedButton4.Font.Color:=clblue； sb.Panels0.Text :=开始进行计算机自动排课 ； end； procedure Tf_main.N27Click(Sender: TObject)； begin f_dl.Show ； end； procedure Tf_main.dMouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； begin SpeedButton1.Font.Color:=clwindow； SpeedButton2.Font.Color:=clwindow； SpeedButton3.Font.Color:=clwindow； SpeedButton4.Font.Color:=clwindow； speedbutton5.Font.Color :=clwindow； sb.Panels0.Text :=； end； procedure Tf_main.ToolButton4Click(Sender: TObject)； begin f_dl.Show ； end； procedure Tf_main.ToolButtonexitClick(Sender: TObject)； begin mainform.Close； f_main.Close ； application.Terminate ； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； procedure Tf_main.e_jiereKeyDown(Sender: TObject； var Key: Word； Shift: TShiftState)； begin if key=13 then begin end； end； procedure Tf_main.ToolButton2Click(Sender: TObject)； begin f_base.show； end； procedure Tf_main.SpeedButton2Click(Sender: TObject)； begin f_apply.show； end； procedure Tf_main.SpeedButton3Click(Sender: TObject)； begin f_set_tj.show； end； procedure Tf_main.SpeedButton5MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； begin SpeedButton5.Font.Color:=clblue； sb.Panels0.Text :=设置班级排课和基本信息 ； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； procedure Tf_main.SpeedButton1MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； begin SpeedButton1.Font.Color:=clblue； sb.Panels0.Text :=查看修改浏览打印界结果 ； end； procedure Tf_main.SpeedButton4Click(Sender: TObject)； var adr,kc,tec:array1.20 of integer； /一周地点 ； a1,a2,a3,a4,a5:array1.2 of integer； a6,a7:array1.5 of integer； num,wk,code,week_times,ready_pk,i,j,l,id,tech_code,room_code:integer；/取得排 课周数 ； path,j_class,lsh,class_name,classcode,kc_code,ii,kind,note:string； sing:boolean； begin path:=extractfilepath(application.ExeName)+pk.ini； wk:=getprivateprofileint( team, week, 0, pchar(path)； with datamodule1 do begin tb_class.Close； tb_class.Open； tb_class.First ； pb.Max :=wk*tb_class.RecordCount； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： pb.Step :=1； while not tb_class.Eof do begin class_name:=tb_classname； sb.Panels0.Text :=正在排 +class_name+的课程 ； f_main.Refresh ； classcode:=inttostr(tb_classcode)； temp.close； temp.TableName:=； temp.TableName :=kc+classcode+.db； t_date.Open； t_date.First ； for i:=1 to wk do begin for j:=1 to 20 do begin adrj:=0； kcj:=0； end； /end-31 for l:=1 to 2 do begin /begin 32 a1l:=0； a2l:=0； a3l:=0； a4l:=0； a5l:=0； end； /end-32 for l:=1 to 5 do begin/begin 33 a6l:=0； a7l:=0； end；/end-33 if t_datey1=false then begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： a11:=99； a12:=99； a61:=99； a71:=99； end； if t_datey2=false then begin a21:=99； a22:=99； a62:=99； a72:=99； end； if t_datey3=false then begin a31:=99； a32:=99； a63:=99； a73:=99； end； if t_datey4=false then begin a41:=99； a42:=99； a64:=99； a74:=99； end； if t_datey5=false then begin a51:=99； a52:=99； a65:=99； a75:=99； end； query1.Close； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： query1.SQL.Clear ； query1.Params.Clear ； query1.SQL.Add(select * from apply where class=:class order by id)； query1.ParamByName(class).AsString:=class_name； query1.open； while not query1.Eof do begin /begin 34 ready_pk:=query1.FieldValuesready； code:=query1.FieldValuescode； kc_code:=inttostr(code)； week_times:=query1.FieldValuesweek_time； lsh:=inttostr(query1.FieldValueslsh)； kind:=query1.FieldValueskind； /； sing:=query1.FieldValuesjion_sing； tech_code:=query1.FieldValuestech_code； room_code:=query1.FieldValuesroom_code； if sing=true then j_class:=inttostr(query1.FieldValuesj_code)； if (query1.Fields.FieldByName(star_week).AsInteger 0 ) then begin / 41 if sing =true then begin have_pk.Close； have_pk.Filtered :=false； have_pk.Filter :=code=+j_class ； have_pk.Filtered :=true； have_pk.Open； if have_pk.RecordCount =0 then begin if kind=课程 then begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： for l:=1 to 5 do begin if week_times=1 then begin /- if a7l=0 then begin note:=inttostr(l*4)； if can_pk(i,note,tech_code,room_code)=true then begin a7l:=code； week_times:= week_times-1； ready_pk:=ready_pk-2； end else continue； end； end else break； end； end； if week_times=1 then begin /51 for l:=1 to 2 do begin/61 if a3l=0 then begin /71 note:=inttostr(l+8)； if can_pk(i,note,tech_code,room_code)=true then begin a3l:=code； week_times:=week_times-1； ready_pk:=ready_pk-2； break； end else continue； end ；/end-71 end；/end-61 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； /end-51 /- if week_times=1 then begin for l:=1 to 2 do begin if a1l=0 then begin note:=inttostr(l)； if can_pk(i,note,tech_code,room_code)=true then begin a1l:=code； week_times:=week_times-1； ready_pk:=ready_pk-2； break； end else continue； end； end； end； /- if week_times=1 then begin for l:=1 to 2 do begin if a2l=0 then begin note:=inttostr(l+4)； if can_pk(i,note,tech_code,room_code)=true then begin a2l:=code； week_times:=week_times-1； ready_pk:=ready_pk-2； break； end else continue； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； end； end； /- if week_times=1 then begin for l:=1 to 2 do begin if a4l=0 then begin note:=inttostr(l+12)； if can_pk(i,note,tech_code,room_code)=true then begin a4l:=code； week_times:=week_times-1； ready_pk:=ready_pk-2； break； end else continue； end； end； end； /- if week_times=1 then begin for l:=1 to 2 do begin if a5l=0 then begin note:=inttostr(l+16)； if can_pk(i,note,tech_code,room_code)=true then begin a5l:=code； week_times:=week_times-1； ready_pk:=ready_pk-2； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： break； end else continue； end； end； end； /- if week_times=1 then begin for l:=1 to 5 do begin if a6l=0 then begin note:=inttostr(l*4-1)； if can_pk(i,note,tech_code,room_code)=true then begin a6l:=code； week_times:=week_times-1； ready_pk:=ready_pk-2； break； end else continue； end； end； end； /- if week_times=1 then begin /- for l:=1 to 5 do begin if a7l=0 then begin note:=inttostr(l*4) ； if can_pk(i,note,tech_code,room_code)=true then begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： a7l:=code； week_times:=week_times-1； ready_pk:=ready_pk-2； break； end else continue； end； end； end； end else begin t_scan.Close； t_scan.TableName :=kc+j_class+.db； t_scan.Open； num:=1 ； for l:=1 to i-1 do num:=num+3； t_scan.RecNo :=num； if code=t_scan1 then begin a11:=t_scan1；ready_pk:=ready_pk-2； week_times:=week_times-1；end； if code=t_scan2 then begin a12:=t_scan2；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan3 then begin a61:=t_scan3；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan4 then begin a71:=t_scan4；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan5 then begin a21:=t_scan5；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan6 then begin a22:=t_scan6；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan7 then begin a62:=t_scan7；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan8 then begin a72:=t_scan8；ready_pk:=ready_pk-2；week_times:=week_times-1；end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： if code=t_scan9 then begin a31:=t_scan9；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan10 then begin a32:=t_scan10；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan11 then begin a63:=t_scan11；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan12 then begin a73:=t_scan12；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan13 then begin a41:=t_scan13；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan14 then begin a42:=t_scan14；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan15 then begin a64:=t_scan15；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan16 then begin a74:=t_scan16；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan17 then begin a51:=t_scan17；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan18 then begin a52:=t_scan18；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan19 then begin a65:=t_scan19；ready_pk:=ready_pk-2；week_times:=week_times-1；end； if code=t_scan20 then begin a75:=t_scan20；ready_pk:=ready_pk-2；week_times:=week_times-1；end； end； t_edit.close； t_edit.Filtered :=false； t_edit.Filter :=lsh=+lsh； /t_edit.Filter :=code=+kc_code+ and class=+class_name； t_edit.Filtered :=true； t_edit.Open； t_edit.Edit ； t_editready:=ready_pk； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： t_edit.Post ； t_edit.Close； end ； /* if kind=排课 then begin for l:=1 to 5 do begin if week_times=1 then begin /- if a7l=0 then begin note:=inttostr(l*4)； if can_pk(i,note,tech_code,room_code)=true then begin a7l:=code； week_times:= week_times-1； ready_pk:=ready_pk-2； end； end； end else break； end； end； if week_times=1 then begin /51 for l:=1 to 2 do begin/61 if a3l=0 then begin /71 note:=inttostr(l+8)； if can_pk(i,note,tech_code,room_code)=true then 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： begin a3l:=code； week_times:=week_times-1； ready_pk:=ready_pk-2； break； end； end ；/end-71 end；/end-61 end； /end-51 /- if week_times=1 then begin for l:=1 to 2 do begin if a1l=0 then begin note:=inttostr(l)； if can_pk(i,note,tech_code,room_code)=true then begin a1l:=code； week_times:=week_times-1； ready_pk:=ready_pk-2； break； end； end； end； end； /- if week_times=1 then begin for l:=1 to 2 do begin if a2l=0 then begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： note:=inttostr(l+4) ； if can_pk(i,note,tech_code,room_code)=true then begin a2l:=code； week_times:=week_times-1； ready_pk:=ready_pk-2； break； end； end； end； end； /- if week_times=1 then begin for l:=1 to 2 do begin if a4l=0 then begin note:=inttostr(l+12) ； if can_pk(i,note,tech_code,room_code)=true then begin a4l:=code； week_times:=week_times-1； ready_pk:=ready_pk-2； break； end； end； end； end； /- if week_times=1 then begin for l:=1 to 2 do begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： if a5l=0 then begin note:=inttostr(l+16)； if can_pk(i,note,tech_code,room_code)=true then begin a5l:=code； week_times:=week_times-1； ready_pk:=ready_pk-2； break； end； end； end； end； /- if week_times=1 then begin for l:=1 to 5 do begin if a6l=0 then begin note:=inttostr(l*4-1)； if can_pk(i,note,tech_code,room_code)=true then begin a6l:=code； week_times:=week_times-1； ready_pk:=ready_pk-2； break； end； end； end； end； /- 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： if week_times=1 then begin /- for l:=1 to 5 do begin if a7l=0 then begin note:=inttostr(l*4)； if can_pk(i,note,tech_code,room_code)=true then begin a7l:=code； week_times:= week_times-1； ready_pk:=ready_pk-2； break； end； end； end； end； end；/end-41 / ； /ready； t_edit.close； t_edit.Filtered :=false； t_edit.Filter :=lsh=+lsh； t_edit.Filtered :=true； t_edit.Open； t_edit.Edit ； t_editready:=ready_pk； t_edit.Post ； t_edit.Close； /； query1.Next ； /； end； /end-34； kc1:=a11； kc2:=a12； kc3:=a61； kc4:=a71； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： kc5:=a21； kc6:=a22； kc7:=a62； kc8:=a72； kc9:=a31； kc10:=a32； kc11:=a63； kc12:=a73； kc13:=a41； kc14:=a42； kc15:=a64； kc16:=a74； kc17:=a51； kc18:=a52； kc19:=a65； kc20:=a75； for j:=1 to 20 do begin if (kcj0) and (kcj99) then begin t_edit.close； t_edit.Filtered :=false； t_edit.Filter :=code=+inttostr(kcj)+ and class=+class_name； t_edit.Filtered :=true； t_edit.Open； adrj:=t_editroom_code； tecj:=t_edittech_code； end else begin adrj:=0； tecj:=0；end； end； / temp.TableName :=classname； temp.close； temp.Open； temp.Last； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： temp.Append； tempkind:=； temp1:=a11； temp2:=a12； temp3:=a61； temp4:=a71； temp5:=a21； temp6:=a22； temp7:=a62； temp8:=a72； temp9:=a31； temp10:=a32； temp11:=a63； temp12:=a73； temp13:=a41； temp14:=a42； temp15:=a64； temp16:=a74； temp17:=a51； temp18:=a52； temp19:=a65； temp20:=a75； temp.Post ； temp.Close； temp.Open； temp.Last ； temp.Append； tempkind:=； temp1:=adr1； temp2:=adr2； temp3:=adr3； temp4:=adr4； temp5:=adr5； temp6:=adr6； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： temp7:=adr7； temp8:=adr8； temp9:=adr9； temp10:=adr10； temp11:=adr11； temp12:=adr12； temp13:=adr13； temp14:=adr14； temp15:=adr15； temp16:=adr16； temp17:=adr17； temp18:=adr18； temp19:=adr19； temp20:=adr20； temp.Post ； temp.Close； temp.Open； temp.Last ； temp.Append； tempkind:=； temp1:=tec1； temp2:=tec2； temp3:=tec3； temp4:=tec4； temp5:=tec5； temp6:=tec6； temp7:=tec7； temp8:=tec8； temp9:=tec9； temp10:=tec10； temp11:=tec11； temp12:=tec12； temp13:=tec13； temp14:=tec14； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： temp15:=tec15； temp16:=tec16； temp17:=tec17； temp18:=tec18； temp19:=tec19； temp20:=tec20； temp.Post ； temp.Close； t_date.Next ； t_date.Next ； pb.StepIt ； end； /end-2 have_pk.close； have_pk.Open ； have_pk.Last ； have_pk.Append； have_pkcode:=strtoint(classcode)； have_pk.Post ； have_pk.Close； tb_class.Next； t_edit.Close； end； sb.Panels0.Text :=； f_main.Refresh ； tb_class.close； tb_class.Open； tb_class.First ； pb.Max :=tb_class.RecordCount ； pb.Step :=1； pb.Show； while not tb_class.Eof do begin pb.StepIt ； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： class_name:=tb_classname； sb.Panels0.Text :=+class_name+； f_main.Refresh ； classcode:=inttostr(tb_classcode)； temp2.Close； temp.Close； temp2.TableName:=； temp2.TableName :=pk+classcode+.db； temp.TableName :=； temp.TableName :=kc+classcode+.db； temp.Open； temp.First ； temp2.Close； temp2.EmptyTable ； temp2.Filter :=； temp2.Filtered:=false； temp2.Open； while not temp.Eof do begin temp2.Append ； for i:=1 to 20 do begin ii:=inttostr(i)； if tempii=0 then begin temp2ii:=null； continue； end ； if tempii=99 then begin temp2ii:=； continue； end； query1.Close； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： query1.SQL.Clear ； query1.SQL.Add(select * from kc_base where code=:code)； query1.ParamByName(code).AsInteger :=tempii； query1.Open； temp2ii:=query1.FieldValuesname； end； temp2kind:=； temp2.Post ； temp2.Close； temp2.Open； temp2.Last ； temp2.Last ； temp.Next ； temp2.Append ； for i:=1 to 20 do begin ii:=inttostr(i)； if tempii=0 then begin temp2ii:=null； continue； end ； query1.Close； query1.SQL.Clear ； query1.SQL.Add(select * from room_base where code=:code)； query1.ParamByName(code).AsInteger :=tempii； query1.Open； temp2ii:=query1.FieldValuesname； end； temp2kind:=； temp2.Post ； temp2.Close； temp2.Open； temp2.Last ； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： temp.Next ； temp2.Append ； for i:=1 to 20 do begin ii:=inttostr(i)； if tempii=0 then begin temp2ii:=null； continue； end； query1.Close； query1.SQL.Clear ； query1.SQL.Add(select * from tech_base where code=:code)； query1.ParamByName(code).AsInteger :=tempii； query1.Open； temp2ii:=query1.FieldValuesname； end； temp2kind:=； temp2.Post ； temp.Next ； end ； temp2.Close； temp2.Filter :=； temp2.Filtered:=false； temp2.Open； temp2.First ； t_date.Open； t_date.First ； while not t_date.Eof do begin temp2.Edit ； temp2week:=inttostr(t_dateweek)； temp2m:=inttostr(t_datem)； temp2d1:=inttostr(t_dated1)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： temp2d2:=inttostr(t_dated2)； temp2d3:=inttostr(t_dated3)； temp2d4:=inttostr(t_dated4)； temp2d5:=inttostr(t_dated5)； temp2.Post ； temp2.Next ； temp2.Edit ； temp2m:=； temp2d1:=； temp2.Post ； temp2.Next ； temp2.Next ； t_date.Next ； t_date.Next ； end； tb_class.Next ； pb.StepIt ； end； showmessage()； sb.Panels0.Text :=； f_main.Refresh ； end； end； procedure Tf_main.SpeedButton1Click(Sender: TObject)； begin f_look.show； end； procedure Tf_main.N3Click(Sender: TObject)； begin f_edit_pass.show； end； procedure Tf_main.N13Click(Sender: TObject)； begin f_dlll.Show ； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； procedure Tf_main.N19Click(Sender: TObject)； begin shellexecute(handle,nil,pchar(mailto:),nil,nil,SW_SHOWNORMAL)； end； procedure Tf_main.N2Click(Sender: TObject)； begin PrintDialog1.Execute ； end； procedure Tf_main.N11Click(Sender: TObject)； begin f_look.show； end； procedure Tf_main.N15Click(Sender: TObject)； begin f_base.show； end； procedure Tf_main.N17Click(Sender: TObject)； begin f_apply.show； end； procedure Tf_main.N4Click(Sender: TObject)； begin f_set_tj.show； end； procedure Tf_main.ToolButton3Click(Sender: TObject)； begin opd1.Execute ； end； procedure Tf_main.opd1CanClose(Sender: TObject； var CanClose: Boolean)； begin d.Picture.LoadFromFile(opd1.FileName )； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； procedure Tf_main.N20Click(Sender: TObject)； begin f_wrong.show； end； procedure Tf_main.SpeedButton5Click(Sender: TObject)； begin f_base.show； end； procedure Tf_main.N14Click(Sender: TObject)； begin f_add_user.show； end； procedure Tf_main.N12Click(Sender: TObject)； begin abort.show； end； procedure Tf_main.N9Click(Sender: TObject)； /begin /ShellExecute(application.handle,open,e:paikehelp.chm,sw_show)； /； /end； var path:string； begin try path:=extractfilepath(application.ExeName)+help.chm； ShellExecute(Handle, open, pchar(path), nil, nil, SW_SHOW)； except end； end； end. New (新匡架 ) 代码 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： unit new； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, FormCont； type TFCEmbeddedForm1 = class(TFCEmbeddedForm) private public end； var FCEmbeddedForm1: TFCEmbeddedForm1； implementation $R *.DFM end. Password(用户登陆代码 ) unit password； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, DB, DBTables, ADODB； type Tf_edit_pass = class(TForm) Panel1: TPanel； Button1: TButton； Button2: TButton； Button3: TButton； Panel2: TPanel； Panel3: TPanel； e_xmima: TEdit； e_qrxmima: TEdit； Label5: TLabel； Label4: TLabel； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： e_yhm: TEdit； Label1: TLabel； dsdl: TDataSource； Button4: TButton； Table2: TTable； procedure Button1Click(Sender: TObject)； procedure Button2Click(Sender: TObject)； procedure Button3Click(Sender: TObject)； procedure Button4Click(Sender: TObject)； procedure FormShow(Sender: TObject)； private Private declarations public Public declarations end； var f_edit_pass: Tf_edit_pass； implementation uses yhdl,main； $R *.dfm procedure Tf_edit_pass.Button1Click(Sender: TObject)； begin e_xmima.Text:=； e_qrxmima.Text:=； if messagedlg(,mbyes,mbno,0)=mryes then begin e_xmima.Enabled:=true； e_qrxmima.Enabled:=true； button1.Enabled:=false； button2.Enabled :=true； end； end； procedure Tf_edit_pass.Button2Click(Sender: TObject)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： begin if (e_xmima.text=e_qrxmima.Text) then begin table2.Close； table2.Filtered :=false； table2.Filter :=id=+e_yhm.Text +； table2.Filtered :=true； table2.Open ； if table2.RecordCount =1 then begin table2.Edit ； table2mima:=e_xmima.Text； table2.Post； showmessage( )； e_xmima.Text :=； e_qrxmima.Text :=； button2.Enabled:=false； button1.Enabled:=true； end else showmessage() ； end else begin messagedlg( ,mterror,mbyes,0)； e_xmima.Text:=； e_qrxmima.Text:=； end； end； procedure Tf_edit_pass.Button3Click(Sender: TObject)； begin f_edit_pass.Close； end； procedure Tf_edit_pass.Button4Click(Sender: TObject)； begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： f_dl.Show ； f_edit_pass.Close ； end； procedure Tf_edit_pass.FormShow(Sender: TObject)； begin e_yhm.Text :=f_main.sb.Panels2.Text ； button1.Enabled :=true； button2.enabled:=false； end； end. Report（报告生成算法） 代码 unit report； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, FR_Class, StdCtrls, Buttons, Grids, DBGridEh, ExtCtrls, FR_DSet, FR_DBSet； type Tf_report = class(TForm) Panel1: TPanel； DBGridEh1: TDBGridEh； BitBtn1: TBitBtn； frReport1: TfrReport； pk: TTable； frDBDataSet1: TfrDBDataSet； date: TTable； frDBDataSet2: TfrDBDataSet； private Private declarations public Public declarations end； var 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： f_report: Tf_report； implementation $R *.dfm end. Ssgl(时时观看 )代码 unit report； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, FR_Class, StdCtrls, Buttons, Grids, DBGridEh, ExtCtrls, FR_DSet, FR_DBSet； type Tf_report = class(TForm) Panel1: TPanel； DBGridEh1: TDBGridEh； BitBtn1: TBitBtn； frReport1: TfrReport； pk: TTable； frDBDataSet1: TfrDBDataSet； date: TTable； frDBDataSet2: TfrDBDataSet； private Private declarations public Public declarations end； var f_report: Tf_report； implementation $R *.dfm end. A_add_user(添加用户 ) 代码 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： unit u_add_user； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, StdCtrls, Buttons, Grids, DBGridEh, ExtCtrls； type Tf_add_user = class(TForm) GroupBox1: TGroupBox； Bevel1: TBevel； DBGridEh1: TDBGridEh； Label1: TLabel； e_name: TEdit； Label2: TLabel； e_mima: TEdit； Label3: TLabel； e_mima2: TEdit； Label4: TLabel； e_qx: TComboBox； Bevel2: TBevel； BitBtn1: TBitBtn； BitBtn2: TBitBtn； Table1: TTable； DataSource1: TDataSource； Bevel3: TBevel； Panel1: TPanel； Panel2: TPanel； BitBtn3: TBitBtn； procedure BitBtn1Click(Sender: TObject)； procedure FormShow(Sender: TObject)； procedure FormClose(Sender: TObject； var Action: TCloseAction)； procedure BitBtn2Click(Sender: TObject)； procedure BitBtn3Click(Sender: TObject)； private Private declarations 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： public Public declarations end； var f_add_user: Tf_add_user； implementation $R *.dfm function add_true(a:string；b:string；c:string；d:string):boolean； begin if a= then begin result:= false；showmessage(!)； exit end； if b= then begin result:= false；showmessage()； exit end； if c= then begin result:= false；showmessage()； exit end； if d= then begin result:= false；showmessage( )； exit end； if bc then begin result:=false； showmessage( )；EXIT END； result:=true； end； procedure Tf_add_user.BitBtn1Click(Sender: TObject)； begin if add_true(e_name.Text ,e_mima.Text ,e_mima2.Text,e_qx.Text )=true then begin table1.Close； table1.Filtered:=false； table1.Filter :=id=+e_name.Text+； table1.Filtered :=true； table1.Open； if table1.RecordCount =0 then begin table1.Close ； table1.Open； table1.Last ； table1.Append ； table1id:=e_name.Text ； table1mima:=e_mima.Text ； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： table1jb:=e_qx.text； table1.Post ； table1.Close； table1.Filtered :=false； table1.Filter :=； table1.Open； showmessage( )； end else begin showmessage()； table1.Close； table1.Filtered :=false； table1.Filter :=； table1.Open； end； end； end； procedure Tf_add_user.FormShow(Sender: TObject)； begin table1.Open； end； procedure Tf_add_user.FormClose(Sender: TObject； var Action: TCloseAction)； begin table1.close； end； procedure Tf_add_user.BitBtn2Click(Sender: TObject)； begin table1.Close； close； end； procedure Tf_add_user.BitBtn3Click(Sender: TObject)； begin table1.Delete ； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： end； end. U_apply(用户应用 )代码 unit u_apply； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGridEh, ExtCtrls, DBCtrls, StdCtrls, Buttons, DB, DBTables； type Tf_apply = class(TForm) DBGridEh1: TDBGridEh； DBGridEh2: TDBGridEh； DBNavigator1: TDBNavigator； Panel1: TPanel； Label2: TLabel； Label3: TLabel； Label4: TLabel； Label6: TLabel； Label7: TLabel； Label8: TLabel； cb: TCheckBox； e_kc: TDBLookupComboBox； e_star_week: TEdit； e_week_time: TEdit； e_room: TDBLookupComboBox； e_tec: TDBLookupComboBox； e_jion_class: TDBLookupComboBox； Bevel1: TBevel； BitBtn1: TBitBtn； BitBtn2: TBitBtn； BitBtn3: TBitBtn； DBNavigator2: TDBNavigator； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： SpeedButton1: TSpeedButton； SpeedButton2: TSpeedButton； t_class: TTable； ds_class: TDa