zbjfh_un.pas

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

unit zbjfh_un;

interface

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

type
  Tzbjfh_frm = class(Tbase_frm)
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinStdLabel12: TbsSkinStdLabel;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinSpeedButton5: TbsSkinSpeedButton;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    bsSkinSpeedButton7: TbsSkinSpeedButton;
    bsSkinSpeedButton8: TbsSkinSpeedButton;
    ds_bs: TDataSource;
    sp_zb: TADOStoredProc;
    sp_disp: TADOStoredProc;
    ds_disp: TDataSource;
    bsSkinDBText1: TbsSkinDBText;
    bsSkinStdLabel13: TbsSkinDBText;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinStdLabel16: TbsSkinStdLabel;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    sp_save: TADOStoredProc;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinNumericEdit1: TbsSkinNumericEdit;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinDBText;
    bsSkinPanel5: TbsSkinPanel;
    bsSkinDBGrid2: TbsSkinDBGrid;
    procedure bsSkinButton3Click(Sender: TObject);
    procedure sp_zbAfterOpen(DataSet: TDataSet);
    procedure bsSkinSpeedButton5Click(Sender: TObject);
    procedure bsSkinSpeedButton6Click(Sender: TObject);
    procedure bsSkinSpeedButton7Click(Sender: TObject);
    procedure bsSkinSpeedButton8Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinNumericEdit1Change(Sender: TObject);
    procedure ds_bsDataChange(Sender: TObject; Field: TField);
    procedure ds_dispDataChange(Sender: TObject; Field: TField);
    procedure sp_dispAfterOpen(DataSet: TDataSet);
    procedure bsSkinCheckRadioBox1Click(Sender: TObject);
  private
    { Private declarations }
     act,cmon,omon:Integer;
    procedure pam();

  public
    { Public declarations }
  end;

var
  zbjfh_frm: Tzbjfh_frm;

implementation
   uses data_un;
{$R *.dfm}
    procedure Tzbjfh_frm.pam();
    begin
    sp_save.Parameters.ParamValues['@vact']:=Act;
    sp_save.Parameters.ParamValues['@vdate']:=Date();
    sp_save.Parameters.ParamValues['@vbsid']:=bsSkinStdLabel13.Caption;
    sp_save.Parameters.ParamValues['@vbsfhid']:=bsSkinStdLabel2.Caption;
    sp_save.Parameters.ParamValues['@vcmon']:=cmon;
    sp_save.Parameters.ParamValues['@vmon']:=omon;
    sp_save.ExecProc;
    end;
procedure Tzbjfh_frm.bsSkinButton3Click(Sender: TObject);
begin
  inherited;
close;
end;

procedure Tzbjfh_frm.sp_zbAfterOpen(DataSet: TDataSet);
begin
  inherited;
if   sp_zb.Active then
if sp_zb.RecordCount>0 then
begin
bsSkinPanel2.Enabled:=true;
bsSkinCheckRadioBox1.Enabled:=true;
end
else
begin
bsSkinPanel2.Enabled:=False;
bsSkinCheckRadioBox1.Enabled:=false;
end;
end;

procedure Tzbjfh_frm.bsSkinSpeedButton5Click(Sender: TObject);
begin
  inherited;
sp_zb.First;
end;

procedure Tzbjfh_frm.bsSkinSpeedButton6Click(Sender: TObject);
begin
  inherited;
sp_zb.Prior;
end;

procedure Tzbjfh_frm.bsSkinSpeedButton7Click(Sender: TObject);
begin
  inherited;
sp_zb.Next;
end;

procedure Tzbjfh_frm.bsSkinSpeedButton8Click(Sender: TObject);
begin
  inherited;
sp_zb.Last;
end;

procedure Tzbjfh_frm.bsSkinButton1Click(Sender: TObject);
begin
  inherited;
act:=1;
if bsSkinMessage1.MessageDlg('返回厂家质保手机是否真的返回',mtWarning,[mbYes,mbNo],0)=mryes then
begin
pam();
bsSkinMessage1.MessageDlg('操作成功',mtInformation,[mbYes,mbNo],0)
end;
sp_zb.Close;
sp_zb.Open;
sp_disp.Close;
sp_disp.Open;


end;

procedure Tzbjfh_frm.bsSkinButton2Click(Sender: TObject);
begin
  inherited;
  act:=2;

if bsSkinMessage1.MessageDlg('真的修改记录吗？',mtInformation,[mbYes,mbNo],0)=mryes then
begin
pam();
bsSkinMessage1.MessageDlg('修改成功',mtInformation,[mbYes,mbNo],0);
end;
sp_disp.Close;
sp_disp.Open;

end;

procedure Tzbjfh_frm.bsSkinButton4Click(Sender: TObject);
begin
  inherited;
  act:=3;
if bsSkinMessage1.MessageDlg('真的删除记录吗？',mtWarning,[mbYes,mbNo],0)=mryes then
begin
pam();
bsSkinMessage1.MessageDlg('删除成功',mtInformation,[mbYes,mbNo],0);
end;
sp_zb.Close;
sp_zb.Open;
sp_disp.Close;
sp_disp.Open;
end;

procedure Tzbjfh_frm.FormCreate(Sender: TObject);
begin
  inherited;

bsSkinButton4.Enabled:=false;
bsSkinButton2.Enabled:=false;
bsSkinButton1.Enabled:=false;
  sp_zb.Open;
sp_disp.Open;


end;

procedure Tzbjfh_frm.bsSkinNumericEdit1Change(Sender: TObject);
begin
  inherited;
 cmon:=StrToInt(FloatToStr(bsSkinNumericEdit1.Value)) ;
  bsSkinButton1.Enabled:=true;
 if bsSkinStdLabel2.Caption<>'' then
 begin
 bsSkinButton2.Enabled:=true;
 end;
 end;

procedure Tzbjfh_frm.ds_bsDataChange(Sender: TObject; Field: TField);
begin
  inherited;

 if sp_zb.RecordCount>0 then
 begin
 omon:=StrToInt(sp_zb.FieldValues['fmon']);
 //bsSkinStdLabel13.Caption:=sp_zb.FieldValues['fbsid']  ;
 end;
end;

procedure Tzbjfh_frm.ds_dispDataChange(Sender: TObject; Field: TField);
begin
  inherited;
 {
if sp_disp.RecordCount>0 then
begin
bsSkinButton2.Enabled:=true;
bsSkinButton4.Enabled:=True;
//bsSkinStdLabel2.Caption:=sp_disp.FieldValues['fzbfhid'];
end
else
begin
bsSkinButton2.Enabled:=false;
bsSkinButton4.Enabled:=false;
bsSkinStdLabel2.Caption:='';
end;     }

end;

procedure Tzbjfh_frm.sp_dispAfterOpen(DataSet: TDataSet);
begin
  inherited;
if sp_disp.RecordCount>0 then
begin
bsSkinButton2.Enabled:=true;
bsSkinButton4.Enabled:=true;
end
else
begin
bsSkinButton2.Enabled:=false;
bsSkinButton4.Enabled:=false;
end;
end;

procedure Tzbjfh_frm.bsSkinCheckRadioBox1Click(Sender: TObject);
begin
  inherited;
bsSkinButton1.Enabled:=bsSkinCheckRadioBox1.Checked;;
bsSkinPanel2.Enabled:=not bsSkinCheckRadioBox1.Checked;
bsSkinDBGrid1.Enabled:= not bsSkinCheckRadioBox1.Checked;
end;

end.