ppbs_un.pas

手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能

unit ppbs_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, giractgir_un, ActnList, DB, ADODB, bsMessages, bsSkinData,
  BusinessSkinForm, ExtCtrls, bsSkinCtrls, bsdbctrls, StdCtrls,
  bsSkinGrids, bsDBGrids, Mask, bsSkinBoxCtrls,StrUtils;

type
  Tppbs_frm = class(Tgiractgir_frm)
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinEdit3: TbsSkinEdit;
    sp_save: TADOStoredProc;
    bsSkinNumericEdit1: TbsSkinNumericEdit;
    bsSkinMemo1: TbsSkinMemo;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsdb_1: TbsSkinEdit;
    procedure bsSkinEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinNumericEdit1Change(Sender: TObject);
    procedure ds_topDataChange(Sender: TObject; Field: TField);
    procedure act_SaveExecute(Sender: TObject);
    procedure act_DeleteExecute(Sender: TObject);
    procedure act_NewExecute(Sender: TObject);
    procedure act_ModifyExecute(Sender: TObject);
    procedure bsSkinCheckRadioBox1Click(Sender: TObject);
    procedure act_RefreshExecute(Sender: TObject);
  private
  act:integer;
  s:string;//标专是否是修改
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ppbs_frm: Tppbs_frm;

implementation
    uses data_un;
{$R *.dfm}

procedure Tppbs_frm.bsSkinEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;

//bsSkinEdit3.Text:=IntToStr(StrToInt(sp_top.FieldValues['fmon'])-StrToInt(bsSkinEdit2.text));

end;

procedure Tppbs_frm.bsSkinNumericEdit1Change(Sender: TObject);
begin
  inherited;
//原价减去现在的折扣价

if s<>'X'then
 bsSkinEdit3.Text:= IntToStr(StrToInt(sp_top.FieldValues['fomon'])-StrToInt(FloatToStr(bsSkinNumericEdit1.Value)))
 else
 bsSkinEdit3.Text:= IntToStr(StrToInt(sp_bottom.FieldValues['fomon'])-StrToInt(FloatToStr(bsSkinNumericEdit1.Value)));
 end;

procedure Tppbs_frm.ds_topDataChange(Sender: TObject; Field: TField);
begin
  inherited;
  bsSkinMemo1.Clear;
if sp_top.RecordCount>0 then
begin
if LeftStr(sp_top.FieldValues['fpubid'],2)='KT' then
bsSkinMemo1.Lines.Add('本手机是由于技术原因，客户换货后，而退还经销商的，避免利润重复，基价是退货价格;')
else
bsSkinMemo1.Lines.Add('本手机是因为其它原因而被退货的，与客户无关，无利润重复，基价是进货价格;');
bsdb_1.Text:=sp_top.FieldValues['fomon'];
end;
end;

procedure Tppbs_frm.act_SaveExecute(Sender: TObject);
var t:string;
begin
 // inherited;

 if s='X' then
  t:='是否真的修改此记录'
  else
  t:= '是否真的盘平此报损机';
if bsSkinMessage1.MessageDlg(t,mtWarning,[mbYes,mbNo],0)=mryes then
with sp_save.Parameters do
begin
  ParamValues['@act']:=Act;
  ParamValues['@date']:=Date();
  ParamValues['@bsfhid']:=bsSkinDBText1.Caption;
   if s<>'X' then
  ParamValues['@bsid']:=bsSkinDBText.Caption;
  ParamValues['@cmon']:=bsSkinEdit3.Text;
  if s<>'X' then
  ParamValues['@omon']:=sp_top.FieldValues['fomon'];

  sp_save.ExecProc;
  bsSkinMessage1.MessageDlg('操作成功',mtInformation,[mbYes,mbNo],0)
end    ;
act_RefreshExecute(self);
end;

procedure Tppbs_frm.act_DeleteExecute(Sender: TObject);
begin
 // inherited;
act:=3;
if bsSkinMessage1.MessageDlg('是否真删除盘平记录',mtWarning,[mbYes,mbNo],0)=mryes then
with sp_save.Parameters do
begin
  ParamValues['@act']:=Act;
  ParamValues['@date']:=Date();
  ParamValues['@cmon']:=bsSkinEdit3.Text;
  ParamValues['@bsfhid']:=bsSkinDBText1.Caption;

  sp_save.ExecProc;
  bsSkinMessage1.MessageDlg('操作成功',mtInformation,[mbYes,mbNo],0)
end   ;
act_RefreshExecute(self);
end;

procedure Tppbs_frm.act_NewExecute(Sender: TObject);
begin
  inherited;
act:=1;

end;

procedure Tppbs_frm.act_ModifyExecute(Sender: TObject);
begin
  inherited;
act:=2;
s:='X';
bsdb_1.Text:=sp_bottom.FieldValues['fomon'];
bsSkinEdit3.Text:= sp_bottom.FieldValues['fcmon'] ;

end;

procedure Tppbs_frm.bsSkinCheckRadioBox1Click(Sender: TObject);
begin
  inherited;
  if sp_top.RecordCount>0 then
  begin
bsdb_1.Text:=sp_top.FieldValues['fomon'];
end;
//bsSkinEdit3.Text:= sp_bottom.FieldValues['fcmon'] ;
act_NewExecute(self);
end;

procedure Tppbs_frm.act_RefreshExecute(Sender: TObject);
begin
  inherited;
sp_top.Close;
sp_top.Open;
sp_bottom.Close;
sp_bottom.Open;
end;

end.