日期轉換格式問題 |
|
答題得分者是：Chance36
|
|
BorlandUser
中階會員   發表：148 回覆：217 積分：73 註冊：2004-02-19 發送簡訊給我 |
|
|
Chance36
版主 發表：31 回覆：1033 積分：792 註冊：2002-12-31 發送簡訊給我 |
|
|
BorlandUser
中階會員 發表：148 回覆：217 積分：73 註冊：2004-02-19 發送簡訊給我 |
unit GlobalFunction; interface uses
Dialogs, Classes, StrUtils, SysUtils, Controls, Forms, ComCtrls, SqlExpr; procedure SetSTatusBar(SQLQuery: TSQLQuery; StatusBar: TStatusBar); implementation uses DBModule; procedure SetStatusBar(SQLQuery: TSQLQuery; StatusBar: TStatusBar);
var
strSQL: String;
strUserName: String;
I: Integer;
begin
With DBDataModule.SQLQuery Do
Begin
For I := 1 To 2 Do
Begin
If (SQLQuery.FieldByName('Added_By').AsInteger > 0) Then
Begin
Case I Of
1: strSQL := 'Select User_Name From User Where User_ID = ' SQLQuery.FieldByName('Added_By').AsString;
2: strSQL := 'Select User_Name From User Where User_ID = ' SQLQuery.FieldByName('Updated_By').AsString;
End; Close;
SQL.Clear;
SQL.Add(strSQL);
Open; If (RecordCount > 0) Then
strUserName := FieldByName('User_Name').AsString;
End
Else
Begin
strUserName := 'Default User';
End; Case I Of
1: StatusBar.Panels.Items[1].Text := strUserName '(' FormatDataTime('dd/mm/yy hh:mm', SQLQuery.FieldByName('Added_Date').AsDateTime) ')';
2: StatusBar.Panels.Items[3].Text := strUserName '(' SQLQuery.FieldByName('Updated_Date').AsString ')';
End;
End;
End;
end; end. 但, FormatDateTime Undeclare Identifier??
|
|
BorlandUser
中階會員 發表：148 回覆：217 積分：73 註冊：2004-02-19 發送簡訊給我 |
|
|
hahalin
版主  發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
|
|
BorlandUser
中階會員 發表：148 回覆：217 積分：73 註冊：2004-02-19 發送簡訊給我 |
|
|
Chance36
版主 發表：31 回覆：1033 積分：792 註冊：2002-12-31 發送簡訊給我 |
|
|
hahalin
版主 發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
|
|
BorlandUser
中階會員 發表：148 回覆：217 積分：73 註冊：2004-02-19 發送簡訊給我 |
發表時間：2004-05-02 11:13:38
IP:218.102.xxx.xxx 未訂閱
系統時間：2024-07-05 22:11:33
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |