diractdir_un.pas

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

unit diractdir_un;

interface

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

type
  Tppbs_frm = class(Tbase_frm)
    sp_top: TADOStoredProc;
    ds_top: TDataSource;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinPanel10: TbsSkinPanel;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    bsSkinSpeedButton3: TbsSkinSpeedButton;
    bsSkinSpeedButton4: TbsSkinSpeedButton;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinDBText: TbsSkinDBText;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinPanel5: TbsSkinPanel;
    bsSkinPanel6: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinPanel7: TbsSkinPanel;
    bsSkinSpeedButton5: TbsSkinSpeedButton;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    bsSkinSpeedButton7: TbsSkinSpeedButton;
    bsSkinSpeedButton8: TbsSkinSpeedButton;
    bsSkinDBText1: TbsSkinDBText;
    sp_bottom: TADOStoredProc;
    ds_bottom: TDataSource;
    griactgri_frm: TbsSkinPanel;
    procedure sp_topAfterOpen(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinCheckRadioBox1Click(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure bsSkinSpeedButton3Click(Sender: TObject);
    procedure bsSkinSpeedButton4Click(Sender: TObject);
    procedure bsSkinSpeedButton5Click(Sender: TObject);
    procedure bsSkinSpeedButton6Click(Sender: TObject);
    procedure bsSkinSpeedButton7Click(Sender: TObject);
    procedure bsSkinSpeedButton8Click(Sender: TObject);
    procedure ds_topDataChange(Sender: TObject; Field: TField);
    procedure ds_bottomDataChange(Sender: TObject; Field: TField);
    procedure sp_bottomAfterOpen(DataSet: TDataSet);
  private
  procedure setsatetop();
  procedure setsatebottom();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ppbs_frm: Tppbs_frm;

implementation

{$R *.dfm}
procedure Tppbs_frm.setsatetop();
begin
bsSkinSpeedButton1.Enabled:=not (sp_top.Bof);
bsSkinSpeedButton4.Enabled:=not (sp_top.Eof);
bsSkinSpeedButton2.Enabled:=bsSkinSpeedButton1.Enabled;
bsSkinSpeedButton3.Enabled:=bsSkinSpeedButton4.Enabled;

end;
procedure Tppbs_frm.setsatebottom();
begin
bsSkinSpeedButton5.Enabled:=not (sp_bottom.Bof);
bsSkinSpeedButton8.Enabled:=not (sp_bottom.Eof) ;
bsSkinSpeedButton6.Enabled:=bsSkinSpeedButton5.Enabled;
bsSkinSpeedButton7.Enabled:= bsSkinSpeedButton8.Enabled;
end;
procedure Tppbs_frm.sp_topAfterOpen(DataSet: TDataSet);
begin
  inherited;
  if sp_top.RecordCount>0 then
  begin
  bsSkinPanel10.Enabled:=true  ;
  bsSkinCheckRadioBox1.Enabled:=False;
    end
  else
  begin
  bsSkinPanel10.Enabled:=false;
  bsSkinCheckRadioBox1.Enabled:=false;
  bsSkinCheckRadioBox1.Checked:=false;
  end;

end;

procedure Tppbs_frm.FormCreate(Sender: TObject);
begin
  inherited;
bsSkinCheckRadioBox1.Enabled:=false;
sp_bottom.Open;
sp_top.Open;
setsatetop();
setsatebottom() ;
end;

procedure Tppbs_frm.bsSkinCheckRadioBox1Click(Sender: TObject);
begin
  inherited;
bsSkinPanel10.Enabled:=not bsSkinCheckRadioBox1.Checked;
bsSkinDBGrid1.Enabled:=not bsSkinCheckRadioBox1.Checked;
bsSkinPanel8.Enabled:= bsSkinCheckRadioBox1.Checked;
end;

procedure Tppbs_frm.bsSkinSpeedButton1Click(Sender: TObject);
begin
  inherited;
sp_top.First;
end;

procedure Tppbs_frm.bsSkinSpeedButton2Click(Sender: TObject);
begin
  inherited;
sp_top.Prior;
end;

procedure Tppbs_frm.bsSkinSpeedButton3Click(Sender: TObject);
begin
  inherited;
sp_top.Next;
end;

procedure Tppbs_frm.bsSkinSpeedButton4Click(Sender: TObject);
begin
  inherited;
sp_top.Last;
end;

procedure Tppbs_frm.bsSkinSpeedButton5Click(Sender: TObject);
begin
  inherited;
sp_bottom.First;
end;

procedure Tppbs_frm.bsSkinSpeedButton6Click(Sender: TObject);
begin
  inherited;
sp_bottom.Prior;
end;

procedure Tppbs_frm.bsSkinSpeedButton7Click(Sender: TObject);
begin
  inherited;
sp_bottom.Next;
end;

procedure Tppbs_frm.bsSkinSpeedButton8Click(Sender: TObject);
begin
  inherited;
sp_bottom.Last;
end;

procedure Tppbs_frm.ds_topDataChange(Sender: TObject; Field: TField);
begin
  inherited;
setsatetop();
end;

procedure Tppbs_frm.ds_bottomDataChange(Sender: TObject; Field: TField);
begin
  inherited;
setsatebottom();
end;

procedure Tppbs_frm.sp_bottomAfterOpen(DataSet: TDataSet);
begin
  inherited;
if sp_bottom.RecordCount>0 then
begin
bsSkinPanel7.Enabled:=true;
bsSkinPanel8.Enabled:=true;
end
else
begin
bsSkinPanel7.Enabled:=False;
bsSkinPanel8.Enabled:=False;
end;
end;

end.