|
ｿｽ@ｿｽｿｽDBGridｿｽﾌ難ｿｽeｿｽﾏ更
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽcｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽい 2010/02/11(ｿｽｿｽ) 09:51:22
DBGridｿｽﾉつゑｿｽｿｽﾄの趣ｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽﾚ厄ｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽDBGridｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽfｿｽ[ｿｽuｿｽｿｽｿｽﾌ搾ｿｽｿｽﾚ厄ｿｽｿｽｿｽNAMEｿｽﾌとゑｿｽｿｽADBGridｿｽﾅ奇ｿｽｿｽｿｽｿｽﾌ「ｿｽｿｽｿｽOｿｽvｿｽﾆ表ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ轤ｦｿｽﾜゑｿｽｿｽか？ｿｽﾜゑｿｽｿｽADBGridｿｽｿｽﾅ、ｿｽｿｽｿｽﾚに難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ髏費ｿｽｿｽｿｽﾉ包ｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽiｿｽeｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽﾚゑｿｽ3ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ鼾ｿｽﾉ、ｿｽcDBGridｿｽｿｽ3ｿｽｿｽｿｽﾆ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾅゑｿｽｿｽjｿｽH
ｿｽｿｽｿｽﾝ、ｿｽfｿｽｿｽｿｽtｿｽ@ｿｽCｿｽSｿｽﾅプｿｽｿｽｿｽOｿｽｿｽｿｽ‾ｿｽｿｽｿｽOｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
HOta 2010/02/11(ｿｽｿｽ) 10:15:12
TDatasetｿｽﾉ計ｿｽZｿｽｿｽｿｽﾚゑｿｽﾇ会ｿｽｿｽｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾈ単ｿｽﾅゑｿｽｿｽ蛯､ｿｽB
TDatasetｿｽﾅ右ｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽ迯ｿｽﾚの設抵ｿｽｿｽIｿｽｿｽ->ｿｽｿｽｿｽﾚ設抵ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽ¥ｿｽｿｽ->
ｿｽEｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽ迯ｿｽﾚの新ｿｽKｿｽ成ｿｽﾅ計ｿｽZｿｽｿｽｿｽﾚゑｿｽ成ｿｽｿｽｿｽﾜゑｿｽｿｽB
TDatasetｿｽｿｽOnCulcFieldsｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅ計ｿｽZｿｽｿｽｿｽｿｽFieldｿｽｿｽﾝ定しｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽｿｽｿｽﾚ厄ｿｽｿｽｿｽTimeIntegerｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽvｿｽZｿｽｿｽｿｽﾚの搾ｿｽｿｽﾚ厄ｿｽｿｽｿｽDispTimeString,ｿｽ^ｿｽｿｽStringｿｽTｿｽCｿｽYｿｽｿｽ8ｿｽoｿｽCｿｽgｿｽｿｽ成
ｿｽvｿｽZｿｽｿｽｿｽﾚゑｿｽTDBGridｿｽﾖ設定しｿｽﾜゑｿｽｿｽB
procedure TDM_NandemoIB.IBQuery_MstCalcFields(DataSet: TDataSet);
var
i : Integer;
begin
with Dataset do
bedin
if FieldByName('TimeInteger').isNull then
FieldByName('DispTimeString').AsString := 'ｿｽｿｽｿｽﾝ抵ｿｽ'
else begin
i := FieldByName('TimeInteger').AsInteger mod 24;
if I > 12 then
begin
FieldByName('DispTimeString').AsString := 'ｿｽﾟ鯉ｿｽ' + inttostr(I - 12) + 'ｿｽｿｽ';
end else
begin
FieldByName('DispTimeString').AsString := 'ｿｽﾟ鯉ｿｽ' + inttostr(I) + 'ｿｽｿｽ';
end;
end;
end;
end;
S&H 2010/02/13(ｿｽy) 13:36:56
ｿｽeｿｽ[ｿｽuｿｽｿｽｿｽﾌ搾ｿｽｿｽﾚ厄ｿｽｿｽｿｽDBGridｿｽﾌ暦ｿｽ^ｿｽCｿｽgｿｽｿｽｿｽｿｽﾙなゑｿｽｿｽﾌにゑｿｽｿｽｿｽﾉゑｿｽ
(1) DataSetｿｽｿｽ(Table, Query)ｿｽｿｽFieldｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽDisplayLabelｿｽｿｽﾝ定すｿｽｿｽ
(2) DBGridｿｽｿｽColumnｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽTitleｿｽｿｽCaptionｿｽｿｽﾝ定すｿｽｿｽ
ｿｽﾌどゑｿｽｿｽ轤ｩｿｽﾅ設定すｿｽｿｽﾎ可能ｿｽﾅゑｿｽｿｽB
HOtaｿｽｿｽｿｽｿｽﾌようｿｽｿｽ12ｿｽｿｽｿｽﾔ表ｿｽｿｽｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽｿｽlｿｽfｿｽ[ｿｽ^ｿｽﾉ包ｿｽｿｽｿｽｿｽｿｽtｿｽｿｽｿｽｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽ("AA"ｿｽｿｽｿｽﾎ象の撰ｿｽｿｽlｿｽtｿｽBｿｽ[ｿｽｿｽｿｽhｿｽﾅゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ)
DataSet1.Open;
DataSet1.(FieldByName('AA') as TIntegerField).DisplayFormat := '0ｿｽｿｽ'; //--a
DataSet1.(FieldByName('AA') as TIntegerField).DisplayFormat := '00ｿｽｿｽ'; //--b
DataSet1.(FieldByName('AA') as TIntegerField).DisplayFormat := '#ｿｽｿｽ'; //--c
:
:
ｿｽﾌようｿｽﾉゑｿｽｿｽ驍ｱｿｽﾆゑｿｽﾂ能ｿｽﾅゑｿｽｿｽｿｽB(D4ｿｽﾅゑｿｽOKｿｽﾅは？)
a.ｿｽｿｽ1-9ｿｽｿｽｿｽﾌ趣ｿｽｿｽAｿｽ謫ｪｿｽｿｽ0ｿｽｿｽｿｽﾂゑｿｽｿｽﾈゑｿｽ
b.ｿｽｿｽ1-9ｿｽｿｽｿｽﾌ趣ｿｽｿｽA01..09ｿｽｿｽｿｽﾆ先頭ｿｽｿｽ0ｿｽｿｽtｿｽｿｽ2ｿｽｿｽｿｽﾅ表ｿｽｿｽ
c.ｿｽﾍ一見OKｿｽﾉ鯉ｿｽｿｽｿｽｿｽ驍ｪ0ｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでダｿｽｿｽ
DisplayFormatｿｽｿｽHelpｿｽﾅ抵ｿｽｿｽﾗてみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
DisplayFormatｿｽﾍ撰ｿｽｿｽlｿｽﾌカｿｽｿｽｿｽ}ｿｽtｿｽ¥ｿｽｿｽｿｽAｿｽｿｽｿｽtｿｽEｿｽｿｽｿｽｿｽｿｽﾌ表ｿｽｿｽｿｽﾈどでよくｿｽgｿｽpｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾝ計ｿｽｿｽｿｽｿｽTable or QueryｿｽｿｽFieldsｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽFieldｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ
ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽCｿｽｿｽｿｽXｿｽyｿｽNｿｽ^ｿｽｿｽﾅ設定すｿｽ驍ｱｿｽﾆゑｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽcｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽい 2010/02/14(ｿｽｿｽ) 18:37:31
ｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅ、ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
