ソス@ソスソスソスナ描ソスハ趣ソスソスフゑソスソスソスツゑソスソスソスネゑソスソスソスソスノは?
|
ソスEC/C++
ソスEDelphi
ソスEVisual BasicソスソスソスSソスソス
ソス@(VB2-VB6ソスソス.NETソスソスソスp)
ソスEVisual Basic(VB2-VB6)
ソスEVisual Basic .NET
ソスEVisual C++
ソスEpapy's softwarelibrary
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;
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ソスソスソスノ具ソスソスソスナ。
ソスソスソスワゑソスソスソスソスソスヒ。
ソスソス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ソスソスソスノ具ソスソスソスナ。
ソスソスソスワゑソスソスソスソスソスヒ。
ソスソスソス゚ゑソスネゑソスソスソスソスB
Labelソスフ表ソスソスソスAソスソス¥ソスソスソスソスソスノスソスgソスソスソスXソスナはなゑソスソスAPanelソスフ表ソスソスソスAソスソス¥ソスソスソスソスソスノスソスgソスソスソスXソスソスソスソスソスソスソスソスソスソスワゑソスソスBソスナゑソス
> ソスソスソスIソスノ作成ソスソスソスソスLabelソスソスMaskEditソスフ撰ソスソスソスソスナ定さソスソストゑソスソスネゑソスソスフで、ソスソスソスソスソスソスソスニ思ソスソスソスワゑソスソスB
ソスソスソスソスソスRソス[ソスhソスナは1ソス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
ソスしソスソスソスソスソスソスソスソスソスナゑソスソス゚ゑソスヒ。
ソスネ会ソスソスフようソスノゑソスソストゑソスハ目でゑソスソスソスソスH
procedure TFrmSagyoDay.SonotaDisplay; //ソス_ソスソスソスソスソスレの難ソスソスtソスニソスソスxソスソスソスフ表ソスソス
var I,s,j : Integer ;
begin
LockWindowUpdate(Handle);
try
ソスソスソスソスソスソスソスソスソスLソスqソスソス
ソスソス
finally
LockWindowUpdate(0);
end;
end;
ソスソスHソスソスソスソスABasserソスソスソスありがソスニゑソスソスソスソスソスソスソスソスワゑソスソスソスソスB
Basserソスソスソスソスフ包ソスソス@ソスナ奇ソスソスメ通ゑソスフ鯉ソスソスハゑソスソスソスソスソスソスワゑソスソスソスソスB