danxiangxuanzhe_frm.pas

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

unit DanXiangXuanZhe_Frm;

interface

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

type
  TDanXiang_Frm = class(TForm)
    Panel1: TPanel;
    DanXuan_DBCtrlGrid: TDBCtrlGrid;
    Panel3: TPanel;
    Label2: TLabel;
    Image3: TImage;
    Label9: TLabel;
    Image1: TImage;
    Label3: TLabel;
    Image2: TImage;
    Label4: TLabel;
    Image4: TImage;
    Label5: TLabel;
    Image5: TImage;
    Label6: TLabel;
    Image7: TImage;
    Label8: TLabel;
    Panel2: TPanel;
    DBText2: TDBText;
    DBText1: TDBText;
    Label1: TLabel;
    A_Select: TDBCheckBox;
    A_option: TDBText;
    B_Select: TDBCheckBox;
    B_option: TDBText;
    C_Select: TDBCheckBox;
    C_option: TDBText;
    D_option: TDBText;
    D_Select: TDBCheckBox;
    DBCheckBox1: TDBCheckBox;
    DBText3: TDBText;
    Label7: TLabel;
    DBText4: TDBText;
    Label10: TLabel;
    Label11: TLabel;
    Focused_Image: TImage;
    procedure DBCheckBox_Click(Click_DBCheckBox,A_Select,B_Select,C_Select,D_Select:TDBCheckBox);
    procedure A_SelectEnter(Sender: TObject);
    procedure B_SelectEnter(Sender: TObject);
    procedure C_SelectEnter(Sender: TObject);
    procedure D_SelectEnter(Sender: TObject);
    procedure Label9Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DanXiang_Frm: TDanXiang_Frm;

implementation

uses Client_Data_Module, Client_BenDi_DataModule;

{$R *.dfm}

procedure TDanXiang_Frm.DBCheckBox_Click(Click_DBCheckBox,A_Select,B_Select,C_Select,D_Select:TDBCheckBox);
begin
  //单选题目四个属性只能任选其一，只有其中被选的为真，其余的为假
 WITH Client_DataModule DO
  BEGIN  
  DanXuan_Subject_Table.Edit;
  if Click_DBCheckBox=A_Select then
                                begin
                                 DanXuan_Subject_TableB_Select.Value:=FALSE;
                                 DanXuan_Subject_TableC_Select.Value:=FALSE;
                                 DanXuan_Subject_TableD_Select.Value:=FALSE;
                                end;
  if Click_DBCheckBox=B_Select then
                                begin
                                 DanXuan_Subject_TableA_Select.Value:=FALSE;
                                 DanXuan_Subject_TableC_Select.Value:=FALSE;
                                 DanXuan_Subject_TableD_Select.Value:=FALSE;
                                end;
  if Click_DBCheckBox=C_Select then
                                begin
                                 DanXuan_Subject_TableB_Select.Value:=FALSE;
                                 DanXuan_Subject_TableA_Select.Value:=FALSE;
                                 DanXuan_Subject_TableD_Select.Value:=FALSE;
                                end;
  if Click_DBCheckBox=D_Select then
                                begin
                                 DanXuan_Subject_TableB_Select.Value:=FALSE;
                                 DanXuan_Subject_TableC_Select.Value:=FALSE;
                                 DanXuan_Subject_TableA_Select.Value:=FALSE;
                                end;
 END;
end;

procedure TDanXiang_Frm.A_SelectEnter(Sender: TObject);
begin
 DBCheckBox_Click(A_Select,A_Select,B_Select,C_Select,D_Select)
end;

procedure TDanXiang_Frm.B_SelectEnter(Sender: TObject);
begin
DBCheckBox_Click(B_Select,A_Select,B_Select,C_Select,D_Select)
end;

procedure TDanXiang_Frm.C_SelectEnter(Sender: TObject);
begin
DBCheckBox_Click(C_Select,A_Select,B_Select,C_Select,D_Select)
end;

procedure TDanXiang_Frm.D_SelectEnter(Sender: TObject);
begin
DBCheckBox_Click(D_Select,A_Select,B_Select,C_Select,D_Select)
end;

procedure TDanXiang_Frm.Label9Click(Sender: TObject);
begin
  with Client_DataModule do
   begin
    DanXuan_Subject_Table.Filter:='Style='+''''+'单选'+'''';
    DanXuan_Subject_Table.Filtered:=True;
   end;
end;

procedure TDanXiang_Frm.Label3Click(Sender: TObject);
begin
 with Client_DataModule do
   begin
    DanXuan_Subject_Table.Filter:='Style='+''''+'单选'+''''+' and Flag=True ';
    DanXuan_Subject_Table.Filtered:=True;
   end;
end;

procedure TDanXiang_Frm.Label4Click(Sender: TObject);
begin
 Client_DataModule.DanXuan_Subject_Table.First;
end;

procedure TDanXiang_Frm.Label5Click(Sender: TObject);
begin
Client_DataModule.DanXuan_Subject_Table.Prior;
end;

procedure TDanXiang_Frm.Label6Click(Sender: TObject);
begin
Client_DataModule.DanXuan_Subject_Table.Next;
end;

procedure TDanXiang_Frm.Label8Click(Sender: TObject);
begin
Client_DataModule.DanXuan_Subject_Table.Last;
end;

end.