spbaseinfoadd_un.pas

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

unit spbaseinfoadd_un;

interface

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

type
  Tspbaseinfoadd_frm = class(Tbase_frm)
    bsSkinToolBar2: TbsSkinToolBar;
    bsSkinSpeedButton12: TbsSkinSpeedButton;
    bsSkinSpeedButton13: TbsSkinSpeedButton;
    bsSkinSpeedButton14: TbsSkinSpeedButton;
    bsSkinSpeedButton15: TbsSkinSpeedButton;
    bsSkinBevel3: TbsSkinBevel;
    bsSkinSpeedButton16: TbsSkinSpeedButton;
    bsSkinSpeedButton17: TbsSkinSpeedButton;
    bsSkinSpeedButton18: TbsSkinSpeedButton;
    bsSkinBevel4: TbsSkinBevel;
    bsSkinSpeedButton19: TbsSkinSpeedButton;
    bsSkinBevel8: TbsSkinBevel;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinSpeedButton3: TbsSkinSpeedButton;
    bsSkinSpeedButton4: TbsSkinSpeedButton;
    ALToolbar: TActionList;
    acNew: TAction;
    acModify: TAction;
    acDelete: TAction;
    acSave: TAction;
    acCancel: TAction;
    acFirst: TAction;
    acPrior: TAction;
    acNext: TAction;
    acLast: TAction;
    acFind: TAction;
    acFilter: TAction;
    acPrint: TAction;
    acExit: TAction;
    acset: TAction;
    acRefresh: TAction;
    acuse: TAction;
    spsave: TADOStoredProc;
    spdisp: TADOStoredProc;
    Button1: TButton;
    ds_disp: TDataSource;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinSpeedButton2: TbsSkinSpeedButton;

    procedure acExitExecute(Sender: TObject);
    procedure acPrintExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure acFirstExecute(Sender: TObject);
    procedure acPriorExecute(Sender: TObject);
    procedure acNextExecute(Sender: TObject);
    procedure acLastExecute(Sender: TObject);
    procedure ds_dispStateChange(Sender: TObject);
    procedure ds_dispDataChange(Sender: TObject; Field: TField);
    procedure acDeleteExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure acRefreshExecute(Sender: TObject);
    procedure acCancelExecute(Sender: TObject);
  private
    { Private declarations }
    act:string;
    procedure sta();
  public
    { Public declarations }
  end;

var
  spbaseinfoadd_frm: Tspbaseinfoadd_frm;

implementation
uses data_un;
{$R *.dfm}
procedure tspbaseinfoadd_frm.sta()  ;
var i:integer;
//tag=2代表显示原来的数据 tag=5代表新增的数据
begin
for i:=0 to ComponentCount-1 do
 begin
          if Components[i] is TbsSkinDBLookupComboBox then
                if Components[i].Tag=5 then
                   TbsSkinDBLookupComboBox(Components[i]).Visible:=acSave.Enabled
                     else
                if Components[i].Tag=2 then
                TbsSkinDBLookupComboBox(Components[i]).Visible:=not acSave.Enabled ;

      if Components[i] is TbsSkinEdit then
            if Components[i].Tag=5 then
                begin
                   TbsSkinEdit(Components[i]).Visible:=acSave.Enabled;
                    TbsSkinEdit(Components[i]).Clear;
                end
                else
            if Components[i].Tag=2 then
                TbsSkinEdit(Components[i]).Visible:= not acSave.Enabled;

        if Components[i] is  TbsSkinStdLabel then
           if Components[i].Tag=5 then
                 begin
                   TbsSkinStdLabel(Components[i]).Visible:=acSave.Enabled;
                   TbsSkinStdLabel(Components[i]).Caption:='';
                end
                else
           if Components[i].Tag=2 then
             TbsSkinStdLabel(Components[i]).Visible:=not acSave.Enabled;
        if Components[i].Tag=6 then
        begin
        TbsSkinDBLookupComboBox(Components[i]).Visible:=not acNew.Enabled;
        TbsSkinEdit(Components[i]).Visible:=not acNew.Enabled;
        TbsSkinDateEdit(Components[i]).Visible:=not acNew.Enabled;
        end ;
        if Components[i].Tag=5 then
        begin
          TbsSkinDateEdit(Components[i]).Visible:=not acNew.Enabled;
        end ;
        if Components[i].Tag=2 then
        begin
        TbsSkindbDateEdit(Components[i]).Visible:=acNew.Enabled;
        end  ;
