background_datamodules.pas

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

unit Background_DataModules;

interface

uses
  SysUtils, Classes, DB, ADODB,Dialogs,IniFiles;

type
  TBackground_DataModule = class(TDataModule)
    Background_Connection: TADOConnection;
    Exam_Specialty_Table: TADOTable;
    Exam_Difficulty_Table: TADOTable;
    Exam_Specialty_Table_DS: TDataSource;
    Exam_Difficulty_Table_DS: TDataSource;
    Exam_Difficulty_TableExam_Difficulty: TStringField;
    Exam_Specialty_TableExam_Specialty: TStringField;
    Select_Subject_Table: TADOQuery;
    Select_Subject_Table_DS: TDataSource;
    Select_Subject_TableID: TAutoIncField;
    Select_Subject_TableSpecialty: TStringField;
    Select_Subject_TableDifficulty: TStringField;
    Select_Subject_TableStyle: TStringField;
    Select_Subject_TableA_option: TStringField;
    Select_Subject_TableB_option: TStringField;
    Select_Subject_TableC_option: TStringField;
    Select_Subject_TableD_option: TStringField;
    Select_Subject_TableE_option: TStringField;
    Select_Subject_TableF_option: TStringField;
    Select_Subject_TableKey_value: TStringField;
    Exam_Name_Table_DS: TDataSource;
    Exam_Name_Table: TADOTable;
    Exam_Name_TableExam_Name: TStringField;
    Select_Subject_Rule_Table_ByExamName: TADOQuery;
    Select_Subject_Rule_Table_ByExamName_DS: TDataSource;
    Select_Subject_Rule_Table_DS: TDataSource;
    Select_Subject_Rule_Table: TADOQuery;
    Select_Subject_Rule_Table_ByExamNameExam_Name: TStringField;
    Select_Subject_Rule_Table_ByExamNameSpeciality: TStringField;
    Select_Subject_Rule_Table_ByExamNameDifficulty: TStringField;
    Select_Subject_Rule_Table_ByExamNameStyle: TStringField;
    Select_Subject_Rule_Table_ByExamNameSelect_Subject_Count: TIntegerField;
    Select_Subject_Rule_Table_ByExamNameSelect_Subject_Point: TIntegerField;
    Select_Subject_Rule_TableID: TAutoIncField;
    Select_Subject_Rule_TableExam_Name: TStringField;
    Select_Subject_Rule_TableSpeciality: TStringField;
    Select_Subject_Rule_TableDifficulty: TStringField;
    Select_Subject_Rule_TableStyle: TStringField;
    Select_Subject_Rule_TableSelect_Subject_Count: TIntegerField;
    Select_Subject_Rule_TableSelect_Subject_Point: TIntegerField;
    Select_Employee_Achievement_Table_DS: TDataSource;
    Select_Employee_Achievement_Table: TADOQuery;
    Select_Employee_Achievement_TableName: TStringField;
    Select_Employee_Achievement_TableSex: TStringField;
    Select_Employee_Achievement_TableID_card: TStringField;
    Select_Employee_Achievement_TableEmployee_Code: TStringField;
    Select_Employee_Achievement_TableSales_Department: TStringField;
    Select_Employee_Achievement_TableDepartment: TStringField;
    Select_Employee_Achievement_TableExam_Name: TStringField;
    Select_Employee_Achievement_TableExam_Specialty: TStringField;
    Select_Employee_Achievement_TableExam_Style: TStringField;
    Select_Employee_Achievement_TableExam_Datetime: TDateTimeField;
    Select_Employee_Table_DS: TDataSource;
    Select_Employee_Table: TADOQuery;
    Select_Employee_TableLogin_Name: TStringField;
    Select_Employee_TableLogin_Psw: TStringField;
    Select_Employee_TableName: TStringField;
    Select_Employee_TableSex: TStringField;
    Select_Employee_TableEmployee_Code: TStringField;
    Select_Employee_TableSales_Department: TStringField;
    Select_Employee_TableDepartment: TStringField;
    Select_Employee_TablePurview: TStringField;
    Select_Employee_TablePhoto: TBlobField;
    Sales_Department_Table: TADOTable;
    Sales_Department_Table_DS: TDataSource;
    Sales_Department_TableSales_Department_Name: TStringField;
    Login_Query: TADOQuery;
    Login_DS: TDataSource;
    Login_QueryLogin_Name: TStringField;
    Login_QueryLogin_Psw: TStringField;
    Login_QueryName: TStringField;
    Login_QuerySex: TStringField;
    Login_QueryEmployee_Code: TStringField;
    Login_QuerySales_Department: TStringField;
    Login_QueryDepartment: TStringField;
    Login_QueryPurview: TStringField;
    Login_QueryPhoto: TBlobField;
    Select_Employee_Achievement_TableBegin_Exam_Datetime: TStringField;
    Select_Employee_Achievement_TableAchievement: TFloatField;
    Exam_Name_TableExam_Time: TIntegerField;
    Select_Subject_TableContent: TMemoField;
    procedure Select_Subject_TableBeforePost(DataSet: TDataSet);
    procedure Select_Subject_TableAfterScroll(DataSet: TDataSet);
    procedure Select_Subject_TableAfterInsert(DataSet: TDataSet);
    procedure Select_Subject_Rule_TableAfterInsert(DataSet: TDataSet);
    procedure Select_Employee_TableBeforePost(DataSet: TDataSet);
    procedure Select_Employee_TableAfterScroll(DataSet: TDataSet);
    procedure Select_Employee_TableAfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Background_DataModule: TBackground_DataModule;

implementation

uses Subject_manage_Frms, Background_Main, PanDuan_Subject_manage_Frms,
  DuoXuan_Subject_manage_Frms, Select_Subject_Rule_Frms,
  Accounts_Manage_Frms;

