parameter_setting_frms.pas

来自「证券公司考试系统,三层架构,从题库自动产生试卷,全部主观题」· PAS 代码 · 共 103 行

unit Parameter_Setting_Frms;

interface

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

type
  TParameter_Setting_Frm = class(TForm)
    Panel1: TPanel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    Panel2: TPanel;
    DBGrid2: TDBGrid;
    Panel5: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Panel6: TPanel;
    Panel7: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Panel8: TPanel;
    DBGrid3: TDBGrid;
    Panel9: TPanel;
    Panel10: TPanel;
    DBNavigator1: TDBNavigator;
    DBNavigator2: TDBNavigator;
    DBNavigator3: TDBNavigator;
    Label4: TLabel;
    Panel11: TPanel;
    Panel12: TPanel;
    DBNavigator4: TDBNavigator;
    Panel13: TPanel;
    Label5: TLabel;
    DBGrid4: TDBGrid;
    procedure Label9Click(Sender: TObject);
    procedure Label10Click(Sender: TObject);
    procedure Label11Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure Label13Click(Sender: TObject);
    procedure Label12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Parameter_Setting_Frm: TParameter_Setting_Frm;

implementation

uses Background_DataModules;

{$R *.dfm}

procedure TParameter_Setting_Frm.Label9Click(Sender: TObject);
begin
  Background_DataModule.Exam_Specialty_Table.Append;
end;

procedure TParameter_Setting_Frm.Label10Click(Sender: TObject);
begin
 Background_DataModule.Exam_Specialty_Table.Delete;
end;

procedure TParameter_Setting_Frm.Label11Click(Sender: TObject);
begin
  Background_DataModule.Exam_Specialty_Table.Post;
end;

procedure TParameter_Setting_Frm.Label4Click(Sender: TObject);
begin
  Background_DataModule.Exam_Difficulty_Table.Append;
end;

procedure TParameter_Setting_Frm.Label5Click(Sender: TObject);
begin
  Background_DataModule.Exam_Difficulty_Table.Delete;
end;

procedure TParameter_Setting_Frm.Label6Click(Sender: TObject);
begin
  Background_DataModule.Exam_Difficulty_Table.Post;
end;

procedure TParameter_Setting_Frm.Label13Click(Sender: TObject);
begin
 Background_DataModule.Exam_Difficulty_Table.Edit;
end;

procedure TParameter_Setting_Frm.Label12Click(Sender: TObject);
begin
 Background_DataModule.Exam_Specialty_Table.Edit;
end;

end.