xfprnt.pas

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

unit xfprnt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, QuickRpt, QRCtrls, ExtCtrls, DBTables, DB;

type
  TxfForm = class(TForm)
    GroupBox2: TGroupBox;
    Label5: TLabel;
    jjrdz: TEdit;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    zwxm: TEdit;
    yb: TEdit;
    gsmc: TEdit;
    gsdz: TEdit;
    Label6: TLabel;
    jjryb: TEdit;
    BitBtn1: TBitBtn;
    Label7: TLabel;
    zw: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    jjrdztop: TEdit;
    jjrdzleft: TEdit;
    BitBtn2: TBitBtn;
    jjrybtop: TEdit;
    jjrybleft: TEdit;
    BitBtn3: TBitBtn;
    ybtop: TEdit;
    ybleft: TEdit;
    BitBtn4: TBitBtn;
    zwxmtop: TEdit;
    zwxmleft: TEdit;
    BitBtn5: TBitBtn;
    gsmctop: TEdit;
    gsmcleft: TEdit;
    BitBtn6: TBitBtn;
    gsdztop: TEdit;
    gsdzleft: TEdit;
    BitBtn7: TBitBtn;
    zwtop: TEdit;
    zwleft: TEdit;
    BitBtn8: TBitBtn;
    Panel1: TPanel;
    QuickRep1: TQuickRep;
    SummaryBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    FontDialog1: TFontDialog;
    Query1: TQuery;
    UpdateSQL1: TUpdateSQL;
    Query1id: TIntegerField;
    Query1zdmc: TStringField;
    Query1ztmc: TStringField;
    Query1ztdx: TIntegerField;
    Query1ztys: TIntegerField;
    Query1wztop: TSmallintField;
    Query1wzleft: TSmallintField;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xfForm: TxfForm;
  xx:string;
implementation

uses hycxgl;

{$R *.dfm}

procedure TxfForm.BitBtn1Click(Sender: TObject);
begin
   qrlabel1.Caption:=yb.Text;
   if ybtop.Text<>'' then qrlabel1.Top:=strtoint(ybtop.Text);
   if ybleft.Text<>'' then qrlabel1.Left:=strtoint(ybleft.Text);
   qrlabel1.Font.Size:=yb.Font.Size;
   qrlabel1.Font.Name:=yb.Font.Name;
   qrlabel1.Font.Color:=yb.Font.Color;
   qrlabel2.Caption:=gsdz.Text;
   if gsdztop.Text<>'' then qrlabel2.Top:=strtoint(gsdztop.Text);
   if gsdzleft.Text<>'' then qrlabel2.Left:=strtoint(gsdzleft.Text);
   qrlabel2.Font.Size:=gsdz.Font.Size;
   qrlabel2.Font.Name:=gsdz.Font.Name;
   qrlabel2.Font.Color:=gsdz.Font.Color;
   qrlabel3.Caption:=gsmc.Text;
   if gsmctop.Text<>'' then qrlabel3.Top:=strtoint(gsmctop.Text);
   if gsmcleft.Text<>'' then qrlabel3.Left:=strtoint(gsmcleft.Text);
   qrlabel3.Font.Size:=gsmc.Font.Size;
   qrlabel3.Font.Name:=gsmc.Font.Name;
   qrlabel3.Font.Color:=gsmc.Font.Color;
   qrlabel4.Caption:=zwxm.Text;
   if zwxmtop.Text<>'' then qrlabel4.Top:=strtoint(zwxmtop.Text);
   if zwxmleft.Text<>'' then qrlabel4.Left:=strtoint(zwxmleft.Text);
   qrlabel4.Font.Size:=zwxm.Font.Size;
   qrlabel4.Font.Name:=zwxm.Font.Name;
   qrlabel4.Font.Color:=zwxm.Font.Color;
   qrlabel5.Caption:=zw.Text;
   if zwtop.Text<>'' then qrlabel5.Top:=strtoint(zwtop.Text);
   if zwleft.Text<>'' then qrlabel5.Left:=strtoint(zwleft.Text);
   qrlabel5.Font.Size:=zw.Font.Size;
   qrlabel5.Font.Name:=zw.Font.Name;
   qrlabel5.Font.Color:=zw.Font.Color;
   qrlabel6.Caption:=jjrdz.Text;
   if jjrdztop.Text<>'' then qrlabel6.Top:=strtoint(jjrdztop.Text);
   if jjrdzleft.Text<>'' then qrlabel6.Left:=strtoint(jjrdzleft.Text);
   qrlabel6.Font.Size:=jjrdz.Font.Size;
   qrlabel6.Font.Name:=jjrdz.Font.Name;
   qrlabel6.Font.Color:=jjrdz.Font.Color;
   qrlabel7.Caption:=jjryb.Text;
   if jjrybtop.Text<>'' then qrlabel7.Top:=strtoint(jjrybtop.Text);
   if jjrybleft.Text<>'' then qrlabel7.Left:=strtoint(jjrybleft.Text);
   qrlabel7.Font.Size:=jjryb.Font.Size;
   qrlabel7.Font.Name:=jjryb.Font.Name;
   qrlabel7.Font.Color:=jjryb.Font.Color;
   quickrep1.Preview;
   if (hyglform.CheckBox1.Checked) and (not hyglform.ADOQuery1.Eof) then
   begin
     hyglform.ADOQuery1.Next;
     yb.Text:=hyglform.adoquery1yb.AsString;
     gsdz.Text:=hyglform.adoquery1gsdz.AsString;
     gsmc.text:=hyglform.adoquery1gsmc.AsString;
     zw.Text:=hyglform.adoquery1zw.AsString;
     zwxm.Text:=hyglform.adoquery1zwxm.AsString;
   end;
