sjnofollow_un.pas

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

unit sjnofollow_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmbase_un, bsMessages, bsSkinData, BusinessSkinForm, StdCtrls,
  Mask, bsSkinBoxCtrls, bsSkinCtrls, DB, ADODB, RM_dset, RM_dbset, RM_class,
  Grids, DBGrids, RM_e_main, RM_e_xls;

type
  Tsjno_frm = class(Tbase_frm)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinEdit1: TbsSkinEdit;
    sp_count: TADOStoredProc;
    ds_count: TDataSource;
    RMReport1: TRMReport;
    rmdb_count: TRMDBDataSet;
    sp_noinfo: TADOStoredProc;
    ds_noinfo: TDataSource;
    rmdb_noinfo: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjno_frm: Tsjno_frm;

implementation
 uses data_un;
{$R *.dfm}

procedure Tsjno_frm.bsSkinButton1Click(Sender: TObject);
begin
  inherited;
  if sp_count.Active then
  sp_count.Close;
  sp_count.Parameters.ParamValues['@fno']:=bsSkinEdit1.Text;
  sp_count.ExecProc;
  if sp_noinfo.Active then
  sp_noinfo.Close;
  sp_noinfo.Parameters.ParamValues['@fno']:= bsSkinEdit1.Text;
  sp_noinfo.ExecProc;
  RMReport1.ShowReport;
end;

procedure Tsjno_frm.bsSkinButton2Click(Sender: TObject);
begin
  inherited;
close;

end;

procedure Tsjno_frm.bsSkinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
if Key=#13 then
bsSkinButton1Click(Sender);

end;

end.