开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
MonForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

MonForm.pas：源码内容
  1. unit MonForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   IBSQLMonitor, StdCtrls, ComCtrls, ExtCtrls, IBServices, ToolWin;
  9. type
  10.   TForm1 = class(TForm)
  11.     IBSQLMonitor1: TIBSQLMonitor;
  12.     PageControl1: TPageControl;
  13.     TabSheet1: TTabSheet;
  14.     TabSheet2: TTabSheet;
  15.     TabSheet3: TTabSheet;
  16.     TabSheet4: TTabSheet;
  17.     RichEdit1: TRichEdit;
  18.     IBStatisticalService1: TIBStatisticalService;
  19.     IBServerProperties1: TIBServerProperties;
  20.     RichEdit2: TRichEdit;
  21.     ToolBar1: TToolBar;
  22.     ToolButton1: TToolButton;
  23.     ToolBar2: TToolBar;
  24.     ToolButton2: TToolButton;
  25.     RichEdit3: TRichEdit;
  26.     RichEdit4: TRichEdit;
  27.     ToolBar3: TToolBar;
  28.     ToolButton3: TToolButton;
  29.     IBSecurityService1: TIBSecurityService;
  30.     procedure IBSQLMonitor1SQL(EventText: String; EventTime: TDateTime);
  31.     procedure ToolButton1Click(Sender: TObject);
  32.     procedure ToolButton2Click(Sender: TObject);
  33.     procedure ToolButton3Click(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  40. var
  41.   Form1: TForm1;
  43. implementation
  45. {$R *.DFM}
  47. procedure TForm1.IBSQLMonitor1SQL(EventText: String;
  48.   EventTime: TDateTime);
  49. begin
  50.   if Assigned (RichEdit1) then
  51.     RichEdit1.Lines.Add (TimeToStr (EventTime) + ': ' + EventText);
  52. end;
  54. procedure TForm1.ToolButton1Click(Sender: TObject);
  55. begin
  56.   RichEdit2.Clear;
  57.   RichEdit2.Lines.Add ('Statistical Service -- ' + TimeToStr (Now));
  58.   IBStatisticalService1.ServiceStart;
  59.   while not IBStatisticalService1.EOF do
  60.     RichEdit2.Lines.Add (IBStatisticalService1.GetNextChunk);
  61. end;
  63. procedure TForm1.ToolButton2Click(Sender: TObject);
  64. var
  65.   i, n: Integer;
  66. begin
  67.   RichEdit3.Clear;
  68.   RichEdit3.Lines.Add ('Server Properties -- ' + TimeToStr (Now));
  69.   RichEdit3.Lines.Add ('');
  71.   IBServerProperties1.FetchDatabaseInfo;
  72.   n := IBServerProperties1.DatabaseInfo.NoOfDatabases;
  73.   RichEdit3.Lines.Add ('Databases: ' + IntToStr (n));
  74.   for i := 0 to n-1 do
  75.     RichEdit3.Lines.Add ('- ' + IBServerProperties1.DatabaseInfo.DbName[i]);
  76.   RichEdit3.Lines.Add ('');
  78.   IBServerProperties1.FetchConfigParams;
  79.   RichEdit3.Lines.Add ('Base Location: ' +
  80.     IBServerProperties1.ConfigParams.BaseLocation);
  81.   RichEdit3.Lines.Add ('');
  83.   IBServerProperties1.FetchVersionInfo;
  84.   with IBServerProperties1.VersionInfo do
  85.   begin
  86.     RichEdit3.Lines.Add ('Version: ' + ServerVersion);
  87.     RichEdit3.Lines.Add ('Implementation: ' + ServerImplementation);
  88.     RichEdit3.Lines.Add ('Service Version: ' + IntToStr (ServiceVersion));
  89.   end;
  90. end;
  92. procedure TForm1.ToolButton3Click(Sender: TObject);
  93. var
  94.   i: Integer;
  95. begin
  96.   RichEdit4.Clear;
  97.   // grab the users data
  98.   IBSecurityService1.DisplayUsers;
  99.   // display the name of each user
  100.   for i := 0 to IBSecurityService1.UserInfoCount - 1 do
  101.     with IBSecurityService1.UserInfo[i] do
  102.       RichEdit4.Lines.Add (Format (
  103.         'User: %s, Full Name: %s, Id: %d',
  104.         [UserName, FirstName + ' ' + LastName, UserId]));
  105. end;
  107. end.