select_subject_rule_frms.pas

证券公司考试系统,三层架构,从题库自动产生试卷,全部主观题

unit Select_Subject_Rule_Frms;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, ExtCtrls, jpeg, Grids, DBGrids;

type
  TSelect_Subject_Rule_Frm = class(TForm)
    Panel1: TPanel;
    Rule_Edit_Panel: TPanel;
    Panel5: TPanel;
    Label10: TLabel;
    Label11: TLabel;
    DBComboBox5: TDBComboBox;
    DBComboBox6: TDBComboBox;
    Panel6: TPanel;
    Label7: TLabel;
    Edit_Exam_Name_ComboBox: TComboBox;
    Label1: TLabel;
    Specialty_ComboBox: TComboBox;
    Label8: TLabel;
    Difficulty_ComboBox: TComboBox;
    Image3: TImage;
    DBNavigator1: TDBNavigator;
    Label9: TLabel;
    Panel2: TPanel;
    Panel4: TPanel;
    PanDuan_DBGrid: TDBGrid;
    Select_Rule_Panel: TPanel;
    Label2: TLabel;
    Image1: TImage;
    Label4: TLabel;
    Select_Exam_Name_ComboBox: TComboBox;
    Label5: TLabel;
    Image2: TImage;
    Label12: TLabel;
    Label3: TLabel;
    Style_ComboBox: TComboBox;
    Label6: TLabel;
    Splitter1: TSplitter;
    procedure Specialty_ComboBoxDropDown(Sender: TObject);
    procedure Difficulty_ComboBoxDropDown(Sender: TObject);
    procedure Select_Exam_Name_ComboBoxDropDown(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label12Click(Sender: TObject);
    procedure Edit_Exam_Name_ComboBoxDropDown(Sender: TObject);
    procedure Label9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Select_Subject_Rule_Frm: TSelect_Subject_Rule_Frm;

implementation

uses Background_Main, Background_DataModules;

{$R *.dfm}

procedure TSelect_Subject_Rule_Frm.Specialty_ComboBoxDropDown(
  Sender: TObject);
Var
  FieldName:string;
begin
  FieldName:='Exam_Specialty';
  Main_Frm.DropDown_Fields_Content_For_ComboBox
  (Specialty_ComboBox,Background_DataModule.Exam_Specialty_Table,FieldName);
end;

procedure TSelect_Subject_Rule_Frm.Difficulty_ComboBoxDropDown(
  Sender: TObject);
Var
  FieldName:string;
begin
 FieldName:='Exam_Difficulty';
  Main_Frm.DropDown_Fields_Content_For_ComboBox
  (Difficulty_ComboBox,Background_DataModule.Exam_Difficulty_Table,FieldName);
end;

procedure TSelect_Subject_Rule_Frm.Select_Exam_Name_ComboBoxDropDown(Sender: TObject);
Var
  FieldName:string;
begin
  FieldName:='Exam_Name';
  Main_Frm.DropDown_Fields_Content_For_ComboBox
  (Select_Exam_Name_ComboBox,Background_DataModule.Exam_Name_Table,FieldName);
end;

procedure TSelect_Subject_Rule_Frm.Label4Click(Sender: TObject);
begin
   With Background_DataModule.Select_Subject_Rule_Table_ByExamName do
   begin
    Close;
    Parameters.ParamByName('Exam_Name').Value:=Select_Exam_Name_ComboBox.Text;
    Open;
   end;
end;

procedure TSelect_Subject_Rule_Frm.Label12Click(Sender: TObject);
begin
  Rule_Edit_Panel.Visible:=True;
end;

procedure TSelect_Subject_Rule_Frm.Edit_Exam_Name_ComboBoxDropDown(
  Sender: TObject);
Var
  FieldName:string;
begin
  FieldName:='Exam_Name';
  Main_Frm.DropDown_Fields_Content_For_ComboBox
  (Edit_Exam_Name_ComboBox,Background_DataModule.Exam_Name_Table,FieldName);
end;

procedure TSelect_Subject_Rule_Frm.Label9Click(Sender: TObject);
begin
 If (Edit_Exam_Name_ComboBox.Text<>'')and(Style_ComboBox.Text<>'')
     and(Specialty_ComboBox.Text<>'')and(Difficulty_ComboBox.Text<>'')
  then
  begin
   With Background_DataModule.Select_Subject_Rule_Table do
    begin
     Close;
     Parameters.ParamByName('Exam_Name').Value:=Edit_Exam_Name_ComboBox.Text;
     Parameters.ParamByName('Style').Value:=Style_ComboBox.Text;
     Parameters.ParamByName('Speciality').Value:=Specialty_ComboBox.Text;
     Parameters.ParamByName('Difficulty').Value:=Difficulty_ComboBox.Text;
     Open;

     First;
    If Eof then
      If MessageDlg('不存在该规则，要新增此规则吗？',mtConfirmation,[mbYes,mbno],0)=mrYes
       then Insert;
   end;
 end;
end;

end.