|
ｿｽ@ｿｽｿｽｿｽﾅ描ｿｽﾊ趣ｿｽｿｽﾌゑｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾉは？
|
ｿｽ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
ｿｽTｿｽｿｽｿｽvｿｽ[ 2006/08/24(ｿｽｿｽ) 07:33:33
dl6pro,xppro,Pentium ｿｽW2.6GHz ｿｽﾅゑｿｽｿｽBｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾍ、IBｿｽﾅゑｿｽｿｽB
ｿｽｿｽﾊに、panelｿｽｿｽ5ｿｽﾂ、DBNavigatorｿｽADBMemoｿｽｿｽ4ｿｽﾂ、DBTextｿｽｿｽ14ｿｽﾂ貼ｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
DBMemo1ｿｽﾌ搾ｿｽｿｽﾚ（ｿｽｿｽｿｽlｿｽ文趣ｿｽｿｽｿｽﾆゑｿｽｿｽﾄ格ｿｽ[ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽjｿｽｿｽ1ｿｽsｿｽｿｽｿｽﾉ取得ｿｽｿｽｿｽAｿｽｿｽｿｽﾌ搾ｿｽｿｽﾚの托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽIｿｽｿｽLabelｿｽｿｽ成ｿｽAｿｽeLabelｿｽｿｽCaptionｿｽﾉ各ｿｽsｿｽﾉ対会ｿｽｿｽｿｽｿｽｿｽDBMemo2ｿｽｿｽｿｽﾚ（ｿｽｿｽｿｽｿｽｿｽｿｽjｿｽｿｽｿｽｿｽ闢厄ｿｽﾄゑｿｽ謔､ｿｽﾉゑｿｽｿｽ驍ｽｿｽﾟに、ｿｽｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽ成ｿｽｿｽｿｽADBNavigatorOnClickｿｽCｿｽxｿｽｿｽｿｽgｿｽﾖ奇ｿｽｿｽｿｽtｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾍ間違いｿｽﾈゑｿｽｿｽsｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ`ｿｽﾊに趣ｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽAｿｽeLabelｿｽﾌ作成ｿｽﾟ抵ｿｽｿｽｿｽｿｽﾚに鯉ｿｽｿｽﾄわかｿｽｿｽﾜゑｿｽｿｽBｿｽﾇなゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽﾝのコｿｽ[ｿｽhｿｽﾍ、ｿｽﾈ会ｿｽｿｽﾌ通ゑｿｽﾅゑｿｽｿｽB
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, ExtCtrls, Mask;
type
KaisuArr = Array of Integer ;
ItemAr = Array of TLabel ;
DayAr = Array of TMaskEdit ;
TFrmSagyoDay = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
private
{ Private ｿｽ骭ｾ }
SumKaiTen : Integer ; //ｿｽｿｽｿｽ黷ｼｿｽｿｽﾌ回数取得ｿｽﾌゑｿｽｿｽｿｽ
TenkenKai,SumKai : KaisuArr ;
ItemLbl : ItemAr ;
DayMaskEd : DayAr ;
Procedure SonotaDisplay ;
public
{ Public ｿｽ骭ｾ }
end;
var
FrmSagyoDay: TFrmSagyoDay;
implementation
uses Types, DMKanri;
{$R *.dfm}
procedure TFrmSagyoDay.DBNavigator1Click(Sender: TObject;
Button: TNavigateBtn);
begin
SonotaDisplay;
end;
procedure TFrmSagyoDay.SonotaDisplay; //ｿｽ_ｿｽｿｽｿｽｿｽｿｽﾚの難ｿｽｿｽtｿｽﾆｿｽｿｽxｿｽｿｽｿｽﾌ表ｿｽｿｽ
var I,s,j : Integer ;
begin
S := DBMemo1.Lines.Count ;
SetLength(TenkenKai,s);//ｿｽzｿｽｿｽﾌ要ｿｽfｿｽｿｽｿｽｿｽmｿｽｿｽ
SetLength(SumKai,s);//ｿｽzｿｽｿｽﾌ要ｿｽfｿｽｿｽｿｽｿｽmｿｽｿｽ
SumKaiTen := 0 ;
for I := 0 to S -1 do //ｿｽzｿｽｿｽﾖ格ｿｽ[
begin
TenkenKai[I] := StrToInt(DBMemo1.Lines[I]);
SumKaiTen := TenkenKai[I] + SumKaiTen; //ｿｽ_ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾚ趣ｿｽｿｽ{ｿｽ数の搾ｿｽｿｽvｿｽｿｽvｿｽZ
SumKai[I] := SumKaiTen;
end;
//****ｿｽﾈ擾ｿｽAｿｽ¥ｿｽｿｽｿｽpｿｽﾌ撰ｿｽｿｽｿｽZｿｽoｿｽｿｽｿｽ驍ｽｿｽｿｽ****
//ｿｽﾈ会ｿｽｿｽAｿｽｿｽｿｽﾚ表ｿｽｿｽｿｽpｿｽﾌｿｽｿｽxｿｽｿｽｿｽﾌ難ｿｽｿｽIｿｽ成
SetLength(ItemLbl,SumKaiTen);//ｿｽzｿｽｿｽﾌ要ｿｽfｿｽｿｽｿｽｿｽmｿｽｿｽ
for I := 0 to SumKaiTen-1 do
begin
ItemLbl[I] :=TLabel.Create(self);
with ItemLbl[I] do
begin
Parent := Panel5;//Panel5ｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽ驍ｽｿｽｿｽ
Visible := True ;
Top := (15*I) +30 ;
Left := 15;
Tag := I;
end;
end;
//*******ｿｽｿｽｿｽxｿｽｿｽｿｽﾌキｿｽｿｽｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾚ値ｿｽﾉ変奇ｿｽｿｽJｿｽn*****
I := 0 ;
j := 0 ;
while J <= S-1 do
begin
while I <= SumKaiTen-1 do
begin
with ItemLbl[I] do
begin
Caption := DBMemo2.Lines[j];
end;
inc(I);
end;
inc(J) ;
I :=SumKai[J-1];
end;
//*******ｿｽｿｽｿｽxｿｽｿｽｿｽﾌキｿｽｿｽｿｽvｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾚ値ｿｽﾉ変奇ｿｽｿｽIｿｽｿｽ*****
//ｿｽﾈ会ｿｽｿｽAｿｽｿｽｿｽtｿｽｿｽｿｽﾍ用ｿｽｿｽMaskEditｿｽﾌ難ｿｽｿｽIｿｽ成
SetLength(DayMaskEd,SumKaiTen);//ｿｽzｿｽｿｽﾌ要ｿｽfｿｽｿｽｿｽｿｽmｿｽｿｽ
for I := 0 to SumKaiTen-1 do
begin
DayMaskEd[I] :=TMaskEdit.Create(self);
with DayMaskEd[I] do
begin
Parent := Panel5;
Visible := True ;
Top := (15*I) +30 ;
Left := 150;
EditMask := '!9999/99/00;1;_';
end;
end;
SetLength(TenkenKai,0);
SetLength(ItemLbl,0);
SetLength(DayMaskED,0) ;
end;
ｿｽｿｽH 2006/08/24(ｿｽｿｽ) 08:27:26
Labelｿｽﾌ位置ｿｽｿｽｿｽﾅ抵ｿｽﾈゑｿｽAｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽzｿｽuｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄ、
ｿｽsｿｽvｿｽﾈゑｿｽﾌゑｿｽ Visible = False ｿｽﾈのはゑｿｽｿｽﾟ？
Panel5.DoubleBuffered := True;
ｿｽｿｽｿｽｿｽﾍ・ｿｽEｿｽEｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾊなゑｿｽｿｽｿｽｿｽｿｽｿｽBｿｽBｿｽB
ｿｽｿｽｿｽﾉゑｿｽ...
Panel5ｿｽﾌ会ｿｽｿｽｿｽLabelｿｽｿｽuｿｽｿｽｿｽﾄ、Caption = 'ｿｽｿｽｿｽｿｽｿｽｿｽ...'; ｿｽﾆゑｿｽｿｽﾉゑｿｽｿｽｿｽB
1) Panel5 ｿｽｿｽｿｽ¥ｿｽｿｽ
2) ｿｽｿｽｿｽﾚ表ｿｽｿｽｿｽpｿｽﾌｿｽｿｽxｿｽｿｽｿｽﾌ難ｿｽｿｽIｿｽ成
3) Panel5 ｿｽｿｽ¥ｿｽｿｽ
Application.ProcessMessages ｿｽｿｽKｿｽｿｽｿｽﾉ具ｿｽｿｽｿｽﾅ。
ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾋ。
ｿｽTｿｽｿｽｿｽvｿｽ[ 2006/08/24(ｿｽｿｽ) 08:58:31
ｿｽｿｽHｿｽｿｽｿｽ早々ｿｽﾌｿｽｿｽXｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>Labelｿｽﾌ位置ｿｽｿｽｿｽﾅ抵ｿｽﾈゑｿｽAｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽzｿｽuｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄ、
>ｿｽsｿｽvｿｽﾈゑｿｽﾌゑｿｽ Visible = False ｿｽﾈのはゑｿｽｿｽﾟ？
ｿｽｿｽｿｽIｿｽﾉ作成ｿｽｿｽｿｽｿｽLabelｿｽｿｽMaskEditｿｽﾌ撰ｿｽｿｽｿｽｿｽﾅ定さｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
>Panel5.DoubleBuffered := True;
>ｿｽｿｽｿｽｿｽﾍ・ｿｽEｿｽEｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾊなゑｿｽｿｽｿｽｿｽｿｽｿｽBｿｽBｿｽB
>ｿｽｿｽｿｽﾉゑｿｽ...
>Panel5ｿｽﾌ会ｿｽｿｽｿｽLabelｿｽｿｽuｿｽｿｽｿｽﾄ、Caption = 'ｿｽｿｽｿｽｿｽｿｽｿｽ...'; ｿｽﾆゑｿｽｿｽﾉゑｿｽｿｽｿｽB
>1) Panel5 ｿｽｿｽｿｽ¥ｿｽｿｽ
>2) ｿｽｿｽｿｽﾚ表ｿｽｿｽｿｽpｿｽﾌｿｽｿｽxｿｽｿｽｿｽﾌ難ｿｽｿｽIｿｽ成
>3) Panel5 ｿｽｿｽ¥ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽALabelｿｽﾌ表ｿｽｿｽｿｽAｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽXｿｽgｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>Application.ProcessMessages ｿｽｿｽKｿｽｿｽｿｽﾉ具ｿｽｿｽｿｽﾅ。
ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾋ。
ｿｽTｿｽｿｽｿｽvｿｽ[ 2006/08/24(ｿｽｿｽ) 09:00:23
ｿｽｿｽｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽB
Labelｿｽﾌ表ｿｽｿｽｿｽAｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾉスｿｽgｿｽｿｽｿｽXｿｽﾅはなゑｿｽｿｽAPanelｿｽﾌ表ｿｽｿｽｿｽAｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾉスｿｽgｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽﾅゑｿｽ
ｿｽｿｽH 2006/08/24(ｿｽｿｽ) 09:40:48
> ｿｽｿｽｿｽIｿｽﾉ作成ｿｽｿｽｿｽｿｽLabelｿｽｿｽMaskEditｿｽﾌ撰ｿｽｿｽｿｽｿｽﾅ定さｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅは１ｿｽOｿｽﾂゑｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽﾉ移難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽTｿｽﾂで済んだ。
ｿｽｿｽｿｽｿｽAｿｽUｿｽ`ｿｽPｿｽOｿｽﾍ、ｿｽｿｽ¥ｿｽｿｽｿｽﾉゑｿｽｿｽ謔､ｿｽB
ｿｽｿｽｿｽﾌ趣ｿｽｿｽﾍ、ｿｽQｿｽOｿｽﾂ（ｿｽｿｽjｿｽKｿｽvｿｽｿｽｿｽB
ｿｽﾅゑｿｽPｿｽOｿｽﾂゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽAｿｽcｿｽｿｽPｿｽOｿｽﾂ追会ｿｽｿｽｿｽｿｽ謔､ｿｽB
ｿｽEｿｽEｿｽEｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆで、ｿｽ¥ｿｽｿｽｿｽEｿｽｿｽ¥ｿｽｿｽｿｽｿｽﾘり換ｿｽｿｽｿｽｿｽﾌは？
ｿｽｿｽｿｽﾝのコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾇ暦ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽKｿｽvｿｽﾍゑｿｽｿｽ驍ｪｿｽAｿｽｿｽｿｽｿｽｿｽEｿｽjｿｽｿｽｿｽ無駄に繰ｿｽｿｽﾔゑｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾈ意厄ｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾇ、ｿｽﾊゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽH
ｿｽﾅ擾ｿｽｿｽﾌ趣ｿｽｿｽｿｽﾅは、ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾚ難ｿｽｿｽｿｽｿｽﾉ、ｿｽSｿｽｿｽｿｽﾌコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽjｿｽｿｽｿｽEｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾉ奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽしｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾟゑｿｽﾋ。
Basser 2006/08/24(ｿｽｿｽ) 09:59:16
ｿｽﾈ会ｿｽｿｽﾌようｿｽﾉゑｿｽｿｽﾄゑｿｽﾊ目でゑｿｽｿｽｿｽｿｽH
procedure TFrmSagyoDay.SonotaDisplay; //ｿｽ_ｿｽｿｽｿｽｿｽｿｽﾚの難ｿｽｿｽtｿｽﾆｿｽｿｽxｿｽｿｽｿｽﾌ表ｿｽｿｽ
var I,s,j : Integer ;
begin
LockWindowUpdate(Handle);
try
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽqｿｽｿｽ
ｿｽｿｽ
finally
LockWindowUpdate(0);
end;
end;
ｿｽTｿｽｿｽｿｽvｿｽ[ 2006/08/24(ｿｽｿｽ) 10:55:39
ｿｽｿｽHｿｽｿｽｿｽｿｽABasserｿｽｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Basserｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅ奇ｿｽｿｽﾒ通ゑｿｽﾌ鯉ｿｽｿｽﾊゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
