sjrcduo_un.pas

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

unit sjrcduo_un;

interface

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

type
  Tsjrcduo_frm = class(Tactgrild_base)
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinDBText2: TbsSkinDBText;
    bsSkinDBLookupComboBox8: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox7: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox6: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox5: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    ds_sjcs: TDataSource;
    tbl_sjcs: TADOQuery;
    tbl_sjxh: TADOTable;
    ds_sjxh: TDataSource;
    ds_sjpz: TDataSource;
    tbl_sjpz: TADOTable;
    ds_hyd: TDataSource;
    tbl_hyd: TADOTable;
    bsSkinButton1: TbsSkinButton;
    bsSkinEdit5: TbsSkinDBDateEdit;
    bsSkinDateEdit1: TbsSkinDateEdit;
    procedure acModifyExecute(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure acDeleteExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  sjrcduo_frm: Tsjrcduo_frm;

implementation
  uses hrxx_un;
{$R *.dfm}

procedure Tsjrcduo_frm.acModifyExecute(Sender: TObject);
begin
  inherited;
bsSkinDateEdit1.Date:=bsSkinEdit5.Date;
bsSkinDBLookupComboBox5.KeyValue:=bsSkinDBLookupComboBox1.KeyValue;
bsSkinDBLookupComboBox6.KeyValue:=bsSkinDBLookupComboBox2.KeyValue;
bsSkinDBLookupComboBox7.KeyValue:=bsSkinDBLookupComboBox4.KeyValue;
bsSkinDBLookupComboBox8.KeyValue:=bsSkinDBLookupComboBox3.KeyValue;
bsSkinEdit2.Text:=bsSkinDBEdit3.Text;
bsSkinEdit3.Text:=bsSkinDBEdit1.Text;
bsSkinEdit4.Text:=bsSkinDBEdit2.Text;
bsSkinStdLabel10.Caption:=bsSkinDBText2.Caption;


end;

procedure Tsjrcduo_frm.acNewExecute(Sender: TObject);
begin

bsSkinStdLabel10.Caption:='';

  inherited;
  bsSkinEdit5.Text:=DateToStr(Date());

end;

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


end;

procedure Tsjrcduo_frm.acSaveExecute(Sender: TObject);
begin
if strtoint(bsSkinEdit2.Text)<=1 then
begin
bsSkinMessage1.MessageDlg('进货数量小于二台，请到单机进货中输入', mtWarning, [mbYes], 0);
exit;
end;
with spsave.Parameters do
begin
ParamValues['@num']:= strtoint(bsSkinEdit2.Text);
ParamValues['@Vact']:= act;
ParamValues['@vmodel']:=tbl_sjxh.FieldValues['fid'];
ParamValues['@vjbpz']:= tbl_sjpz.FieldValues['fid'];
if act=2 then
ParamValues['@vid']:=bsSkinStdLabel10.Caption;
ParamValues['@vmoney']:= bsSkinEdit3.Text;
ParamValues['@vgl']:=bsSkinEdit4.Text;
ParamValues['@vhyd']:= tbl_hyd.FieldValues['fid'];
ParamValues['@vhylx']:='JH';
ParamValues['@dat']:=bsSkinDateEdit1.Date;
end;
  inherited;

end;

procedure Tsjrcduo_frm.FormCreate(Sender: TObject);
begin
  inherited;
tbl_sjcs.Open;
tbl_sjxh.Open;
tbl_sjpz.Open;
tbl_hyd.Open;
end;

procedure Tsjrcduo_frm.bsSkinButton1Click(Sender: TObject);
var hrxx:Thrxx_frm;
begin
  inherited;
  hrxx:=Thrxx_frm.Create(owner);
  //golb.hrcid:=bsSkinStdLabel2.Caption;
   hrxx.bsSkinDBText1.Caption:=bsSkinDBText2.Caption;
   hrxx.bsSkinStdLabel7.caption:=spdisp.FieldValues['fmon'];
  hrxx.ShowModal;
  hrxx.Free;

end;

end.