unitrecordmanage.pas

来自「在delphi下基于MapX5.0的GIS程序」· PAS 代码 · 共 69 行

unit UnitRecordManage;

interface

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

type
  TFrmRecordManage = class(TForm)
    DB: TDBGrid;
    DS1: TDataSource;
    BBtnRefresh: TBitBtn;
    BBtnClose: TBitBtn;
    BBtnDelete: TBitBtn;
    procedure BBtnRefreshClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BBtnDeleteClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmRecordManage: TFrmRecordManage;

implementation

uses UnitDataModule;

{$R *.dfm}

procedure TFrmRecordManage.BBtnRefreshClick(Sender: TObject);
begin 
  DM.ADOQueryRecord.Close;
  DM.ADOQueryRecord.SQL.Clear;
  SQLString := 'SELECT *' + #13;
  SQLString := SQLString + 'FROM Record'+ #13;
  DM.ADOQueryRecord.SQL.Add(SQLString);
  DM.ADOQueryRecord.Open;
end;

procedure TFrmRecordManage.FormCreate(Sender: TObject);
begin
  DB.Columns[0].FieldName := 'UserName';
  DB.Columns[1].FieldName := 'Levels';
  DB.Columns[2].FieldName := 'UserIP';
  DB.Columns[3].FieldName := 'Dates';
  DB.Columns[4].FieldName := 'ComeTime';
  DB.Columns[5].FieldName := 'GoTime';
  DB.Columns[6].FieldName := 'Connected';
  DB.Columns[7].FieldName := 'SocketID';
  DB.Columns[8].FieldName := 'Connecting';
end;

procedure TFrmRecordManage.FormShow(Sender: TObject);
begin
  BBtnRefreshClick(Sender);
end;

procedure TFrmRecordManage.BBtnDeleteClick(Sender: TObject);
begin
  DM.ADOQueryRecord.Delete;
end;

end.