utkwh.~pas

智能试卷生成系统 Delphi----试卷生成系统代码 用户名：sa 密码：sa

  ADOQuery1.Fields.FieldByName('CZ').AsString:=ZJ_ComboBox3.Text;
  temp:=NY_ComboBox3.Text;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select BH from NanYiDj where NYD=:temp');
  ADOQuery2.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery2.Open;
  temp1:=ADOQuery2.FieldValues['BH'];
  ADOQuery1.Fields.FieldByName('NY').AsInteger:=temp1;
  if not JD_Radiobutton2.Checked then
  ADOQuery1.Post;
  showmessage('更新成功');
  end;
end;

procedure TfrmTKWH.JDtj_BitBtnClick(Sender: TObject);
begin
  if JD_Radiobutton2.Checked then
  ADOQuery1.UpdateBatch();
  showmessage('提交完成！');
end;

procedure TfrmTKWH.JDcx_BitBtnClick(Sender: TObject);
begin
  if JD_Radiobutton2.Checked then
  ADOQuery1.CancelBatch();
end;

procedure TfrmTKWH.CXSJgx_BitBtnClick(Sender: TObject);
var
  temp:string;
  temp1:integer;
begin
  if TX_ComboBox4.Text='' then showmessage('题型不能为空！')
  else if DA_Memo2.Text='' then showmessage('答案不能为空！')
  else if ZJ_ComboBox4.Text='' then showmessage('所在章节不能为空！')
  else if TM_Memo2.Text='' then showmessage('题目不能为空！')
  else if NY_ComboBox4.Text='' then showmessage('难易度不能为空！')
  else begin
  ADOQuery1.Edit;
  temp:=TX_ComboBox4.Text;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select TypeID from TiXingFen where TypeName=:temp');
  ADOQuery2.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery2.Open;
  temp1:=ADOQuery2.FieldValues['TypeID'];
  ADOQuery1.Fields.FieldByName('TypeID').AsInteger:=temp1;
  ADOQuery1.Fields.FieldByName('TM').AsString:=TM_Memo2.Text;
  ADOQuery1.Fields.FieldByName('DA').AsString:=DA_Memo2.Text;
  ADOQuery1.Fields.FieldByName('CZ').AsString:=ZJ_ComboBox4.Text;
  temp:=NY_ComboBox4.Text;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select BH from NanYiDj where NYD=:temp');
  ADOQuery2.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery2.Open;
  temp1:=ADOQuery2.FieldValues['BH'];
  ADOQuery1.Fields.FieldByName('NY').AsInteger:=temp1;
  if not CXSJ_Radiobutton2.Checked then
  ADOQuery1.Post;
  showmessage('更新成功');
  end;
end;

procedure TfrmTKWH.CXSJtj_BitBtnClick(Sender: TObject);
begin
  if CXSJ_Radiobutton2.Checked then
  ADOQuery1.UpdateBatch;
  showmessage('提交完成！');
end;

procedure TfrmTKWH.CXSJcx_BitBtnClick(Sender: TObject);
begin
  if CXSJ_Radiobutton2.Checked then
  ADOQuery1.CancelBatch();
end;

procedure TfrmTKWH.XZcxun_BitBtnClick(Sender: TObject);
var
  temp:string;
begin
  temp:=ZJ_ComboBox1.Text;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from TXuanZe where CZ=:temp');
  ADOQuery1.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery1.Open;
end;

procedure TfrmTKWH.TKcxun_BitBtnClick(Sender: TObject);
var
  temp:string;
begin
  temp:=ZJ_ComboBox2.Text;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from TTianKong where CZ=:temp');
  ADOQuery1.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery1.Open;
end;

procedure TfrmTKWH.JDcxun_BitBtnClick(Sender: TObject);
var
  temp:string;
begin
  temp:=ZJ_ComboBox3.Text;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from TJianDa where CZ=:temp');
  ADOQuery1.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery1.Open;
end;

procedure TfrmTKWH.CXSJcxun_BitBtnClick(Sender: TObject);
var
  temp:string;
begin
  temp:=ZJ_ComboBox4.Text;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from TChengxu where CZ=:temp');
  ADOQuery1.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery1.Open;
end;

procedure TfrmTKWH.XZsc_BitBtnClick(Sender: TObject);
var
  Flag:integer;
begin
  Flag:=messagebox(handle,'你确定要删除此条记录吗？','删除',MB_YESNO or MB_ICONINFORMATION);
  if Flag=idno then exit;
  ADOQuery1.Delete;
end;

procedure TfrmTKWH.TKsc_BitBtnClick(Sender: TObject);
var
  Flag:integer;
begin
  Flag:=messagebox(handle,'你确定要删除此条记录吗？','删除',MB_YESNO or MB_ICONINFORMATION);
  if Flag=idno then exit;
  ADOQuery1.Delete;
end;

procedure TfrmTKWH.JDsc_BitBtnClick(Sender: TObject);
var
  Flag:integer;
begin
  Flag:=messagebox(handle,'你确定要删除此条记录吗？','删除',MB_YESNO or MB_ICONINFORMATION);
  if Flag=idno then exit;
  ADOQuery1.Delete;
end;

procedure TfrmTKWH.CXSJsc_BitBtnClick(Sender: TObject);
var
  Flag:integer;
