ucheckid.pas

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

unit uCheckID;

interface

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

type
  TfrmCheckID = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    Panel1: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure gpcheckIDCode(sIDCode: string);

var
  frmCheckID: TfrmCheckID;

implementation

uses dMain;

{$R *.DFM}

procedure gpcheckIDCode(sIDCode: string);
begin
  with TQuery.Create(nil) do
  try
    DataBaseName := dfmMain.dbsMain.DataBaseName;
    SQL.Add('SELECT COUNT(*) FROM tRYJBXX WHERE SFZH=''' + sIDCode + '''');
    Open;

    if Fields[0].AsInteger > 0 then
    begin
      Close;
      with TfrmCheckID.Create(nil) do
      try
        Query1.DataBaseName := dfmMain.dbsMain.DataBaseName;
        Query1.ParamByName('SFZH').AsString := sIDCode;
        Query1.Open;
        ShowModal;
      finally
        Free;
      end;
    end;
  finally
    Close;
    Free;
  end;

end;
end.