foutadd.pas

来自「delphi2007开发的汽车配件进销存系统.实用级的源码.」· PAS 代码 · 共 139 行

{*******************************************************}
{                                                       }
{       单证打印                                        }
{       Foutadd.pas 添加销售商品
{       2007-07-01 19:09:02
{       独孤九剑 [e-mail]                       }
{       版权所有 (C) 2007 未来科技                      }
{                                                       }
{*******************************************************}

unit Foutadd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, cxTextEdit,
  cxLabel, cxContainer, cxEdit, cxDBEdit, cxPC, cxControls, cxGroupBox, ExtCtrls,
  Mask, RzEdit;

type
  TFrmOutAdd = class(TForm)
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxDBTextEdit1: TcxDBTextEdit;
    cxDBTextEdit2: TcxDBTextEdit;
    cxDBTextEdit3: TcxDBTextEdit;
    cxDBTextEdit4: TcxDBTextEdit;
    cxDBTextEdit5: TcxDBTextEdit;
    cxDBTextEdit6: TcxDBTextEdit;
    cxDBTextEdit8: TcxDBTextEdit;
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    cxLabel3: TcxLabel;
    cxLabel4: TcxLabel;
    cxLabel5: TcxLabel;
    cxLabel6: TcxLabel;
    cxLabel8: TcxLabel;
    cxLabel9: TcxLabel;
    cxTextEdit1: TcxTextEdit;
    cxButton2: TcxButton;
    cxButton3: TcxButton;
    cxGroupBox1: TcxGroupBox;
    cxLabel7: TcxLabel;
    cxDBTextEdit7: TcxDBTextEdit;
    cxButton1: TcxButton;
    Shape1: TShape;
    Shape2: TShape;
    cxDBTextEdit9: TcxDBTextEdit;
    cxLabel10: TcxLabel;
    procedure cxButton1Click(Sender: TObject);
    procedure cxTextEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure cxButton3Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmOutAdd: TFrmOutAdd;

implementation

uses UDM, Fout;

{$R *.dfm}

procedure TFrmOutAdd.cxButton1Click(Sender: TObject);
begin
  if Frmoutadd.Height >=380 then
     Frmoutadd.Height:=322
  else
    Frmoutadd.Height:=380;
end;

procedure TFrmOutAdd.cxButton2Click(Sender: TObject);
begin
  if strtofloat(cxTextEdit1.text)> strtofloat(cxDBTextEdit9.Text)then begin
     ShowMessage('销售的数量不可以大于库存数量!');
     cxTextEdit1.SetFocus;
    end
  else begin
    dm.qry8.close;
    with dm.connqry do begin
      close;
      with sql do begin
        clear;
        add('insert into ');
        add(trim(frmout.cxLabel3.caption));
        //add('(bm,pm,gg,cd,dj,sl) select bm,pm,gg,cd,dj,sl from spxx');
        //add(' where bm=:bm');
        add('(bm,pm,gg,cd,dj,sl) values(:bm,:pm,:gg,:cd,:dj,:sl)');
      end;
      if cxDBTextEdit2.Text <>'' then
         Parameters.ParamByName('bm').Value:=cxDBTextEdit2.Text
      else
        Parameters.ParamByName('bm').Value:='';
      if cxDBTextEdit3.Text <>'' then
         Parameters.ParamByName('pm').Value:=cxDBTextEdit3.Text
      else
         Parameters.ParamByName('pm').Value:='';
      if cxDBTextEdit4.Text <>'' then
         Parameters.ParamByName('gg').Value:=cxDBTextEdit4.Text
      else
         Parameters.ParamByName('gg').Value:='';
      if cxDBTextEdit5.Text <>'' then
         Parameters.ParamByName('cd').Value:=cxDBTextEdit5.Text
      else
         Parameters.ParamByName('cd').Value:='';
      if cxDBTextEdit8.Text <>'' then
         Parameters.ParamByName('dj').Value:=StrToFloat(cxDBTextEdit8.Text)
      else
         Parameters.ParamByName('dj').Value:=0;
      if cxTextEdit1.Text <>'' then
         Parameters.ParamByName('sl').Value:=StrToFloat(cxTextEdit1.Text)
      else
         Parameters.ParamByName('sl').Value:=0;
      ExecSQL
   end;
    dm.qry8.Open;
    close;
    cxTextEdit1.clear;
  end;
end;

procedure TFrmOutAdd.cxButton3Click(Sender: TObject);
begin
  close;
end;

procedure TFrmOutAdd.cxTextEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ((key<'0') or (key>'9'))and (key<>#8) then key:=#0;
end;

end.