timuwh_unit.pas

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

        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('Select * from YuanLiLunShu');
        ADOQuery1.Open;
        YLLS_DBGrid.Fields[0].DisplayLabel:='题号';
        YLLS_DBGrid.Fields[1].DisplayLabel:='题型';
        YLLS_DBGrid.Fields[2].DisplayLabel:='题目';
        YLLS_DBGrid.Fields[3].DisplayLabel:='答案';
        YLLS_DBGrid.Fields[4].DisplayLabel:='难易';
        YLLS_DBGrid.Fields[5].DisplayLabel:='所在章节';
      end;
    4:begin
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('Select * from XiTongSheJi');
        ADOQuery1.Open;
        XTSJ_DBGrid.Fields[0].DisplayLabel:='题号';
        XTSJ_DBGrid.Fields[1].DisplayLabel:='题型';
        XTSJ_DBGrid.Fields[2].DisplayLabel:='题目';
        XTSJ_DBGrid.Fields[3].DisplayLabel:='答案';
        XTSJ_DBGrid.Fields[4].DisplayLabel:='难易';
        XTSJ_DBGrid.Fields[5].DisplayLabel:='所在章节';
      end;
    5:begin
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('Select * from XiTongCZ');
        ADOQuery1.Open;
        XTCZ_DBGrid.Fields[0].DisplayLabel:='题号';
        XTCZ_DBGrid.Fields[1].DisplayLabel:='题型';
        XTCZ_DBGrid.Fields[2].DisplayLabel:='题目';
        XTCZ_DBGrid.Fields[3].DisplayLabel:='答案';
        XTCZ_DBGrid.Fields[4].DisplayLabel:='难易';
        XTCZ_DBGrid.Fields[5].DisplayLabel:='所在章节';
      end;
    6:begin
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('Select * from ZhangJie');
        ADOQuery1.Open;
        ZJ_DBGrid.Fields[0].DisplayLabel:='序号';
        ZJ_DBGrid.Fields[1].DisplayLabel:='章节序号';
        ZJ_DBGrid.Fields[2].DisplayLabel:='章节名';
      end;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  temp:string;
begin
  PageControl1Change(PageControl1);
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select TypeName From Type');
  ADOQuery2.Open;
  While not ADOQuery2.Eof do
    begin
      temp:=ADOQuery2.FieldValues['TypeName'];
      TX_ComboBox1.Items.Add(temp);
      TX_ComboBox2.Items.Add(temp);
      TX_ComboBox3.Items.Add(temp);
      TX_ComboBox4.Items.Add(temp);
      TX_ComboBox5.Items.Add(temp);
      TX_ComboBox6.Items.Add(temp);
      ADOQuery2.Next;
    end;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select NYD From NYD');
  ADOQuery2.Open;
  While not ADOQuery2.Eof do
    begin
      temp:=ADOQuery2.FieldValues['NYD'];
      NY_ComboBox1.Items.Add(temp);
      NY_ComboBox2.Items.Add(temp);
      NY_ComboBox3.Items.Add(temp);
      NY_ComboBox4.Items.Add(temp);
      NY_ComboBox5.Items.Add(temp);
      NY_ComboBox6.Items.Add(temp);
      ADOQuery2.Next;
    end;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('Select ZJ,ZJName From ZhangJie');
  ADOQuery2.Open;
  While not ADOQuery2.Eof do
    begin
      temp:=ADOQuery2.FieldValues['ZJ']+'  '+ADOQuery2.FieldValues['ZJName'];
      ZJ_ComboBox1.Items.Add(temp);
      ZJ_ComboBox2.Items.Add(temp);
      ZJ_ComboBox3.Items.Add(temp);
      ZJ_ComboBox4.Items.Add(temp);
      ZJ_ComboBox5.Items.Add(temp);
      ZJ_ComboBox6.Items.Add(temp);
      ADOQuery2.Next;
    end;
  XZ_RadioButton1.Checked:=true;
  XZtj_BitBtn.Enabled:=false;
  XZcx_BitBtn.Enabled:=false;
  TK_RadioButton1.Checked:=true;
  TKtj_BitBtn.Enabled:=false;
  TKcx_BitBtn.Enabled:=false;
  JD_RadioButton1.Checked:=true;
  JDtj_BitBtn.Enabled:=false;
  JDcx_BitBtn.Enabled:=false;
  YLLS_RadioButton1.Checked:=true;
  YLLStj_BitBtn.Enabled:=false;
  YLLScx_BitBtn.Enabled:=false;
  XTSJ_RadioButton1.Checked:=true;
  XTSJtj_BitBtn.Enabled:=false;
  XTSJcx_BitBtn.Enabled:=false;
  XTCZ_RadioButton1.Checked:=true;
  XTCZtj_BitBtn.Enabled:=false;
  XTCZcx_BitBtn.Enabled:=false;
