ucheckid.pas

来自「行业应急系统 包括: 应急系统（待遇核发） 发放系统 开」· PAS 代码 · 共 61 行

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.