uzhgl.pas

完善的学生管理系统源码 适用于毕业设计和各种小的设计

strsql:string;
strbj,strbh,strxb:string;
tmptree,tmptree2:TTreeNode;

begin
if treeclass.Selected=nil then begin
showmessage('添加班级请先在左边列表中选定系别');
exit;
end;
if trim(edit2.Text) =''  then begin
showmessage('请输入班级名');
edit2.SetFocus;
exit;
end;
if trim(edit4.Text) =''  then begin
showmessage('请输入班编号');
edit4.SetFocus;
exit;
end;
strbj:=edit2.Text;
strbh:=edit4.Text ;
if treeclass.Selected.Parent = nil then   begin
  strxb:=trim(treeclass.Selected.Text);
 tmptree2:=treeclass.Selected;
 end
else  begin
strxb:=trim(treeclass.Selected.Parent.Text);
tmptree2:=treeclass.Selected.Parent;
end;
    strsql:='select * from tbjb where cbjb_bjm='''+strbj+''' and cbjb_bjbh='''+strbh+'''';
    adoquery1.SQL.Clear ;
   adoquery1.Close;
   adoquery1.SQL.Add(strsql);
    adoquery1.Open;
    if not (adoquery1.Eof) and (adoquery1.Bof) then begin
    showmessage('对不起,班级名" '+pchar(strbj)+' 或班级编号'+pchar(strbh)+'"已经存在,不可重复');
    edit2.SetFocus;
    exit;
    end;
   strsql:='insert into tbjb(cbjb_bjbh,cbjb_bjm,cbjb_xb)'+
           ' values('''+strbh+''','''+strbj+''','''+strxb+''')';
           showmessage(strsql);
 try
 adoquery1.SQL.Clear ;
   adoquery1.Close;
   adoquery1.SQL.Add(strsql);
   adoquery1.ExecSQL;
    tmptree:= treeclass.Items.AddChild(tmptree2,strbj);

   tmptree.ImageIndex:=1;
    memo1.Lines.Add('添加班级('+strbj+')');

//treeclass.Selected.Text:=strbj;
except
end;

end;

procedure TFmZhgl.Button8Click(Sender: TObject);
 var
 strsql,strbj:string;
begin
if (treeclass.Selected=nil) or (treeclass.Selected.Parent =nil)  then begin
showmessage('请先选中要删除的班级');
exit;
end;
strbj:=trim(treeclass.Selected.Text);
 if application.MessageBox('确认要删除班级吗" ?','提示',mb_okcancel)=idok then
begin
  strsql:='delete from tbjb where cbjb_bjm='''+strbj+'''';
   adoquery1.SQL.Clear ;
   adoquery1.Close;
   adoquery1.SQL.Add(strsql);
   //try
   adoquery1.ExecSQL;
   treeclass.Items.Delete(treeclass.Selected);
    memo1.Lines.Add('删除班级('+strbj+')');

  //except
  //end;
end;
end;

procedure TFmZhgl.Button9Click(Sender: TObject);
begin

if (treeclass.Selected=nil) or (treeclass.Selected.Parent =nil)  then begin
showmessage('请先指定班级班级');
exit;
end;
getbjkc();
end;

procedure TFmZhgl.Button1Click(Sender: TObject);
var
strks,strxq,strkc,strbj,strsql:string;
i:integer;
begin
 if trim(edit5.Text)='' then
 begin
 showmessage('进行该操作必须指定学期,然后刷新课程列表');
 edit5.SetFocus;
 exit;
 end;
 if edit6.Text ='' then
  begin
 showmessage('请输入课时数');
 edit6.SetFocus;
 exit;
 end;
 if listbox2.ItemIndex =-1 then begin
  showmessage('请先选定要添加的课程');
 listbox2.SetFocus;
 exit;
end;

if (treeclass.Selected=nil) or (treeclass.Selected.Parent =nil)  then begin
showmessage('请先选中要添加课程的班级');
exit;
end;
strbj:=trim(treeclass.Selected.Text);
strxq:=edit5.Text;
strks:=edit6.Text;
strkc:=listbox2.Items[listbox2.ItemIndex] ;
for i:=0 to listbjkb.Items.Count -1 do begin
    if strkc=listbjkb.Items[i] then begin
    showmessage('该班级已经开设了这门课程');
    exit;
    end;
end;
 strsql:='insert into tkcb2(ckcb2_kc,ckcb2_bj,ckcb2_xq,ckcb2_ks)'+
           ' values('''+strkc+''','''+strbj+''','''+strxq+''','+strks+')';
     // showmessage(strsql);
  try
 adoquery1.SQL.Clear ;
   adoquery1.Close;
   adoquery1.SQL.Add(strsql);
   adoquery1.ExecSQL;
   listbjkb.Items.Add(strkc) ;
    memo1.Lines.Add('为班级('+strbj+')添加了'+strks+'课时的课程('+strkc+')');

//treeclass.Selected.Text:=strbj;
except
end;
 end;
procedure TFmZhgl.Button2Click(Sender: TObject);
 var
strxq,strkc,strbj,strsql:string;
i:integer;
begin
if trim(edit5.Text)='' then
 begin
 showmessage('进行该操作必须指定学期,然后刷新课程列表');
 edit5.SetFocus;
 exit;
 end;
 if listbjkb.ItemIndex =-1 then begin
  showmessage('请先选定要移除的课程');
 listbjkb.SetFocus;
 exit;
end;
if (treeclass.Selected=nil) or (treeclass.Selected.Parent =nil)  then begin
showmessage('请先选中要移除课程的班级');
exit;
end;
strbj:=trim(treeclass.Selected.Text);
strxq:=edit5.Text;
strkc:=listbjkb.Items[listbjkb.ItemIndex] ;
  strsql:='delete from tkcb2 where ckcb2_bj='''+strbj+
         ''' and ckcb2_kc='''+strkc+''' and ckcb2_xq='''+strxq+'''';
         try
   adoquery1.SQL.Clear ;
   adoquery1.Close;
   adoquery1.SQL.Add(strsql);
    adoquery1.ExecSQL;
    listbjkb.Items.Delete(listbjkb.ItemIndex);
    memo1.Lines.Add('删除班级('+strbj+')的('+strkc+')课程');
  //adoquery1.ExecSQL;
  except
  end;
end;

procedure TFmZhgl.Button3Click(Sender: TObject);
var
strkc,strkh:string;
strsql:string;
begin
if trim(edit3.Text) =''  then begin
showmessage('请输入课程名');
edit3.SetFocus;
exit;
end;
if trim(edit1.Text) =''  then begin
showmessage('请输入课程编号');
edit4.SetFocus;
exit;
end;
strkc:=edit3.Text;
strkh:=edit1.Text;
   strsql:='select * from tkcb where ckcb_kc='''+strkc+''' and ckcb_kh='''+strkh+'''';
    adoquery1.SQL.Clear ;
   adoquery1.Close;
   adoquery1.SQL.Add(strsql);
    adoquery1.Open;
    if not (adoquery1.Eof) and (adoquery1.Bof) then begin
    showmessage('对不起,课程" '+pchar(strkc)+' 或课程编号'+pchar(strkh)+'"已经存在,不可重复');
    //edit2.SetFocus;
    exit;
    end;
   strsql:='insert into tkcb(ckcb_kh,ckcb_kc)'+
           ' values('''+strkh+''','''+strkc+''')';
          // showmessage(strsql);
 try
 adoquery1.SQL.Clear ;
   adoquery1.Close;
   adoquery1.SQL.Add(strsql);
   adoquery1.ExecSQL;
listbox2.Items.Add(strkc);
 memo1.Lines.Add('添加课程成功');

//treeclass.Selected.Text:=strbj;
except
end;
end;

procedure TFmZhgl.ListBox2Click(Sender: TObject);
begin
edit3.Text:=listbox2.Items[listbox2.ItemIndex];
getkcbh(listbox2.Items[listbox2.ItemIndex]);
edit6.Text :='';
end;

procedure TFmZhgl.Button4Click(Sender: TObject);
var
strkc,strkh,strkc2:string;
strsql:string;
begin
if listbox2.ItemIndex =-1 then begin
showmessage('请先选择要修改的课程');
listbox2.SetFocus;
exit;
end;
if (edit1.Text ='') or (edit3.Text='') then begin
    showmessage('课程名和课程编号都不能为空');
    edit1.SetFocus;
    exit;
end;
//listbox2.ItemIndex
strkc:=trim(listbox2.Items[listbox2.ItemIndex ]);
strkc2:=edit3.Text;
strkh:=edit1.Text;
if strkc=strkc2 then begin
showmessage('靠，名字都一样改个屁哈，耍我啊我日');
edit3.SetFocus;
exit;
end;
 if application.MessageBox('确认要修改课程吗?','提示',mb_okcancel)=idok then
begin
strsql:='select * from tkcb where ckcb_kh='''+strkh+''' and ckcb_kc='''+strkc2+'''';
    adoquery1.SQL.Clear ;
   adoquery1.Close;
   adoquery1.SQL.Add(strsql);
    adoquery1.Open;
    if not (adoquery1.Eof) and (adoquery1.Bof) then begin
    showmessage('对不起,课程名" '+pchar(strkc2)+' 或课程编号'+pchar(strkh)+'"已经存在,不可重复');
    edit1.SetFocus;
    exit;
    end;
    strsql:='update tkcb set ckcb_kh='''+strkh+''',ckcb_kc='''+strkc2+''' where ckcb_kc='''+strkc+'''';
   try
    adoquery1.SQL.Clear ;
   adoquery1.Close;
   adoquery1.SQL.Add(strsql);
   adoquery1.ExecSQL;
   listbox2.Items[listbox2.ItemIndex]:=strkc2 ;
    memo1.Lines.Add('修改课程成功');

    //treeclass.Selected.Text:=strbj;
    except
    //showmessage('搞了个错我日');
    end;
end;
end;

procedure TFmZhgl.Button5Click(Sender: TObject);
var
strkc:string;
strsql:string;
i:integer;
begin
 if application.MessageBox('确认要删除课程吗?删了就找不回来了','提示',mb_okcancel)=idok then
begin
if listbox2.ItemIndex =-1 then begin
showmessage('请先选择要修改的课程');
listbox2.SetFocus;
exit;
end;
strkc:=listbox2.Items[listbox2.ItemIndex];
strsql:='delete from tkcb where ckcb_kc='''+strkc+'''';
   adoquery1.SQL.Clear ;
   adoquery1.Close;
   adoquery1.SQL.Add(strsql);
   try
   listbox2.Items.Delete(listbox2.ItemIndex);
   memo1.Lines.Add('撤消课程成功');
   for i:=0 to listbjkb.Items.Count -1 do begin
    if strkc=listbjkb.Items[i] then begin
    listbjkb.Items.Delete(i);
    end;
end;
  adoquery1.Open;
  except
  end;
end;
 end;
procedure TFmZhgl.ToolButton1Click(Sender: TObject);
begin
Button6Click(sender);
end;

procedure TFmZhgl.ToolButton2Click(Sender: TObject);
begin
Button7Click(Sender);
end;

procedure TFmZhgl.ToolButton3Click(Sender: TObject);
begin
Button8Click(Sender);
end;

procedure TFmZhgl.ToolButton6Click(Sender: TObject);
begin
Button1Click(Sender);
end;

procedure TFmZhgl.ToolButton7Click(Sender: TObject);
begin
Button2Click(Sender);
end;

procedure TFmZhgl.ToolButton8Click(Sender: TObject);
begin
Button3Click(Sender);
end;

procedure TFmZhgl.ToolButton10Click(Sender: TObject);
begin
Button3Click(Sender);
end;

procedure TFmZhgl.ToolButton11Click(Sender: TObject);
begin
Button4Click(Sender);
end;

procedure TFmZhgl.ToolButton12Click(Sender: TObject);
begin
Button5Click(Sender);
end;

procedure TFmZhgl.listbjkbClick(Sender: TObject);
var
strbj,strkc,strxq,strsql:string;
begin
if (treeclass.Selected=nil) or (treeclass.Selected.Parent =nil)  then exit;
 if trim(edit5.Text)='' then exit;
 if listbjkb.ItemIndex =-1 then exit;

 strbj:=trim(treeclass.Selected.Text);
 strkc:=trim(listbjkb.Items[listbjkb.ItemIndex]) ;
 strxq:=edit5.Text;
 strsql:='select ckcb2_ks from tkcb2 where ckcb2_bj='''+
         strbj+''' and ckcb2_xq='''+strxq+''' and ckcb2_kc='''+strkc+'''';
 try
adoquery1.SQL.Clear ;
adoquery1.Close;
adoquery1.SQL.Add(strsql);
adoquery1.Open;
//listbjkb.Clear;

edit6.Text :=adoquery1.FieldValues['ckcb2_ks'];

finally
adoquery1.Close;
end;
end;
procedure TFmZhgl.SpeedButton1Click(Sender: TObject);
begin
if memo1.Text ='' then begin
showmessage('对不起不能保存空屁!');
exit;
end;
if savedialog1.Execute then begin
try
   memo1.Lines.SaveToFile(savedialog1.FileName);
   showmessage('保存成功');
except
end;
end;
end;

procedure TFmZhgl.SpeedButton3Click(Sender: TObject);
begin
memo1.Clear;
end;

end.