subject_manage_frms.pas

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

unit Subject_manage_Frms;

interface

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

type
  TDanXuan_Subject_manage_Frm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    DanXuan_Edit_Panel: TPanel;
    DanXuan_DBGrid: TDBGrid;
    DBNavigator1: TDBNavigator;
    Label7: TLabel;
    Label8: TLabel;
    Difficulty_ComboBox: TComboBox;
    Specialty_ComboBox: TComboBox;
    Label3: TLabel;
    Image3: TImage;
    Label9: TLabel;
    RadioGroup1: TRadioGroup;
    Xuanxiang_One: TRadioButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Xuanxiang_Three: TRadioButton;
    DBEdit3: TDBEdit;
    Xuanxiang_Four: TRadioButton;
    DBEdit4: TDBEdit;
    Xuanxiang_Two: TRadioButton;
    Label1: TLabel;
    DBMemo1: TDBMemo;
    Function DanXuan_Key_Value_Input
            (Xuanxiang_One,Xuanxiang_Two,Xuanxiang_Three,Xuanxiang_Four:TRadioButton):string;
    Procedure DanXuan_Key_Value_Output
    (Key_Value:string;Var Xuanxiang_One,Xuanxiang_Two,Xuanxiang_Three,Xuanxiang_Four:TRadioButton);

    procedure Label9Click(Sender: TObject);
    procedure Difficulty_ComboBoxDropDown(Sender: TObject);
    procedure Specialty_ComboBoxDropDown(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DanXuan_Subject_manage_Frm: TDanXuan_Subject_manage_Frm;

implementation

uses Background_DataModules, Background_Main;

{$R *.dfm}
Function TDanXuan_Subject_manage_Frm.DanXuan_Key_Value_Input
    (Xuanxiang_One,Xuanxiang_Two,Xuanxiang_Three,Xuanxiang_Four:TRadioButton):string;
{将RadioButton选定的值转化为Key_Value作为记录的答案值}
Var
   A,B,C,D: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';
  DanXuan_Key_Value_Input:=A+B+C+D+'00';
end;

Procedure TDanXuan_Subject_manage_Frm.DanXuan_Key_Value_Output
    (Key_Value:string;Var Xuanxiang_One,Xuanxiang_Two,Xuanxiang_Three,Xuanxiang_Four:TRadioButton);
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;
end;

procedure TDanXuan_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;
  DanXuan_Edit_Panel.Visible:=True;{显示数据编辑控件}
end;

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

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

end.