panduanti_frm.pas

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

unit PanDuanTi_Frm;

interface

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

type
  TPanDuan_Frm = class(TForm)
    Panel1: TPanel;
    PanDuan_DBCtrlGrid: TDBCtrlGrid;
    Panel2: TPanel;
    A_Select: TDBCheckBox;
    B_Select: TDBCheckBox;
    DBMemo1: TDBMemo;
    DBText1: TDBText;
    Label1: TLabel;
    Panel3: TPanel;
    DBCheckBox1: TDBCheckBox;
    Label2: TLabel;
    Image3: TImage;
    Image1: TImage;
    Image2: TImage;
    Image4: TImage;
    Image5: TImage;
    Image7: TImage;
    Label9: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    DBText3: TDBText;
    Label11: TLabel;
    DBText4: TDBText;
    Label7: TLabel;
    Label10: TLabel;
    Focused_Image: TImage;
    procedure DBCheckBox_Click(Click_DBCheckBox,A_Select,B_Select:TDBCheckBox);
    procedure A_SelectEnter(Sender: TObject);
    procedure B_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
  PanDuan_Frm: TPanDuan_Frm;

implementation

uses Client_BenDi_DataModule;

{$R *.dfm}
procedure TPanDuan_Frm.DBCheckBox_Click(Click_DBCheckBox,A_Select,B_Select:TDBCheckBox);
begin
  //判断题目两个属性只能任选其一，对或错，只有其中被选的为真，另一个的为假
 WITH Client_DataModule DO
  BEGIN
  PanDuan_Subject_Table.Edit;
  if Click_DBCheckBox=A_Select then
   PanDuan_Subject_TableB_Select.Value:=FALSE;
  if Click_DBCheckBox=B_Select then
   PanDuan_Subject_TableA_Select.Value:=FALSE;
 END;
end;
procedure TPanDuan_Frm.A_SelectEnter(Sender: TObject);
begin
 DBCheckBox_Click(A_Select,A_Select,B_Select);

end;

procedure TPanDuan_Frm.B_SelectEnter(Sender: TObject);
begin
 DBCheckBox_Click(B_Select,A_Select,B_Select);
end;

procedure TPanDuan_Frm.Label9Click(Sender: TObject);
begin
  with Client_DataModule do
   begin
    PanDuan_Subject_Table.Filter:='Style='+''''+'判断'+'''';
    PanDuan_Subject_Table.Filtered:=True;
   end;
end;

procedure TPanDuan_Frm.Label3Click(Sender: TObject);
begin
  with Client_DataModule do
   begin
    PanDuan_Subject_Table.Filter:='Style='+''''+'判断'+''''+' and Flag=True ';
    PanDuan_Subject_Table.Filtered:=True;
   end;
end;

procedure TPanDuan_Frm.Label4Click(Sender: TObject);
begin
Client_DataModule.PanDuan_Subject_Table.First;
end;

procedure TPanDuan_Frm.Label5Click(Sender: TObject);
begin
Client_DataModule.PanDuan_Subject_Table.Prior;
end;

procedure TPanDuan_Frm.Label6Click(Sender: TObject);
begin
Client_DataModule.PanDuan_Subject_Table.Next;
end;

procedure TPanDuan_Frm.Label8Click(Sender: TObject);
begin
Client_DataModule.PanDuan_Subject_Table.Last;
end;

end.