hrxx_un.pas

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

unit hrxx_un;

interface

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

type
  Thrxx_frm = class(Tactgrild_base)
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    sp_count: TADOStoredProc;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinEdit2: TbsSkinEdit;
    tbl_color: TADOTable;
    ds_color: TDataSource;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDBText2: TbsSkinDBText;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinDBText1: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    procedure FormCreate(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure acDeleteExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hrxx_frm: Thrxx_frm;

implementation
  uses data_un,golb;
{$R *.dfm}

procedure Thrxx_frm.FormCreate(Sender: TObject);

begin

tbl_color.Open;



  inherited;



end;

procedure Thrxx_frm.acModifyExecute(Sender: TObject);
begin
  inherited;
bsSkinEdit2.Text:=bsSkinDBEdit1.Text;
bsSkinDBLookupComboBox1.KeyValue:=bsSkinDBLookupComboBox2.KeyValue;
bsSkinStdLabel5.Caption:=bsSkinDBText2.Caption;
end;

procedure Thrxx_frm.acSaveExecute(Sender: TObject);
begin
with spsave.Parameters do
begin
ParamValues['@act']:=act;
ParamValues['@vhrcid']:=bsSkinDBText1.Caption;
if act=2 then
ParamValues['@vid']:=bsSkinStdLabel5.Caption;
ParamValues['@no'] :=bsSkinEdit2.Text;
ParamValues['@color']:=tbl_color.FieldValues['fid'];
ParamValues['@mon']:=bsSkinStdLabel7.Caption;
end;
  inherited;
  if bsSkinSpeedButton12.Visible then
  begin


sp_count.Parameters.ParamValues['@hrcid']:=bsSkinDBText1.caption;
sp_count.ExecProc;

    if sp_count.Parameters.ParamValues['@an']=1 then
      begin
        bsSkinMessage1.MessageDlg('录入的手机串号数量已达到了进货的数量只能进行编辑',mtInformation,[mbyes],0);
        bsSkinSpeedButton12.Visible:=false;
      end;
  end;

//spdisp.Parameters.ParamValues['@hrcid']:=bsSkinDBText1.caption;
end;

procedure Thrxx_frm.acNewExecute(Sender: TObject);
begin
  inherited;
bsSkinStdLabel5.Caption:='';
end;

procedure Thrxx_frm.FormShow(Sender: TObject);
begin
spdisp.Parameters.ParamValues['@hrcid']:=bsSkinDBText1.caption;
  inherited;

sp_count.Parameters.ParamValues['@hrcid']:=bsSkinDBText1.caption;
sp_count.ExecProc;
if sp_count.Parameters.ParamValues['@an']=1 then
begin
bsSkinMessage1.MessageDlg('录入的手机串号数量已达到了进货的数量只能进行编辑',mtInformation,[mbyes],0);
bsSkinSpeedButton12.Visible:=false;
end;

end;

procedure Thrxx_frm.acDeleteExecute(Sender: TObject);
begin
 bsSkinMessage1.MessageDlg('入库机子，不能删除，只能进入编辑状态',mtWarning,[mbYes],0);


end;

end.