Delphi ADOQuery procedure TForm1.Button1Click(Sender: TObject); var A: Array of String;//定义动态数组 Index: Integer;//定义数组下标变量 ADOQuery:TADOQuery; begin ADOQuery:=TADOQuery.create; ADOQuery.SQL.Clear; ADOQuery.SQL.Add('Select B from A'); ADOQuery.Open; Se
procedure TMainFrm.Timer1Timer(Sender: TObject); var systemtime:Tsystemtime; dt:TDateTime; begin L_DateTime.Caption:=FormatDateTime('YYYY-MM-DD HH:SS',Now); //显示当前时间 MainFrm.Caption:=IntToStr(Timer1.Tag); timer1.tag:=timer1.tag+1; if Timer1
今天看了多年前的一个帖子,发现回答不合理,有些还将其归为delphi的bug.其实主要是没有灵活应用参数. ADOQUERY查询时,这样不行,结果不正确. WITH ADOQUERY1 DO BEGIN CLOSE;SQL.CLEAR; SQL.ADD('SELECT * FROM TABLE1 WHERE TA001=:MONTH AND TA002=:MONTH'); PARAMETERS.ParamByName('MONTH').Value :=EDIT1.TEXT; OP