kehugz.pas

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

unit kehugz;

interface

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

type
  ThygzForm = class(TForm)
    SpeedButton757: TSpeedButton;
    SpeedButton758: TSpeedButton;
    SpeedButton759: TSpeedButton;
    SpeedButton760: TSpeedButton;
    SpeedButton761: TSpeedButton;
    SpeedButton762: TSpeedButton;
    SpeedButton763: TSpeedButton;
    SpeedButton764: TSpeedButton;
    SpeedButton765: TSpeedButton;
    SpeedButton766: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Bevel2: TBevel;
    SpeedButton3: TSpeedButton;
    StringGrid1: TStringGrid;
    Bevel4: TBevel;
    Label6: TLabel;
    Edit5: TEdit;
    Query1: TQuery;
    Query2: TQuery;
    Timer1: TTimer;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1fkfsbm: TStringField;
    Query1fkfsmc: TStringField;
    Query1sfjy: TBooleanField;
    Query3: TQuery;
    Query3kh: TStringField;
    Query3zt: TStringField;
    Query3czyxm: TStringField;
    Query3yhlb: TStringField;
    Query3zwxm: TStringField;
    Query3ywxm: TStringField;
    Query3sfzhm: TStringField;
    Query3jrrq: TDateTimeField;
    Query3yxq: TDateTimeField;
    Query3hth: TStringField;
    Query3xfjf: TIntegerField;
    Query3ye: TIntegerField;
    Query3zjxfe: TIntegerField;
    Query3zjcs: TIntegerField;
    Query3dj: TIntegerField;
    Query3dh: TStringField;
    Query3sr: TDateTimeField;
    Query3ah: TStringField;
    Query3yb: TStringField;
    Query3gsmc: TStringField;
    Query3zw: TStringField;
    Query3gsdz: TStringField;
    Query3bz: TStringField;
    UpdateSQL1: TUpdateSQL;
    Query2id: TIntegerField;
    Query2bm: TStringField;
    Query2mc: TStringField;
    Query2ksrq: TDateTimeField;
    Query2zzrq: TDateTimeField;
    Query2zoubie: TStringField;
    Query2kssj: TStringField;
    Query2zzsh: TStringField;
    Query2cdlb: TStringField;
    Query2yhbl: TFloatField;
    Query2zdje: TFloatField;
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(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 FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure Timer1Timer(Sender: TObject);
    procedure Query1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
    procedure HMDET;
  private
    fkfs:array[1..30] of string;
    fkfspd:array[1..30] of boolean;
    selrow:integer;
    ccc:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hygzForm: ThygzForm;

implementation

uses xzfs;

{$R *.dfm}

procedure ThygzForm.SpeedButton3Click(Sender: TObject);
begin
     stringgrid1.cells[1,selrow]:='';
     stringgrid1.cells[2,selrow]:='';
end;

procedure ThygzForm.SpeedButton2Click(Sender: TObject);
begin
     hmdet;
     if not ccc then showmessage('请先选择卡号！！')
     else
     stringgrid1.cells[1,selrow]:=stringgrid1.cells[1,selrow]+'00';
end;

procedure ThygzForm.SpeedButton4Click(Sender: TObject);
begin
     hmdet;
     if not ccc then showmessage('请先选择卡号！！')
     else
     stringgrid1.cells[1,selrow]:=stringgrid1.cells[1,selrow]+'000';
end;

procedure ThygzForm.SpeedButton764Click(Sender: TObject);
begin
     hmdet;
     if not ccc then showmessage('请先选择卡号！！')
     else
     stringgrid1.cells[1,selrow]:=stringgrid1.cells[1,selrow]+'7';
end;

procedure ThygzForm.SpeedButton765Click(Sender: TObject);
begin
     hmdet;
     if not ccc then showmessage('请先选择卡号！！')
     else
     stringgrid1.cells[1,selrow]:=stringgrid1.cells[1,selrow]+'8';
end;

procedure ThygzForm.SpeedButton766Click(Sender: TObject);
begin
     hmdet;
     if not ccc then showmessage('请先选择卡号！！')
     else
     stringgrid1.cells[1,selrow]:=stringgrid1.cells[1,selrow]+'9';
end;

procedure ThygzForm.SpeedButton761Click(Sender: TObject);
begin
     hmdet;
     if not ccc then showmessage('请先选择卡号！！')
     else
     stringgrid1.cells[1,selrow]:=stringgrid1.cells[1,selrow]+'4';
end;

procedure ThygzForm.SpeedButton762Click(Sender: TObject);
begin
     hmdet;
     if not ccc then showmessage('请先选择卡号！！')
     else
     stringgrid1.cells[1,selrow]:=stringgrid1.cells[1,selrow]+'5';
end;

procedure ThygzForm.SpeedButton763Click(Sender: TObject);
begin
     hmdet;
     if not ccc then showmessage('请先选择卡号！！')
     else
     stringgrid1.cells[1,selrow]:=stringgrid1.cells[1,selrow]+'6';
end;

procedure ThygzForm.SpeedButton758Click(Sender: TObject);
begin
     hmdet;
     if not ccc then showmessage('请先选择卡号！！')
     else
     stringgrid1.cells[1,selrow]:=stringgrid1.cells[1,selrow]+'1';
end;

procedure ThygzForm.SpeedButton759Click(Sender: TObject);
begin
     hmdet;
     if not ccc then showmessage('请先选择卡号！！')
     else
     stringgrid1.cells[1,selrow]:=stringgrid1.cells[1,selrow]+'2';
end;

procedure ThygzForm.SpeedButton760Click(Sender: TObject);
begin
     hmdet;
     if not ccc then showmessage('请先选择卡号！！')
     else
     stringgrid1.cells[1,selrow]:=stringgrid1.cells[1,selrow]+'3';
end;

procedure ThygzForm.SpeedButton757Click(Sender: TObject);
begin
     hmdet;
     if not ccc then showmessage('请先选择卡号！！')
     else
     stringgrid1.cells[1,selrow]:=stringgrid1.cells[1,selrow]+'0';
end;

procedure ThygzForm.SpeedButton1Click(Sender: TObject);
begin
     if pos('.',stringgrid1.Cells[1,selrow])>0 then exit;
     hmdet;
     if not ccc then showmessage('请先选择卡号！！')
     else
     stringgrid1.cells[1,selrow]:=stringgrid1.cells[1,selrow]+'.';
end;

procedure ThygzForm.FormCreate(Sender: TObject);
begin
     query1.Open;
     stringgrid1.RowCount:=query1.RecordCount+1;
     query1.Close;
     stringgrid1.Cells[0,0]:='付款方式';
     stringgrid1.Cells[1,0]:='支款金额';
end;

procedure ThygzForm.FormActivate(Sender: TObject);
var ii:integer;
begin
     query1.Open;
     stringgrid1.RowCount:=3;
     query1.Filtered:=true;
     ii:=1;
     while not query1.Eof do
     begin
       stringgrid1.Cells[0,ii]:=query1fkfsmc.AsString;
       stringgrid1.Cells[1,ii]:='';
       stringgrid1.Cells[2,ii]:='';
       fkfs[ii]:=query1fkfsbm.AsString;
       fkfspd[ii]:=query1sfjy.AsBoolean;
       ii:=ii+1;
       query1.Next;
     end;
     query2.Open;
     edit5.Text:=query2mc.AsString;
     selrow:=1;
     timer1.Enabled:=true;
     bitbtn1.Enabled:=false;
end;

procedure ThygzForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     timer1.Enabled:=false;
     query1.Filtered:=false;
     query1.Close;
     query2.Close;
end;

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

procedure ThygzForm.Timer1Timer(Sender: TObject);
var ii:integer;
    val:real;
begin
  val:=0;
  for ii:=1 to stringgrid1.RowCount -1 do
     if stringgrid1.Cells[1,ii]<>'' then val:=val+strtofloat(stringgrid1.Cells[1,ii]);
  val:=round(val*100)/100; 
  edit2.Text:=floattostr(val);
  edit3.Text:=floattostr(round(((strtofloat(edit1.Text) - val))*100)/100);
  if edit3.Text='0' then bitbtn1.Enabled:=true else bitbtn1.Enabled:=false;
end;

procedure ThygzForm.Query1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
    accept:=pos('挂帐',dataset.Fieldbyname('fkfsmc').AsString)>0;
end;

procedure ThygzForm.HMDET;
begin
         if fkfspd[selrow]=false then
         begin
            ccc:=true;
            exit;
         end;
         if stringgrid1.Cells[2,selrow]<>'' then
         begin
          ccc:=true;
          exit;
         end;
         xzform.Caption:=stringgrid1.Cells[0,selrow]+' 号码录入';
         xzform.Label1.Caption:=stringgrid1.Cells[0,selrow]+' 的号码';
         xzform.Edit1.Text:='';
         ccc:=false;
         while not ccc do
          begin
          if xzform.showmodal<>mrok then exit
          else
          begin
           query3.Close;
           query3.ParamByName('cs').AsString:=xzform.Edit1.Text;
           query3.Open;
           if query3.RecordCount>0 then
           begin
             ccc:=true;
             stringgrid1.Cells[2,selrow]:=xzform.Edit1.Text;
           end;
          end;
         end;
end;


end.