countpas.pas

来自「DELPHI 编写个人工作计划事务管理软件」· PAS 代码 · 共 63 行

unit Countpas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, DBGrids, DB, ADODB, DBCtrls;

type
  TShowForm = class(TForm)
    DataSource: TDataSource;
    DBGrid1: TDBGrid;
    SADOQuery: TADOQuery;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Function ShowSearchDate(SSD_SqlStr : String) : Boolean;
  public
    { Public declarations }
  end;

var
  ShowForm: TShowForm;

implementation

uses Share_Date;
{$R *.dfm}


Function TShowForm.ShowSearchDate(SSD_SqlStr : String) : Boolean;
begin
  Try
    With SADOQuery do begin
      Close;
      ConnectionString := Format(CONNSTRING, ['sa', 'WorkPart', '222.222.222.3']);
      SQL.Clear;
      SQL.Add(SSD_SqlStr);
      PrePared;
      Open;
    end;
    Result := TRUE;
  Except
    Result := FALSE;
    Abort();
  end;
end;

//////////////////////////////////////////
//////////////////////////////////////////
//////////////////////////////////////////

procedure TShowForm.FormCreate(Sender: TObject);
var FC_CheckOk : Boolean;
begin
  FC_CheckOk := ShowSearchDate(Share_SqlStr);
  if FC_CheckOk = FALSE then begin
    Application.MessageBox('统计时出错,请检查!!!', '警告', MB_OK);
  end;
end;

end.