ucjgl.pas

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

begin
edit4.Text := trim(listbox2.Items.Strings[listbox2.ItemIndex]);
if (edit5.Text ='') or (edit1.Text ='') then exit;
strkc:=trim(listbox2.Items[listbox2.ItemIndex]);
strxq:=edit5.Text;
strxh:=edit1.Text;
strsql:='select ccjb_cj from tcjb where ccjb_xq='''+strxq+
        ''' and ccjb_xh='''+strxh+''' and ccjb_kc='''+strkc+'''';
  try
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add(strsql);
  adoquery1.Open;
  if not (adoquery1.Eof) and (adoquery1.Bof) then
  edit3.Text:= adoquery1.FieldValues['ccjb_cj']
  else
  edit3.Text :='';
   except

  end;
end;

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

procedure TFmcjgl.SpeedButton2Click(Sender: TObject);
begin
if opendialog1.Execute then 
memo1.Lines.LoadFromFile(opendialog1.FileName);

end;

procedure TFmcjgl.BitBtn3Click(Sender: TObject);
begin
edit1.Text :='';
edit2.Text :='';
edit3.Text :='';
edit4.Text :='';
edit5.Text :='';
combobox1.ItemIndex :=0;
combobox2.ItemIndex :=0;
lv1.Clear;
listbox2.Clear;
end;

procedure TFmcjgl.ActgetnoExecute(Sender: TObject);
var
strsql:string;
begin
  if trim(edit2.Text)='' then begin
  showmessage('请先输入姓名,再查找学号');
  exit;
  end;
  strsql:='select cxsb_xh from txsb where cxsb_xm = '''+edit2.Text+'''';
  try
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add(strsql);
  adoquery1.Open;
  if adoquery1.Eof and adoquery1.Bof then begin
  showmessage('没有该学生,请确认输入');
  edit2.SetFocus;
  exit;
  end;
  adoquery1.First;
  edit1.Text :=adoquery1.FieldValues['cxsb_xh'];
  finally
  adoquery1.Close;
  end; 
end;

procedure TFmcjgl.ActgetnameExecute(Sender: TObject);
var
strsql:string;
begin
  if trim(edit1.Text)='' then begin
  showmessage('请先输入学号,再进行查找');
  exit;
  end;
  strsql:='select cxsb_xm from txsb where cxsb_xh = '''+edit1.Text+'''';
  try
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add(strsql);
  adoquery1.Open;
  if adoquery1.Eof and adoquery1.Bof then begin
  showmessage('没有该学生,请确认输入');
  edit2.SetFocus;
  exit;
  end;
  adoquery1.First;
  edit2.Text :=adoquery1.FieldValues['cxsb_xm'];
  finally
  adoquery1.Close;
  end; 
end;

procedure TFmcjgl.BitBtn4Click(Sender: TObject);
var
sqlstr:string;
begin
sqlstr:=gettj();
if sqlstr<>'' then begin
try
    adoquery9.Close;
  adoquery9.SQL.Clear;
  adoquery9.SQL.Add(sqlstr);
  adoquery9.Open;
 adotable1.Close;
  datasource1.DataSet:=adoquery9;
except
 //adoquery1.Close;
end;
end;
end;

procedure TFmcjgl.BitBtn6Click(Sender: TObject);
begin
cbotjy.itemindex:=0;
cbofwy.ItemIndex:=0;
edgjzy.Text :='';
cbogxy.ItemIndex :=0;
cbotje.ItemIndex :=0;
cbofwe.ItemIndex :=0;
edgjze.Text  :='';
adoquery9.Close;
try
adotable1.Open;
datasource1.DataSet:=adotable1;
except
end;
end;

procedure TFmcjgl.DataSource1DataChange(Sender: TObject; Field: TField);
begin
 stb.Panels.Items[2].Text:='当前记录：'+IntToStr(DataSource1.DataSet.RecNo);
  stb.Panels.Items[1].Text:='记录总数：'+IntToStr(DataSource1.DataSet.RecordCount);
end;

procedure TFmcjgl.BitBtn7Click(Sender: TObject);
var
sqlstr:string;
begin
if (edit7.Text ='') or (edit8.Text ='') then begin
showmessage('上界或下界未填完整');
exit;
end;
sqlstr:=getgod(edit7.Text,edit8.Text);
try
 adoquery9.Close;
  adoquery9.SQL.Clear;
  adoquery9.SQL.Add(sqlstr);
  adoquery9.Open;
 adotable1.Close;
  datasource1.DataSet:=adoquery9;
except
 //adoquery1.Close;
end;
end;

procedure TFmcjgl.FormCreate(Sender: TObject);
var
NewRect: TRect;
begin
NewRect := Rect(1,13,445,96);
dbgrid2.Dock(panel7,newrect);
//ADOConnection1.Connected:=true;
//adotable1.Active:=true;
 getXiBieLista();
 beginBtbj();
 getKM();
end;

procedure TFmcjgl.ComboBox3Change(Sender: TObject);
  var
  strsql:string;
begin
combobox4.Clear;
combobox4.Items.Add('所有班级');
 if combobox3.ItemIndex=0 then
 strsql:='select * from tbjb'
 else
 strsql:='select * from tbjb where cbjb_xb='''+ ComboBox3.Text + '''order by cbjb_bjbh';
try
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add(strsql);
  adoquery1.Open;
  //ComboBox1.Clear;
   while not adoquery1.Eof do
  begin
    ComboBox4.Items.Add(adoquery1.FieldValues['cbjb_bjm']);
  adoquery1.Next;
  combobox4.ItemIndex := 0;
  end;
finally
adoquery1.Close;
 end;
 getKM();
 end;
procedure TFmcjgl.ComboBox4Change(Sender: TObject);
begin
getKM();
end;

procedure TFmcjgl.BitBtn5Click(Sender: TObject);
begin
combobox3.itemindex:=0;
combobox4.ItemIndex:=0;
edit6.Text :='';
combobox5.ItemIndex :=0;
edit7.Text :='';
edit8.Text:='';
adoquery9.Close;
try
adotable1.Open;
datasource1.DataSet:=adotable1;
except
end;
end;

procedure TFmcjgl.CheckBox1Click(Sender: TObject);
begin
    beginBt(checkbox1.Checked);
end;

procedure TFmcjgl.ComboBox6Change(Sender: TObject);
begin
beginBtkm();
end;

procedure TFmcjgl.BitBtn9Click(Sender: TObject);
begin
if combobox8.ItemIndex<1 then begin
showmessage('请选择功能');
exit;
end;
if combobox6.ItemIndex<1 then begin
showmessage('请选择班级');
exit;
end;
Bttj();
end;

procedure TFmcjgl.DBGrid2EndDock(Sender, Target: TObject; X, Y: Integer);
begin
if  isxuan then
begin
panel6.Height:=217;
//showmessage('217');
 //panel1.width:=40 ;
end
else   begin
panel6.height:=137;
//panel1.width:= 150;
 // showmessage('137');
end;
end;

procedure TFmcjgl.Panel7DockDrop(Sender: TObject; Source: TDragDockObject;
  X, Y: Integer);
begin
isxuan:=false;
//showmessage('ddd');
end;

procedure TFmcjgl.DBGrid2StartDock(Sender: TObject;
  var DragObject: TDragDockObject);
begin
isxuan:=true;
end;

procedure TFmcjgl.Panel7DblClick(Sender: TObject);
begin
dbgrid2.Show;
end;

procedure TFmcjgl.BitBtn8Click(Sender: TObject);
var
strsql:string;
begin
 if memo2.Text ='' then begin
 showmessage('未输入SQL语句');
 exit;
 end;
  if application.MessageBox('变态查询可不是随便玩的,确认语句正确吗?','提示',mb_okcancel)=idok then
  begin
  strsql:=memo2.Text;
  try
  adoquery2.Close;
  adoquery2.SQL.Clear;
  adoquery2.SQL.Add(strsql);
  adoquery2.Open;
  except
  showmessage('不听老人言吃亏在眼前');
  end;
 end;
 
end;

procedure TFmcjgl.ListView1Editing(Sender: TObject; Item: TListItem;
  var AllowEdit: Boolean);
begin
allowedit:=false;
end;

procedure TFmcjgl.BitBtn10Click(Sender: TObject);
 var
 strxq,strkc,strxh,strkc2:string;
 strsql:string;
 intks,intty,intpd:integer;
 intzks,intzf,intcj,intzf2:integer;
begin
if application.MessageBox('在进行综合评测前,请确认科目成绩是否都输入完毕','提示',mb_okcancel)<>idok then  exit;
 if edit5.Text='' then begin
 showmessage('请先输入学期');
 edit5.SetFocus;
 exit;
 end;
 if edit1.Text='' then begin
 showmessage('请先输入学号');
 edit1.SetFocus;
 exit;
 end;
 if trim(edit4.Text)<>'综合评测' then   begin
 showmessage('请先选择综合评测或在课程名称栏里输入');
 exit;
 end;
 strxq:=edit5.Text;
 strxh:=edit1.Text ;
strsql:='select * from tcjb where ccjb_xq='''+strxq+
        ''' and ccjb_xh='''+strxh+'''';

  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add(strsql);
  adoquery1.Open;
   while not adoquery1.Eof do
  begin
    //ComboBox4.Items.Add(adoquery1.FieldValues['cbjb_bjm']);
     intks:=0;
    intcj:=adoquery1.FieldValues['ccjb_cj'];
    strkc:=adoquery1.FieldValues['ccjb_kc'];
    if (strkc='体育' )or (strkc='品德') or (strkc= '综合评测') then
    begin
      if strkc='体育' then
      intty:=intcj;
      if strkc='品德' then
      intpd:=intcj;
     adoquery1.Next;
     end
    else begin
    strsql:='select ckcb2_ks from tkcb2 where ckcb2_xq='''+strxq+
            ''' and ckcb2_kc='''+strkc+''' and ckcb2_bj in('+
            'select cxsb_bj from txsb where cxsb_xh='''+strxh+''')';
             adoquery3.Close;
             adoquery3.SQL.Clear;
             adoquery3.SQL.Add(strsql);
             adoquery3.Open;
     if  adoquery3.eof and adoquery3.bof then  begin
     showmessage('该学生的'+strkc+'成绩还没输入呢，怎么综合哈');
     exit;
     end
     else begin
      intks:=adoquery3.FieldValues['ckcb2_ks'];
       //showmessage(Floattostr(intks));
      intzks:=intzks+intks;
      intzf:=intcj*intks;                        //课程分数*课程可市
      intzf2:=intzf+intzf2
      end;
     adoquery1.Next;
     end;
    end;
     intzf:= (intzf2 div intzks)*7 div 10+ (intty div 10)+(intpd);
    // showmessage(Floattostr(intzf));
     edit3.Text :=inttostr(intzf);
     writeCjToDb();
  end;



procedure TFmcjgl.BitBtn11Click(Sender: TObject);
begin
SReport1.SRep_Setting;
end;

procedure TFmcjgl.BitBtn12Click(Sender: TObject);
begin
SReport1.SRep_Setting;
end;

end.