{$R *.dfm}

procedure TBackground_DataModule.Select_Subject_TableBeforePost(
  DataSet: TDataSet);
begin
  {在递交数据之前将单选框的值转化成Key_value的值记录到数据库去}
 IF Subject_Style='单选' Then
  With DanXuan_Subject_manage_Frm do
  Select_Subject_TableKey_value.Value:=DanXuan_Key_Value_Input
         (Xuanxiang_One,Xuanxiang_Two,Xuanxiang_Three,Xuanxiang_Four);

 IF Subject_Style='多选' Then
  With DuoXuan_Subject_manage_Frm do
   Select_Subject_TableKey_value.Value:=DuoXuan_Key_Value_Input
           (Xuanxiang_One,Xuanxiang_Two,Xuanxiang_Three,Xuanxiang_Four,
            Xuanxiang_Five,Xuanxiang_Six);


 IF Subject_Style='判断' Then
   With PanDuan_Subject_manage_Frm do
   Select_Subject_TableKey_value.Value:=PanDuan_Key_Value_Input
         (Xuanxiang_One,Xuanxiang_Two);

end;

procedure TBackground_DataModule.Select_Subject_TableAfterScroll(
  DataSet: TDataSet);
begin
 {在数据记录变更时即时将Key_value的值表现为打钩的形式}
 
 IF Subject_Style='单选' Then
   With DanXuan_Subject_manage_Frm do
    DanXuan_Key_Value_Output
    (Select_Subject_TableKey_value.Value,Xuanxiang_One,Xuanxiang_Two,Xuanxiang_Three,Xuanxiang_Four);

 IF Subject_Style='多选' Then
  With DuoXuan_Subject_manage_Frm do
   DuoXuan_Key_Value_Output
    (Select_Subject_TableKey_value.Value,Xuanxiang_One,Xuanxiang_Two,Xuanxiang_Three,
      Xuanxiang_Four,Xuanxiang_Five,Xuanxiang_Six);

 IF Subject_Style='判断' Then
  begin
   With PanDuan_Subject_manage_Frm do
    DanXuan_Key_Value_Output
    (Select_Subject_TableKey_value.Value,Xuanxiang_One,Xuanxiang_Two);
  end;
     
end;

procedure TBackground_DataModule.Select_Subject_TableAfterInsert(
  DataSet: TDataSet);
begin
  {新增数据时填入默认数据}

 IF Subject_Style='单选' Then
  With DanXuan_Subject_manage_Frm do
   begin
    Select_Subject_TableSpecialty.Value:= Specialty_ComboBox.Text;
    Select_Subject_TableDifficulty.Value:= Difficulty_ComboBox.Text;
    Select_Subject_TableStyle.Value:='单选';
  end;

 IF Subject_Style='多选' Then
  With DuoXuan_Subject_manage_Frm do
   begin
    Select_Subject_TableSpecialty.Value:= Specialty_ComboBox.Text;
    Select_Subject_TableDifficulty.Value:= Difficulty_ComboBox.Text;
    Select_Subject_TableStyle.Value:='多选';
  end;

 IF Subject_Style='判断' Then
  With PanDuan_Subject_manage_Frm do
   begin
    Select_Subject_TableSpecialty.Value:= Specialty_ComboBox.Text;
    Select_Subject_TableDifficulty.Value:= Difficulty_ComboBox.Text;
    Select_Subject_TableStyle.Value:='判断';
  end;
end;

procedure TBackground_DataModule.Select_Subject_Rule_TableAfterInsert(
  DataSet: TDataSet);
begin
  {新增数据时填入默认数据}
  With Select_Subject_Rule_Frm do
   begin
    Select_Subject_Rule_TableExam_Name.Value:=Edit_Exam_Name_ComboBox.Text;
    Select_Subject_Rule_TableStyle.Value:=Style_ComboBox.text;
    Select_Subject_Rule_TableSpeciality.Value:=Specialty_ComboBox.Text;
    Select_Subject_Rule_TableDifficulty.Value:= Difficulty_ComboBox.Text;
  end;
end;

procedure TBackground_DataModule.Select_Employee_TableBeforePost(
  DataSet: TDataSet);
Var
   Check:Boolean;
   Login_Psw:string;{密码明文}
   Login_Psw_MiWen:string;{密码密文}
begin
   With Accounts_Manage_Frm do
    begin
     Login_Psw:=Psw_Edit.text;
     Validity_Check(Login_Psw,Check);
     If Check=False
      then
       begin
        showmessage('密码串非法！密码被重置为 888888');
        Login_Psw:='888888';
        JiaMi(MiYao,Login_Psw,Login_Psw_MiWen);
       end
      else JiaMi(MiYao,Login_Psw,Login_Psw_MiWen);
     Select_Employee_TableLogin_Psw.Value:=Login_Psw_MiWen;
    end;
end;

procedure TBackground_DataModule.Select_Employee_TableAfterScroll(
  DataSet: TDataSet);
Var
   Check:Boolean;
   Login_Psw:string;{密码明文}
   Login_Psw_MiWen:string;{密码密文}
begin
  Login_Psw_MiWen:=Select_Employee_TableLogin_Psw.Value;
   With Accounts_Manage_Frm do
    begin
     JieMi(MiYao,Login_Psw_MiWen,Login_Psw);
     Psw_Edit.text:= Login_Psw;
    end;
end;

procedure TBackground_DataModule.Select_Employee_TableAfterInsert(
  DataSet: TDataSet);
begin
 With Accounts_Manage_Frm do
   Select_Employee_TableSales_Department.Value:=Sales_Department_ComboBox.Text;

end;

end.