七月 2018
« 五月    
 1
2345678
9101112131415
16171819202122
23242526272829
3031  

彙整

DELPHI 7 使用ADO元件寫入資料庫強制四捨五入小數到第四位問題

DELPHI 7 使用ADO元件寫入資料庫強制四捨五入小數到第四位問題

parameters.parambyname(‘tmpprice’).datatype:=ftFloat;   <==寫入資料前先將欄位設定成 Float 型態即可解決此問題。

參考:http://jzinfo.javaeye.com/blog/432853

var  
    adoquery1:Tadoquery;  
begin  
    adoquery1:=Tadoquery.create(nil);  
    try  
       if not DM.adonconnection1.connected then  
           DM.adoconnection1.connected:=true;  
       adoquery1.connection:=DM.adoconnection1;  
       adoquery1.enableBCD:=False;       //禁用bcd类型  
       with adoquery1 do  
       begin  
           close;  
           sql.clear;  
           sql.add(‘insert into materialInfo values(:tmppno,:tmpvendor,:tmpdesc,:tmpprice)’);  
           parameters.parambyname(‘tmppno’).value:=trim(edit1.text);  
           parameters.parambyname(‘tmpvendor’).value:=trim(edit2.text);  
           parameters.parambyname(‘tmpdesc’).value:=trim(edit3.text);  
           parameters.parambyname(‘tmpprice’).datatype:=ftFloat;       //设置下数据类型  
           parameters.parambyname(‘tmpprice’).value:=trim(edit4.text);  
           execsql;  
       end;   […]

DELPHI使用ADOQuery的動態參數注意事項

WGLProcstat2Query.Close; WGLProcstat2Query.SQL.Clear; WGLProcstat2Query.SQL.Add(‘select * from dbo.gdsinfomt, dbo.procstat’); WGLProcstat2Query.SQL.Add(‘where ((dbo.gdsinfomt.gdsno=:E_gdsno) and (dbo.procstat.gdsno=:E_gdsno))’); //Roger 20091201 動態參數若使用相同的參數名稱兩個以上,請改用陣列方式,並把每個參數都當成獨立參數 WGLProcstat2Query.Parameters[0].Value:= Trim(GdsNoEdit.Text); WGLProcstat2Query.Parameters[1].Value:= Trim(GdsNoEdit.Text); WGLProcstat2Query.Open; […]

MySQL 的備份及復原

MYSQL 資料庫 備份 […]

使用DELPHI連線ACCESS資料庫

建立ACCESS資料庫

檔名123.mdb,資料表格如下:

隨便手動給兩三筆測試資料。

 

將資料庫設定密碼123:

須使用開啟舊檔方式開起獨占模式,才可設定密碼。

開啟DELPHI,在Form表單上拉 TADOConnection 元件,並點選ConnectionString設定連線資料

選 Jet 4.0 OLE DB Provider

  資料庫可以設檔名即可,不用設定目錄,但是必需要跟應用程式執行檔放在同個目錄下。

設定連線密碼。

可按測試連線,若可正常連線即可看到成訊息。

 

Delphi簡易連線測試:

拉入元件

DBGrid1:TDBGrid

ADOQuery1:TADOQuery

DataSource1:TDataSource

 

設定ADOQuery1:

將Connection屬性設為ADOConnection1(TADOConnection元件)

 

設定DataSource1:

將DataSet屬性設為ADOQuery1

 

設定DBGrid1資料表:

點選DBGrid1元件,將DataSource屬性設定為DataSource1

 

程式碼撰寫測試連線資料庫:

讓程式視窗建立時就順便執行SQL查詢

procedure TForm1.FormCreate(Sender: TObject); begin   ADOQuery1.Close;   ADOQuery1.SQL.Clear;   ADOQuery1.SQL.Add(‘select * from userdata’);   ADOQuery1.Open; end;

 

執行程式會要求輸入資料庫帳號密碼的問題:

將ADOConnection1 […]