dlpz_un.pas

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

unit dlpz_un;

interface

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

type
  Tdlpz_frm = class(Tsjinfobase_frm)
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    ds_gt: TDataSource;
    tbl_gt: TADOTable;
    bsSkinStdLabel16: TbsSkinStdLabel;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox5: TbsSkinDBLookupComboBox;
    bsdb_1: TbsSkinEdit;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinStdLabel17: TbsSkinStdLabel;
    bsSkinStdLabel18: TbsSkinStdLabel;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsdb_2: TbsSkinEdit;
    ds_ygzl: TDataSource;
    tbl_ygzl: TADOTable;
    bssl_1: TbsSkinDBText;
    bsSkinStdLabel19: TbsSkinStdLabel;
    bsSkinStdLabel20: TbsSkinStdLabel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinStdLabel21: TbsSkinStdLabel;
    bsSkinStdLabel22: TbsSkinStdLabel;
    bsSkinStdLabel23: TbsSkinStdLabel;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinDBLookupComboBox3Change(Sender: TObject);
    procedure bsSkinDBLookupComboBox1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinDBLookupComboBox4Change(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acDeleteExecute(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dlpz_frm: Tdlpz_frm;

implementation

{$R *.dfm}

procedure Tdlpz_frm.FormCreate(Sender: TObject);
begin
 tbl_ygzl.Open;
tbl_gt.Open;
tbl_gt.First;
sp_view.Parameters.ParamValues['@act']:=3;
sp_view.Parameters.ParamValues['@gtid']:=tbl_gt.FieldValues['fid'];
//sp_view.Parameters.ParamValues['@val']:=tbl_sjxh.FieldValues['fid'];

sp_view.ExecProc;
sp_view.Open;
spdisp.Parameters.ParamValues['@act']:=1  ;
spdisp.ExecProc;
  inherited;

end;

procedure Tdlpz_frm.bsSkinDBLookupComboBox3Change(Sender: TObject);
begin
sp_view.Parameters.ParamValues['@gtid']:=tbl_gt.FieldValues['fid'] ;
  inherited;

end;

procedure Tdlpz_frm.bsSkinDBLookupComboBox1Change(Sender: TObject);
begin
sp_view.close;
sp_view.Parameters.ParamValues['@act']:=3;
sp_view.Parameters.ParamValues['@gtid']:=tbl_gt.FieldValues['fid'];
sp_view.ExecProc;
sp_view.Open;

end;

procedure Tdlpz_frm.FormShow(Sender: TObject);
begin
sp_view.Parameters.ParamValues['@act']:=3;
sp_view.Parameters.ParamValues['@gtid']:=tbl_gt.FieldValues['fid'];
spdisp.Parameters.ParamValues['@act']:=2;
  inherited;

end;

procedure Tdlpz_frm.bsSkinDBLookupComboBox4Change(Sender: TObject);
begin
sp_view.Parameters.ParamValues['@gtid']:=tbl_gt.FieldValues['fid'] ;
  inherited;

end;

procedure Tdlpz_frm.acSaveExecute(Sender: TObject);
begin

with spsave.Parameters do
begin
ParamValues['@lx']:=1;
ParamValues['@act']:=act;
ParamValues['@date']:=Date();
ParamValues['@hrxx']:=bsSkinStdLabel19.Caption;
ParamValues['@sjxh']:=bsSkinDBText7.Caption;
ParamValues['@pz']:=bsSkinDBText9.Caption;
ParamValues['@color']:=bsSkinDBText2.Caption;
ParamValues['@glid']:=sp_view.FieldValues['fglid'];
ParamValues['@memo']:=bsdb_2.Text;
ParamValues['@no']:=bsSkinDBText8.Caption;
ParamValues['@name']:=bsSkinEdit3.Text;
ParamValues['@person']:= tbl_ygzl.FieldValues['fid'];
ParamValues['@mon']:=bsdb_1.Text;
ParamValues['@tel']:=bsSkinEdit4.Text;

end;
  inherited;
sp_view.Close;
sp_view.Open;
end;

procedure Tdlpz_frm.acDeleteExecute(Sender: TObject);
begin
with spsave.Parameters do
begin
ParamValues['@lx']:=1;
ParamValues['@act']:=3;
end;
  inherited;

end;

procedure Tdlpz_frm.acNewExecute(Sender: TObject);
begin
bsSkinStdLabel19.Caption:=sp_view.FieldValues['fid'];
  inherited;
bsSkinEdit3.Text:=Trim(bsSkinDBText1.Caption);
bsSkinEdit4.Text:=Trim(bsSkinDBText3.Caption);
bsdb_2.Text:='由代理商'+Trim(bsSkinDBText1.Caption)+'代销' ;


end;

procedure Tdlpz_frm.acModifyExecute(Sender: TObject);
begin
bsSkinStdLabel19.Caption:=Trim(bssl_1.Caption);
bsdb_1.Text:=Trim(bsSkinDBEdit1.Text);
bsdb_2.Text:=Trim(bsSkinDBEdit2.Text);
bsSkinDBLookupComboBox5.KeyValue:=bsSkinDBLookupComboBox2.KeyValue;
 bsSkinEdit3.Text:=Trim(bsSkinDBEdit3.Text);
bsSkinEdit4.Text:=Trim( bsSkinDBEdit5.Text) ;
  inherited;

end;

end.