xfprnt.pas

日昌餐饮管理系统是用Delphi7+SQL写的管理系统

         query1.Post;
       end;
      if query1.Locate('zdmc','gsmc',[]) then
       begin
         query1.Edit;
         query1ztmc.AsString:=gsmc.Font.Name;
         query1ztdx.AsInteger:=gsmc.Font.Size;
         query1ztys.AsInteger:=gsmc.Font.Color;
         query1wztop.AsInteger:=strtoint(gsmctop.Text);
         query1wzleft.AsInteger:=strtoint(gsmcleft.Text);
         query1.Post;
       end
      else begin
         query1.Append;
         query1zdmc.AsString:='gsmc';
         query1ztmc.AsString:=gsmc.Font.Name;
         query1ztdx.AsInteger:=gsmc.Font.Size;
         query1ztys.AsInteger:=gsmc.Font.Color;
         query1wztop.AsInteger:=strtoint(gsmctop.Text);
         query1wzleft.AsInteger:=strtoint(gsmcleft.Text);
         query1.Post;
       end;
      if query1.Locate('zdmc','zw',[]) then
       begin
         query1.Edit;
         query1ztmc.AsString:=zw.Font.Name;
         query1ztdx.AsInteger:=zw.Font.Size;
         query1ztys.AsInteger:=zw.Font.Color;
         query1wztop.AsInteger:=strtoint(zwtop.Text);
         query1wzleft.AsInteger:=strtoint(zwleft.Text);
         query1.Post;
       end
      else begin
         query1.Append;
         query1zdmc.AsString:='zw';
         query1ztmc.AsString:=zw.Font.Name;
         query1ztdx.AsInteger:=zw.Font.Size;
         query1ztys.AsInteger:=zw.Font.Color;
         query1wztop.AsInteger:=strtoint(zwtop.Text);
         query1wzleft.AsInteger:=strtoint(zwleft.Text);
         query1.Post;
       end;
      if query1.Locate('zdmc','gsdz',[]) then
       begin
         query1.Edit;
         query1ztmc.AsString:=gsdz.Font.Name;
         query1ztdx.AsInteger:=gsdz.Font.Size;
         query1ztys.AsInteger:=gsdz.Font.Color;
         query1wztop.AsInteger:=strtoint(gsdztop.Text);
         query1wzleft.AsInteger:=strtoint(gsdzleft.Text);
         query1.Post;
       end
      else begin
         query1.Append;
         query1zdmc.AsString:='gsdz';
         query1ztmc.AsString:=gsdz.Font.Name;
         query1ztdx.AsInteger:=gsdz.Font.Size;
         query1ztys.AsInteger:=gsdz.Font.Color;
         query1wztop.AsInteger:=strtoint(gsdztop.Text);
         query1wzleft.AsInteger:=strtoint(gsdzleft.Text);
         query1.Post;
       end;
      if query1.Locate('zdmc','zwxm',[]) then
       begin
         query1.Edit;
         query1ztmc.AsString:=zwxm.Font.Name;
         query1ztdx.AsInteger:=zwxm.Font.Size;
         query1ztys.AsInteger:=zwxm.Font.Color;
         query1wztop.AsInteger:=strtoint(zwxmtop.Text);
         query1wzleft.AsInteger:=strtoint(zwxmleft.Text);
         query1.Post;
       end
      else begin
         query1.Append;
         query1zdmc.AsString:='zwxm';
         query1ztmc.AsString:=zwxm.Font.Name;
         query1ztdx.AsInteger:=zwxm.Font.Size;
         query1ztys.AsInteger:=zwxm.Font.Color;
         query1wztop.AsInteger:=strtoint(zwxmtop.Text);
         query1wzleft.AsInteger:=strtoint(zwxmleft.Text);
         query1.Post;
       end;
      if query1.Locate('zdmc','jjrdz',[]) then
       begin
         query1.Edit;
         query1ztmc.AsString:=jjrdz.Font.Name;
         query1ztdx.AsInteger:=jjrdz.Font.Size;
         query1ztys.AsInteger:=jjrdz.Font.Color;
         query1wztop.AsInteger:=strtoint(jjrdztop.Text);
         query1wzleft.AsInteger:=strtoint(jjrdzleft.Text);
         query1.Post;
       end
      else begin
         query1.Append;
         query1zdmc.AsString:='jjrdz';
         query1ztmc.AsString:=jjrdz.Font.Name;
         query1ztdx.AsInteger:=jjrdz.Font.Size;
         query1ztys.AsInteger:=jjrdz.Font.Color;
         query1wztop.AsInteger:=strtoint(jjrdztop.Text);
         query1wzleft.AsInteger:=strtoint(jjrdzleft.Text);
         query1.Post;
       end;
      if query1.Locate('zdmc','jjryb',[]) then
       begin
         query1.Edit;
         query1ztmc.AsString:=jjryb.Font.Name;
         query1ztdx.AsInteger:=jjryb.Font.Size;
         query1ztys.AsInteger:=jjryb.Font.Color;
         query1wztop.AsInteger:=strtoint(jjrybtop.Text);
         query1wzleft.AsInteger:=strtoint(jjrybleft.Text);
         query1.Post;
       end
      else begin
         query1.Append;
         query1zdmc.AsString:='jjryb';
         query1ztmc.AsString:=jjryb.Font.Name;
         query1ztdx.AsInteger:=jjryb.Font.Size;
         query1ztys.AsInteger:=jjryb.Font.Color;
         query1wztop.AsInteger:=strtoint(jjrybtop.Text);
         query1wzleft.AsInteger:=strtoint(jjrybleft.Text);
         query1.Post;
       end;
       query1.ApplyUpdates;
     end;
     query1.Close;
