serverlog.pas

ERP 一段源码,也许对你有用,在一个朋友处拿来的.

{//标题：服装MRP系统
 //内容：登陆日志管理模块。
 //修改：
}
unit ServerLog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids,
  ppBands, ppCtrls, ppPrnabl, ppClass, ppCache, ppProd, ppReport, ppComm,
  ppRelatv, ppDB, ppDBPipe, DB;

type
  TfrmServerLog = class(TfrmBase)
    dsLog: TDataSource;
    ppDBPipeline1: TppDBPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppShape8: TppShape;
    ppShape9: TppShape;
    ppShape10: TppShape;
    ppShape11: TppShape;
    ppShape13: TppShape;
    ppShape14: TppShape;
    ppShape12: TppShape;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppDetailBand1: TppDetailBand;
    ppShape7: TppShape;
    ppShape6: TppShape;
    ppShape5: TppShape;
    ppShape4: TppShape;
    ppShape3: TppShape;
    ppShape2: TppShape;
    ppShape1: TppShape;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppFooterBand1: TppFooterBand;
    dbgLog: TDBGrid;
    Panel2: TPanel;
    Panel1: TPanel;
    Label1: TLabel;
    lblResult: TLabel;
    BitBtn1: TBitBtn;
    BitBtn9: TBitBtn;
    DTPdate: TDateTimePicker;
    Btnlocate: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BtnlocateClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmServerLog: TfrmServerLog;

implementation

uses ServerDm;
{$R *.dfm}

procedure TfrmServerLog.BitBtn1Click(Sender: TObject);
begin
  inherited;
  if dmServer.Qtlog.Active then
  begin
    dmServer.Qtlog.DisableControls;
    ppreport1.Print;
    dmServer.Qtlog.EnableControls;
  end;
end;

procedure TfrmServerLog.BtnlocateClick(Sender: TObject);
var
  InTime: string;
begin
  InTime := FormatDateTime('yyyy.mm.dd', DTPdate.date);

  with dmServer.Qtlog do
  begin
    parameters.paramvalues['InTime'] := InTime;
    if Active then Requery else Open;
  end;
  lblResult.Caption := '共查找到' + inttostr(dmServer.Qtlog.RecordCount) + '记录！';
end;

procedure TfrmServerLog.FormCreate(Sender: TObject);
begin
  inherited;
  DTPdate.Date := now();
end;

procedure TfrmServerLog.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action := cafree;
  frmServerLog := nil;
end;

procedure TfrmServerLog.BitBtn9Click(Sender: TObject);
begin
  inherited;
  Close;
end;

end.