timuwh_unit.pas

软件实现了以下主要功能：1.手动生成试卷；2.自动生成试卷；3.抽取现有试卷；4.用户管理；5.数据库管理。

  XTCZtj_BitBtn.Enabled:=true;
  XTCZcx_BitBtn.Enabled:=true;
end;

procedure TForm1.XZgx_BitBtnClick(Sender: TObject);
var
  temp:string;
  temp1:integer;
begin
  if TX_ComboBox1.Text='' then showmessage('题型不能为空！')
  else if DA_ComboBox.Text='' then showmessage('答案不能为空！')
  else if ZJ_ComboBox1.Text='' then showmessage('所在章节不能为空！')
  else if TM_Edit1.Text='' then showmessage('题目不能为空！')
  else if NY_ComboBox1.Text='' then showmessage('难易度不能为空！')
  else if XXA_Edit.Text='' then showmessage('答案A不能为空')
  else if XXB_Edit.Text='' then showmessage('答案B不能为空')
  else if XXC_Edit.Text='' then showmessage('答案C不能为空')
  else if XXD_Edit.Text='' then showmessage('答案D不能为空')
  else begin
  ADOQuery1.Edit;
  temp:=TX_ComboBox1.Text;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select TypeID from Type 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_Edit1.Text;
  ADOQuery1.Fields.FieldByName('A').AsString:=XXA_Edit.Text;
  ADOQuery1.Fields.FieldByName('B').AsString:=XXB_Edit.Text;
  ADOQuery1.Fields.FieldByName('C').AsString:=XXC_Edit.Text;
  ADOQuery1.Fields.FieldByName('D').AsString:=XXD_Edit.Text;
  ADOQuery1.Fields.FieldByName('DA').AsString:=DA_ComboBox.Text;
  ADOQuery1.Fields.FieldByName('CZ').AsString:=ZJ_ComboBox1.Text;
  temp:=NY_ComboBox1.Text;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select BH from NYD where NYD=:temp');
  ADOQuery2.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery2.Open;
  temp1:=ADOQuery2.FieldValues['BH'];
  ADOQuery1.Fields.FieldByName('NY').AsInteger:=temp1;
  if not XZ_Radiobutton2.Checked then
  ADOQuery1.Post;
  showmessage('更新成功');
  end;
end;

procedure TForm1.XZtj_BitBtnClick(Sender: TObject);
begin
  if XZ_Radiobutton2.Checked then
  ADOQuery1.UpdateBatch();
  showmessage('提交完成！');
end;

procedure TForm1.XZcx_BitBtnClick(Sender: TObject);
begin
  if XZ_Radiobutton2.Checked then
  ADOQuery1.CancelBatch();
end;

procedure TForm1.TKgx_BitBtnClick(Sender: TObject);
var
  temp:string;
  temp1:integer;
begin
  if TX_ComboBox2.Text='' then showmessage('题型不能为空！')
  else if K_ComboBox.Text='' then showmessage('空数不能为空！')
  else if ZJ_ComboBox2.Text='' then showmessage('所在章节不能为空！')
  else if TM_Edit2.Text='' then showmessage('题目不能为空！')
  else if NY_ComboBox2.Text='' then showmessage('难易度不能为空！')
  else begin
  ADOQuery1.Edit;
  temp:=TX_ComboBox2.Text;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select TypeID from Type 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_Edit2.Text;
  ADOQuery1.Fields.FieldByName('K1').AsString:=K_Edit1.Text;
  ADOQuery1.Fields.FieldByName('K2').AsString:=K_Edit2.Text;
  ADOQuery1.Fields.FieldByName('K3').AsString:=K_Edit3.Text;
  ADOQuery1.Fields.FieldByName('K4').AsString:=K_Edit4.Text;
  ADOQuery1.Fields.FieldByName('K5').AsString:=K_Edit5.Text;
  ADOQuery1.Fields.FieldByName('YTS').AsInteger:=StrToInt(K_ComboBox.Text);
  ADOQuery1.Fields.FieldByName('CZ').AsString:=ZJ_ComboBox2.Text;
  temp:=NY_ComboBox2.Text;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select BH from NYD where NYD=:temp');
  ADOQuery2.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery2.Open;
  temp1:=ADOQuery2.FieldValues['BH'];
  ADOQuery1.Fields.FieldByName('NY').AsInteger:=temp1;
  if not TK_Radiobutton2.Checked then
  ADOQuery1.Post;
  showmessage('更新成功');
  end;
