workflag.pas

本系统为演示Delphi的功能而开发设计

unit WorkFlag;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids;

type
  TWorkFlagForm = class(TForm)
    ButtonOnline: TButton;
    ButtonCancel: TButton;
    DBGridOnLine: TDBGrid;
    ButtonHistory: TButton;
    DBGridHistory: TDBGrid;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure ButtonOnlineClick(Sender: TObject);
    procedure ButtonCancelClick(Sender: TObject);
    procedure ButtonHistoryClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WorkFlagForm: TWorkFlagForm;

implementation

uses HuaXia;

{$R *.DFM}


procedure TWorkFlagForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin { 不是在TDbgrid控件内}
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
 End;
end;

procedure TWorkFlagForm.ButtonOnlineClick(Sender: TObject);
begin
Try
WorkFlagForm.Caption:='在线用户列表';
HuaXiaData.TableFlag.Active:=True;
HuaXiaData.TableHistory.Active:=False;
DBGridOnLine.Visible:=True;
DBGridHistory.Visible:=False;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TWorkFlagForm.ButtonCancelClick(Sender: TObject);
begin
Try
HuaXiaData.TableFlag.Active:=False;
HuaXiaData.TableHistory.Active:=False;
Close;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TWorkFlagForm.ButtonHistoryClick(Sender: TObject);
begin
Try
WorkFlagForm.Caption:='用户登录日志列表';
HuaXiaData.TableFlag.Active:=False;
HuaXiaData.TableHistory.Active:=True;
DBGridOnLine.Visible:=False;
DBGridHistory.Visible:=True;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

procedure TWorkFlagForm.FormActivate(Sender: TObject);
begin
Try
WorkFlagForm.Caption:='在线用户列表';
HuaXiaData.TableFlag.Active:=True;
HuaXiaData.TableHistory.Active:=False;
DBGridOnLine.Visible:=True;
DBGridHistory.Visible:=False;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Exit;
      End;
End;
end;

end.