userqueryu.pas

一个图书管理系统

////////////////////////////////
// 单元名：UserQueryU         //
// 窗体名：UserQueryF         //
// 单元功能：用户查询窗体     //
// 作者：刘波                 //
////////////////////////////////
unit UserQueryU;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls,ADOdb,db;

type
  TUserQueryF = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    ListView1: TListView;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    TabSheet2: TTabSheet;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    BitBtn4: TBitBtn;
    GroupBox3: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    GroupBox4: TGroupBox;
    BitBtn5: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label2: TLabel;
    Label3: TLabel;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;
  public
    { Public declarations }
    procedure InitData;
  end;

var
  UserQueryF: TUserQueryF;

implementation

uses DataModule,MainU, ExportExcelU, BookQueryU,ShareU;
{$R *.dfm}
/////////////////////////////////////////////////////////////////////////////
procedure TUserQueryF.WMNCPaint(var Msg: TWMNCPaint);
begin
  inherited;
  draw(UserQueryF);
end;

procedure TUserQueryF.InitData;
begin
    dm.ADODataSetUserQuery.First;
    while not dm.ADODataSetUserQuery.Eof do
    begin
        with listview1.Items.Add do
        begin
            caption:=dm.ADODataSetUserQuery.FieldValues['username'];
            subitems.Add(dm.ADODataSetUserQuery.FieldValues['uptime']);
            subitems.Add(dm.ADODataSetUserQuery.FieldValues['downtime']);
        end;
        dm.ADODataSetUserQuery.Next;
    end;
end;
//////////////////////////////////////////////////////////////////////////////
procedure TUserQueryF.BitBtn3Click(Sender: TObject);
begin
    close;
end;
///////////////////////////////////////////////////////////////////////////////
procedure TUserQueryF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    dm.ADODataSetUserQuery.Close;
    dm.ADODataSetUserQuery.Connection:=nil;
    USerqueryF:=nil;
    action:=cafree;
end;
//////////////////////////////////////////////////////////////////////////////
procedure TUserQueryF.FormCreate(Sender: TObject);
begin
    caption:='图书管理系统--用户操作查询';
    Icon:=mainf.Icon;
    if  dm.ADODataSetUserQuery.Connection<>nil then
        dm.ADODataSetUserQuery.Connection:=nil;
    dm.ADODataSetUserQuery.Connection:=dm.ADOConnection1;
    dm.ADODataSetUserQuery.Close;
    dm.ADODataSetUserQuery.CommandText:='select * from user_loginlog';
    dm.ADODataSetUserQuery.Open;
    initdata;
end;
//////////////////////////////////////////////////////////////////////////////
procedure TUserQueryF.BitBtn5Click(Sender: TObject);
var
  temp:string;
begin
    if radiobutton1.Checked then
    begin
       temp :='select * from user_loginlog '+
                             'where username like ''%'+trim(edit1.Text)+'%''';
    end
    else if radiobutton2.Checked then
    begin
       temp :='select * from user_loginlog '+
       'where uptime between '''+datetimetostr(datetimepicker1.Date)+
       ''' and '''+datetimetostr(datetimepicker2.Date)+'''';
    end;
    dm.ADODataSetUserQuery.Close;
    dm.ADODataSetUserQuery.CommandText:=temp;
    dm.ADODataSetUserQuery.Open;
    listview1.Items.Clear;
    initdata;
end;
////////////////////////////////////////////////////////////////////////////////
procedure TUserQueryF.RadioButton1Click(Sender: TObject);
begin
    groupbox4.Visible:=false;
    groupbox2.Visible:=true;
    edit1.SetFocus;
    edit1.SelectAll;
end;
///////////////////////////////////////////////////////////////////////////////
procedure TUserQueryF.RadioButton2Click(Sender: TObject);
begin
    groupbox2.Visible:=false;
    groupbox4.Visible:=true;
end;
///////////////////////////////////////////////////////////////////////////////////
procedure TUserQueryF.BitBtn1Click(Sender: TObject);
begin
    if tabsheet1.Showing=true then
        ExportExcelListView:=listview1.Name;

    OpenForm(TExportExcelF,ExportExcelF,BookQueryF,true);
end;
////////////////////////////////////////////////////////////////////////////
procedure TUserQueryF.DateTimePicker1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
    if (key=vk_down) or (key=13) then
      selectnext(activecontrol,true,true)
    else
      key:=0;
end;
//////////////////////////////////////////////////////////////////////////////
procedure TUserQueryF.DateTimePicker2KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
    if key=13 then BitBtn5Click(Sender);
end;

end.