sjtc_un.pas

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

unit sjtc_un;

interface

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

type
  Tsjtc_frm = class(Tbase_frm)
    bsSkinPanel3: TbsSkinPanel;
    bsSkinExPanel3: TbsSkinExPanel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinPanel5: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinPanel7: TbsSkinPanel;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinPanel8: TbsSkinPanel;
    bsSkinPanel9: TbsSkinPanel;
    bsSkinSpeedButton15: TbsSkinSpeedButton;
    bsSkinSpeedButton16: TbsSkinSpeedButton;
    bsSkinSpeedButton17: TbsSkinSpeedButton;
    bsSkinSpeedButton18: TbsSkinSpeedButton;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinDBGrid2: TbsSkinDBGrid;
    ds_sjcs: TDataSource;
    ds_sjxh: TDataSource;
    sp_disp: TADOStoredProc;
    ds_disp: TDataSource;
    tbl_sjxh: TADOTable;
    tbl_sjcs: TADOQuery;
    bsSkinButton3: TbsSkinButton;
    sp_tc: TADOStoredProc;
    ds_tc: TDataSource;
    bsSkinDBText4: TbsSkinDBText;
    sp_save: TADOStoredProc;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinPanel6: TbsSkinPanel;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinPanel10: TbsSkinPanel;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    bsSkinSpeedButton3: TbsSkinSpeedButton;
    bsSkinSpeedButton4: TbsSkinSpeedButton;
    bsSkinStdLabel2SkinStdLabel: TbsSkinDBText;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinButton4: TbsSkinButton;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel21: TbsSkinDBText;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinStdLabel22: TbsSkinDBText;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinStdLabel23: TbsSkinDBText;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinStdLabel24: TbsSkinDBText;
    bsSkinStdLabel12: TbsSkinStdLabel;
    bsSkinStdLabel25: TbsSkinDBText;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinStdLabel26: TbsSkinDBText;
    bsSkinStdLabel14: TbsSkinStdLabel;
    bsSkinStdLabel27: TbsSkinDBText;
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinStdLabel28: TbsSkinDBText;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinDBEdit1SkinDBEdit: TbsSkinEdit;
    bsSkinStdLabel2SkinStdLabel1: TbsSkinDBText;
    procedure bsSkinCheckRadioBox2Click(Sender: TObject);
    procedure bsSkinCheckRadioBox1Click(Sender: TObject);
    procedure bsSkinDBLookupComboBox3Change(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinSpeedButton15Click(Sender: TObject);
    procedure bsSkinSpeedButton16Click(Sender: TObject);
    procedure bsSkinSpeedButton17Click(Sender: TObject);
    procedure bsSkinSpeedButton18Click(Sender: TObject);
    procedure bsSkinDBLookupComboBox4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure sp_tcAfterOpen(DataSet: TDataSet);
    procedure sp_dispAfterOpen(DataSet: TDataSet);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure bsSkinSpeedButton3Click(Sender: TObject);
    procedure bsSkinSpeedButton4Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
  private
  act,act2:integer;
  procedure checksat();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjtc_frm: Tsjtc_frm;

implementation
  uses data_un;
{$R *.dfm}

procedure Tsjtc_frm.bsSkinCheckRadioBox2Click(Sender: TObject);
begin
  inherited;
bsSkinGroupBox1.Visible:=bsSkinCheckRadioBox2.Checked;
bsSkinGroupBox2.Visible:= not bsSkinCheckRadioBox2.Checked;
bsSkinButton1.Enabled:=false;
act:=2;
end;

procedure Tsjtc_frm.bsSkinCheckRadioBox1Click(Sender: TObject);
begin
  inherited;
bsSkinGroupBox2.Visible:=bsSkinCheckRadioBox1.Checked;
bsSkinGroupBox1.Visible:=not bsSkinCheckRadioBox1.Checked;
bsSkinButton1.Enabled:=true;
act:=1;
end;

procedure Tsjtc_frm.bsSkinDBLookupComboBox3Change(Sender: TObject);
begin
  inherited;
sp_disp.Close;
sp_disp.Parameters.ParamValues['@act']:=act;
sp_disp.Parameters.ParamValues['@val']:=tbl_sjxh.FieldValues['fid'];
sp_disp.ExecProc;
sp_disp.Open;
end;

procedure Tsjtc_frm.bsSkinButton1Click(Sender: TObject);
begin
  inherited;
sp_disp.Close;
sp_disp.Parameters.ParamValues['@act']:=act;
if bsSkinCheckRadioBox1.Checked then
sp_disp.Parameters.ParamValues['@val']:=tbl_sjxh.FieldValues['fid']
else
sp_disp.Parameters.ParamValues['@val']:=bsSkinEdit1.Text;
sp_disp.ExecProc;
sp_disp.Open;
end;
procedure Tsjtc_frm.checksat();
begin
bsSkinSpeedButton15.Enabled :=Not sp_disp.Bof ;
bsSkinSpeedButton18.Enabled := Not sp_disp.Eof;
bsSkinSpeedButton16.Enabled := bsSkinSpeedButton15.Enabled;
bsSkinSpeedButton17.Enabled := bsSkinSpeedButton18.Enabled;

end;

procedure Tsjtc_frm.FormShow(Sender: TObject);
begin
  inherited;
act:=1;
end;

procedure Tsjtc_frm.bsSkinSpeedButton15Click(Sender: TObject);
begin
  inherited;
sp_disp.First;
checksat();
end;

procedure Tsjtc_frm.bsSkinSpeedButton16Click(Sender: TObject);
begin
  inherited;
sp_disp.Prior;
checksat();
end;

procedure Tsjtc_frm.bsSkinSpeedButton17Click(Sender: TObject);
begin
  inherited;
sp_disp.Next;
checksat();
end;

procedure Tsjtc_frm.bsSkinSpeedButton18Click(Sender: TObject);
begin
  inherited;
sp_disp.Last;
checksat();
end;

procedure Tsjtc_frm.bsSkinDBLookupComboBox4Click(Sender: TObject);
begin
  inherited;
tbl_sjxh.Open;
end;

procedure Tsjtc_frm.FormCreate(Sender: TObject);
var i:Integer;
begin
  inherited;

  bsSkinButton2.Enabled:=false;
  for i:=0 to ComponentCount-1 do
    if Components[i] is   TbsSkinDBText then
    TbsSkinDBText(Components[i]).Caption:='';
tbl_sjcs.Open;
sp_tc.Open;
end;

procedure Tsjtc_frm.bsSkinButton3Click(Sender: TObject);
begin
  inherited;
close;
end;

procedure Tsjtc_frm.bsSkinButton5Click(Sender: TObject);
begin
  inherited;
close;
end;

procedure Tsjtc_frm.sp_tcAfterOpen(DataSet: TDataSet);
begin
  inherited;
if sp_tc.RecordCount>0 then
bsSkinPanel10.Enabled:=True
else
bsSkinPanel10.Enabled:=False;
end;

procedure Tsjtc_frm.sp_dispAfterOpen(DataSet: TDataSet);
begin
  inherited;
if sp_disp.RecordCount>0 then
bsSkinButton2.Enabled:=True
else
bsSkinButton2.Enabled:=false;
end;

procedure Tsjtc_frm.bsSkinSpeedButton1Click(Sender: TObject);
begin
  inherited;
sp_tc.First;

end;

procedure Tsjtc_frm.bsSkinSpeedButton2Click(Sender: TObject);
begin
  inherited;
sp_tc.Prior;
end;

procedure Tsjtc_frm.bsSkinSpeedButton3Click(Sender: TObject);
begin
  inherited;
sp_tc.Next;
end;

procedure Tsjtc_frm.bsSkinSpeedButton4Click(Sender: TObject);
begin
  inherited;
sp_tc.Last;
end;

procedure Tsjtc_frm.bsSkinButton2Click(Sender: TObject);
begin
  inherited;

  with sp_save.Parameters do
  begin
      ParamValues['@act']:=1;
      ParamValues['@date']:=Date();
      ParamValues['@memo']:=bsSkinDBEdit1SkinDBEdit.Text;
      ParamValues['@bsid']:=bsSkinStdLabel2SkinStdLabel.Caption;
      ParamValues['@hrxx']:=bsSkinStdLabel2SkinStdLabel1.Caption;
     end;
if bsSkinMessage1.MessageDlg('是否将些手机真的退库',mtWarning,[mbYes,mbNo],0)=mryes then
begin
sp_save.ExecProc;
bsSkinMessage1.MessageDlg('操作成功',mtInformation,[mbYes,mbNo],0)
end;
sp_disp.Close;
sp_disp.Open;
sp_tc.Close;
sp_tc.Open;
end;

procedure Tsjtc_frm.bsSkinButton4Click(Sender: TObject);
begin
  inherited;
    with sp_save.Parameters do
  begin
      ParamValues['@act']:=3;
      ParamValues['@date']:=Date();
      ParamValues['@memo']:=bsSkinDBEdit1SkinDBEdit.Text;
      ParamValues['@bsid']:=bsSkinStdLabel2SkinStdLabel.Caption;
      ParamValues['@hrxx']:=bsSkinStdLabel2SkinStdLabel1.Caption;
     end;
if bsSkinMessage1.MessageDlg('是否取消手机退库',mtWarning,[mbYes,mbNo],0)=mryes then
begin
sp_save.ExecProc;
bsSkinMessage1.MessageDlg('操作成功',mtInformation,[mbYes,mbNo],0)
end;
sp_tc.Close;
sp_tc.Open;  
end;

end.