apiqueryut.pas

一个用于查API函数的小工具

unit APIQueryUt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, ComCtrls, Db, DBTables, ADODB, ExtCtrls;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid2: TDBGrid;
    Panel1: TPanel;
    Edit2: TEdit;
    Panel2: TPanel;
    Edit1: TEdit;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses detail;
const
  sign1: boolean = true;
  sign2: boolean = true;
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'
                                    +'User ID=Admin;Data Source=.\WinApi.mdb;'
                                    +'Mode=Share Deny None;Extended Properties="";'
                                    +'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'
                                    +'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;'
                                    +'Jet OLEDB:Database Locking Mode=1;'
                                    +'Jet OLEDB:Global Partial Bulk Ops=2;'
                                    +'Jet OLEDB:Global Bulk Transactions=1;'
                                    +'Jet OLEDB:New Database Password="";'
                                    +'Jet OLEDB:Create System Database=False;'
                                    +'Jet OLEDB:Encrypt Database=False;'
                                    +'Jet OLEDB:Don''t Copy Locale on Compact=False;'
                                    +'Jet OLEDB:Compact Without Replica Repair=False;'
                                    +'Jet OLEDB:SFP=False';
  ADOConnection1.Open;
  ADOQuery1.Open;
  ADOQuery2.Open;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  if sign1 then
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Text := 'select Api函数名, 函数说明, WIN16可用, WIN95可用, WINNT可用 from api where Api函数名 like ''%'+trim(edit2.Text)+'%''';
    ADOQuery1.Open;
  end;
  sign1:= true;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if sign2 then
  begin
    ADOQuery2.Close;
    ADOQuery2.SQL.Text := 'select Api函数名, 函数说明, WIN16可用, WIN95可用, WINNT可用 from api where 函数说明 like ''%'+trim(edit1.Text)+'%''';
    ADOQuery2.Open;
  end;
  sign2 := true;
end;

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
  sign1 := false;
  edit2.Text:=dbgrid2.Columns.Grid.Fields[0].AsString;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
   sign2 := false;
   edit1.Text:=dbgrid1.Columns.Grid.Fields[1].AsString;
end;

procedure TForm1.DBGrid2DblClick(Sender: TObject);
begin
  application.CreateForm(TForm2,form2);
  form2.DBEdit1.DataSource :=DataSource1;
  form2.DBEdit2.DataSource :=DataSource1;
  form2.DBEdit3.DataSource :=DataSource1;
  form2.DBEdit4.DataSource :=DataSource1;
  form2.DBEdit5.DataSource :=DataSource1;

  form2.DBEdit1.DataField := 'Api函数名';
  form2.DBEdit2.DataField := '函数说明';
  form2.DBEdit3.DataField := 'WIN16可用';
  form2.DBEdit4.DataField := 'WIN95可用';
  form2.DBEdit5.DataField := 'WINNT可用';
  form2.ShowModal;
end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  application.CreateForm(TForm2,form2);
  form2.DBEdit1.DataSource :=DataSource2;
  form2.DBEdit2.DataSource :=DataSource2;
  form2.DBEdit3.DataSource :=DataSource2;
  form2.DBEdit4.DataSource :=DataSource2;
  form2.DBEdit5.DataSource :=DataSource2;

  form2.DBEdit1.DataField := 'Api函数名';
  form2.DBEdit2.DataField := '函数说明';
  form2.DBEdit3.DataField := 'WIN16可用';
  form2.DBEdit4.DataField := 'WIN95可用';
  form2.DBEdit5.DataField := 'WINNT可用';
  form2.ShowModal;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  edit2.SetFocus;
end;

end.