fjxcbase_un.pas

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

unit fjxcbase_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,StrUtils;

type
  Tfjxcbase_frm = class(Tactgrild_base)
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinDBLookupComboBox10: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox11: TbsSkinDBLookupComboBox;
    sp_fjlx: TADOStoredProc;
    ds_fjcs: TDataSource;
    tbl_fjcs: TADOTable;
    tbl_fjlx: TADOTable;
    ds_fjlx: TDataSource;
    ds_sjcs: TDataSource;
    tbl_sjcs: TADOTable;
    tbl_sjxh: TADOTable;
    ds_sjxh: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure bsSkinCheckRadioBox2Click(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure acCancelExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fjxcbase_frm: Tfjxcbase_frm;

implementation
uses data_un;
{$R *.dfm}

procedure Tfjxcbase_frm.FormCreate(Sender: TObject);
begin
  inherited;
tbl_fjcs.Open;
tbl_fjlx.Open;
tbl_sjcs.Open;
tbl_sjxh.Open;

end;

procedure Tfjxcbase_frm.acNewExecute(Sender: TObject);
var i:Integer;
begin
  inherited;
with  sp_fjlx.Parameters do
begin
ParamValues['@fjcs']:=tbl_fjcs.FieldValues['fid'];
ParamValues['@fjlx']:=tbl_fjlx.FieldValues['fid'];
    if bsSkinCheckRadioBox2.Checked then
       ParamValues['@act']:=1
       else
       begin
       ParamValues['@act']:=2;
       ParamValues['@sjxh']:=tbl_sjxh.FieldValues['fid'];
       end;
  
end;
 sp_fjlx.ExecProc;


 if LeftStr(sp_fjlx.Parameters.ParamValues['@OutStr'],2)='PZ' then
 begin
 bsSkinStdLabel4.Caption:=sp_fjlx.Parameters.ParamValues['@OutStr'];
 bsSkinGroupBox3.Enabled:=false;
 bsSkinDBGrid2.Enabled:=false;
 end
 else
 begin
  bsSkinMessage1.MessageDlg('没有此种类型附件,请重新选择',mtWarning,[mbYes],0);
   for i:=0 to ComponentCount-1 do
   if Components[i] is  TbsSkinDBLookupComboBox then
    TbsSkinDBLookupComboBox(Components[i]).KeyValue:=null;
    bsSkinPanel3.Enabled:=false;
    bsSkinCheckRadioBox2.Checked:=true;
    acNew.Enabled:=true;
    acModify.Enabled:=true;
    acDelete.Enabled:=true;
    acSave.Enabled:=false;
    acCancel.Enabled:=false;
    bsSkinGroupBox3.Enabled:=true;
    bsSkinDBGrid2.Enabled:=true;
    exit;
  end;

end;

procedure Tfjxcbase_frm.bsSkinCheckRadioBox2Click(Sender: TObject);
begin
  inherited;
bsSkinPanel3.Enabled:=not bsSkinCheckRadioBox2.Checked;
end;

procedure Tfjxcbase_frm.acModifyExecute(Sender: TObject);
begin
  inherited;
bsSkinGroupBox3.Enabled:=false;
bsSkinDBGrid2.Enabled:=false;
end;

procedure Tfjxcbase_frm.acCancelExecute(Sender: TObject);
begin
  inherited;
    bsSkinGroupBox3.Enabled:=true;
    bsSkinDBGrid2.Enabled:=true;
end;

procedure Tfjxcbase_frm.acSaveExecute(Sender: TObject);
begin
  inherited;
      bsSkinGroupBox3.Enabled:=true;
    bsSkinDBGrid2.Enabled:=true;
end;

end.