qdsxunt.pas

商品销售系统完全的功能SQL和JAVA

unit qdsxunt;

interface

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

type
  Tqdsxfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label7: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Edit4: TEdit;
    Edit6: TEdit;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    admin1: TMenuItem;
    windows1: TMenuItem;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qdsxfrm: Tqdsxfrm;

implementation
    uses mainunt,datam;
{$R *.dfm}

procedure Tqdsxfrm.BitBtn1Click(Sender: TObject);
var
str3:string;
begin
   str3:=usrname;
  if recommit_sys(str3,edit1.Text,edit4.Text,strtofloatdef(trim(edit6.Text),0))=true then
   qdsxfrm.Hide;
   qdsxfrm.close;
end;

procedure Tqdsxfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
qdsxfrm:=nil;
qdsxfrm.Free;
end;

procedure Tqdsxfrm.FormActivate(Sender: TObject);
begin
edit1.Text:=formatdatetime('yyyy年mm月dd日',date);
edit4.Text:=formatdatetime('hh点mm分 ampm',now);
end;

procedure Tqdsxfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

end.