begin
  Flag:=messagebox(handle,'你确定要删除此条记录吗？','删除',MB_YESNO or MB_ICONINFORMATION);
  if Flag=idno then exit;
  ADOQuery1.Delete;
end;

procedure TfrmTKWH.CXSJ_DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.Field.DataType=ftMemo) then
  begin
    CXSJ_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
  end
  else CXSJ_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TfrmTKWH.JD_DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.Field.DataType=ftMemo) then
  begin
    JD_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
  end
  else JD_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TfrmTKWH.TK_DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.Field.DataType=ftMemo) then
  begin
    TK_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
  end
  else TK_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TfrmTKWH.XZ_DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.Field.DataType=ftMemo) then
  begin
    XZ_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
  end
  else XZ_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TfrmTKWH.ZJ_DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if (Column.Field.DataType=ftMemo) then
  begin
    ZJ_DBGrid.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Column.Field.AsString);
  end
  else ZJ_DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TfrmTKWH.ZJ_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  temp1:integer;
  temp2,temp3:string;
begin
  temp1:=ADOQuery1.fieldbyname('ID').AsInteger;
  temp2:=ADOQuery1.FieldValues['ZJ'];
  temp3:=ADOQuery1.FieldValues['ZJName'];
  XH_Edit.Text:=IntToStr(temp1);
  ZJXH_Edit.Text:=temp2;
  ZJM_Edit.Text:=temp3;
end;

procedure TfrmTKWH.ZJTJ_BitBtnClick(Sender: TObject);
  var
  temp1,temp2:string;
begin
  if ZJXH_Edit.Text='' then showmessage('章节序号不能为空！')
  else if ZJM_Edit.Text='' then showmessage('章节名不能为空！')
  else begin
         temp1:=ZJXH_Edit.Text;
         temp2:=ZJM_Edit.Text;
         ADOQuery1.Close;
         ADOQuery1.SQL.Clear;
         ADOQuery1.SQL.Add('INSERT INTO ZhangJieJG(ZJ,ZJName) values(:ZJ,:ZJName)');
         ADOQuery1.Parameters.ParamByName('ZJ').Value:=temp1;
         ADOQuery1.Parameters.ParamByName('ZJName').Value:=temp2;
         ADOQuery1.ExecSQL;
         ADOQuery1.Close;
         ADOQuery1.SQL.Clear;
         ADOQuery1.SQL.Add('Select * from ZhangJieJG');
         ADOQuery1.Open;
         ZJ_DBGrid.Fields[0].DisplayLabel:='序号';
         ZJ_DBGrid.Fields[1].DisplayLabel:='章节序号';
         ZJ_DBGrid.Fields[2].DisplayLabel:='章节名';
       end;
end;

procedure TfrmTKWH.ZJSC_BitBtnClick(Sender: TObject);
  var
    Flag:integer;
begin
  Flag:=messagebox(handle,'你确定要删除此条记录吗？','删除',MB_YESNO or MB_ICONINFORMATION);
  if Flag=idno then exit;
  ADOQuery1.Delete;
end;

procedure TfrmTKWH.ZJXG_BitBtnClick(Sender: TObject);
begin
  if ZJXH_Edit.Text='' then showmessage('章节序号不能为空！')
  else if ZJM_Edit.Text='' then showmessage('章节名不能为空！')
  else begin
         ADOQuery1.Edit;
         ADOQuery1.Fields.FieldByName('ZJ').Value:=ZJXH_Edit.Text;
         ADOQuery1.Fields.FieldByName('ZJName').Value:=ZJM_Edit.Text;
         ADOQuery1.Post;
       end;
end;

procedure TfrmTKWH.ZJCX_BitBtnClick(Sender: TObject);
  var
    temp:string;
begin
  temp:=ZJXH_Edit.Text;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from ZhangJieJG where ZJ=:temp');
  ADOQUery1.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery1.Open;
end;

procedure TfrmTKWH.ZJGB_BitBtnClick(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from ZhangJieJG order by ZJ asc');
  ADOQuery1.Open;
end;

procedure TfrmTKWH.ZLZJ_BitBtnClick(Sender: TObject);
var
  temp1,temp2:string;
  x,y:integer;
begin
  x:=0;
  y:=0;
  ZJ_DBGrid.Enabled:=false;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select ZJName from ZhangJieJG');
  ADOQuery1.Open;
  while not ADOQuery1.Eof do
    begin
      temp1:=ADOQuery1.FieldValues['ZJName'];
      ADOQuery2.Close;
      ADOQuery2.SQL.Clear;
      ADOQuery2.SQL.Add('select ZJName from ZhangJieJG');
      ADOQuery2.Open;
      while y<>0 do
        begin
          ADOQuery2.Next;
          y:=y-1;
        end;
      ADOQuery2.Next;
      while not ADOQuery2.Eof do
        begin
          temp2:=ADOQuery2.FieldValues['ZJName'];
          if temp1=temp2 then  begin
                                 ADOQuery2.Delete;
                                 x:=1;
                               end;
          ADOQuery2.Next;
        end;
      y:=y+1;
      ADOQuery1.Next;
    end;
  ZJ_DBGrid.Enabled:=true;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from ZhangJieJG');
  ADOQuery1.Open;
  if x=1 then showmessage('清理冗余章节成功！')
  else showmessage('无冗余章节存在！');
end;

procedure TfrmTKWH.btnCancelClick(Sender: TObject);
begin
  close;
end;

end.