end;

procedure TxfForm.BitBtn4Click(Sender: TObject);
begin
     if FontDialog1.Execute then
     begin
        yb.Font.Name:=FontDialog1.Font.Name;
        yb.Font.Size:=FontDialog1.Font.Size;
        yb.Font.Color:=FontDialog1.Font.Color;
     end;
end;

procedure TxfForm.BitBtn2Click(Sender: TObject);
begin
     if FontDialog1.Execute then
     begin
        jjrdz.Font.Name:=FontDialog1.Font.Name;
        jjrdz.Font.Size:=FontDialog1.Font.Size;
        jjrdz.Font.Color:=FontDialog1.Font.Color;
     end;
end;

procedure TxfForm.BitBtn3Click(Sender: TObject);
begin
     if FontDialog1.Execute then
     begin
        jjryb.Font.Name:=FontDialog1.Font.Name;
        jjryb.Font.Size:=FontDialog1.Font.Size;
        jjryb.Font.Color:=FontDialog1.Font.Color;
     end;
end;

procedure TxfForm.BitBtn5Click(Sender: TObject);
begin
     if FontDialog1.Execute then
     begin
        zwxm.Font.Name:=FontDialog1.Font.Name;
        zwxm.Font.Size:=FontDialog1.Font.Size;
        zwxm.Font.Color:=FontDialog1.Font.Color;
     end;

end;

procedure TxfForm.BitBtn6Click(Sender: TObject);
begin
     if FontDialog1.Execute then
     begin
        gsmc.Font.Name:=FontDialog1.Font.Name;
        gsmc.Font.Size:=FontDialog1.Font.Size;
        gsmc.Font.Color:=FontDialog1.Font.Color;
     end;
end;

procedure TxfForm.BitBtn7Click(Sender: TObject);
begin
     if FontDialog1.Execute then
     begin
        gsdz.Font.Name:=FontDialog1.Font.Name;
        gsdz.Font.Size:=FontDialog1.Font.Size;
        gsdz.Font.Color:=FontDialog1.Font.Color;
     end;
end;

procedure TxfForm.BitBtn8Click(Sender: TObject);
begin
     if FontDialog1.Execute then
     begin
        zw.Font.Name:=FontDialog1.Font.Name;
        zw.Font.Size:=FontDialog1.Font.Size;
        zw.Font.Color:=FontDialog1.Font.Color;
     end;
end;

procedure TxfForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     xx:='';
     if messagedlg('保存本次信封位置设置吗？',mtinformation,[mbyes,mbno],0)=mryes then
     begin
      if query1.Locate('zdmc','yb',[]) then
       begin
         query1.Edit;
         query1ztmc.AsString:=yb.Font.Name;
         query1ztdx.AsInteger:=yb.Font.Size;
         query1ztys.AsInteger:=yb.Font.Color;
         query1wztop.AsInteger:=strtoint(ybtop.Text);
         query1wzleft.AsInteger:=strtoint(ybleft.Text);
         query1.Post;
       end
      else begin
         query1.Append;
         query1zdmc.AsString:='yb';
         query1ztmc.AsString:=yb.Font.Name;
         query1ztdx.AsInteger:=yb.Font.Size;
         query1ztys.AsInteger:=yb.Font.Color;
         query1wztop.AsInteger:=strtoint(ybtop.Text);
         query1wzleft.AsInteger:=strtoint(ybleft.Text);