fjrc_un.pas

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

unit fjrc_un;

interface

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

type
  Tfjrc_frm = class(Tactgrild_base)
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel17: TbsSkinStdLabel;
    bsSkinStdLabel16: TbsSkinStdLabel;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinDBText1: TbsSkinDBText;
    bsSkinDBLookupComboBox8: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox6: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox5: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit1: TbsSkinDBEdit;
    ds_fjcs: TDataSource;
    tbl_fjcs: TADOTable;
    tbl_fjlx: TADOTable;
    ds_fjlx: TDataSource;
    ds_hyd: TDataSource;
    tbl_hyd: TADOTable;
    ds_sjcs: TDataSource;
    tbl_sjcs: TADOTable;
    tbl_sjxh: TADOTable;
    ds_sjxh: TDataSource;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox7: TbsSkinDBLookupComboBox;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinDBLookupComboBox10: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox11: TbsSkinDBLookupComboBox;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinDBDateEdit1: TbsSkinDBDateEdit;
    bsSkinStdLabel12: TbsSkinStdLabel;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure bsSkinCheckRadioBox1Click(Sender: TObject);
    procedure acDeleteExecute(Sender: TObject);
    procedure ds_dispDataChange(Sender: TObject; Field: TField);
    procedure acModifyExecute(Sender: TObject);
    procedure ds_sjcsDataChange(Sender: TObject; Field: TField);
    procedure acNewExecute(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fjrc_frm: Tfjrc_frm;

implementation
  uses data_un;
{$R *.dfm}

procedure Tfjrc_frm.FormShow(Sender: TObject);
begin
  inherited;
bsSkinPanel3.Enabled:=false;
bsSkinCheckRadioBox1.Checked:=true;
end;

procedure Tfjrc_frm.FormCreate(Sender: TObject);
begin
  inherited;

tbl_fjcs.Open;
tbl_fjlx.Open;
tbl_hyd.Open;
tbl_sjcs.Open;
tbl_sjxh.Open;
bsSkinStdLabel17.Caption:='';

end;

procedure Tfjrc_frm.acSaveExecute(Sender: TObject);
begin
with spsave.Parameters do
begin
ParamValues['@act']:=act;
ParamValues['@vdate']:=bsSkinDateEdit1.Date;
ParamValues['@vmon']:=bsSkinEdit2.Text;
ParamValues['@vhyd']:=tbl_hyd.FieldValues['fid'];
ParamValues['@vnum']:=bsSkinEdit3.Text;
ParamValues['@vmemo']:=bsSkinEdit4.Text;
if act=2 then
ParamValues['@vid']:=bsSkinStdLabel17.Caption;
ParamValues['@vfjcs']:=tbl_fjcs.FieldValues['fid'];
ParamValues['@vfjlx']:=tbl_fjlx.FieldValues['fid'];
if not  bsSkinCheckRadioBox2.Checked then
ParamValues['@vsjxh']:=tbl_sjxh.FieldValues['fid']
else
ParamValues['@vsjxh']:=null;
 bsSkinStdLabel17.Caption:='';
end;
  inherited;

end;

procedure Tfjrc_frm.bsSkinCheckRadioBox1Click(Sender: TObject);
begin
  inherited;
  bsSkinPanel1.Enabled:=not bsSkinCheckRadioBox2.Checked;
bsSkinDBLookupComboBox1.KeyValue:=null;
bsSkinDBLookupComboBox7.KeyValue:=null;
end;

procedure Tfjrc_frm.acDeleteExecute(Sender: TObject);
begin

//spsave.Parameters.ParamValues['@vid']:=bsSkinStdLabel17.Caption;
  if bsSkinMessage1.MessageDlg('附件入库后只能进行修改，'+#13+'不能进行删除，'+#13+'如果删除会涉及到以后的数据统计的准确性，'+#13+'点击YES转到编辑状态', mtInformation, [mbYes, mbNo], 0)=mryes then
 acModifyExecute(self);


end;

procedure Tfjrc_frm.ds_dispDataChange(Sender: TObject; Field: TField);
begin
  inherited;
if spdisp.RecordCount>0 then
       if  LeftStr(spdisp.FieldValues['fsyjx'],2)='万能'then
        begin
        bsSkinCheckRadioBox1.Checked:=true;
        bsSkinPanel3.Enabled:=false;
        end
        else
        begin
        bsSkinCheckRadioBox1.Checked:=false;
     
        bsSkinDBLookupComboBox1.KeyValue:=spdisp.FieldValues['fsjcsid'];
        bsSkinDBLookupComboBox7.KeyValue:=spdisp.FieldValues['fsjxhid']
        end

end;

procedure Tfjrc_frm.acModifyExecute(Sender: TObject);
begin
bsSkinDateEdit1.Date:=bsSkinDBDateEdit1.Date;
bsSkinDBLookupComboBox3.KeyValue:=bsSkinDBLookupComboBox4.KeyValue;
bsSkinDBLookupComboBox2.KeyValue:=bsSkinDBLookupComboBox5.KeyValue;
bsSkinDBLookupComboBox8.KeyValue:=bsSkinDBLookupComboBox6.KeyValue;
bsSkinEdit2.Text:=bsSkinDBEdit1.Text;
bsSkinEdit3.Text:=bsSkinDBEdit2.Text;
bsSkinEdit4.Text:=bsSkinDBEdit3.Text;
bsSkinStdLabel17.Caption:=bsSkinDBText1.Caption;
bsSkinDBLookupComboBox10.KeyValue:=bsSkinDBLookupComboBox1.KeyValue;
bsSkinDBLookupComboBox11.KeyValue:=bsSkinDBLookupComboBox7.KeyValue;
bsSkinCheckRadioBox2.Checked:=bsSkinCheckRadioBox1.Checked;
  inherited;


end;

procedure Tfjrc_frm.ds_sjcsDataChange(Sender: TObject; Field: TField);
begin
  inherited;
bsSkinDBLookupComboBox7.KeyValue:=null;


end;

procedure Tfjrc_frm.acNewExecute(Sender: TObject);
var i:Integer;
begin
  inherited;
  for i:=0 to ComponentCount-1 do
  begin
      if Components[i] is  TbsSkinDBLookupComboBox then
        TbsSkinDBLookupComboBox(Components[i]).KeyValue:=null;
       if Components[i] is  TbsSkinEdit then
       TbsSkinEdit(Components[i]).Clear;
  end;
 bsSkinCheckRadioBox2.Checked:=true;
 bsSkinPanel1.Enabled:=false;


end;

end.