fjcs_un.pas

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

unit fjcs_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, actgrild_un, DB, ADODB, ActnList, bsMessages, bsSkinData,
  BusinessSkinForm, bsSkinGrids, bsDBGrids, bsdbctrls, StdCtrls, Mask,
  bsSkinBoxCtrls, bsSkinCtrls, ExtCtrls, RM_class, RM_dset, RM_dbset,
  RM_e_main, RM_e_xls;

type
  Tfjcs_frm = class(Tactgrild_base)
    bsSkinEdit2: TbsSkinEdit;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinDBText1: TbsSkinDBText;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinDBRadioGroup1: TbsSkinDBRadioGroup;
    bsSkinDBRadioGroup2: TbsSkinDBRadioGroup;
    RMXLSExport1: TRMXLSExport;
    RMDBDataSet1: TRMDBDataSet;
    RMReport1: TRMReport;
    procedure acSaveExecute(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure acDeleteExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fjcs_frm: Tfjcs_frm;

implementation

{$R *.dfm}

procedure Tfjcs_frm.acSaveExecute(Sender: TObject);
begin
 with spsave.Parameters do
begin
ParamValues['@act']:=act;
ParamValues['@fna']:=bsSkinEdit2.Text;
ParamValues['@fname']:=bsSkinEdit3.Text;
ParamValues['@fmemo']:=bsSkinEdit4.Text;
if act=2 then
ParamValues['@fid']:=bsSkinStdLabel6.Caption;
ParamValues['@fuse']:=bsSkinDBRadioGroup2.Value;


end;
  inherited;

end;

procedure Tfjcs_frm.acModifyExecute(Sender: TObject);
begin
  inherited;
bsSkinStdLabel6.Caption:=bsSkinDBText1.Caption;
bsSkinEdit2.Text:=bsSkinDBEdit1.Text;
bsSkinEdit3.Text:=bsSkinDBEdit2.Text;
bsSkinEdit4.Text:=bsSkinDBEdit3.Text;
bsSkinDBRadioGroup2.Value:=bsSkinDBRadioGroup1.Value;
end;

procedure Tfjcs_frm.acDeleteExecute(Sender: TObject);
begin

 if bsSkinMessage1.MessageDlg('只能设为停用状态，不能删除'+#13+' 如果同意就转到编辑状态', mtInformation, [mbYes, mbNo], 0)=mryes then
 acModifyExecute(self);

end;

end.