unit1.pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, mainboot,StdCtrls, Buttons,Unit3, Menus,ToolWin, ComCtrls,
  change_pasw,ExtCtrls, DB, DBTables;

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    gfdg1: TMenuItem;
    fds1: TMenuItem;
    fdsf1: TMenuItem;
    dfdsa1: TMenuItem;
    N5: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    dsfa1: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    Panel1: TPanel;
    Query1: TQuery;
    procedure N5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure fdsf1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
  private
  procedure wmmove(var msg:Tmessage); message wm_move;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation

{$R *.dfm}

procedure Tmain.wmmove(var msg:Tmessage) ;
begin
inherited;
if main.Left<20 then
main.left:=0;
if main.top<20 then
main.top:=0;
if (screen.width-main.left-main.width)<20 then
main.left:=screen.width-main.width;
if (screen.height-main.top-main.height)<20 then
main.top:=screen.height-main.height;
end;
procedure Tmain.N5Click(Sender: TObject);
begin
close;
end;

procedure Tmain.SpeedButton1Click(Sender: TObject);
begin
list.Visible:=true;
end;

procedure Tmain.SpeedButton3Click(Sender: TObject);
begin
list.SpeedButton3.Click;
end;

procedure Tmain.SpeedButton6Click(Sender: TObject);
begin
list.SpeedButton1.click;
end;

procedure Tmain.SpeedButton7Click(Sender: TObject);
begin
list.SpeedButton4.Click;
end;

procedure Tmain.SpeedButton2Click(Sender: TObject);
begin
list.SpeedButton5.Click;
end;

procedure Tmain.N9Click(Sender: TObject);
begin
list.Visible:=true;
end;

procedure Tmain.N18Click(Sender: TObject);
var
htoken:thandle;
tkp:token_privileges;
rr:dword;
begin
if messageDlg('确认要关闭计算机吗?',Mtconfirmation,[mbyes,mbno],0)=mryes then
begin
openprocesstoken(getcurrentprocess(),token_adjust_privileges or token_query,htoken);
lookupprivilegevalue(nil,'seshutdownprivilege',tkp.privileges[0].luid);
//设定权限1
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Attributes:=se_privilege_enabled;
//得到关机权限
adjustTokenprivileges(hToken,false,tkp,0,nil,rr);
//关闭计算机
ExitwindowsEx(EWX_SHUTDOWN or ewx_poweroff,0)
end;
end;
procedure Tmain.N19Click(Sender: TObject);
var
htoken:thandle;
tkp:token_privileges;
rr:dword;
begin
if messageDlg('确认要重新启动计算机吗?',Mtconfirmation,[mbyes,mbno],0)=mryes then
begin
openprocesstoken(getcurrentprocess(),token_adjust_privileges or token_query,htoken);
lookupprivilegevalue(nil,'seshutdownprivilege',tkp.privileges[0].luid);
//设定权限1
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Attributes:=se_privilege_enabled;
//得到关机权限
adjustTokenprivileges(hToken,false,tkp,0,nil,rr);
//重启计算机
ExitwindowsEx(EWX_REBOOT,0)
end;
end;
procedure Tmain.N20Click(Sender: TObject);
begin
main.FormStyle:=fsStayOnTop;
end;

procedure Tmain.N21Click(Sender: TObject);
begin
main.FormStyle:=fsNormal;
end;

procedure Tmain.fdsf1Click(Sender: TObject);
begin
change_psw.ShowModal;
end;

procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
with Query1 do
  begin
  close;
  SQL.Clear;
  SQL.Add('update login_log set 下机日期=:str1 where 下机时间=:str3');
  SQL.Add('update login_log set 下机时间=:str2 where 下机时间=:str3');
  parambyName('str1').AsString:=dateTostr(now);
  parambyName('str2').AsString:=timeTostr(now);
  parambyName('str3').AsString:='0';
  ExecSQL;
  end;
application.Terminate;
end;

procedure Tmain.N25Click(Sender: TObject);
begin
with Query1 do
  begin
  close;
  SQL.Clear;
  SQL.Add('delete from login_log where 下机时间!=:str1');
  parambyName('str1').AsString:='0';
  ExecSQL;
  messagebeep(0);
  showmessage('删除成功!');
  exit;
  end;
end;

procedure Tmain.N26Click(Sender: TObject);
begin
with Query1 do
  begin
  close;
  SQL.Clear;
  SQL.Add('delete from os_log where 下机时间!=:str2');
  parambyName('str2').AsString:='0';
  ExecSQL;
  messagebeep(0);
  showmessage('删除成功!');
  exit;
  end;
end;

procedure Tmain.N27Click(Sender: TObject);
begin
with Query1 do
  begin
  close;
  SQL.Clear;
  SQL.Add('delete from login_log where 下机时间!=:str1');
  SQL.Add('delete from os_log where 下机时间!=:str2');
  ExecSQL;
  messagebeep(0);
  showmessage('删除成功!');
  exit;
  end;
end;

procedure Tmain.N15Click(Sender: TObject);
begin
list.SpeedButton6.Click;
end;

procedure Tmain.N16Click(Sender: TObject);
begin
list.SpeedButton7.Click;
end;

procedure Tmain.N17Click(Sender: TObject);
begin
list.SpeedButton8.Click;
end;

end.