⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 utkwh.~pas

📁 智能试卷生成系统 Delphi----试卷生成系统代码 用户名：sa 密码：sa
💻 ~PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
        JD_DBGrid.Fields[5].DisplayLabel:='所在章节';
      end;
    3:begin               //程序设计题
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('Select * from TChengxu');
        ADOQuery1.Open;
        CXSJ_DBGrid.Fields[0].DisplayLabel:='题号';
        CXSJ_DBGrid.Fields[1].DisplayLabel:='题型';
        CXSJ_DBGrid.Fields[2].DisplayLabel:='题目';
        CXSJ_DBGrid.Fields[3].DisplayLabel:='答案';
        CXSJ_DBGrid.Fields[4].DisplayLabel:='难易';
        CXSJ_DBGrid.Fields[5].DisplayLabel:='所在章节';
      end;
    4:begin
        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;
end;

//----------------------------------------------------
//选择题维护界面 响应鼠标点击操作
procedure TfrmTKWH.XZ_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  temp,temp1,temp11:integer;
  temp2,temp3,temp4,temp5,temp6,temp7,temp8,temp9,temp10:string;
begin
  temp:=ADOQuery1.fieldbyname('BH').AsInteger;
  temp2:=ADOQuery1.fieldbyname('TM').AsString;
  temp3:=ADOQuery1.fieldbyname('A').AsString;
  temp4:=ADOQuery1.fieldbyname('B').AsString;
  temp5:=ADOQuery1.fieldbyname('C').AsString;
  temp6:=ADOQuery1.fieldbyname('D').AsString;
  temp7:=ADOQuery1.fieldbyname('DA').AsString;
  temp8:=ADOQuery1.fieldbyname('CZ').AsString;
  temp1:=ADOQuery1.fieldbyname('TypeID').AsInteger;
  temp11:=ADOQuery1.fieldbyname('NY').AsInteger;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select TypeName From TiXingFen Where TypeID=:temp1');
  ADOQuery2.Parameters.ParamByName('temp1').Value:=temp1;
  ADOQuery2.Open;
  temp10:=ADOQuery2.Fieldbyname('TypeName').AsString;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select NYD From NanYiDj Where BH=:temp11');
  ADOQuery2.Parameters.ParamByName('temp11').Value:=temp11;
  ADOQuery2.Open;
  temp9:=ADOQuery2.Fieldbyname('NYD').AsString;
  TH_Edit1.Text:=IntToStr(temp);
  TX_ComboBox1.Text:=temp10;
  TM_Edit1.Text:=temp2;
  XXA_Edit.Text:=temp3;
  XXB_Edit.Text:=temp4;
  XXC_Edit.Text:=temp5;
  XXD_Edit.Text:=temp6;
  DA_ComboBox.Text:=temp7;
  ZJ_ComboBox1.Text:=temp8;
  NY_ComboBox1.Text:=temp9;
end;

//----------------------------------------------------
//填空题维护界面 响应鼠标点击操作
procedure TfrmTKWH.TK_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  temp,temp1,temp11:integer;
  temp2,temp3,temp4,temp5,temp6,temp7,temp8,temp9,temp10,temp12:string;
begin
  temp:=ADOQuery1.fieldbyname('BH').AsInteger;
  temp2:=ADOQuery1.fieldbyname('TM').AsString;
  temp3:=ADOQuery1.fieldbyname('K1').AsString;
  temp4:=ADOQuery1.fieldbyname('K2').AsString;
  temp5:=ADOQuery1.fieldbyname('K3').AsString;
  temp6:=ADOQuery1.fieldbyname('K4').AsString;
  temp7:=ADOQuery1.fieldbyname('K5').AsString;
  temp8:=ADOQuery1.fieldbyname('YTS').AsString;
  temp9:=ADOQuery1.fieldbyname('CZ').AsString;
  temp1:=ADOQuery1.fieldbyname('TypeID').AsInteger;
  temp11:=ADOQuery1.fieldbyname('NY').AsInteger;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select TypeName From TiXingFen Where TypeID=:temp1');
  ADOQuery2.Parameters.ParamByName('temp1').Value:=temp1;
  ADOQuery2.Open;
  temp10:=ADOQuery2.Fieldbyname('TypeName').AsString;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select NYD From NanYiDj Where BH=:temp11');
  ADOQuery2.Parameters.ParamByName('temp11').Value:=temp11;
  ADOQuery2.Open;
  temp12:=ADOQuery2.Fieldbyname('NYD').AsString;
  TH_Edit2.Text:=IntToStr(temp);
  TX_ComboBox2.Text:=temp10;
  TM_Edit2.Text:=temp2;
  K_Edit1.Text:=temp3;
  K_Edit2.Text:=temp4;
  K_Edit3.Text:=temp5;
  K_Edit4.Text:=temp6;
  K_Edit5.Text:=temp7;
  K_ComboBox.Text:=temp8;
  ZJ_ComboBox2.Text:=temp9;
  NY_ComboBox2.Text:=temp12;
