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

procedure TMainForm.N16Click(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 TSHXXForm then
      begin
        FindOne:=True;
        SHXXForm.Show;
        Break;
        end;
        if not FindOne then
         SHXXFORM:=TSHXXForm.Create(Self);
end;

procedure TMainForm.N63Click(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 THYDJForm then
     begin
      FindOne:=True;
      HYDJForm.Show;
      Break;
      end;
      if not FindOne then
         HYDJForm:=THYDJForm.Create(Self);
end;

procedure TMainForm.N64Click(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 TKHForm then
    begin
    FindOne:=True;
    KHForm.Show;
    Break;
    end;
    If not FindOne then
     KHForm:=TkHForm.Create(self);
end;

procedure TMainForm.N65Click(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 TCDForm then
      begin
      FindOne:=True;
      CDForm.Show;
      Break;
      end;
      If not Findone then
       CDForm:=TCDForm.Create(self);

end;

procedure TMainForm.N66Click(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 TDLForm then
      begin
      FindOne:=true;
      DLForm.Show;
      Break;
      end;
      if not FindOne then
     DLForm:=TDLForm.Create(self);
end;

procedure TMainForm.N19Click(Sender: TObject);
begin
   YWYForm:=TYWYForm.Create(Application);
 &n

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