bjsj_un.pas

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

unit bjsj_un;

interface

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

type
  Tbjsj_frm = class(Tactgrild_base)
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    sp_search: TADOStoredProc;
    ds_search: TDataSource;
    ds_sjxh: TDataSource;
    ds_sjcs: TDataSource;
    tbl_sjcs: TADOQuery;
    tbl_sjxh: TADOTable;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinTextLabel1: TbsSkinTextLabel;
    RMReport1: TRMReport;
    RMXLSExport1: TRMXLSExport;
    RMDBDataSet1: TRMDBDataSet;
    ADOCommand1: TADOCommand;
    procedure acNewExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acDeleteExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure spdispAfterOpen(DataSet: TDataSet);
    procedure acRefreshExecute(Sender: TObject);
    procedure acPrintExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bjsj_frm: Tbjsj_frm;

implementation

{$R *.dfm}

procedure Tbjsj_frm.acNewExecute(Sender: TObject);
begin

spdisp.Parameters.ParamValues['@act']:=1;
spdisp.ExecProc;
with sp_search.Parameters do
begin
ParamValues['@fdate']:= bsSkinDateEdit1.Date;
ParamValues['@edate']:=bsSkinDateEdit2.Date;
ParamValues['@sjxh']:= tbl_sjxh.FieldValues['fid'];
end;
sp_search.ExecProc;

 spdisp.Close;
spdisp.Parameters.ParamValues['@act']:=2;
spdisp.ExecProc;
spdisp.Open;





end;

procedure Tbjsj_frm.acSaveExecute(Sender: TObject);
var s:string;
begin
spdisp.First;
while not spdisp.Eof do
begin
s:=s+Trim(spdisp.FieldValues['fno'])+#13;
spdisp.Next;
end;

if bsSkinMessage1.MessageDlg('本次将要进行保价的手机串号有:'+#13+s+'请仔细检查核对，'+#13+'已检查完毕请按YES，'+#13+'重复检查请按NO', mtInformation, [mbYes, mbNo], 0)=mryes then
begin
spsave.Parameters.ParamValues['@val']:=bsSkinEdit2.Text;
spsave.Parameters.ParamValues['@ffdate']:=bsSkinDateEdit1.Date;
spsave.Parameters.ParamValues['@fedate']:=bsSkinDateEdit2.Date;
spsave.Parameters.ParamValues['@fadate']:=Date();
spsave.Parameters.ParamValues['@fsjxh']:=tbl_sjxh.FieldValues['fid'];
spsave.ExecProc;
bsSkinMessage1.MessageDlg('操作成功', mtInformation, [mbYes], 0)
//close;
end;




//

end;

procedure Tbjsj_frm.acDeleteExecute(Sender: TObject);
begin
bsSkinStdLabel8.Caption:=spdisp.FieldValues['fid'];
if bsSkinMessage1.MessageDlg('您要除去保价范围的手机是：'+#13+'串号：'+Trim(spdisp.FieldValues['fno'])+#13+'基本配置：'+Trim(spdisp.FieldValues['fjbpz'])+#13+'颜色：'+Trim(spdisp.FieldValues['fcolor'])+#13+'当前所在地：'+Trim(spdisp.FieldValues['fwhere'])+#13+'确定请按Yes,取消请按No', mtInformation, [mbYes, mbNo], 0)=mryes then
spdisp.Close;
spdisp.Parameters.ParamValues['@act']:=3;
spdisp.Parameters.ParamValues['@id']:=bsSkinStdLabel8.Caption;
spdisp.ExecProc;
spdisp.Open;
end;

procedure Tbjsj_frm.FormCreate(Sender: TObject);
begin
//

end;

procedure Tbjsj_frm.FormShow(Sender: TObject);
begin
acFirst.Enabled:=false;
acNext.Enabled:=false;
acPrior.Enabled:=false;
acLast.enabled:=false;
acRefresh.Enabled:=false;
acDelete.Enabled:=false;
tbl_sjcs.Open;
tbl_sjxh.Open;

end;

procedure Tbjsj_frm.spdispAfterOpen(DataSet: TDataSet);
begin
if spdisp.RecordCount>0 then
begin
acFirst.Enabled:=true;
acPrior.Enabled:=true;
acNext.Enabled:=True;
acLast.Enabled:=true;
acDelete.Enabled:=true;
acRefresh.Enabled:=true;
end
else
begin
acRefresh.Enabled:=false;
acDelete.Enabled:=false;
acFirst.Enabled:=false;
acPrior.Enabled:=false;
acNext.Enabled:=false;
acLast.Enabled:=false;
end;

end;

procedure Tbjsj_frm.acRefreshExecute(Sender: TObject);
begin
spdisp.Close;
spdisp.Open;


end;

procedure Tbjsj_frm.acPrintExecute(Sender: TObject);
begin
//showmessage (tbl_sjcs.FieldValues['fna']+tbl_sjxh.FieldValues['fmodel']);
RMReport1.Dictionary.Variables.AsString['sjxh'] := Trim(tbl_sjcs.FieldValues['fna'])+Trim(tbl_sjxh.FieldValues['fmodel']);
RMReport1.ShowReport;

end;

procedure Tbjsj_frm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ADOCommand1.Execute;
  inherited;

end;

end.