client_data_module.pas

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

unit Client_Data_Module;

interface

uses
  SysUtils, Classes, DB, DBClient, MConnect, SConnect,Dialogs;

type
  TRemote_DataModule = class(TDataModule)
    Select_Exam_name_Client: TClientDataSet;
    Exam_SocketConnection: TSocketConnection;
    Select_Subject_Client: TClientDataSet;
    Select_Subject_Rule_Client: TClientDataSet;
    Select_Exam_name_ClientExam_name: TStringField;
    Select_Subject_Rule_ClientSpeciality: TStringField;
    Select_Subject_Rule_ClientDifficulty: TStringField;
    Select_Subject_Rule_ClientStyle: TStringField;
    Select_Subject_Rule_ClientSelect_Subject_Count: TIntegerField;
    Select_Subject_Rule_ClientSelect_Subject_Point: TIntegerField;
    Select_Subject_Rule_ClientExam_Name: TStringField;
    Select_Subject_ClientID: TAutoIncField;
    Select_Subject_ClientStyle: TStringField;
    Select_Subject_ClientContent: TStringField;
    Select_Subject_ClientA_option: TStringField;
    Select_Subject_ClientB_option: TStringField;
    Select_Subject_ClientC_option: TStringField;
    Select_Subject_ClientD_option: TStringField;
    Select_Subject_ClientE_option: TStringField;
    Select_Subject_ClientF_option: TStringField;
    Set_Subject_Point_Client: TClientDataSet;
    Set_Subject_Point_Clientdifficulty: TStringField;
    Set_Subject_Point_Clientstyle: TStringField;
    Select_Subject_ClientDifficulty: TStringField;
    Select_Employee_Achievement_Client: TClientDataSet;
    Select_Employee_Achievement_DS: TDataSource;
    Select_Employee_Achievement_ClientName: TStringField;
    Select_Employee_Achievement_ClientSex: TStringField;
    Select_Employee_Achievement_ClientEmployee_Code: TStringField;
    Select_Employee_Achievement_ClientSales_Department: TStringField;
    Select_Employee_Achievement_ClientDepartment: TStringField;
    Select_Employee_Achievement_ClientExam_Name: TStringField;
    Select_Employee_Achievement_ClientExam_Style: TStringField;
    Select_Employee_Achievement_ClientExam_Datetime: TDateTimeField;
    Select_Employee_Achievement_ClientBegin_Exam_Datetime: TStringField;
    Select_Employee_Achievement_ClientAchievement: TFloatField;
    Select_Exam_name_ClientExam_Time: TIntegerField;
    Employee_Table_Client: TClientDataSet;
    Employee_Table_DS: TDataSource;
    Employee_Table_ClientLogin_Name: TStringField;
    Employee_Table_ClientLogin_Psw: TStringField;
    Employee_Table_ClientName: TStringField;
    Employee_Table_ClientSex: TStringField;
    Employee_Table_ClientEmployee_Code: TStringField;
    Employee_Table_ClientSales_Department: TStringField;
    Employee_Table_ClientDepartment: TStringField;
    Employee_Table_ClientPurview: TStringField;
    Employee_Table_ClientPhoto: TBlobField;
    Set_Subject_Point_Clientpoint: TBCDField;
    procedure Employee_Table_ClientAfterInsert(DataSet: TDataSet);
    procedure Employee_Table_ClientAfterScroll(DataSet: TDataSet);
    procedure Employee_Table_ClientBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Remote_DataModule: TRemote_DataModule;

implementation

uses login_pas, Accounts_Manage_Frms;

{$R *.dfm}

procedure TRemote_DataModule.Employee_Table_ClientAfterInsert(
  DataSet: TDataSet);
begin
   Employee_Table_ClientSales_Department.Value:=Sales_Department;
   Employee_Table_ClientPurview.Value:='C';
end;

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

procedure TRemote_DataModule.Employee_Table_ClientBeforePost(
  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);
     Employee_Table_ClientLogin_Psw.Value:=Login_Psw_MiWen;
    end;
end;

end.