shrcfid_un.pas

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

unit shrcfid_un;

interface

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

type
  Tshrcfid_frm = class(Tbase_frm)
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinSpeedButton5: TbsSkinSpeedButton;
    bsSkinSpeedButton6: TbsSkinSpeedButton;
    bsSkinSpeedButton7: TbsSkinSpeedButton;
    bsSkinSpeedButton8: TbsSkinSpeedButton;
    ds_hrc: TDataSource;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinSpeedButton19: TbsSkinSpeedButton;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    qhrc: TADOStoredProc;
    bsSkinStdLabel2: TbsSkinDBText;
    procedure bsSkinDBGrid2CellClick(Column: TbsColumn);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinSpeedButton5Click(Sender: TObject);
    procedure bsSkinSpeedButton6Click(Sender: TObject);
    procedure bsSkinSpeedButton7Click(Sender: TObject);
    procedure bsSkinSpeedButton8Click(Sender: TObject);
    procedure bsSkinSpeedButton19Click(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  shrcfid_frm: Tshrcfid_frm;

implementation
 uses golb,hrxx_un,data_un,hmain_un, main_un;
{$R *.dfm}

procedure Tshrcfid_frm.bsSkinDBGrid2CellClick(Column: TbsColumn);
begin
  inherited;
  bsSkinStdLabel2.Caption:=qhrc.FieldValues['fid'];

end;

procedure Tshrcfid_frm.FormCreate(Sender: TObject);
begin
  inherited;
if not qhrc.Active then
qhrc.Open;
end;

procedure Tshrcfid_frm.bsSkinSpeedButton5Click(Sender: TObject);
begin
  inherited;
qhrc.First;
bsSkinStdLabel2.Caption:=qhrc.FieldValues['fid'];

end;

procedure Tshrcfid_frm.bsSkinSpeedButton6Click(Sender: TObject);
begin
  inherited;
qhrc.Prior;
bsSkinStdLabel2.Caption:=qhrc.FieldValues['fid'];

end;

procedure Tshrcfid_frm.bsSkinSpeedButton7Click(Sender: TObject);
begin
  inherited;
qhrc.Next;
bsSkinStdLabel2.Caption:=qhrc.FieldValues['fid'];

end;

procedure Tshrcfid_frm.bsSkinSpeedButton8Click(Sender: TObject);
begin
  inherited;
qhrc.Last;
bsSkinStdLabel2.Caption:=qhrc.FieldValues['fid'];

end;

procedure Tshrcfid_frm.bsSkinSpeedButton19Click(Sender: TObject);
var hrxx:Thrxx_frm;
begin
  inherited;
  hrxx:=Thrxx_frm.Create(owner);
  //golb.hrcid:=bsSkinStdLabel2.Caption;
   hrxx.bsSkinDBText1.Caption:=bsSkinStdLabel2.Caption;
   hrxx.bsSkinStdLabel7.caption:=qhrc.FieldValues['fmon'];
  hrxx.ShowModal;
  hrxx.Free;
end;

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

end.