duoxiangxuanzhe_frm.pas

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

unit DuoXiangXuanZhe_Frm;

interface

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

type
  TDuoXiang_Frm = class(TForm)
    Panel1: TPanel;
    DuoXuan_DBCtrlGrid: TDBCtrlGrid;
    Panel2: TPanel;
    DBText2: TDBText;
    DBText1: TDBText;
    Label1: TLabel;
    A_Select: TDBCheckBox;
    B_Select: TDBCheckBox;
    C_Select: TDBCheckBox;
    D_Select: TDBCheckBox;
    E_Select: TDBCheckBox;
    F_Select: TDBCheckBox;
    F_option: TDBText;
    E_option: TDBText;
    D_option: TDBText;
    C_option: TDBText;
    B_option: TDBText;
    A_option: TDBText;
    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;
    Label7: TLabel;
    DBText3: TDBText;
    Label11: TLabel;
    Label10: TLabel;
    DBText4: TDBText;
    Focused_Image: TImage;
    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
  DuoXiang_Frm: TDuoXiang_Frm;

implementation

uses Client_BenDi_DataModule;

{$R *.dfm}

procedure TDuoXiang_Frm.Label9Click(Sender: TObject);
begin
  with Client_DataModule do
   begin
    DuoXuan_Subject_Table.Filter:='Style='+''''+'多选'+'''';
    DuoXuan_Subject_Table.Filtered:=True;
   end;
end;

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

procedure TDuoXiang_Frm.Label4Click(Sender: TObject);
begin
  Client_DataModule.DuoXuan_Subject_Table.First;
end;

procedure TDuoXiang_Frm.Label5Click(Sender: TObject);
begin
Client_DataModule.DuoXuan_Subject_Table.Prior;
end;

procedure TDuoXiang_Frm.Label6Click(Sender: TObject);
begin
Client_DataModule.DuoXuan_Subject_Table.Next;
end;

procedure TDuoXiang_Frm.Label8Click(Sender: TObject);
begin
Client_DataModule.DuoXuan_Subject_Table.Last;
end;

end.