end;

procedure TxfForm.FormActivate(Sender: TObject);
begin
     if xx='xx' then exit;
     xx:='xx';
     query1.Open;
      if query1.Locate('zdmc','yb',[]) then
       begin
         yb.Font.Name:=query1ztmc.AsString;
         yb.Font.Size:=query1ztdx.AsInteger;
         yb.Font.Color:=query1ztys.AsInteger;
         ybtop.Text:=query1wztop.AsString;
         ybleft.Text:=query1wzleft.AsString;
       end
      else begin
         yb.Font.Name:=qrlabel1.Font.Name;
         yb.Font.Size:=qrlabel1.Font.Size;
         yb.Font.Color:=qrlabel1.Font.Color;
         ybtop.Text:=inttostr(qrlabel1.Top);
         ybleft.Text:=inttostr(qrlabel1.Left);
       end;
      if query1.Locate('zdmc','gsdz',[]) then
       begin
         gsdz.Font.Name:=query1ztmc.AsString;
         gsdz.Font.Size:=query1ztdx.AsInteger;
         gsdz.Font.Color:=query1ztys.AsInteger;
         gsdztop.Text:=query1wztop.AsString;
         gsdzleft.Text:=query1wzleft.AsString;
       end
      else begin
         gsdz.Font.Name:=qrlabel2.Font.Name;
         gsdz.Font.Size:=qrlabel2.Font.Size;
         gsdz.Font.Color:=qrlabel2.Font.Color;
         gsdztop.Text:=inttostr(qrlabel2.Top);
         gsdzleft.Text:=inttostr(qrlabel2.Left);
       end;
      if query1.Locate('zdmc','gsmc',[]) then
       begin
         gsmc.Font.Name:=query1ztmc.AsString;
         gsmc.Font.Size:=query1ztdx.AsInteger;
         gsmc.Font.Color:=query1ztys.AsInteger;
         gsmctop.Text:=query1wztop.AsString;
         gsmcleft.Text:=query1wzleft.AsString;
       end
      else begin
         gsmc.Font.Name:=qrlabel3.Font.Name;
         gsmc.Font.Size:=qrlabel3.Font.Size;
         gsmc.Font.Color:=qrlabel3.Font.Color;
         gsmctop.Text:=inttostr(qrlabel3.Top);
         gsmcleft.Text:=inttostr(qrlabel3.Left);
       end;
      if query1.Locate('zdmc','zwxm',[]) then
       begin
         zwxm.Font.Name:=query1ztmc.AsString;
         zwxm.Font.Size:=query1ztdx.AsInteger;
         zwxm.Font.Color:=query1ztys.AsInteger;
         zwxmtop.Text:=query1wztop.AsString;
         zwxmleft.Text:=query1wzleft.AsString;
       end
      else begin
         zwxm.Font.Name:=qrlabel4.Font.Name;
         zwxm.Font.Size:=qrlabel4.Font.Size;
         zwxm.Font.Color:=qrlabel4.Font.Color;
         zwxmtop.Text:=inttostr(qrlabel4.Top);
         zwxmleft.Text:=inttostr(qrlabel4.Left);
       end;
      if query1.Locate('zdmc','zw',[]) then
       begin
         zw.Font.Name:=query1ztmc.AsString;
         zw.Font.Size:=query1ztdx.AsInteger;
         zw.Font.Color:=query1ztys.AsInteger;
         zwtop.Text:=query1wztop.AsString;
         zwleft.Text:=query1wzleft.AsString;
       end
      else begin
         zw.Font.Name:=qrlabel5.Font.Name;
         zw.Font.Size:=qrlabel5.Font.Size;
         zw.Font.Color:=qrlabel5.Font.Color;
         zwtop.Text:=inttostr(qrlabel5.Top);
         zwleft.Text:=inttostr(qrlabel5.Left);
       end;
      if query1.Locate('zdmc','jjrdz',[]) then
       begin
         jjrdz.Font.Name:=query1ztmc.AsString;
         jjrdz.Font.Size:=query1ztdx.AsInteger;
         jjrdz.Font.Color:=query1ztys.AsInteger;
         jjrdztop.Text:=query1wztop.AsString;
         jjrdzleft.Text:=query1wzleft.AsString;
       end
      else begin
         jjrdz.Font.Name:=qrlabel6.Font.Name;
         jjrdz.Font.Size:=qrlabel6.Font.Size;
         jjrdz.Font.Color:=qrlabel6.Font.Color;
         jjrdztop.Text:=inttostr(qrlabel6.Top);
         jjrdzleft.Text:=inttostr(qrlabel6.Left);
       end;
      if query1.Locate('zdmc','jjryb',[]) then
       begin
         jjryb.Font.Name:=query1ztmc.AsString;
         jjryb.Font.Size:=query1ztdx.AsInteger;
         jjryb.Font.Color:=query1ztys.AsInteger;
         jjrybtop.Text:=query1wztop.AsString;
         jjrybleft.Text:=query1wzleft.AsString;
       end
      else begin
         jjryb.Font.Name:=qrlabel7.Font.Name;
         jjryb.Font.Size:=qrlabel7.Font.Size;
         jjryb.Font.Color:=qrlabel7.Font.Color;
         jjrybtop.Text:=inttostr(qrlabel7.Top);
         jjrybleft.Text:=inttostr(qrlabel7.Left);
       end;
end;

procedure TxfForm.FormCreate(Sender: TObject);
begin
     xx:='';
end;

end.