history_achievement_frms.pas

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

unit History_Achievement_Frms;

interface

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

type
  THistory_Achievement_Frm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel4: TPanel;
    Label2: TLabel;
    Image7: TImage;
    Label8: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    FromDateTimePicker: TDateTimePicker;
    ToDateTimePicker: TDateTimePicker;
    DBGrid1: TDBGrid;
    procedure Label8Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  History_Achievement_Frm: THistory_Achievement_Frm;

implementation

uses login_pas, Client_Data_Module;

{$R *.dfm}

procedure THistory_Achievement_Frm.Label8Click(Sender: TObject);
begin
  with Remote_DataModule do
   begin
    Select_Employee_Achievement_Client.Close;

    {调用远程过程}
    Exam_SocketConnection.AppServer.Active_Select_Employee_Achievement(
      Employee_Code, FromDateTimePicker.DateTime, ToDateTimePicker.DateTime);

    Select_Employee_Achievement_Client.Open
   end;


end;

procedure THistory_Achievement_Frm.FormShow(Sender: TObject);
begin
  FromDateTimePicker.DateTime:=Now-30;
  ToDateTimePicker.DateTime:=Now+1;
end;

end.