actgrild_un.pas

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

unit actgrild_un;

interface

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

type
  Tactgrild_base = class(Tbase_frm)
    bsBusinessSkinForm2: TbsBusinessSkinForm;
    bsSkinData2: TbsSkinData;
    bsSkinMessage2: TbsSkinMessage;
    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;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    Button1: TButton;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinDBLookupComboBox9: TbsSkinDBLookupComboBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinDBGrid2: TbsSkinDBGrid;
    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;
    ds_disp: TDataSource;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinScrollBar3: TbsSkinScrollBar;
    procedure acNewExecute(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure acDeleteExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acCancelExecute(Sender: TObject);
    procedure acFirstExecute(Sender: TObject);
    procedure acPriorExecute(Sender: TObject);
    procedure acNextExecute(Sender: TObject);
    procedure acLastExecute(Sender: TObject);
    procedure acPrintExecute(Sender: TObject);
    procedure acExitExecute(Sender: TObject);
    procedure acRefreshExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ds_dispDataChange(Sender: TObject; Field: TField);
    procedure ds_dispStateChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);


  private
      
    procedure sta();
    { Private declarations }
  public
   act,s:integer;

    { Public declarations }
  end;

var
  actgrild_base: Tactgrild_base;

implementation

{$R *.dfm}

procedure Tactgrild_base.sta()  ;
var i:integer;
//tag=2代表显示原来的数据 tag=5代表新增的数据
begin
for i:=0 to ComponentCount-1 do
 begin
        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
        TbsSkinDBLookupComboBox(Components[i]).Visible:=acNew.Enabled;
        TbsSkinEdit(Components[i]).Visible:=acNew.Enabled;
        TbsSkinDBLookupComboBox(Components[i]).Enabled:=not acNew.Enabled;
        TbsSkinEdit(Components[i]).Enabled:=not acNew.Enabled;
        TbsSkinDBDateEdit(Components[i]).Visible:=acNew.Enabled;
        end  ;

        

end;
bsSkinDBGrid2.Enabled:= acNew.Enabled;
acFirst.Enabled := (Not spdisp.Bof)  ;
acLast.Enabled := (Not spdisp.Eof) ;
acPrior.Enabled := (acFirst.Enabled) ;
acNext.Enabled := (acLast.Enabled);

end;
procedure Tactgrild_base.acNewExecute(Sender: TObject);
var i:integer;
begin
  inherited;
  for i:=0 to ComponentCount-1 do
  begin
      if (Components[i] is  TbsSkinDBLookupComboBox) and (Components[i].Tag=6) then
         TbsSkinDBLookupComboBox(Components[i]).KeyValue:=null;
       if (Components[i] is  TbsSkinEdit)and (Components[i].Tag=6) then
       TbsSkinEdit(Components[i]).Clear;
  end;
acNew.Enabled:=false;
acModify.Enabled:=false;
acDelete.Enabled:=false;
acSave.Enabled:=true;
acCancel.Enabled:=true;
sta();
act:=1;

end;

procedure Tactgrild_base.acModifyExecute(Sender: TObject);
begin
  inherited;
acNew.Enabled:=false;
acModify.Enabled:=false;
acDelete.Enabled:=false;
acSave.Enabled:=true;
acCancel.Enabled:=True;
sta();
act:=2;
end;

procedure Tactgrild_base.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 Tactgrild_base.acSaveExecute(Sender: TObject);
var t:string;
begin
  inherited;
if act=1 then
t:= '是否真保存本条记录'
else
t:='是否真的修改本记录';
if bsSkinMessage1.MessageDlg(t,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 Tactgrild_base.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;

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

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

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

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

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

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

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

procedure Tactgrild_base.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 Tactgrild_base.ds_dispDataChange(Sender: TObject; Field: TField);
begin
  inherited;
sta();
end;

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

procedure Tactgrild_base.FormCreate(Sender: TObject);
var i:Integer;
begin
  inherited;
  For i:=0 to ComponentCount-1 do
  begin
  if Components[i] is  TbsSkinEdit then
   TbsSkinEdit(Components[i]).Text:='';
   if Components[i] is  TbsSkinDBEdit then
   TbsSkinDBEdit(Components[i]).Text:='';
  end;
end;

end.