end;

procedure TForm1.TKtj_BitBtnClick(Sender: TObject);
begin
  if TK_Radiobutton2.Checked then
  ADOQuery1.UpdateBatch();
  showmessage('提交完成！');
end;

procedure TForm1.TKcx_BitBtnClick(Sender: TObject);
begin
  if TK_Radiobutton2.Checked then
  ADOQuery1.CancelBatch();
end;

procedure TForm1.JDgx_BitBtnClick(Sender: TObject);
var
  temp:string;
  temp1:integer;
begin
  if TX_ComboBox3.Text='' then showmessage('题型不能为空！')
  else if DA_Memo1.Text='' then showmessage('答案不能为空！')
  else if ZJ_ComboBox3.Text='' then showmessage('所在章节不能为空！')
  else if TM_Memo1.Text='' then showmessage('题目不能为空！')
  else if NY_ComboBox3.Text='' then showmessage('难易度不能为空！')
  else begin
  ADOQuery1.Edit;
  temp:=TX_ComboBox3.Text;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select TypeID from Type 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_Memo1.Text;
  ADOQuery1.Fields.FieldByName('DA').AsString:=DA_Memo1.Text;
  ADOQuery1.Fields.FieldByName('CZ').AsString:=ZJ_ComboBox3.Text;
  temp:=NY_ComboBox3.Text;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select BH from NYD 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 TForm1.JDtj_BitBtnClick(Sender: TObject);
begin
  if JD_Radiobutton2.Checked then
  ADOQuery1.UpdateBatch();
  showmessage('提交完成！');
end;

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

procedure TForm1.YLLSgx_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 Type 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 NYD where NYD=:temp');
  ADOQuery2.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery2.Open;
  temp1:=ADOQuery2.FieldValues['BH'];
  ADOQuery1.Fields.FieldByName('NY').AsInteger:=temp1;
  if not YLLS_Radiobutton2.Checked then
  ADOQuery1.Post;
  showmessage('更新成功');
  end;
end;

procedure TForm1.YLLStj_BitBtnClick(Sender: TObject);
begin
  if YLLS_Radiobutton2.Checked then
  ADOQuery1.UpdateBatch;
  showmessage('提交完成！');
end;

procedure TForm1.YLLScx_BitBtnClick(Sender: TObject);
begin
  if YLLS_Radiobutton2.Checked then
  ADOQuery1.CancelBatch();
end;

procedure TForm1.XTSJgx_BitBtnClick(Sender: TObject);
var
  temp:string;
  temp1:integer;
begin
  if TX_ComboBox5.Text='' then showmessage('题型不能为空！')
  else if DA_Memo3.Text='' then showmessage('答案不能为空！')
  else if ZJ_ComboBox5.Text='' then showmessage('所在章节不能为空！')
  else if TM_Memo3.Text='' then showmessage('题目不能为空！')
  else if NY_ComboBox5.Text='' then showmessage('难易度不能为空！')
  else begin
  ADOQuery1.Edit;
  temp:=TX_ComboBox5.Text;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select TypeID from Type 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_Memo3.Text;
  ADOQuery1.Fields.FieldByName('DA').AsString:=DA_Memo3.Text;
  ADOQuery1.Fields.FieldByName('CZ').AsString:=ZJ_ComboBox5.Text;
  temp:=NY_ComboBox5.Text;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select BH from NYD where NYD=:temp');
  ADOQuery2.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery2.Open;
  temp1:=ADOQuery2.FieldValues['BH'];
  ADOQuery1.Fields.FieldByName('NY').AsInteger:=temp1;
  ADOQuery1.Fields.FieldByName('DABG').AsString:=DAWJ_Edit.Text;
  ADOQuery1.Fields.FieldByName('TMBG').AsString:=TMWJ_Edit.Text;
  if not XTSJ_Radiobutton2.Checked then
  ADOQuery1.Post;
  showmessage('更新成功');
  end;
