background_main.pas

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

unit Background_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ExtCtrls, Buttons, DBCtrls,ToolWin, ActnList,StdCtrls,ADODB,
  ImgList;

type
  TMain_Frm = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton4: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Show_Form_Bevel: TBevel;
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    ActionList1: TActionList;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    SpeedButton7: TSpeedButton;
    Quit: TAction;
    DanXuan_Subject_manage: TAction;
    Accounts_Manage: TAction;
    Stat: TAction;
    Parameter_Setting: TAction;
    N5: TMenuItem;
    SpeedButton6: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton8: TSpeedButton;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    SpeedButton1: TSpeedButton;
    DuoXuan_Subject_manage: TAction;
    PanDuan_Subject_manage: TAction;
    Select_Subject_Rule: TAction;
    N9: TMenuItem;
    ImageList1: TImageList;
    procedure DropDown_Fields_Content_For_ComboBox(Var ComboBox:TComboBox;Var ADOTable:TADOTable;Var FieldName:string);
    procedure Show_Form_Action(Frm:Tform);
    procedure DanXuan_Subject_manageExecute(Sender: TObject);
    procedure Accounts_ManageExecute(Sender: TObject);
    procedure QuitExecute(Sender: TObject);
    procedure StatExecute(Sender: TObject);
    procedure Parameter_SettingExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DuoXuan_Subject_manageExecute(Sender: TObject);
    procedure PanDuan_Subject_manageExecute(Sender: TObject);
    procedure Select_Subject_RuleExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main_Frm: TMain_Frm;
  Subject_Style:string;{试题题型}
implementation

uses Subject_manage_Frms, Accounts_Manage_Frms, Stat_Frms,
  Parameter_Setting_Frms, DuoXuan_Subject_manage_Frms,
  PanDuan_Subject_manage_Frms, Background_DataModules,
  Select_Subject_Rule_Frms;

{$R *.dfm}
procedure TMain_Frm.DropDown_Fields_Content_For_ComboBox(Var ComboBox:TComboBox;Var ADOTable:TADOTable;Var FieldName:string);
begin
   //在ComboBox下拉菜单下拉时取出数据集合中的FieldName字段名称集合并显示出来
   ComboBox.Items.Clear;
   ADOTable.First;
   while not ADOTable.Eof do
    begin
     ComboBox.Items.Add(ADOTable.FieldByName(FieldName).AsString);
     ADOTable.Next;
    end;
end;

procedure TMain_Frm.Show_Form_Action(Frm:Tform);
begin
  Show_Form_Bevel.BringToFront;
  Frm.Parent := Main_Frm;
  Frm.Align := alClient;
  Frm.show;
  Frm.BringToFront;
end;

procedure TMain_Frm.DanXuan_Subject_manageExecute(Sender: TObject);
begin
 Subject_Style:='单选';
 DanXuan_Subject_manage_Frm.DanXuan_Edit_Panel.Visible:=False;
 Background_DataModule.Select_Subject_Table.close;
 Show_Form_Action(DanXuan_Subject_manage_Frm);
end;

procedure TMain_Frm.Accounts_ManageExecute(Sender: TObject);
begin
  Show_Form_Action(Accounts_Manage_Frm);
end;

procedure TMain_Frm.QuitExecute(Sender: TObject);
begin
If MessageDlg('您确定要退出吗？',mtConfirmation,[mbYes,mbno],0)=mrYes
 then Application.Terminate;
 {关闭程序之前清空所有试题记录。}
end;

procedure TMain_Frm.StatExecute(Sender: TObject);
begin
 Show_Form_Action(Stat_Frm);
end;

procedure TMain_Frm.Parameter_SettingExecute(Sender: TObject);
begin
 Show_Form_Action(Parameter_Setting_Frm);
end;

procedure TMain_Frm.FormShow(Sender: TObject);
begin
 Show_Form_Action(DanXuan_Subject_manage_Frm);
end;

procedure TMain_Frm.DuoXuan_Subject_manageExecute(Sender: TObject);
begin
  Subject_Style:='多选';
  DuoXuan_Subject_manage_Frm.DuoXuan_Edit_Panel.Visible:=False;
  Background_DataModule.Select_Subject_Table.close;
  Show_Form_Action(DuoXuan_Subject_manage_Frm);
end;

procedure TMain_Frm.PanDuan_Subject_manageExecute(Sender: TObject);
begin
  Subject_Style:='判断';
  PanDuan_Subject_manage_Frm.PanDuan_Edit_Panel.Visible:=False;
  Background_DataModule.Select_Subject_Table.close;
  Show_Form_Action(PanDuan_Subject_manage_Frm);
end;

procedure TMain_Frm.Select_Subject_RuleExecute(Sender: TObject);
begin
 Select_Subject_Rule_Frm.Rule_Edit_Panel.Visible:=False;
 Show_Form_Action(Select_Subject_Rule_Frm);
end;

procedure TMain_Frm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Application.Terminate;
end;

end.