confirmed.pas

来自「PosEasy收银系统源码,Pos机前后台管理代码」· PAS 代码 · 共 62 行

unit confirmed;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Db, DBTables, ComCtrls;

type
  Tconfirmfm = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  confirmfm: Tconfirmfm;

implementation

uses details;

//uses details;

{$R *.DFM}

procedure Tconfirmfm.Button1Click(Sender: TObject);
begin
 if (edit1.text='')then
  begin
   showmessage('请填写出纳编码!');
   edit1.setfocus;
   exit;
  end;

 detailfm.edit1.text:=edit1.text;
 detailfm.edit2.text:=datetimetostr(datetimepicker1.datetime);
 confirmfm.close;
 confirmfm.Release ;
end;

procedure Tconfirmfm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=vk_escape then
  begin
  confirmfm.close;
  confirmfm.Release ;
  end;
end;

end.