u_operatlog_query.pas

这是一个用条码录入的数据的进销存(只对成品）---做童装的

unit U_OperatLog_query;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_base, WinSkinData, ComCtrls, StdCtrls, Buttons;

type
  TF_operateLog_Query = class(TF_base)
    Label1: TLabel;
    Begintime: TDateTimePicker;
    Endtime: TDateTimePicker;
    Label2: TLabel;
    Label3: TLabel;
    EUserid: TEdit;
    Label4: TLabel;
    EUsername: TEdit;
    Label5: TLabel;
    EOperate: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label6: TLabel;
    EFormname: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_operateLog_Query: TF_operateLog_Query;

implementation

uses U_OperateLog, U_Function, U_DM;

{$R *.dfm}

procedure TF_operateLog_Query.FormCreate(Sender: TObject);
begin
  inherited;
Begintime.Date:=date-7;
EndTime.Date:=date;
end;

procedure TF_operateLog_Query.BitBtn1Click(Sender: TObject);
var sqlStr:String;
begin
  inherited;
   SqlStr:='Select * from SoperateLog where 1=1 ';
   SqlStr:=SqlStr+' and Convert(Varchar(10),Operatedate,120)>='''+formatdatetime('YYYY-MM-DD',Begintime.Date)+'''';
   SqlStr:=SqlStr+' and Convert(Varchar(10),Operatedate,120)<='''+formatdatetime('YYYY-MM-DD',Endtime.Date)+'''';
   if mytrim(euserid.Text)<>'' then
   SqlStr:=SqlStr+' and Userid like ''%'+MYTrim(Euserid.Text)+'%''';
   if MyTrim(Eusername.Text)<>'' then
   SqlStr:=SqlStr+' and Username like ''%'+myTrim(Eusername.Text)+'%''';
   if myTrim(EOperate.Text)<>'' then
   SqlStr:=SqlStr+' and Operate like ''%'+mytrim(Eoperate.Text)+'%''';
   if mytrim(EFormname.Text )<>'' then
   SqlStr:=SqlStr+' and Formname like ''%'+MyTrim(Eformname.Text)+'%''';
   opensql(F_Dm.Ado_OperateLog ,Sqlstr);
   Close;
end;

procedure TF_operateLog_Query.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
action:=Cafree;
end;

end.