foutadd.pas.~23~

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

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(cxDBTextEdit9then.Text)then
  ShowMessage('销售的数据不要大于库存!')
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.