type TForm1 = class(TForm) Button1: TButton; Database1: TDatabase; DataSource1: TDataSource; Query1: TQuery; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin with query1 do begin close; sql.Clear; sql.Add('select * from xkz where 受理日期=:p0'); parambyname('p0').Value:='2003-9-1'; open; end; end;
procedure TForm1.Button1Click(Sender: TObject); begin With ADOQuery1 do begin Close; Sql.Clear; Sql.Add('Select * from HIPS_TAB_USER Where HIPS_FLD_TIME=:P0'); Parameters.ParamByName('P0').Value:='2003-9-6 22:00:01'; Open;