delpay.~pas

简单的餐饮软件部分源码

unit delpay;

interface

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

type
  Tfdelpay = class(TForm)
    dbg1: TDBGrid;
    bit1: TBitBtn;
    bit2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure bit2Click(Sender: TObject);
    procedure Delmemovis(Sender: TObject);
    procedure bit1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    DelSQLStr:string;
  end;
var
  fdelpay: Tfdelpay;

implementation
uses SnackDM;
{$R *.dfm}
procedure Tfdelpay.Delmemovis(Sender: TObject);
begin
  with datam.delpayado do
   begin
    Close;
    SQL.Clear;
    SQL.Add(''+DelSQLStr+'');
    Open;
   end;
  with dbg1 do
   begin
    Columns[0].Title.caption:=DataM.SPLanguage.ReadString('captions','00112','');
    Columns[1].Title.caption:=DataM.SPLanguage.ReadString('captions','00113','');
    Columns[2].Title.caption:=DataM.SPLanguage.ReadString('captions','00114','');
    Columns[3].Title.caption:=DataM.SPLanguage.ReadString('captions','00115','');
    Columns[0].Title.Alignment:=taCenter;
    Columns[1].Title.Alignment:=taCenter;
    Columns[2].Title.Alignment:=taCenter;
    Columns[3].Title.Alignment:=taCenter;
    Columns[0].Width:=80;
    Columns[1].Width:=60;
    Columns[2].Width:=100;
    Columns[3].Width:=60;
   end;
end;
procedure Tfdelpay.FormCreate(Sender: TObject);
begin
 fdelpay.Caption:=datam.SPLanguage.ReadString('captions','00111','');
 bit1.Caption:=datam.SPLanguage.ReadString('captions','00054','');
 bit2.Caption:=datam.SPLanguage.ReadString('captions','00036','');
end;
procedure Tfdelpay.bit2Click(Sender: TObject);
begin
 fdelpay.Close;
 fdelpay.Release;  
end;

procedure Tfdelpay.bit1Click(Sender: TObject);
begin
 datam.delpayado.Delete;  
end;

procedure Tfdelpay.FormShow(Sender: TObject);
begin
 Delmemovis(Sender);
end;

end.