giractgir_un.pas

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

unit giractgir_un;

interface

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

type
  Tgiractgir_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;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinPanel8: TbsSkinPanel;
    bsSkinToolBar2: TbsSkinToolBar;
    bsSkinSpeedButton12: TbsSkinSpeedButton;
    bsSkinSpeedButton13: TbsSkinSpeedButton;
    bsSkinSpeedButton14: TbsSkinSpeedButton;
    bsSkinBevel3: TbsSkinBevel;
    bsSkinSpeedButton19: TbsSkinSpeedButton;
    bsSkinBevel8: TbsSkinBevel;
    bsSkinSpeedButton10: TbsSkinSpeedButton;
    bsSkinSpeedButton20: TbsSkinSpeedButton;
    actlst_ALToolbar: TActionList;
    act_New: TAction;
    act_Modify: TAction;
    act_Delete: TAction;
    act_Save: TAction;
    act_Cancel: TAction;
    act_Exit: TAction;
    act_Refresh: TAction;
    bsSkinSpeedButton9: TbsSkinSpeedButton;
    bsSkinPanel9: TbsSkinPanel;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    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);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure act_ExitExecute(Sender: TObject);
    procedure act_NewExecute(Sender: TObject);
    procedure act_ModifyExecute(Sender: TObject);
    procedure act_DeleteExecute(Sender: TObject);
    procedure act_SaveExecute(Sender: TObject);
    procedure act_CancelExecute(Sender: TObject);
    procedure act_RefreshExecute(Sender: TObject);
  private
  act:integer;
  procedure setsatetop();
  procedure setsatebottom();
  procedure setsateact();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  giractgir_frm: Tgiractgir_frm;

implementation
 uses data_un;
{$R *.dfm}
procedure Tgiractgir_frm.setsateact();
begin

act_Cancel.Enabled:=act_Save.Enabled;
act_New.Enabled:=not act_Save.Enabled;
act_Modify.Enabled:=act_New.Enabled;
act_Delete.Enabled:=act_New.Enabled;

end;


procedure Tgiractgir_frm.setsatetop();
begin
  if sp_top.RecordCount>0 then
  begin
  bsSkinPanel10.Enabled:=true  ;
  bsSkinCheckRadioBox1.Enabled:=true;
 end
  else
  begin
  bsSkinPanel10.Enabled:=false;
  bsSkinCheckRadioBox1.Enabled:=false;
  bsSkinCheckRadioBox1.Checked:=false;
  end;
bsSkinSpeedButton1.Enabled:=not (sp_top.Bof);
bsSkinSpeedButton4.Enabled:=not (sp_top.Eof);
bsSkinSpeedButton2.Enabled:=bsSkinSpeedButton1.Enabled;
bsSkinSpeedButton3.Enabled:=bsSkinSpeedButton4.Enabled;

end;
procedure Tgiractgir_frm.setsatebottom();
begin
if sp_bottom.RecordCount>0 then
begin
bsSkinPanel7.Enabled:=true;
bsSkinPanel9.Enabled:=true;
end
else
begin
bsSkinPanel7.Enabled:=False;
bsSkinPanel9.Enabled:=false;

end;
bsSkinSpeedButton5.Enabled:=not (sp_bottom.Bof);
bsSkinSpeedButton8.Enabled:=not (sp_bottom.Eof) ;
bsSkinSpeedButton6.Enabled:=bsSkinSpeedButton5.Enabled;
bsSkinSpeedButton7.Enabled:= bsSkinSpeedButton8.Enabled;
end;
procedure Tgiractgir_frm.sp_topAfterOpen(DataSet: TDataSet);
begin
  inherited;
  setsatetop();

end;

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

  end;

bsSkinCheckRadioBox1.Enabled:=false;
sp_bottom.Open;
sp_top.Open;
setsatetop();
setsatebottom() ;
act_Save.Enabled:=false;
act_Cancel.Enabled:=false;
 bsSkinPanel9.Enabled:=false;
end;

procedure Tgiractgir_frm.bsSkinCheckRadioBox1Click(Sender: TObject);
begin
  inherited;
bsSkinPanel10.Enabled:=not bsSkinCheckRadioBox1.Checked;
bsSkinDBGrid1.Enabled:=not bsSkinCheckRadioBox1.Checked;
if  bsSkinCheckRadioBox1.Enabled then
bsSkinPanel9.Enabled:=bsSkinCheckRadioBox1.Checked;
if  bsSkinCheckRadioBox1.Checked then
act_NewExecute(self);

end;

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

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

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

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

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

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

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

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

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

procedure Tgiractgir_frm.ds_bottomDataChange(Sender: TObject; Field: TField);
begin
  inherited;
setsatebottom();
if sp_bottom.RecordCount>0 then
act_Modify.Enabled:=True
else
act_Modify.Enabled:=false;
act_Delete.Enabled:=act_Modify.Enabled;
end;

procedure Tgiractgir_frm.sp_bottomAfterOpen(DataSet: TDataSet);
begin
  inherited;
setsatebottom();
end;

procedure Tgiractgir_frm.bsSkinButton1Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tgiractgir_frm.act_ExitExecute(Sender: TObject);
begin
  inherited;
close;
end;

procedure Tgiractgir_frm.act_NewExecute(Sender: TObject);
begin
  inherited;
act:=1;
act_Save.Enabled:=True;
setsateact();
end;

procedure Tgiractgir_frm.act_ModifyExecute(Sender: TObject);
begin
  inherited;
  act:=2;
  act_Save.Enabled:=True;
setsateact();
bsSkinPanel9.Enabled:=true;
end;

procedure Tgiractgir_frm.act_DeleteExecute(Sender: TObject);
begin
  inherited;
  act:=3;
  act_Save.Enabled:=True;
setsateact();
act_RefreshExecute(self);
end;

procedure Tgiractgir_frm.act_SaveExecute(Sender: TObject);
begin
  inherited;
act_Save.Enabled:=False;
setsateact();
act_RefreshExecute(self);

end;

procedure Tgiractgir_frm.act_CancelExecute(Sender: TObject);
begin
  inherited;
act_Save.Enabled:=False;
setsateact();
end;

procedure Tgiractgir_frm.act_RefreshExecute(Sender: TObject);
begin
  inherited;
 sp_top.Close;
 sp_top.Open;
 sp_bottom.Close;
 sp_bottom.Open;
end;

end.