pflr.pas

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

unit pflr;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Grids, DBGrids, DBTables, Db, Buttons, QuickRpt,
  ExtCtrls;

type
  Tpflrf = class(TForm)
    DataSource1: TDataSource;
    UpdateSQL1: TUpdateSQL;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label6: TLabel;
    SpeedButton1: TSpeedButton;
    Label7: TLabel;
    Edit5: TEdit;
    Label10: TLabel;
    Edit8: TEdit;
    Button1: TButton;
    Button2: TButton;
    Bevel1: TBevel;
    Edit4: TEdit;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    pfwj: TQuery;
    pfwjcpbm: TStringField;
    pfwjcpmc: TStringField;
    pfwjylbm: TStringField;
    pfwjylmc: TStringField;
    pfwjyldw: TStringField;
    pfwjyldj: TFloatField;
    pfwjylyl: TFloatField;
    pfwjid: TIntegerField;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    SpeedButton2: TSpeedButton;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit6: TEdit;
    BitBtn5: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure pfwjBeforeClose(DataSet: TDataSet);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4DblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure pfwjAfterScroll(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Edit1DblClick(Sender: TObject);
    procedure Edit2DblClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pflrf: Tpflrf;
  func:string;
implementation

uses pfjg, chzx, caipincxU,rjsmain;

{$R *.DFM}

procedure Tpflrf.FormActivate(Sender: TObject);
begin
     edit1.Text:='';
     func:='';
     panel2.Enabled:=true;
     dbgrid1.Enabled:=true;
     panel1.Enabled:=false;
     pfwj.Open;
end;

procedure Tpflrf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     pfwj.Close;
end;

procedure Tpflrf.pfwjBeforeClose(DataSet: TDataSet);
begin
     pfwj.ApplyUpdates;
end;

procedure Tpflrf.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
     if key=chr(13) then edit1.SetFocus;
end;

procedure Tpflrf.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
     if key=chr(13) then edit5.SetFocus;
end;

procedure Tpflrf.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
     if key=chr(13) then button1.SetFocus;
end;

procedure Tpflrf.Edit4DblClick(Sender: TObject);
begin
   SpeedButton1Click(self);
end;

procedure Tpflrf.SpeedButton1Click(Sender: TObject);
begin
     spbt:='pflr1';
     caipincxf.showmodal;
end;

procedure Tpflrf.SpeedButton2Click(Sender: TObject);
begin
     spbt:='pflr2';
     cpcxf.showmodal;
end;

procedure Tpflrf.Button2Click(Sender: TObject);
begin
  if func='mod' then pfwjAfterScroll(pfwj);
  panel1.Enabled:=false;
  panel2.Enabled:=true;
  dbgrid1.Enabled:=true;
  bitbtn1.SetFocus;
end;

procedure Tpflrf.Button1Click(Sender: TObject);
begin
  if func<>'del' then begin
     if func='add' then pfwj.Append
     else pfwj.Edit; 
     pfwjcpmc.Value:=edit4.Text;
     pfwjcpbm.Value:=edit8.Text;
     pfwjylmc.Value:=edit1.Text;
     pfwjylbm.Value:=edit2.Text;
     pfwjyldw.Value:=edit3.Text;
     pfwjyldj.AsString:=edit6.Text;
     pfwjylyl.AsString:=edit5.Text;
     pfwj.Post;
     end
  else pfwj.Delete;
  panel1.Enabled:=false;
  panel2.Enabled:=true;
  dbgrid1.Enabled:=true;
  bitbtn1.SetFocus;
end;

procedure Tpflrf.pfwjAfterScroll(DataSet: TDataSet);
begin
     if pfwjcpbm.Value='' then exit;
     edit1.Text:=pfwjylmc.Value;
     edit2.Text:=pfwjylbm.Value;
     edit3.Text:=pfwjyldw.AsString;
     edit6.Text:=pfwjyldj.AsString;
     edit5.Text:=pfwjylyl.asstring;
     edit4.Text:=pfwjcpmc.AsString;
     edit8.Text:=pfwjcpbm.AsString;
end;

procedure Tpflrf.BitBtn1Click(Sender: TObject);
begin
     func:='add';
     panel2.Enabled:=false;
     dbgrid1.Enabled:=false;
     panel1.Enabled:=true;
     edit4.SetFocus;
end;

procedure Tpflrf.BitBtn2Click(Sender: TObject);
begin
     func:='mod';
     panel2.Enabled:=false;
     dbgrid1.Enabled:=false;
     panel1.Enabled:=true;
     edit4.SetFocus;
end;

procedure Tpflrf.BitBtn3Click(Sender: TObject);
begin
     func:='del';
     panel2.Enabled:=false;
     dbgrid1.Enabled:=false;
     panel1.Enabled:=true;
     button1.SetFocus;
end;

procedure Tpflrf.BitBtn4Click(Sender: TObject);
begin
     pflrf.Close;
end;

procedure Tpflrf.Edit1DblClick(Sender: TObject);
begin
   SpeedButton2Click(self);
end;

procedure Tpflrf.Edit2DblClick(Sender: TObject);
begin
   SpeedButton2Click(self);
end;

procedure Tpflrf.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=chr(13) then edit5.SetFocus;
end;

procedure Tpflrf.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
     if key=chr(13) then edit5.SetFocus;
end;

procedure Tpflrf.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
     if key=chr(13) then edit5.SetFocus;
end;

procedure Tpflrf.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
     if key=chr(13) then edit5.SetFocus;
end;

procedure Tpflrf.BitBtn5Click(Sender: TObject);
begin
     pfwj.Close;
     pfjgf.showmodal;
     pfwj.Open;
end;

end.