end;

procedure TForm1.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 Type 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 NYD 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 TForm1.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 Type 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 NYD 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 TForm1.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 Type 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 NYD 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 TForm1.YLLS_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 Type 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 NYD 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 TForm1.XTSJ_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 Type 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 NYD Where BH=:temp11');
  ADOQuery2.Parameters.ParamByName('temp11').Value:=temp11;
  ADOQuery2.Open;
  temp6:=ADOQuery2.Fieldbyname('NYD').AsString;
  TH_Edit5.Text:=IntToStr(temp);
  TX_ComboBox5.Text:=temp5;
  TM_Memo3.Text:=temp2;
  DA_Memo3.Text:=temp3;
  ZJ_ComboBox5.Text:=temp4;
  NY_ComboBox5.Text:=temp6;
  TMWJ_Edit.Text:=ADOQuery1.fieldbyname('TMBG').AsString;
  DAWJ_Edit.Text:=ADOQuery1.fieldbyname('DABG').AsString;
end;

procedure TForm1.XTCZ_DBGridMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  temp,temp1,temp11:integer;
  temp2,temp4,temp5,temp6:string;
begin
  temp:=ADOQuery1.fieldbyname('BH').AsInteger;
  temp2:=ADOQuery1.fieldbyname('TM').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 Type 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 NYD Where BH=:temp11');
  ADOQuery2.Parameters.ParamByName('temp11').Value:=temp11;
  ADOQuery2.Open;
  temp6:=ADOQuery2.Fieldbyname('NYD').AsString;
  TH_Edit6.Text:=IntToStr(temp);
  TX_ComboBox6.Text:=temp5;
  TM_Memo4.Text:=temp2;
  ZJ_ComboBox6.Text:=temp4;
  NY_ComboBox6.Text:=temp6;
  TMWJ1_Edit.Text:=ADOQuery1.fieldbyname('TMBG').AsString;
  temp:=ADOQuery1.fieldbyname('WTS').AsInteger;
  WTS_ComboBox.Text:=IntToStr(temp);
  W1DA_Edit.Text:=ADOQuery1.fieldbyname('W1DA').AsString;
  W2DA_Edit.Text:=ADOQuery1.fieldbyname('W2DA').AsString;
  W3DA_Edit.Text:=ADOQuery1.fieldbyname('W3DA').AsString;
  W4DA_Edit.Text:=ADOQuery1.fieldbyname('W4DA').AsString;
  W5DA_Edit.Text:=ADOQuery1.fieldbyname('W5DA').AsString;
  DAWJ1_Edit.Text:=ADOQuery1.fieldbyname('W1DABG').AsString;
  DAWJ2_Edit.Text:=ADOQuery1.fieldbyname('W2DABG').AsString;
  DAWJ3_Edit.Text:=ADOQuery1.fieldbyname('W3DABG').AsString;
  DAWJ4_Edit.Text:=ADOQuery1.fieldbyname('W4DABG').AsString;
  DAWJ5_Edit.Text:=ADOQuery1.fieldbyname('W5DABG').AsString;
end;

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

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

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

procedure TForm1.YLLS_RadioButton2Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.CursorType:=ctKeyset;
  //ADOQuery1.LockType:=ItBatchOptimistic;
  ADOQuery1.Open;
  YLLStj_BitBtn.Enabled:=true;
  YLLScx_BitBtn.Enabled:=true;
end;

procedure TForm1.XTSJ_RadioButton2Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.CursorType:=ctKeyset;
  //ADOQuery1.LockType:=ItBatchOptimistic;
  ADOQuery1.Open;
  XTSJtj_BitBtn.Enabled:=true;
  XTSJcx_BitBtn.Enabled:=true;
end;

procedure TForm1.XTCZ_RadioButton2Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.CursorType:=ctKeyset;
  //ADOQuery1.LockType:=ItBatchOptimistic;
  ADOQuery1.Open;