end;
acFirst.Enabled := (Not spdisp.Bof)  ;
acLast.Enabled := (Not spdisp.Eof) ;
acPrior.Enabled := (acFirst.Enabled) ;
acNext.Enabled := (acLast.Enabled);
bsSkinDBGrid2.Enabled:= acDelete.Enabled;

end;
procedure Tspbaseinfoadd_frm.acExitExecute(Sender: TObject);
begin
  inherited;
close;
end;

procedure Tspbaseinfoadd_frm.acPrintExecute(Sender: TObject);
begin
  inherited;
showmessage('打印测试');
end;

procedure Tspbaseinfoadd_frm.acSaveExecute(Sender: TObject);

begin
  inherited;

if bsSkinMessage1.MessageDlg('是否真保存本条记录',mtInformation,[mbYes,mbno],0)=mryes then
begin
spsave.ExecProc;
bsSkinMessage1.MessageDlg('保存成功',mtInformation,[mbyes],0) ;
end;

spdisp.Close;
spdisp.Open;
acSave.Enabled:=false;
acNew.Enabled:=true;
acModify.Enabled:=true;
acDelete.Enabled:=true;
acCancel.Enabled:=False;
sta();

end;

procedure Tspbaseinfoadd_frm.acModifyExecute(Sender: TObject);

begin
  inherited;

acNew.Enabled:=false;
acModify.Enabled:=false;
acDelete.Enabled:=false;
acSave.Enabled:=true;
acCancel.Enabled:=True;
sta();

end;

procedure Tspbaseinfoadd_frm.acNewExecute(Sender: TObject);
begin
  inherited;
acNew.Enabled:=false;
acModify.Enabled:=false;
acDelete.Enabled:=false;
acSave.Enabled:=true;
acCancel.Enabled:=true;
sta();

end;

procedure Tspbaseinfoadd_frm.acFirstExecute(Sender: TObject);
begin
  inherited;
spdisp.First;
end;

procedure Tspbaseinfoadd_frm.acPriorExecute(Sender: TObject);
begin
  inherited;
spdisp.Prior;
end;

procedure Tspbaseinfoadd_frm.acNextExecute(Sender: TObject);
begin
  inherited;
spdisp.Next;
end;

procedure Tspbaseinfoadd_frm.acLastExecute(Sender: TObject);
begin
  inherited;
spdisp.Last;
end;

procedure Tspbaseinfoadd_frm.ds_dispStateChange(Sender: TObject);
begin
  inherited;
sta();
end;

procedure Tspbaseinfoadd_frm.ds_dispDataChange(Sender: TObject; Field: TField);
begin
  inherited;
sta();
end;

procedure Tspbaseinfoadd_frm.acDeleteExecute(Sender: TObject);
begin
  inherited;
//ShowMessage('传递删除的参数');
if bsSkinMessage1.MessageDlg('是否真的删除本条记录，'+#13+'如果本条记录已经领货，'+#13+'则会同时删掉领货记录',mtInformation,[mbYes,mbno],0)=mryes then
begin
spsave.ExecProc;
bsSkinMessage1.MessageDlg('成功删除',mtInformation,[mbyes],0) ;
end;
spdisp.close;
spdisp.Open;
acNew.Enabled:=True;
acModify.Enabled:=True;
acDelete.Enabled:=True;
acSave.Enabled:=False;
acCancel.Enabled:=False;
sta();

end;

procedure Tspbaseinfoadd_frm.FormShow(Sender: TObject);
begin
  inherited;

spdisp.ExecProc;
spdisp.Open;


acSave.Enabled:=false;
acNew.Enabled:=true;
acModify.Enabled:=true;
acDelete.Enabled:=true;
acCancel.Enabled:=false;
sta();

end;

procedure Tspbaseinfoadd_frm.acRefreshExecute(Sender: TObject);
begin
  inherited;
spdisp.Close;
spdisp.Open;
end;

procedure Tspbaseinfoadd_frm.acCancelExecute(Sender: TObject);
begin
  inherited;
  if bsSkinMessage1.MessageDlg('是否真的取消编加或增加状态',mtInformation,[mbYes,mbno],0)=mryes then
  begin
acSave.Enabled:=false;
acNew.Enabled:=true;
acModify.Enabled:=true;
acDelete.Enabled:=true;
acCancel.Enabled:=False;
sta();
end;
end;

end.