delphi货运管理系统＋access[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](十)

procedure TMainForm.N20Click(Sender: TObject);
var
  i,j:Integer;
  FindOne:Boolean;
begin
  FindOne:=False;
  For i:=0 to MDIChildCount-1 do
    For j:=0 to ChildFormNum-1 do
     If MDIChildRen[i] is THYForm then
     begin
       FindOne:=True;
       HYForm.Show;
       Break;
     end;
       If not FindOne then
         HYForm := THYForm.Create(Self);
end;

procedure TMainForm.N21Click(Sender: TObject);
var
i,j:integer;
FindOne:Boolean;
begin
   FindOne:=False;
  For i:=0 to MDIChildCount-1 do
    For j:=0 to ChildFormNum-1 do
     If MDIChildRen[i] is TKHFYForm then
     begin
       FindOne:=True;
       KHFYForm.Show;
       Break;
     end;
       If not FindOne then
         KHFYForm := TKHFYForm.Create(Self);
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
var
 MyNow:Tdatetime;
 Hour,Min,Sec,mSec:word;
 vm,vs,vh:Real;
begin
 MyNow:=Now;
 DecodeTime(MyNow,Hour,Min,Sec,mSec);
 vh:=Hour/12.0*2*pi;
 vm:=Min/60.0*2*pi;
 vs:=Sec/60.0*2*pi;
 with MainForm.Image2.Canvas do
  begin
   if not FirstTime then begin
    pen.Color:=clwhite;
    Moveto(17,17);
    Lineto(17+round(12*sin(vho)),17-round(12*cos(vho)));
    Moveto(17,17);
    Lineto(17+round(15*sin(vmo)),17-round(15*cos(vmo)));
    Moveto(17,17);
    Lineto(17+round(15*sin(vso)),17-round(15*cos(vso)));
    end
    else
    FirstTime:=False;
    Pen.Color:=clBlack ;
    Moveto(17,17);
    Lineto(17+round(12*sin(vh)),17-round(12*cos(vh)));
    Moveto(17,17);
    Lineto(17+round(15*sin(vm)),17-round(15*cos(vm)));
    Moveto(17,17);
    Lineto(17+round(15*sin(vs)),17-round(15*cos(vs)));
   end;
   vho:=vh;
   vmo:=vm;
   vso:=vs;

end;

procedure TMainForm.FlatButton10Click(Sender: TObject);
var
 i,j:integer;
 FindOne:Boolean;
begin
  FindOne:=false;
  For i:=0 to MDIChildCount-1 do
    For j:=0 to ChildFormNum-1 do
    If MDIChildRen[i] is TMonthForm then
    begin
    FindOne:=True;
    MonthForm.Show;
    Break;
    end;
    If not FindOne then
     MonthForm:=TMonthForm.Create(self);

首页 上一页 7 8 9 10 11 下一页 尾页 10/11/11