fdybm.pas

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

{*******************************************************}
{                                                       }
{       单证打印                                        }
{       Fdybm.pas  定义商品编码
{       2007-07-01 19:06:27
{       独孤九剑 [e-mail]                       }
{       版权所有 (C) 2007 未来科技                      }
{                                                       }
{*******************************************************}

unit Fdybm;

interface

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

type
  TFrmdybm = class(TForm)
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxGroupBox1: TcxGroupBox;
    cxGroupBox2: TcxGroupBox;
    cxDBTextEdit1: TcxDBTextEdit;
    cxDBTextEdit2: TcxDBTextEdit;
    cxDBTextEdit3: TcxDBTextEdit;
    cxDBTextEdit4: TcxDBTextEdit;
    cxDBTextEdit5: TcxDBTextEdit;
    cxDBTextEdit6: TcxDBTextEdit;
    cxDBTextEdit7: TcxDBTextEdit;
    cxDBTextEdit8: TcxDBTextEdit;
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    cxLabel3: TcxLabel;
    cxLabel4: TcxLabel;
    cxLabel5: TcxLabel;
    cxLabel6: TcxLabel;
    cxLabel7: TcxLabel;
    cxLabel8: TcxLabel;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    cxButton3: TcxButton;
    cxButton4: TcxButton;
    cxButton5: TcxButton;
    DBGridEh1: TDBGridEh;
    cxDBTextEdit9: TcxDBTextEdit;
    cxLabel9: TcxLabel;
    cxTextEdit1: TcxTextEdit;
    cxButton6: TcxButton;
    procedure FormCreate(Sender: TObject);
    procedure cxButton1Click(Sender: TObject);
    procedure cxButton3Click(Sender: TObject);
    procedure cxButton5Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure cxButton4Click(Sender: TObject);
    procedure DBGridEh1CellClick(Column: TColumnEh);
    procedure cxTextEdit1Click(Sender: TObject);
    procedure cxTextEdit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cxButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmdybm: TFrmdybm;

implementation

uses UDM;

{$R *.dfm}

procedure TFrmdybm.cxButton1Click(Sender: TObject);
begin
  dm.qry2.Append;
  dm.qry2.edit;
  cxButton5.Enabled:=true;
  cxbutton4.Enabled:=true;
end;

procedure TFrmdybm.cxButton2Click(Sender: TObject);
begin
  dm.qry2.edit;
  cxButton5.Enabled:=true;
  cxbutton4.Enabled:=true;
end;

procedure TFrmdybm.cxButton3Click(Sender: TObject);
begin
  if Application.MessageBox('删除选中的记录吗？', '提示信息', MB_OKCANCEL +
    MB_ICONQUESTION) = IDOK then
  begin
    dm.qry2.Delete;
  end;
end;

procedure TFrmdybm.cxButton4Click(Sender: TObject);
begin
  try
    dm.qry2.post;
    cxButton5.Enabled:=false;
    cxbutton4.Enabled:=false;

  //对期出库存处理
    if cxDBTextEdit9.Text<>'' then begin
       with dm.connqry do begin
         active:=false;
         sql.Clear;
         sql.add('insert into kcxx(bm,sl) values(:pbm,:psl)');
         Parameters.ParamByName('pbm').value:=cxDBTextEdit2.text;
         Parameters.ParamByName('psl').value:=StrToFloat(cxDBTextEdit9.Text);
         if StrToFloat(cxDBTextEdit9.Text)>0 then          
           try
             ExecSQL;
           except
             showmessage('库存中已有此商品信息,如果想修改商品信息,请不要添写期初库存!'+#10#13+
                          '如果要修改库存数量请进入库存管理进行修改!');
           end;
            
       end;       
    end;
       
  except
    
  end;
end;

procedure TFrmdybm.cxButton5Click(Sender: TObject);
begin
  dm.qry2.Cancel;
  cxButton5.Enabled:=false;
  cxbutton4.Enabled:=false;
end;

procedure TFrmdybm.cxButton6Click(Sender: TObject);
begin
  close;
end;

procedure TFrmdybm.cxTextEdit1Click(Sender: TObject);
begin
  cxTextEdit1.Clear;
end;

procedure TFrmdybm.cxTextEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with dm.qry2 do begin
    active:=false;
    with sql do begin
      Clear;
      add('select * from spxx where bm like :pbm or pm like :ppm or gg like :pgg ');
    end;
    Parameters.ParamByName('pbm').value:='%'+ cxTextEdit1.Text+'%';
    Parameters.ParamByName('ppm').value:='%'+ cxTextEdit1.Text+'%';
    Parameters.ParamByName('pgg').value:='%'+ cxTextEdit1.Text+'%';
    Active:=true;
  end;
end;

procedure TFrmdybm.DBGridEh1CellClick(Column: TColumnEh);
begin
  if dm.qry2.RecordCount<=0 then
    cxButton3.Enabled:=false
  else
    cxButton5.Enabled:=true;
end;

procedure TFrmdybm.FormCreate(Sender: TObject);
begin
  //修改表头
  DBGridEh1.Columns[0].Title.caption:='货位';
  DBGridEh1.Columns[1].Title.caption:='编码';
  DBGridEh1.Columns[2].Title.caption:='品名';
  DBGridEh1.Columns[3].Title.caption:='规格';
  DBGridEh1.Columns[4].Title.caption:='产地';
  DBGridEh1.Columns[5].Title.caption:='单位';
  DBGridEh1.Columns[6].Title.caption:='进价';
  DBGridEh1.Columns[7].Title.caption:='单价';
  DBGridEh1.Columns[8].Title.caption:='数量';

  //初始化按钮
  
end;

end.