這是我的程式, compile時出現 imcompatible type or invalid type transfer 請高手幫忙 錯誤出現的地方 connection := datamodule1.ADOConnection1; ---出現address錯誤 sql.Text := 'select DebtID from CrewDebt_Master where DebtID like ''%' str1 '%''' ; open; last; str:=fields[0].Value;--invalid type transfer str3:=copy(str,4,4);//取年月 str2:=copy(str,8,3); //取流水號 下面是完整程式 ******************************************* //自動產生借支單單號 function Tcrewdebtform.getdebtID:string; //自動產生借支單單號 var tempQuery : Tadoquery; str,str1,str2,str3 : string; begin tempQuery := Tadoquery.Create(nil); //如果是今天的話 {if Datetimepicker1.Date = getSQLServerDate then begin with tempQuery do begin connection :=datamodule1.ADOConnection1; sql.Text:='select DebtID from CrewDebt_Master order by DebtID' ; open; // 打開資料庫執行SQL 指令 // last; // 打開資料庫之後到最後一筆 //str:=fields[0].Value; //因為DebtID 在table得第一個欄位 // str3:=copy(str,4,4); //因為DebtID前三碼是英文字母, 從第四碼開始,有七個數字 // str2:=copy(str,8,3); //取後面的流水號 // if length(inttostr(monthof(getSQLServerDate))) = 1 then // legnth 只有計算string 長度, 無法計算integer長度 //如果月份長度等於1 // str1:=copy(inttostr(yearof(getSQLServerDate)),3,2) '0' inttostr(monthof(getSQLServerDate))//所以必須先把int轉成str, 另外 monthof and yearof 是 word 型態,涵蓋在integer // else str1 :=copy(inttostr(yearof(getSQLServerDate)),3,2) inttostr(monthof(getSQLServerDate)); // monthof(date) 選出日期的月份, 要use --DateUtils //str1 是 今天日期轉成string 型態 // if strtoint(str1) > strtoint(str3) then //現今日期轉成數值一定是大於或等於最後一筆的的年月數值 // str:='CWD' str1 '001' // 如果大於的話,表今天日期已是不同月份 // else str := 'CWD' str3 copy(inttostr((strtoint(str2) 1001)),2,3); //等如果相等的話 ,就直接轉成integer 加 1 //CWD str(年月 0212) str2 (流水號) // end; // end with // end // end 'if begin' //else } begin // 如果不是今天 with tempQuery do begin //先把datetimepicker 所選的日期改成 符合編碼所用的年月格式 : 如0205 if length(inttostr(monthof(Datetimepicker1.Date))) = 1 then str1 :=copy(inttostr(yearof(Datetimepicker1.Date)),3,2) '0' inttostr(monthof(Datetimepicker1.Date)) else str1 := copy(inttostr(yearof(Datetimepicker1.Date)),3,2) inttostr(monthof(Datetimepicker1.Date)); //聯結資料庫, 搜尋所需要的條件 connection := datamodule1.ADOConnection1; sql.Text := 'select DebtID from CrewDebt_Master where DebtID like ''%' str1 '%''' ; open; last; str:=fields[0].Value; str3:=copy(str,4,4);//取年月 str2:=copy(str,8,3); //取流水號 if strtoint(str1) > strtoint(str3) then str:='CWD' str1 '001' else str:= 'CWD' str3 copy(inttostr((strtoint(str2) 1001)),2,3); end; // end with end;// end 'else begin' result:=str; // function執行完後須有result,來回傳值 free; end; // end getDebtID function

s_d:=FormatDateTime('yyyymmdd',set_date_cds1.fieldbyname ('start_date').AsDateTime); 1.請將type 為日期轉成yyyymmdd格式,當月份為1月份,則自動補0為01. 2.s_d為string型態. 3.從這個角度思考看看.

引言: connection := datamodule1.ADOConnection1; ---出現address錯誤

你使用的 datamodule1 有 create 嗎? 一般如果在引用 database 出現 address 錯誤, 多半是所宣告的 database不存在, 亦即沒有被建立

引言: sql.Text := 'select DebtID from CrewDebt_Master where DebtID like ''%' str1 '%''' ; open; last;

一般使用 C/S 資料結構, 最好不要用 last, 像我的記錄如果有上千萬筆, 使用 last會造成 server 將資料全部丟上來, 那不塞爆 client, 如果你這個功能要 取得最後一號, 建議你 'select DebtID from CrewDebt_Master where DebtID like ''%' str1 '%'' order by DebtID desc' (降序) open; first;

引言: str:=fields[0].Value;--invalid type transfer

不知道你table 的定義為何, 很有可能 datatime 格式與 string 格式不符 jthwang網友已有提供你讀取的方式, 其他如DatetoStr()也可以啦, 很多方法你自個試試?