store1.pas

来自「公司ERP系统」· PAS 代码 · 共 41 行

unit Store1;

interface

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

type
  TStore1Form = class(TForm)
    Button1: TButton;
    sysdateTable: TTable;
    StoredProc1: TStoredProc;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Store1Form: TStore1Form;

implementation

{$R *.DFM}

procedure TStore1Form.Button1Click(Sender: TObject);
//var vDate : TDateTime;
begin
  StoredProc1.ExecProc;
  //vDate := StoredProc1.Params[0].AsDateTime;
  sysDateTable.Close;
  sysDateTable.Open;
end;

end.