sjinfobase_un.pas

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

unit sjinfobase_un;

interface

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

type
  Tsjinfobase_frm = class(Tactgrild_base)
    bsSkinPanel3: TbsSkinPanel;
    bsSkinExPanel3: TbsSkinExPanel;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinPanel5: TbsSkinPanel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinPanel7: TbsSkinPanel;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinPanel8: TbsSkinPanel;
    bsSkinPanel9: TbsSkinPanel;
    bsSkinSpeedButton5: TbsSkinSpeedButton;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    bsSkinSpeedButton7: TbsSkinSpeedButton;
    bsSkinSpeedButton8: TbsSkinSpeedButton;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    bsSkinDBGrid1: TbsSkinDBGrid;
    tbl_sjxh: TADOTable;
    ds_sjxh: TDataSource;
    ds_sjcs: TDataSource;
    tbl_sjcs: TADOQuery;
    bsSkinExPanel2: TbsSkinExPanel;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinStdLabel14: TbsSkinStdLabel;
    bsSkinDBText11: TbsSkinDBText;
    bsSkinDBText6: TbsSkinDBText;
    bsSkinDBText4: TbsSkinDBText;
    bsSkinDBText5: TbsSkinDBText;
    bsSkinDBText3: TbsSkinDBText;
    bsSkinDBText1: TbsSkinDBText;
    bsSkinPanel6: TbsSkinPanel;
    bsSkinStdLabel35: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinDBText12: TbsSkinDBText;
    bsSkinDBText13: TbsSkinDBText;
    bsSkinDBText14: TbsSkinDBText;
    bsSkinStdLabel12: TbsSkinStdLabel;
    bsSkinDBText10: TbsSkinDBText;
    bsSkinStdLabel38: TbsSkinStdLabel;
    bsSkinStdLabel39: TbsSkinStdLabel;
    bsSkinStdLabel40: TbsSkinStdLabel;
    bsSkinDBText9: TbsSkinDBText;
    bsSkinDBText2: TbsSkinDBText;
    bsSkinDBText8: TbsSkinDBText;
    bsSkinDBText7: TbsSkinDBText;
    ds_view: TDataSource;
    sp_view: TADOStoredProc;
    procedure acNewExecute(Sender: TObject);
    procedure acModifyExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acCancelExecute(Sender: TObject);
    procedure bsSkinSpeedButton5Click(Sender: TObject);
    procedure bsSkinSpeedButton6Click(Sender: TObject);
    procedure bsSkinSpeedButton7Click(Sender: TObject);
    procedure bsSkinSpeedButton8Click(Sender: TObject);
    procedure bsSkinCheckRadioBox1Click(Sender: TObject);
    procedure bsSkinCheckRadioBox2Click(Sender: TObject);
    procedure bsSkinDBLookupComboBox3Change(Sender: TObject);
    procedure bsSkinEdit2Change(Sender: TObject);
    procedure bsSkinEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinDBLookupComboBox4Click(Sender: TObject);
    procedure sp_viewAfterOpen(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
  
  private
    { Private declarations }
        actsear:integer;     //1.为按型号查找2。为按串号查找
    val:string;
  public
    { Public declarations }
  end;

var
  sjinfobase_frm: Tsjinfobase_frm;

implementation

{$R *.dfm}

procedure Tsjinfobase_frm.acNewExecute(Sender: TObject);
begin
  inherited;
bsSkinPanel3.Enabled:=not acSave.Enabled;
end;

procedure Tsjinfobase_frm.acModifyExecute(Sender: TObject);
begin
  inherited;
bsSkinPanel3.Enabled:=not acSave.Enabled;
end;

procedure Tsjinfobase_frm.acSaveExecute(Sender: TObject);
begin
  inherited;
bsSkinPanel3.Enabled:=not acSave.Enabled;
end;

procedure Tsjinfobase_frm.acCancelExecute(Sender: TObject);
begin
  inherited;
bsSkinPanel3.Enabled:=not acSave.Enabled;
end;

procedure Tsjinfobase_frm.bsSkinSpeedButton5Click(Sender: TObject);
begin
  inherited;
sp_view.First;
end;

procedure Tsjinfobase_frm.bsSkinSpeedButton6Click(Sender: TObject);
begin
  inherited;
sp_view.Prior;
end;

procedure Tsjinfobase_frm.bsSkinSpeedButton7Click(Sender: TObject);
begin
  inherited;
sp_view.Next;
end;

procedure Tsjinfobase_frm.bsSkinSpeedButton8Click(Sender: TObject);
begin
  inherited;
sp_view.Last;
end;

procedure Tsjinfobase_frm.bsSkinCheckRadioBox1Click(Sender: TObject);
begin
  inherited;
bsSkinGroupBox4.Visible:=bsSkinCheckRadioBox1.Checked;
bsSkinGroupBox3.Visible:=not bsSkinCheckRadioBox1.Checked;
bsSkinButton1.Enabled:=true;
 actsear:=1;
end;

procedure Tsjinfobase_frm.bsSkinCheckRadioBox2Click(Sender: TObject);
begin
  inherited;
bsSkinGroupBox3.Visible:=bsSkinCheckRadioBox2.Checked;
bsSkinGroupBox4.Visible:= not bsSkinCheckRadioBox2.Checked;
bsSkinButton1.Enabled:=false;
 actsear:=2;
end;

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

procedure Tsjinfobase_frm.bsSkinEdit2Change(Sender: TObject);
begin
  inherited;
  inherited;
if bsSkinEdit2.Text<>'' then bsSkinButton1.Enabled:=true;
end;

procedure Tsjinfobase_frm.bsSkinEdit2KeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;
if Key=#13 then
begin
sp_view.Close;
sp_view.Parameters.ParamValues['@act']:=actsear;
sp_view.Parameters.ParamValues['@val']:=bsSkinEdit2.Text;
sp_view.ExecProc;
sp_view.Open;
end;
end;
procedure Tsjinfobase_frm.bsSkinButton1Click(Sender: TObject);
begin
  inherited;
sp_view.Close;
sp_view.Parameters.ParamValues['@act']:=actsear;
if bsSkinCheckRadioBox1.Checked then
sp_view.Parameters.ParamValues['@val']:=tbl_sjxh.FieldValues['fid']
else
sp_view.Parameters.ParamValues['@val']:=bsSkinEdit2.Text;
sp_view.ExecProc;
sp_view.Open;
end;

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

procedure Tsjinfobase_frm.sp_viewAfterOpen(DataSet: TDataSet);
begin
  inherited;
if spdisp.Active then
  if spdisp.RecordCount>0 then
   begin
bsSkinSpeedButton5.Enabled:=True;
bsSkinSpeedButton6.Enabled:=True;
bsSkinSpeedButton7.Enabled:=True;
bsSkinSpeedButton8.Enabled:=True;
end;
end;

procedure Tsjinfobase_frm.FormShow(Sender: TObject);
var i:Integer;
begin
 actsear:=1;
 tbl_sjcs.Open;

 inherited;
  sp_view.ExecProc;
  for i:=0 to ComponentCount-1 do
    if (Components[i] is TbsSkinDBText) then
      if (Components[i].Tag=8 )then
        TbsSkinDBText(Components[i]).Caption:='';
end;

end.