無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 本文配套程序下載地址 ： 無憂無慮畢設(shè)網(wǎng) ()-大學(xué)生畢業(yè)設(shè)計(jì)站 ,免費(fèi)畢業(yè)設(shè)計(jì)論文 ,無憂無慮畢設(shè)網(wǎng) 大學(xué)生畢業(yè)設(shè)計(jì) ,出售各類畢業(yè)設(shè)計(jì)源碼 ,論文 ,程序源碼 ,網(wǎng)站源碼 ,免費(fèi)視頻教程 ,我們將竭誠為您服務(wù)！ DL-MAIN（登陸主函數(shù)） 框架代碼 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 ； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： mainform.Timer1.Enabled :=false； end； procedure Tmainform.FormShow(Sender: TObject)； begin timer1.Enabled :=true； /標(biāo)志是真，則運(yùn)行程序 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 /判斷教室是否沖突的函數(shù) ； 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； /找到周數(shù)、節(jié)數(shù)以及地點(diǎn)的代碼 ； now:=2 ； for n:=1 to week-1 do now:=now+2； t_scan.Open； t_scan.RecNo :=now； if t_scannotenull then/如果該節(jié)不為空 ； begin if t_scannote=adr_code then yes :=false else yes:=true； CAN:=CAN AND YES； end else /如果該節(jié)不為空 ； begin can:=true； have_pk.Next ； continue； end； IF can=false then break； /是否可以排課，如果不能則跳出程序 ； t_scan.Close； /周節(jié)數(shù)以及教師的代碼 ； now:=3； for n:=1 to week-1 do now:=now+3； t_scan.Open； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 :=進(jìn)行班級(jí)排課的申請 ； end； procedure Tf_main.SpeedButton3MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； begin SpeedButton3.Font.Color:=clblue； sb.Panels0.Text :=排課前的條件設(shè)置 ； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： end； procedure Tf_main.SpeedButton4MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； begin SpeedButton4.Font.Color:=clblue； sb.Panels0.Text :=開始進(jìn)行計(jì)算機(jī)自動(dòng)排課 ； 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 ； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 :=設(shè)置班級(jí)排課和基本信息 ； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： end； procedure Tf_main.SpeedButton1MouseMove(Sender: TObject； Shift: TShiftState； X, Y: Integer)； begin SpeedButton1.Font.Color:=clblue； sb.Panels0.Text :=查看修改瀏覽打印界結(jié)果 ； end； procedure Tf_main.SpeedButton4Click(Sender: TObject)； var adr,kc,tec:array1.20 of integer； /一周地點(diǎn) ； 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；/取得排 課周數(shù) ； 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； /- 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 ； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 ； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 ； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 )； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 (新匡架 ) 代碼 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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)； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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（報(bào)告生成算法） 代碼 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： f_report: Tf_report； implementation $R *.dfm end. Ssgl(時(shí)時(shí)觀看 )代碼 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(添加用戶 ) 代碼 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 ； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： 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 ； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： end； end. U_apply(用戶應(yīng)用 )代碼 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； 無憂無慮畢設(shè)網(wǎng) ():畢業(yè)設(shè)計(jì)源碼下載 畢業(yè)設(shè)計(jì)源碼下載： SpeedButton1: TSpeedButton； SpeedButton2: TSpeedButton； t_class: TTable； ds_class: TDa