shrxxid_un.pas

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

unit shrxxid_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmbase_un, bsMessages, bsSkinData, BusinessSkinForm, DB, ADODB,
  wwDialog, wwidlg, bsSkinGrids, bsDBGrids, bsdbctrls, StdCtrls,
  bsSkinCtrls, Grids, Wwdbigrd, Wwdbgrid, Menus;

type
  Tshrxxid_frm = class(Tbase_frm)
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinSpeedButton5: TbsSkinSpeedButton;
    bsSkinSpeedButton7: TbsSkinSpeedButton;
    bsSkinSpeedButton8: TbsSkinSpeedButton;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    dstemp: TDataSource;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    qrysjcs: TADOQuery;
    ds_sjcs: TDataSource;
    ds_sjxh: TDataSource;
    qrysjxh: TADOQuery;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinDBText1: TbsSkinDBText;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    bsSkinSpeedButton3: TbsSkinSpeedButton;
    bsSkinSpeedButton4: TbsSkinSpeedButton;
    bsSkinSpeedButton9: TbsSkinSpeedButton;
    bsSkinButton1: TbsSkinButton;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    ADOStoredProc1: TADOStoredProc;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDBText2: TbsSkinDBText;
    bsSkinButton2: TbsSkinButton;
    spsjxc: TADOStoredProc;
    bsSkinTextLabel1: TbsSkinTextLabel;
    procedure bsSkinSpeedButton19Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure bsSkinSpeedButton5Click(Sender: TObject);
    procedure bsSkinSpeedButton6Click(Sender: TObject);
    procedure bsSkinSpeedButton7Click(Sender: TObject);
    procedure bsSkinSpeedButton8Click(Sender: TObject);
    procedure qtempAfterOpen(DataSet: TDataSet);
    procedure bsSkinDBGrid2CellClick(Column: TbsColumn);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure qrysjxhAfterOpen(DataSet: TDataSet);
    procedure bsSkinDBLookupComboBox1Click(Sender: TObject);
    procedure bsSkinDBGrid1CellClick(Column: TbsColumn);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure ADOStoredProc1AfterOpen(DataSet: TDataSet);
    procedure bsSkinSpeedButton9Click(Sender: TObject);
    procedure bsSkinSpeedButton4Click(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure bsSkinSpeedButton3Click(Sender: TObject);
    procedure bsSkinDBLookupComboBox1Change(Sender: TObject);
    procedure spsjxcAfterOpen(DataSet: TDataSet);
  private
  procedure state();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  shrxxid_frm: Tshrxxid_frm;

implementation
uses gtlh_un,glch_un,data_un,gl_un,golb;
{$R *.dfm}

procedure Tshrxxid_frm.state();
begin
if spsjxc.Active then
if spsjxc.RecordCount>0 then
begin
bsSkinDBGrid2.Enabled:=True;
bsSkinSpeedButton5.Enabled:=true;
bsSkinSpeedButton6.Enabled:=true;
bsSkinSpeedButton7.Enabled:=true;
bsSkinSpeedButton8.Enabled:=true;
bsSkinButton1.Enabled:=true;
end
else
begin
bsSkinDBGrid2.Enabled:=false;
bsSkinSpeedButton5.Enabled:=false;
bsSkinSpeedButton6.Enabled:=false;
bsSkinSpeedButton7.Enabled:=false;
bsSkinSpeedButton8.Enabled:=false;
bsSkinButton1.Enabled:=false;
end;
if ADOStoredProc1.Active then
if ADOStoredProc1.RecordCount>0 then
begin
 bsSkinDBGrid1.Enabled:=true;
    bsSkinButton2.Enabled:=true;
bsSkinSpeedButton3.Enabled:=true;
bsSkinSpeedButton2.Enabled:=true;
bsSkinSpeedButton4.Enabled:=true;
bsSkinSpeedButton9.Enabled:=true;
end
else
begin
    bsSkinDBText2.Caption:='';
    bsSkinDBGrid1.Enabled:=false;
    bsSkinButton2.Enabled:=false;
bsSkinSpeedButton3.Enabled:=false;
bsSkinSpeedButton2.Enabled:=false;
bsSkinSpeedButton4.Enabled:=false;
bsSkinSpeedButton9.Enabled:=false;
end;
end;
procedure Tshrxxid_frm.bsSkinSpeedButton19Click(Sender: TObject);
  VAR gtlh:Tgtlh_frm;
begin
  inherited;
  gtlh:=Tgtlh_frm.Create(owner);
  gtlh.ShowModal;
  gtlh.Free;

end;

procedure Tshrxxid_frm.FormShow(Sender: TObject);
begin
  inherited;
 bsSkinDBText1.Caption:='';
  bsSkinDBText2.Caption:='';
qrysjcs.Open;
qrysjxh.Open;
bsSkinDBGrid2.Enabled:=false;
bsSkinSpeedButton5.Enabled:=false;
bsSkinSpeedButton6.Enabled:=false;
bsSkinSpeedButton7.Enabled:=false;
bsSkinSpeedButton8.Enabled:=false;
bsSkinSpeedButton3.Enabled:=false;
bsSkinSpeedButton2.Enabled:=false;
bsSkinSpeedButton4.Enabled:=false;
bsSkinSpeedButton9.Enabled:=false;
bsSkinButton1.Enabled:=false;
ADOStoredProc1.ExecProc;
ADOStoredProc1.Open;
state();

end;

procedure Tshrxxid_frm.bsSkinSpeedButton1Click(Sender: TObject);
begin
  inherited;
close;
end;

procedure Tshrxxid_frm.bsSkinSpeedButton5Click(Sender: TObject);
begin
  inherited;
spsjxc.First;
end;

procedure Tshrxxid_frm.bsSkinSpeedButton6Click(Sender: TObject);
begin
  inherited;
spsjxc.Prior;
end;

procedure Tshrxxid_frm.bsSkinSpeedButton7Click(Sender: TObject);
begin
  inherited;
spsjxc.Next;
end;

procedure Tshrxxid_frm.bsSkinSpeedButton8Click(Sender: TObject);
begin
  inherited;
spsjxc.Last;
end;

procedure Tshrxxid_frm.qtempAfterOpen(DataSet: TDataSet);
begin
  inherited;
  state();
end;

procedure Tshrxxid_frm.bsSkinDBGrid2CellClick(Column: TbsColumn);
var gl:Tgl_frm;
begin
  inherited;

  golb.hrxxid:=bsSkinDBText1.Caption;
  gl:=Tgl_frm.Create(owner);
  gl.Left:=Mouse.CursorPos.X;
  gl.top:=mouse.CursorPos.Y;
  gl.ShowModal;
  gl.Free;
ADOStoredProc1.Close;
ADOStoredProc1.Open;
spsjxc.Close;
spsjxc.Open;

end;

procedure Tshrxxid_frm.bsSkinButton1Click(Sender: TObject);
var gl:Tgl_frm;
begin
  inherited;
  golb.hrxxid:=bsSkinDBText1.Caption;
  gl:=Tgl_frm.Create(owner);
  gl.Left:=Mouse.CursorPos.X;
  gl.top:=mouse.CursorPos.Y;
  gl.ShowModal;
  gl.Free;
ADOStoredProc1.Close;
ADOStoredProc1.Open;
spsjxc.Close;
spsjxc.Open;
end;

procedure Tshrxxid_frm.qrysjxhAfterOpen(DataSet: TDataSet);
begin
  inherited;
qrysjxh.First;
end;

procedure Tshrxxid_frm.bsSkinDBLookupComboBox1Click(Sender: TObject);
begin
  inherited;
//  qtemp.Close;
//qtemp.Parameters.ParamValues['sjxh']:=qrysjxh.FieldValues['fid'];
//qtemp.Open;
end;

procedure Tshrxxid_frm.bsSkinDBGrid1CellClick(Column: TbsColumn);
var glch:Tglch_frm;
begin
  inherited;

  golb.hrxxid:=bsSkinDBText2.Caption;
  glch:=Tglch_frm.Create(owner);
  glch.Left:=Mouse.CursorPos.X-glch.Width;
  glch.top:=mouse.CursorPos.Y-glch.Height;
  glch.ShowModal;
  glch.Free;
ADOStoredProc1.Close;
ADOStoredProc1.Open;
//ADOStoredProc1.Refresh;
spsjxc.Close;
spsjxc.Open;

end;

procedure Tshrxxid_frm.bsSkinButton2Click(Sender: TObject);
var glch:Tglch_frm;
begin
  inherited;

  golb.hrxxid:=bsSkinDBText2.Caption;
  glch:=Tglch_frm.Create(owner);
  glch.Left:=Mouse.CursorPos.X;
  glch.top:=mouse.CursorPos.Y;
  glch.ShowModal;
  glch.Free;
ADOStoredProc1.Close;
ADOStoredProc1.Open;
spsjxc.Close;
spsjxc.Open;

end;

procedure Tshrxxid_frm.ADOStoredProc1AfterOpen(DataSet: TDataSet);
begin
  inherited;
  state();
end;

procedure Tshrxxid_frm.bsSkinSpeedButton9Click(Sender: TObject);
begin
  inherited;
ADOStoredProc1.Last;
end;

procedure Tshrxxid_frm.bsSkinSpeedButton4Click(Sender: TObject);
begin
  inherited;
ADOStoredProc1.Next;
end;

procedure Tshrxxid_frm.bsSkinSpeedButton2Click(Sender: TObject);
begin
  inherited;
ADOStoredProc1.Prior;
end;

procedure Tshrxxid_frm.bsSkinSpeedButton3Click(Sender: TObject);
begin
  inherited;
ADOStoredProc1.First;
end;

procedure Tshrxxid_frm.bsSkinDBLookupComboBox1Change(Sender: TObject);
begin
  inherited;
    spsjxc.Close;
spsjxc.Parameters.ParamValues['@fmodel']:=qrysjxh.FieldValues['fid'];
spsjxc.ExecProc;
spsjxc.Open;
end;

procedure Tshrxxid_frm.spsjxcAfterOpen(DataSet: TDataSet);
begin
  inherited;
state();
end;

end.