a天堂国产 I 久久图片 I 91精品高清 I 亚洲人人玩人人添人人 I 婷婷伊人五月色噜噜精品一区 I 亚洲第一页夜 I 91日韩精品视频 I 无码人妻在线一区二区三区免费 I www.五月婷婷.com I 国产精品久久久久亚洲影视 I 91久久精品一二三 I 国产ts一区 I 91精品乱码久久蜜桃 I 成人免费观看高清 I 久久久久久国产精品免费无码 I 久久免费少妇高潮99精品 I 国产探花在线免费观看 I 亚洲精品少妇 I 亚洲综合成人亚洲 I 欧美区一区二区 I 手机福利视频 I 亚洲欧美综合另类自拍 I 久久精品视频免费播放 I 亚洲精品久久 I av免费在线免费观看 I 亚洲热综合 I 中文字幕无码专区人妻制服 I 午夜免费一区二区 I 在线亚洲精品国产一区麻豆 I 久久精品免费在线观看 I 全国最大成人网 I 亚洲欧美经典视频 I 手机av在线看 I 偷拍视频一区二区三区 I 吃奶摸下激烈视频学生软件

1，ADOConnection和ADOTable在delphi中的使用

ADOConnection和ADOTable在delphi中像許多書中教的那樣設置好連接上數據庫（我用的SQLServer），運行沒有問題。然后我修改，目的是可以修改連接數據庫而不用在delphi中修改ADOConnection的ConnectionString屬性，還不出現連接對話框。

修改步驟：將LoginPrompt設置為false，將ConnectionString屬性清空，添加連接代碼

conStr:=\'Provider=SQLOLEDB.1;Password=1982072019;User ID=sa;Initial Catalog=StorageManagement;Data Source=10.16.99.175\';
  try
    loginForm.tempADOConnection.ConnectionString :=conStr;
    loginForm.tempADOConnection.Connected := true;
  except
    messagedlg(\'數據庫連接有誤!!請檢查DataConfig.XML\',mtConfirmation,[mbOk],0);
    Application.Terminate;
  end;

這樣程序運行起來，連接數據庫是沒有問題的。但出現的問題是在dlephi中ADOTable控件是不能連接表的，因為ConnectionString屬性沒有值。報錯為“無效的授權說明”。如何既能在delphi中使用ADOConnection和ADOTable控件，又可以不出現那個討厭的連接對話框。

2，在delphi中使用sql語句。

因為sql語句中給字符串賦值需要用雙引號，而delphi中用單引號括起字符串，我使用遇到了一些問題。我試驗的結果是delphi中用兩個單引號代替sql語句中的雙引號。不知道對不對？

具體如何使用，我還是不太清楚。

3，在delphi 7.0中使用ADOQuery的返回結果，書中介紹使用Params[\'xxxx\'].AsString;

我使用后報錯，但有一個光盤的程序這樣使用沒有報錯。我使用的是Parameters[\'xxxx\']，也使用不了.AsString

4，原代碼：
====================================================================
if canInsert then
  begin
    with allDataModule.AQ_OtherMaterielOut do
    begin
      Close;
      SQL.Clear;
      SQL.Text:=\'insert otherMaterielOut(materielID,amount) values (:insertID,:insertAmount,)\';
      Parameters[0].Value:=myMateriel;
      Parameters[1].Value:=myAmount; 
      ExecSQL;
    end;
    with allDataModule.AQ_OtherMaterielStock do
    begin
      Close;
      SQL.Clear;
      SQL.Text:=\'update otherMaterielStock set amount=amount-:updateAmount where materielID=:updateID\';
      Parameters[0].Value:=myAmount;
      Parameters[1].Value:=myMateriel;
      ExecSQL;
    end;
    materielOutForm.Close;
  end;

在這段代碼之后
with allDataModule.AQ_OtherMaterielOut do
    begin
      Close;
      SQL.Clear;
      SQL.Text:=\'update otherMaterielStock set amount=amount-:updateAmount where materielID=:updateID\';
      Parameters[0].Value:=myAmount;
      Parameters[1].Value:=myMateriel;
      ExecSQL;
    end;

不能使用allDataModule自動顯示可以使用的控件列表功能，但我強加上后面的代碼仍然可以使用。怎么回事？