gtth_un.pas

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

unit gtth_un;

interface

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

type
  Tgtth_frm = class(Tbase_frm)
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    bsSkinSpeedButton3: TbsSkinSpeedButton;
    bsSkinSpeedButton4: TbsSkinSpeedButton;
    bsSkinSpeedButton9: TbsSkinSpeedButton;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDBText2: TbsSkinDBText;
    bsSkinButton2: TbsSkinButton;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    ADOStoredProc1: TADOStoredProc;
    DataSource1: TDataSource;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure ADOStoredProc1AfterOpen(DataSet: TDataSet);
    procedure bsSkinSpeedButton3Click(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure bsSkinSpeedButton4Click(Sender: TObject);
    procedure bsSkinSpeedButton9Click(Sender: TObject);
    procedure bsSkinDBGrid1CellClick(Column: TbsColumn);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
    procedure setbutton();
    procedure cha();
  public
    { Public declarations }
  end;

var
  gtth_frm: Tgtth_frm;

implementation
 uses data_un,golb,glch_un;
{$R *.dfm}
procedure tgtth_frm.cha();
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;

end;
procedure tgtth_frm.setbutton();
begin

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 Tgtth_frm.FormShow(Sender: TObject);
begin
  inherited;
ADOStoredProc1.ExecProc;
ADOStoredProc1.Open;

end;

procedure Tgtth_frm.ADOStoredProc1AfterOpen(DataSet: TDataSet);
begin
  inherited;
setbutton();
end;

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

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

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

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

procedure Tgtth_frm.bsSkinDBGrid1CellClick(Column: TbsColumn);
begin
  inherited;
  Cha();
end;

procedure Tgtth_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;

end;

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

end.