edit2.Text:=trim(adoquery1.fieldbyname('xm').AsString); edit3.Text:=trim(adoquery1.fieldbyname('bjmc').AsString); listcourse(id); //ÁгöÒÑÑ¡¿Î³Ì //ÔÊÐí¿ªÊ¼Ñ¡¿Î bitbtn2.Enabled:=true; bitbtn3.Enabled:=true; //bitbtn4.Enabled:=true; end else begin

//Ö»ÓÐÔÚ¼®Ñ§Éú²ÅÄÜÑ¡¿Î

showmessage('¸ÃÉú·ÇÔÚ¼®Ñ§Éú£¬²»ÄÜÑ¡¿Î'); bitbtn2.Enabled:=false; bitbtn3.Enabled:=false; id:=''; end; end; end;

//--------ÏÔʾѧÉúÒѾ­Ñ¡µÄ¿Î³Ì---------- procedure TCourseElect.listcourse(id: string); begin

//½«·ûºÏÑ¡¿ÎÌõ¼þµÄѧÉúÒѾ­Ñ¡¹ýµÄ¿Î³ÌÁÐÔÚ±íÖÐ adoquery2.Close; adoquery2.SQL.Clear; adoquery2.SQL.Add('select

XSXX.xh,XKB.kxh,KCXX.kcmc,js,kkxb,KCB.sksjt,sksjj,skdd

from

KCB,XSXX,KCXX,XKB where XKB.kxh=KCB.kxh and XKB.xh=XSXX.xh and KCXX.kcbh=KCB.kcbh'); adoquery2.Open; end;

//---------------¿Î³Ì²éѯ-------------------

29

procedure TCourseElect.BitBtn1Click(Sender: TObject); begin

if(edit4.Text='')and(edit5.Text='')and(edit6.Text='')and(edit7.Text='')then showmessage('ÇëÊäÈë²éѯÌõ¼þ£¡') else begin

adoquery3.Close; adoquery3.SQL.Clear; adoquery3.SQL.Add('select

KCB.kxh,KCXX.kcbh,kcmc,js,kkxb,pym,KCB.sksjt,sksjj,skdd KCB,XSXX,KCXX,XKB');

adoquery3.SQL.Add('where (XKB.kxh=KCB.kxh and XKB.xh=XSXX.xh and KCXX.kcbh=KCB.kcbh) KCXX.kcmc='''+edit5.Text+'''or XKB.kxh='''+edit7.Text+''')'); Adoquery3.Open;

if(Adoquery3.RecordCount=0)then showmessage('ÕÒ²»µ½ÕâÃſγ̣¡') else begin

DBGrid2.DataSource.DataSet:=Adoquery3; DBGrid2.DataSource.DataSet.Active:=false; DBGrid2.DataSource.DataSet.Active:=true; end; end; end;

//-----------½«Ñ¡ÔñµÄ¿Î³ÌÌí¼Óµ½Ñ§ÉúµÄÑ¡¿Î±íÖÐ-------------- procedure TCourseElect.BitBtn2Click(Sender: TObject); var num:string; day,section:integer;

and

(KCXX.pym='''+edit4.Text+'''or KCXX.kcbh='''+edit6.Text+'''or

from

30

begin

//δѡÔñ¿Î³Ìʱ£¬²»ÔÊÐíÌá½» if adoquery3.RecordCount=0 then begin

showmessage('ÇëÏÈÑ¡ÔñÒ»ÃſγÌ'); exit; end;

num:=trim(dbgrid2.Fields[0].Text);//±£´æ¿ÎÐòºÅ

//ÅжÏËùÑ¡µÄ¿Î³ÌÊÇ·ñÒÑÑ¡ºÍÊÇ·ñÓëÆäËûÒѾ­Ñ¡µÄ¿Î³ÌÓÐʱ¼ä³åÍ» adoquery1.Close; adoquery1.SQL.Clear;

adoquery1.SQL.Add('select sksjt,sksjj from KCB');

adoquery1.SQL.Add('where kcbh='''+dbgrid2.Fields[1].Text+''''); adoquery1.Open;

while not adoquery1.Eof do begin

day:=adoquery1.fieldbyname('sksjt').AsInteger; section:=adoquery1.fieldbyname('sksjj').AsInteger; adoquery2.First;

while not adoquery2.Eof do begin

//ÅжϿγÌÊÇ·ñÒÑÑ¡

if (trim(adoquery2.fieldbyname('kxh').AsString)=num) then begin

showmessage('ËùÑ¡µÄ¿Î³Ì£º'+trim(adoquery2.fieldbyname('kcmc').AsString)+' ÒÑÔڿαíÖУ¬ÇëÑ¡ÔñÆäËû¿Î³Ì'); exit; end;

//ÅжϿγÌÊÇ·ñÓëÒÑÑ¡¿Î³ÌÓÐʱ¼ä³åÍ» if

(adoquery2.fieldbyname('sksjt').AsInteger=day)and(adoquery2.fieldbyname('sksjj').A

31

sInteger=section) then begin

showmessage('

Ëù

Ñ¡

¿Î

³Ì

µÄ

ÉÏ

¿Î

ʱ

¼ä

Óë

ÒÑ

Ñ¡

µÄ

'+trim(adoquery2.fieldbyname('kcmc').AsString)+' ³åÍ»!'); exit; end;

adoquery2.Next; end;

adoquery1.Next; end; //Ñ¡¿Î

adocommand1.CommandText:='insert

values('''+id+''','''+trim(dbgrid2.Fields[0].Text)+''')'; adocommand1.Execute; listcourse(id);//Ë¢ÐÂÊý¾Ý±í end;

//-------------ɾ³ýÒÑÑ¡¿Î³Ì-------------

procedure TCourseElect.BitBtn3Click(Sender: TObject); begin

if application.MessageBox('ȷʵɾ³ýËùÑ¡¿Î³Ì£¿','È·¶¨É¾³ý',MB_OKCANCEL)=IDOK then begin

adocommand1.CommandText:='delete

from

XKB

where

into

XKB([xh],[kxh])

(xh='''+trim(dbgrid3.Fields[0].Text)+''')and(kxh='''+trim(dbgrid3.Fields[1].Text)+''')'; adocommand1.Execute; listcourse(id);//Ë¢ÏÖÁбí end; end;

procedure TCourseElect.FormClose(Sender: TObject;

32