fjdlth_un.pas

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

unit fjdlth_un;

interface

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

type
  Tfjdlth_frm = class(Tfjxcbase_frm)
    tbl_gt: TADOTable;
    ds_gt: TDataSource;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsdb_1: TbsSkinEdit;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel17: TbsSkinStdLabel;
    bssl_1: TbsSkinDBText;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinStdLabel14: TbsSkinStdLabel;
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinStdLabel16: TbsSkinStdLabel;
    bsSkinStdLabel18: TbsSkinStdLabel;
    bsSkinStdLabel23: TbsSkinStdLabel;
    bsSkinStdLabel22: TbsSkinStdLabel;
    bsSkinStdLabel21: TbsSkinStdLabel;
    bsSkinStdLabel20: TbsSkinStdLabel;
    bsSkinStdLabel19: TbsSkinStdLabel;
    sp_checkdlfj: TADOStoredProc;
    procedure acNewExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure acDeleteExecute(Sender: TObject);
  private
    { Private declarations }
      procedure setsta();
  public
    { Public declarations }
  end;

var
  fjdlth_frm: Tfjdlth_frm;

implementation

{$R *.dfm}
procedure Tfjdlth_frm.setsta();
var i:integer;
begin
 for i:=0 to ComponentCount-1 do
   if Components[i] is  TbsSkinDBLookupComboBox then
    TbsSkinDBLookupComboBox(Components[i]).KeyValue:=null;
    bsSkinPanel3.Enabled:=false;
    bsSkinCheckRadioBox2.Checked:=true;
    acNew.Enabled:=true;
    acModify.Enabled:=true;
    acDelete.Enabled:=true;
    acSave.Enabled:=false;
    acCancel.Enabled:=false;
    bsSkinGroupBox3.Enabled:=true;
    bsSkinDBGrid2.Enabled:=true;
    bsSkinStdLabel19.Caption:='';
    bsSkinStdLabel20.Caption:='';
    bsSkinStdLabel21.Caption:='';
    bsSkinStdLabel22.Caption:='';
    bsSkinStdLabel23.Caption:='';
    exit;
end;
procedure Tfjdlth_frm.acNewExecute(Sender: TObject);
var fw:integer;
begin
  inherited;
if LeftStr(sp_fjlx.Parameters.ParamValues['@OutStr'],2)='PZ' then
begin
            with sp_checkdlfj.Parameters do
            begin
                  ParamValues['@fpjzl']:= sp_fjlx.Parameters.ParamValues['@OutStr'];
                  ParamValues['@gt']:=tbl_gt.FieldValues['fid'];
            end;
            sp_checkdlfj.ExecProc;
                  if   sp_checkdlfj.Parameters.ParamValues['@exist']=1 then
                        begin
                              bsSkinStdLabel19.Caption:='有领货';
                              bsSkinStdLabel20.Caption:=IntToStr(sp_checkdlfj.Parameters.ParamValues['@fl']);
                              bsSkinStdLabel21.Caption:=IntToStr(sp_checkdlfj.Parameters.ParamValues['@fx']);
                              bsSkinStdLabel22.Caption:= IntToStr(sp_checkdlfj.Parameters.ParamValues['@ft']);
                              fw:= sp_checkdlfj.Parameters.ParamValues['@fl']-sp_checkdlfj.Parameters.ParamValues['@fx']-sp_checkdlfj.Parameters.ParamValues['@ft'];
                              bsSkinStdLabel23.Caption:=IntToStr(fw);
                                if fw=0 then
                                       bsSkinStdLabel19.Caption:='没有存货';
                        end;
                  if sp_checkdlfj.Parameters.ParamValues['@exist']=0 then
                        begin
                          bsSkinStdLabel19.Caption:='代理商没有领货';
                            if  bsSkinMessage1.MessageDlg('代理商没有领这种货,是否继续??',mtWarning,[mbYes,mbNo],0)=mrno then
                                  setsta();
                        end ;                                 
                  if  (sp_checkdlfj.Parameters.ParamValues['@exist']=1)and ((fw=0)or(fw<0)) then
                            if  bsSkinMessage1.MessageDlg('代理商没有存货,是否继续??',mtWarning,[mbYes,mbNo],0)=mrno then
                                  setsta();

end
else
setsta();


end;

procedure Tfjdlth_frm.FormCreate(Sender: TObject);

begin
tbl_gt.Open;
  inherited;
  bsSkinStdLabel23.Caption:='';

end;

procedure Tfjdlth_frm.acSaveExecute(Sender: TObject);
begin

with spsave.Parameters do
begin
ParamValues['@IDType']:='FT';
ParamValues['@act']:=act;
ParamValues['@pjzl']:=bsSkinStdLabel4.Caption;
ParamValues['@gt']:=tbl_gt.FieldValues['fid'];
ParamValues['@num']:=bsdb_1.Text;
ParamValues['@date']:=Date();
ParamValues['@glfjid']:=bsSkinStdLabel17.Caption;

end;
  inherited;

end;

procedure Tfjdlth_frm.acModifyExecute(Sender: TObject);
begin
bsSkinStdLabel17.Caption:=bssl_1.Caption;
bsdb_1.Text:=bsSkinDBEdit1.Text;
  inherited;

end;

procedure Tfjdlth_frm.FormShow(Sender: TObject);
begin
bsSkinStdLabel17.Caption:='';
bsSkinStdLabel19.Caption:='' ;
bsSkinStdLabel20.Caption:='';
bsSkinStdLabel21.Caption:='';
bsSkinStdLabel22.Caption:='';
bsSkinStdLabel23.Caption:='';
  inherited;

end;

procedure Tfjdlth_frm.acDeleteExecute(Sender: TObject);
begin
with spsave.Parameters do
begin
ParamValues['@IDType']:='FT';
ParamValues['@act']:=3;
end;
  inherited;

end;

end.