怎么样把Sql查询语句存到 本地盘D:\111.txt文件中?

Question

begin
  if dbeCustomerCode.Text = '' then
  begin
    Application.MessageBox('请选择客户！', '提示', MB_OK + mb_IconInformation);
    Exit;
  end;
  SqlStr := 'Select tOrderSumDetail.SysID, tOrderSumDetail.StyleCode,tOrderSumDetail.ColorCode, '
    + ' tOrderSumDetail.Price,tOrderSumDetail.Qty,tOrderSumDetail.AssistantQty '
    + ' From tOrderSum'
    + ' INNER Join tOrderSumDetail On tOrderSum.ItemID = tOrderSumDetail.ItemID';
  WhereStr := ' Where 1=1 And tOrderSum.ItemState = 1 And  tOrderSum.BillDate >=''' + DateToStr(dtpStartDateS.Date)
    + ''' And tOrderSum.BillDate <= ''' + DateToStr(dtpEndDateS.Date) + '''';
  if dbeCustomerCode.Text <> '' then
    WhereStr := WhereStr + ' And tOrderSum.CustomerCode = ''' + Trim(dbeCustomerCode.Text) + '''';
  if Trim(edtStyleCode.Text) <> '' then
    WhereStr := WhereStr + ' And tOrderSumDetail.StyleCode Like ''%' + Trim(edtStyleCode.Text) + '%''';
  if Trim(edtColor.Text) <> '' then
    WhereStr := WhereStr + ' And tOrderSumDetail.ColorCode Like ''%' + Trim(edtColor.Text) + '%''';
  SqlStr := SqlStr + WhereStr;
  MOpenSQL(SqlStr, qryOrderSearch);
end;

Answer 1

读写文本文件,或ini文件,不知道你是不是有特殊要求

Answer 2

那你就存吧uses IniFiles
var
  ini:TIniFile;
begin
  ini := TIniFile.Create('c:\sql.ini');
  ini.WriteString('SQL','Text','sql语句');
end;

Answer 3

var
  ASqlStr :string;
  AStringList :TStrings;
begin
  ASqlStr :='select * from test';
  AStringList :=TStringList.Create;
  try
    AStringList.Add(ASqlStr);
    AStringList.SaveToFile('D:\a.txt');
  finally
    AStringList.Free;
  end;

Answer 4

方法有n种，常用的有textfile,TStringList,Tinifile(不推荐使用)等等