panduan_subject_manage_frms.pas

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

unit PanDuan_Subject_manage_Frms;

interface

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

type
  TPanDuan_Subject_manage_Frm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    PanDuan_DBGrid: TDBGrid;
    Panel3: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Label3: TLabel;
    Image3: TImage;
    Label9: TLabel;
    Difficulty_ComboBox: TComboBox;
    Specialty_ComboBox: TComboBox;
    PanDuan_Edit_Panel: TPanel;
    DBNavigator1: TDBNavigator;
    RadioGroup1: TRadioGroup;
    Xuanxiang_One: TRadioButton;
    Xuanxiang_Two: TRadioButton;
    DBMemo1: TDBMemo;
    Function PanDuan_Key_Value_Input(Xuanxiang_One,Xuanxiang_Two:TRadioButton):string;
    Procedure DanXuan_Key_Value_Output(Key_Value:string;Var Xuanxiang_One,Xuanxiang_Two:TRadioButton);
    procedure Specialty_ComboBoxDropDown(Sender: TObject);
    procedure Difficulty_ComboBoxDropDown(Sender: TObject);
    procedure Label9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PanDuan_Subject_manage_Frm: TPanDuan_Subject_manage_Frm;

implementation

uses Background_Main, Background_DataModules;

{$R *.dfm}
Function TPanDuan_Subject_manage_Frm.PanDuan_Key_Value_Input
                  (Xuanxiang_One,Xuanxiang_Two:TRadioButton):string;
{将RadioButton选定的值转化为Key_Value作为记录的答案值}
Var
   A,B:String;
begin
  {选项一}
  If Xuanxiang_One.Checked=True then A:='1'
                                else A:='0';
  {选项二}
  If Xuanxiang_Two.Checked=True then B:='1'
                                else B:='0';

  PanDuan_Key_Value_Input:=A+B+'0000';
end;

Procedure TPanDuan_Subject_manage_Frm.DanXuan_Key_Value_Output
    (Key_Value:string;Var Xuanxiang_One,Xuanxiang_Two:TRadioButton);
{将数据库中的KEY_VALUE值转化成是否选中RadioButton的形式}
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;
end;

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

end.