xzfs.pas

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

unit xzfs;

interface

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

type
  Txzform = class(TForm)
    SpeedButton757: TSpeedButton;
    SpeedButton758: TSpeedButton;
    SpeedButton759: TSpeedButton;
    SpeedButton760: TSpeedButton;
    SpeedButton761: TSpeedButton;
    SpeedButton762: TSpeedButton;
    SpeedButton763: TSpeedButton;
    SpeedButton764: TSpeedButton;
    SpeedButton765: TSpeedButton;
    SpeedButton766: TSpeedButton;
    SpeedButton1: TSpeedButton;
    Bevel1: TBevel;
    Label1: TLabel;
    SpeedButton3: TSpeedButton;
    Bevel4: TBevel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton764Click(Sender: TObject);
    procedure SpeedButton765Click(Sender: TObject);
    procedure SpeedButton766Click(Sender: TObject);
    procedure SpeedButton761Click(Sender: TObject);
    procedure SpeedButton762Click(Sender: TObject);
    procedure SpeedButton763Click(Sender: TObject);
    procedure SpeedButton758Click(Sender: TObject);
    procedure SpeedButton759Click(Sender: TObject);
    procedure SpeedButton760Click(Sender: TObject);
    procedure SpeedButton757Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  private
    selrow:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xzform: Txzform;
  fkfsbm:array[1..30] of string;
implementation

{$R *.dfm}

procedure Txzform.SpeedButton3Click(Sender: TObject);
begin
     edit1.text:='';
end;

procedure Txzform.SpeedButton764Click(Sender: TObject);
begin
     edit1.text:=edit1.text+'7';
end;

procedure Txzform.SpeedButton765Click(Sender: TObject);
begin
     edit1.text:=edit1.text+'8';
end;

procedure Txzform.SpeedButton766Click(Sender: TObject);
begin
     edit1.text:=edit1.text+'9';
end;

procedure Txzform.SpeedButton761Click(Sender: TObject);
begin
     edit1.text:=edit1.text+'4';
end;

procedure Txzform.SpeedButton762Click(Sender: TObject);
begin
     edit1.text:=edit1.text+'5';
end;

procedure Txzform.SpeedButton763Click(Sender: TObject);
begin
     edit1.text:=edit1.text+'6';
end;

procedure Txzform.SpeedButton758Click(Sender: TObject);
begin
     edit1.text:=edit1.text+'1';
end;

procedure Txzform.SpeedButton759Click(Sender: TObject);
begin
     edit1.text:=edit1.text+'2';
end;

procedure Txzform.SpeedButton760Click(Sender: TObject);
begin
     edit1.text:=edit1.text+'3';
end;

procedure Txzform.SpeedButton757Click(Sender: TObject);
begin
     edit1.text:=edit1.text+'0';
end;

procedure Txzform.SpeedButton1Click(Sender: TObject);
begin
     edit1.text:=edit1.text+'.';
end;

procedure Txzform.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  selrow:=arow;
end;

end.