khhj_un.pas

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

unit khhj_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
  Tkhhj_frm = class(Tsjinfobase_frm)
    bsSkinPanel11: TbsSkinPanel;
    bsSkinPanel12: TbsSkinPanel;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinDBGrid3: TbsSkinDBGrid;
    bsSkinScrollBar5: TbsSkinScrollBar;
    bsSkinScrollBar6: TbsSkinScrollBar;
    bsSkinStdLabel23: TbsSkinStdLabel;
    bsSkinPanel10: TbsSkinPanel;
    bsSkinStdLabel25: TbsSkinStdLabel;
    bsSkinDBText23: TbsSkinDBText;
    ds_khth: TDataSource;
    sp_khth: TADOStoredProc;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    bsSkinPanel13: TbsSkinPanel;
    bsSkinStdLabel24: TbsSkinStdLabel;
    bsSkinStdLabel26: TbsSkinStdLabel;
    bsSkinStdLabel27: TbsSkinStdLabel;
    bsSkinStdLabel28: TbsSkinStdLabel;
    bsSkinDBText24: TbsSkinDBText;
    bsSkinDBText25: TbsSkinDBText;
    bsSkinDBText26: TbsSkinDBText;
    bsSkinStdLabel29: TbsSkinStdLabel;
    bsSkinDBText27: TbsSkinDBText;
    bsSkinStdLabel30: TbsSkinStdLabel;
    bsSkinStdLabel31: TbsSkinStdLabel;
    bsSkinStdLabel32: TbsSkinStdLabel;
    bsSkinDBText28: TbsSkinDBText;
    bsSkinDBText29: TbsSkinDBText;
    bsSkinDBText30: TbsSkinDBText;
    bsSkinDBText31: TbsSkinDBText;
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinStdLabel18: TbsSkinStdLabel;
    bsSkinStdLabel19: TbsSkinStdLabel;
    bsSkinDBText15: TbsSkinDBText;
    bsSkinStdLabel17: TbsSkinStdLabel;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinStdLabel16: TbsSkinStdLabel;
    ds_yg: TDataSource;
    tbl_yg: TADOTable;
    procedure bsSkinCheckRadioBox3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure acExitExecute(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acDeleteExecute(Sender: TObject);
    procedure acCancelExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  khhj_frm: Tkhhj_frm;

implementation

{$R *.dfm}

procedure Tkhhj_frm.bsSkinCheckRadioBox3Click(Sender: TObject);
begin
  inherited;
bsSkinDBGrid3.Enabled:= not bsSkinCheckRadioBox3.Checked;
bsSkinPanel3.Enabled:=bsSkinCheckRadioBox3.Checked;
end;

procedure Tkhhj_frm.FormShow(Sender: TObject);
begin
  inherited;
bsSkinCheckRadioBox3.Checked:=false;
bsSkinDBGrid3.Enabled:=true;
bsSkinPanel3.Enabled:=false;
sp_khth.Open;
tbl_yg.Open;
end;

procedure Tkhhj_frm.acExitExecute(Sender: TObject);
begin
if bsSkinMessage1.MessageDlg('请仔细核对相关资料，关闭后将不能被修改'+#13+'是否关闭对话框', mtInformation, [mbYes, mbNo], 0)=mryes then
close;


end;

procedure Tkhhj_frm.acModifyExecute(Sender: TObject);
begin
  inherited;
bsSkinEdit4.Text:=bsSkinDBEdit2.Text;
bsSkinDBLookupComboBox2.KeyValue:=bsSkinDBLookupComboBox1.KeyValue;
bsSkinStdLabel18.Caption:=bsSkinDBText15.Caption;
end;

procedure Tkhhj_frm.acNewExecute(Sender: TObject);
begin
  inherited;
bsSkinStdLabel18.Caption:='';
end;

procedure Tkhhj_frm.acSaveExecute(Sender: TObject);
begin
with spsave.Parameters do
begin
ParamValues['@vact']:=act;
ParamValues['@vdat']:=Date();
if act=1  then
ParamValues['@vhrxx']:=sp_view.FieldValues['fid']   ;
if act=2      then
ParamValues['@vhrxx']:=spdisp.FieldValues['fnid'];
if act=1  then
ParamValues['@vohrxx']:= sp_khth.FieldValues['fid'];
ParamValues['@vname']:=bsSkinDBText1.Caption;
ParamValues['@vmemo']:='客户换机' ;
ParamValues['@vygzl']:= bsSkinDBLookupComboBox2.KeyValue;
ParamValues['@vmon']:=bsSkinEdit4.Text;
ParamValues['@vtel']:=bsSkinDBText3.Caption;
end;
  inherited;
 sp_khth.Close;
 sp_khth.Open;
 bsSkinPanel3.Enabled:=false;
end;

procedure Tkhhj_frm.acDeleteExecute(Sender: TObject);
begin
act:=3;
spsave.Parameters.ParamValues['@vact']:=act;
spsave.Parameters.ParamValues['@vhrxx']:=spdisp.FieldValues['fnid'];
  inherited;

end;

procedure Tkhhj_frm.acCancelExecute(Sender: TObject);
begin
  inherited;
bsSkinPanel3.Enabled:=false;

end;

end.