end;

procedure TForm1.XTSJtj_BitBtnClick(Sender: TObject);
begin
  if XTSJ_Radiobutton2.Checked then
  ADOQuery1.UpdateBatch;
  showmessage('提交完成！');
end;

procedure TForm1.XTSJcx_BitBtnClick(Sender: TObject);
begin
  if XTSJ_Radiobutton2.Checked then
  ADOQuery1.CancelBatch;
end;

procedure TForm1.XTCZgx_BitBtnClick(Sender: TObject);
var
  temp:string;
  temp1:integer;
begin
  if TX_ComboBox6.Text='' then showmessage('题型不能为空！')
  else if ZJ_ComboBox6.Text='' then showmessage('所在章节不能为空！')
  else if TM_Memo4.Text='' then showmessage('题目不能为空！')
  else if NY_ComboBox6.Text='' then showmessage('难易度不能为空！')
  else if WTS_ComboBox.Text='' then showmessage('问题数不能为空！')
  else if W1DA_Edit.Text='' then showmessage('答案不能为空！')
  else begin
  ADOQuery1.Edit;
  temp:=TX_ComboBox6.Text;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select TypeID from Type 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_Memo4.Text;
  ADOQuery1.Fields.FieldByName('CZ').AsString:=ZJ_ComboBox6.Text;
  temp:=NY_ComboBox6.Text;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select BH from NYD where NYD=:temp');
  ADOQuery2.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery2.Open;
  temp1:=ADOQuery2.FieldValues['BH'];
  ADOQuery1.Fields.FieldByName('NY').AsInteger:=temp1;
  ADOQuery1.Fields.FieldByName('WTS').AsInteger:=StrToInt(WTS_ComboBox.Text);
  ADOQuery1.Fields.FieldByName('TMBG').AsString:=TMWJ1_Edit.Text;
  ADOQuery1.Fields.FieldByName('W1DA').AsString:=W1DA_Edit.Text;
  ADOQuery1.Fields.FieldByName('W2DA').AsString:=W2DA_Edit.Text;
  ADOQuery1.Fields.FieldByName('W3DA').AsString:=W3DA_Edit.Text;
  ADOQuery1.Fields.FieldByName('W4DA').AsString:=W4DA_Edit.Text;
  ADOQuery1.Fields.FieldByName('W5DA').AsString:=W5DA_Edit.Text;
  ADOQuery1.Fields.FieldByName('W1DABG').AsString:=DAWJ1_Edit.Text;
  ADOQuery1.Fields.FieldByName('W2DABG').AsString:=DAWJ2_Edit.Text;
  ADOQuery1.Fields.FieldByName('W3DABG').AsString:=DAWJ3_Edit.Text;
  ADOQuery1.Fields.FieldByName('W4DABG').AsString:=DAWJ4_Edit.Text;
  ADOQuery1.Fields.FieldByName('W5DABG').AsString:=DAWJ5_Edit.Text;
  if not XTCZ_Radiobutton2.Checked then
  ADOQuery1.Post;
  showmessage('更新成功');
  end;
end;

procedure TForm1.XTCZtj_BitBtnClick(Sender: TObject);
begin
  if XTCZ_Radiobutton2.Checked then
  ADOQuery1.UpdateBatch();
  showmessage('提交完成！');
end;

procedure TForm1.XTCZcx_BitBtnClick(Sender: TObject);
begin
  if XTCZ_Radiobutton2.Checked then
  ADOQuery1.CancelBatch();
end;

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

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

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

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

procedure TForm1.XYSJcxun_BitBtnClick(Sender: TObject);
var
  temp:string;
begin
  temp:=ZJ_ComboBox5.Text;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from XiTongSheJi where CZ=:temp');
  ADOQuery1.Parameters.ParamByName('temp').Value:=temp;
  ADOQuery1.Open;
end;

procedure TForm1.XTCZcxun_BitBtnClick(Sender: TObject);
var
  temp:string;
begin
  temp:=ZJ_ComboBox6.Text;