u_report_data.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_Report_Data;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TF_Report_Data = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    ListBox1: TListBox;
    GroupBox2: TGroupBox;
    ListBox2: TListBox;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    ScrollBox1: TScrollBox;
    procedure FormShow(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Report_Data: TF_Report_Data;

implementation

uses U_data;

{$R *.dfm}

procedure TF_Report_Data.FormShow(Sender: TObject);
begin
with DM do
 Begin
   QTemp.Close;
   QTemp.CommandText:='exec sp_databases';
   QTemp.Open;
   with listbox1 do
   Begin
      items.Clear;
      while not QTemp.Eof do
        Begin
           Items.Add(QTemp.fieldbyname('Database_name').AsString);
           QTemp.Next;
        end;
   end;
   ADOCon.GetTableNames(listbox2.Items, False) ;
 end;

end;

procedure TF_Report_Data.PageControl1Change(Sender: TObject);
var i:integer;
begin
if pagecontrol1.ActivePageIndex =1 then
Begin
 for i:=0 to listbox2.SelCount-1 do
 Begin
  //  
 end;
end;
end;

initialization
  RegisterClass(TF_Report_Data);
end.