frm_userinfo.pas

是一个用delphi设计的考勤系统

unit Frm_UserInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModalForm, ADODB, DB, Grids, DBGrids, Menus, StdCtrls, ExtCtrls;

type
  TUserInfo = class(TMyModalForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQry: TADOQuery;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserInfo: TUserInfo;

implementation
uses
   Dm_DataModal;
{$R *.dfm}

procedure TUserInfo.FormActivate(Sender: TObject);
begin
  inherited;
  With Adoqry do
  begin
     Sql.Clear ;
     Sql.Add('select * from Usr_info');
     open; 
  end;
end;

end.