munincome.pas

简单的餐饮软件部分源码

unit munincome;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  Tfunbu = class(TForm)
    dtpck1: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    but1: TButton;
    but2: TButton;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure but2Click(Sender: TObject);
    procedure but1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  funbu: Tfunbu;
implementation
uses SnackDM,Snmai;
{$R *.dfm}

procedure Tfunbu.Edit1KeyPress(Sender: TObject; var Key: Char);
var p:Integer;
begin
 if key='.' then
  begin
   p:=pos('.',Trim(edit1.Text));
   if p>0 then key:=#0;
  end else  if (key<'0') or (key>'9') then key:=#0;
end;
procedure Tfunbu.FormCreate(Sender: TObject);
begin
 dtpck1.Date:=date;
 self.Caption:=datam.SPLanguage.ReadString('captions','00118','');
 label1.Caption:=datam.SPLanguage.ReadString('captions','00119','');
 label2.Caption:=datam.SPLanguage.ReadString('captions','00120','');
 label3.Caption:=datam.SPLanguage.ReadString('captions','00121','');
 but1.Caption:=datam.SPLanguage.ReadString('captions','00002','');
 but2.Caption:=datam.SPLanguage.ReadString('captions','00036','');

end;

procedure Tfunbu.but2Click(Sender: TObject);
begin
 funbu.Close;
 funbu.Release;  
end;

procedure Tfunbu.but1Click(Sender: TObject);
Var dtdate:string;
begin
// if edit1.Text='' then edit1.Text:='0';
 dtdate:=DateToStr(dtpck1.Date);
 with datam.freeado do
   begin
    Close;
    SQL.Clear;
    SQL.Add('insert snunbumoney (indate,muchcash,recid,idname) Values('''+dtdate+''','''+Trim(edit1.Text)+''','''+mainform.FLogoid+''','''+mainform.FLogouser+''')');
    ExecSQL;
   end;
 but2Click(Sender);  
end;

end.