duoxuan_subject_manage_frms.pas

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

unit DuoXuan_Subject_manage_Frms;

interface

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

type
  TDuoXuan_Subject_manage_Frm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DuoXuan_DBGrid: TDBGrid;
    Panel3: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Label3: TLabel;
    Image3: TImage;
    Label9: TLabel;
    Difficulty_ComboBox: TComboBox;
    Specialty_ComboBox: TComboBox;
    DuoXuan_Edit_Panel: TPanel;
    Label1: TLabel;
    DBNavigator1: TDBNavigator;
    RadioGroup1: TRadioGroup;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Xuanxiang_One: TCheckBox;
    Xuanxiang_Two: TCheckBox;
    Xuanxiang_Three: TCheckBox;
    Xuanxiang_Four: TCheckBox;
    Xuanxiang_Five: TCheckBox;
    Xuanxiang_Six: TCheckBox;
    procedure Label9Click(Sender: TObject);
    Function DuoXuan_Key_Value_Input(Xuanxiang_One,Xuanxiang_Two,Xuanxiang_Three,
                           Xuanxiang_Four,Xuanxiang_Five,Xuanxiang_Six:TCheckBox):string;
    Procedure DuoXuan_Key_Value_Output(Key_Value:string;Var Xuanxiang_One,Xuanxiang_Two,
                  Xuanxiang_Three,Xuanxiang_Four,Xuanxiang_Five,Xuanxiang_Six:TCheckBox);
    procedure Specialty_ComboBoxDropDown(Sender: TObject);
    procedure Difficulty_ComboBoxDropDown(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DuoXuan_Subject_manage_Frm: TDuoXuan_Subject_manage_Frm;

implementation

uses Background_DataModules, Background_Main;

{$R *.dfm}
Function TDuoXuan_Subject_manage_Frm.DuoXuan_Key_Value_Input
           (Xuanxiang_One,Xuanxiang_Two,Xuanxiang_Three,Xuanxiang_Four,
            Xuanxiang_Five,Xuanxiang_Six:TCheckBox):string;
{将RadioButton选定的值转化为Key_Value作为记录的答案值}
Var
   A,B,C,D,E,F:String;
begin
  {选项一}
  If Xuanxiang_One.Checked=True then A:='1'
                                else A:='0';
  {选项二}
  If Xuanxiang_Two.Checked=True then B:='1'
                                else B:='0';
  {选项三}
  If Xuanxiang_Three.Checked=True then C:='1'
                                  else C:='0';
  {选项四}
  If Xuanxiang_Four.Checked=True then D:='1'
                                 else D:='0';

  {选项五}
  If Xuanxiang_Five.Checked=True then E:='1'
                                 else E:='0';

  {选项六}
  If Xuanxiang_Six.Checked=True then F:='1'
                                else F:='0';

  DuoXuan_Key_Value_Input:=A+B+C+D+E+F;
end;


Procedure TDuoXuan_Subject_manage_Frm.DuoXuan_Key_Value_Output
    (Key_Value:string;Var Xuanxiang_One,Xuanxiang_Two,Xuanxiang_Three,
     Xuanxiang_Four,Xuanxiang_Five,Xuanxiang_Six:TCheckBox);
begin
 If Copy(Key_Value,1,1)='1' then Xuanxiang_One.Checked:=True
                            else Xuanxiang_One.Checked:=False;
 If Copy(Key_Value,2,1)='1' then Xuanxiang_Two.Checked:=True
                            else Xuanxiang_Two.Checked:=False;
 If Copy(Key_Value,3,1)='1' then Xuanxiang_Three.Checked:=True
                            else Xuanxiang_Three.Checked:=False;
 If Copy(Key_Value,4,1)='1' then Xuanxiang_Four.Checked:=True
                            else Xuanxiang_Four.Checked:=False;
 If Copy(Key_Value,5,1)='1' then Xuanxiang_Five.Checked:=True
                            else Xuanxiang_Five.Checked:=False;
 If Copy(Key_Value,6,1)='1' then Xuanxiang_Six.Checked:=True
                            else Xuanxiang_Six.Checked:=False;
end;

procedure TDuoXuan_Subject_manage_Frm.Label9Click(Sender: TObject);
begin
  With Background_DataModule do
   begin
    Select_Subject_Table.Close;
    Select_Subject_Table.Parameters.ParamByName('Specialty').Value:=Specialty_ComboBox.Text;
    Select_Subject_Table.Parameters.ParamByName('Difficulty').Value:=Difficulty_ComboBox.Text;
    Select_Subject_Table.Parameters.ParamByName('Style').Value:='多选';
    Select_Subject_Table.Open;      
   end;
  DuoXuan_Edit_Panel.Visible:=True;{显示数据编辑控件}
end;

procedure TDuoXuan_Subject_manage_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 TDuoXuan_Subject_manage_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;

end.