end;

//----------------------------------------------------
//简答题维护界面 响应鼠标点击操作
procedure TfrmTKWH.JD_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  temp,temp1,temp11:integer;
  temp2,temp3,temp4,temp5,temp6:string;
begin
  temp:=ADOQuery1.fieldbyname('BH').AsInteger;
  temp2:=ADOQuery1.fieldbyname('TM').AsString;
  temp3:=ADOQuery1.fieldbyname('DA').AsString;
  temp4:=ADOQuery1.fieldbyname('CZ').AsString;
  temp1:=ADOQuery1.fieldbyname('TypeID').AsInteger;
  temp11:=ADOQuery1.fieldbyname('NY').AsInteger;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select TypeName From TiXingFen Where TypeID=:temp1');
  ADOQuery2.Parameters.ParamByName('temp1').Value:=temp1;
  ADOQuery2.Open;
  temp5:=ADOQuery2.Fieldbyname('TypeName').AsString;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select NYD From NanYiDj Where BH=:temp11');
  ADOQuery2.Parameters.ParamByName('temp11').Value:=temp11;
  ADOQuery2.Open;
  temp6:=ADOQuery2.Fieldbyname('NYD').AsString;
  TH_Edit3.Text:=IntToStr(temp);
  TX_ComboBox3.Text:=temp5;
  TM_Memo1.Text:=temp2;
  DA_Memo1.Text:=temp3;
  ZJ_ComboBox3.Text:=temp4;
  NY_ComboBox3.Text:=temp6;
end;

//----------------------------------------------------
//程序设计题维护界面 响应鼠标点击操作
procedure TfrmTKWH.CXSJ_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  temp,temp1,temp11:integer;
  temp2,temp3,temp4,temp5,temp6:string;
begin
  temp:=ADOQuery1.fieldbyname('BH').AsInteger;
  temp2:=ADOQuery1.fieldbyname('TM').AsString;
  temp3:=ADOQuery1.fieldbyname('DA').AsString;
  temp4:=ADOQuery1.fieldbyname('CZ').AsString;
  temp1:=ADOQuery1.fieldbyname('TypeID').AsInteger;
  temp11:=ADOQuery1.fieldbyname('NY').AsInteger;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select TypeName From TiXingFen Where TypeID=:temp1');
  ADOQuery2.Parameters.ParamByName('temp1').Value:=temp1;
  ADOQuery2.Open;
  temp5:=ADOQuery2.Fieldbyname('TypeName').AsString;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select NYD From NanYiDj Where BH=:temp11');
  ADOQuery2.Parameters.ParamByName('temp11').Value:=temp11;
  ADOQuery2.Open;
  temp6:=ADOQuery2.Fieldbyname('NYD').AsString;
  TH_Edit4.Text:=IntToStr(temp);
  TX_ComboBox4.Text:=temp5;
  TM_Memo2.Text:=temp2;
  DA_Memo2.Text:=temp3;
  ZJ_ComboBox4.Text:=temp4;
  NY_ComboBox4.Text:=temp6;
end;

procedure TfrmTKWH.XZ_RadioButton2Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.CursorType:=ctKeyset;
  ADOQuery1.Open;
  XZtj_BitBtn.Enabled:=true;
  XZcx_BitBtn.Enabled:=true;
end;

procedure TfrmTKWH.TK_RadioButton2Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.CursorType:=ctKeyset;
  ADOQuery1.Open;
  TKtj_BitBtn.Enabled:=true;
  TKcx_BitBtn.Enabled:=true;
end;

procedure TfrmTKWH.JD_RadioButton2Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.CursorType:=ctKeyset;
  ADOQuery1.Open;
  JDtj_BitBtn.Enabled:=true;
  JDcx_BitBtn.Enabled:=true;
end;

procedure TfrmTKWH.CXSJ_RadioButton2Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.CursorType:=ctKeyset;

  ADOQuery1.Open;
  CXSJtj_BitBtn.Enabled:=true;
  CXSJcx_BitBtn.Enabled:=true;
end;

procedure TfrmTKWH.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 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_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 NanYiDj 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 TfrmTKWH.XZtj_BitBtnClick(Sender: TObject);
begin
  if XZ_Radiobutton2.Checked then
  ADOQuery1.UpdateBatch();
  showmessage('提交完成！');
end;

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

procedure TfrmTKWH.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 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_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 NanYiDj 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 TfrmTKWH.TKtj_BitBtnClick(Sender: TObject);
begin
  if TK_Radiobutton2.Checked then
  ADOQuery1.UpdateBatch();
  showmessage('提交完成！');
end;

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

procedure TfrmTKWH.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 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_Memo1.Text;
  ADOQuery1.Fields.FieldByName('DA').AsString:=DA_Memo1.Text;
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -