日期轉換格式問題 |
答題得分者是: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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |