enter_log.pas

此为 汽车维修管理系统 采用ODBC驱动 控制面板里设置 数据库名:qcwxgl 说明：汽车维修管理 SQL服务器名:yangfeng 默认数据库名:qcwxgl

unit enter_log;

interface

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

type
  Tlogin_log = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    DataSource1: TDataSource;
    Bevel1: TBevel;
    Bevel2: TBevel;
    DBGrid1: TDBGrid;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login_log: Tlogin_log;

implementation

{$R *.dfm}

procedure Tlogin_log.BitBtn2Click(Sender: TObject);
begin
if edit1.Text='' then
begin
messagebeep(0);
showmessage('请输入查询值!');
edit1.SetFocus;
exit;
end;
with Query1 do
 begin
 close;
 SQL.Clear;
 SQL.Add('select* from login_log where 操作员=:str1');
 parambyName('str1').AsString:=Trim(edit1.Text);
 prepare;
 open;
 end;
if Query1.Eof then
 begin
 messagebeep(0);
 showmessage('没有此相关记录!');
 edit1.SetFocus;
 exit;
 end
end;

procedure Tlogin_log.BitBtn1Click(Sender: TObject);
begin
with Query1 do
 begin
 close;
 SQL.Clear;
 SQL.Add('select* from login_log where 登陆日期=:str1');
 parambyName('str1').AsString:=dateToStr(DateTimePicker1.Date);
 prepare;
 open;
 end;
if Query1.Eof then
 begin
 messagebeep(0);
 showmessage('没有此相关记录!');
 exit;
 end
end;

end.