sys_un.pas

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

unit sys_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmbase_un, BusinessSkinForm, Menus, bsSkinCtrls, bsSkinData,
  ImgList, ComCtrls,IniFiles, bsSkinTabs, StdCtrls, Mask, bsSkinBoxCtrls,
  bsMessages, bsSkinGrids, bsDBGrids, ExtCtrls, bsdbctrls, Buttons;

type
  Tsys_frm1 = class(Tbase_frm)
    ImageList: TImageList;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    procedure N4Click(Sender: TObject);
    procedure bsSkinButtonsBar1Sections0Items4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sys_frm1: Tsys_frm1;

implementation
   uses yg_un,data_un,main_un,hydzl_un,company_un,gtzl_un;
{$R *.dfm}

procedure Tsys_frm1.N4Click(Sender: TObject);
begin
  inherited;
close;
end;

procedure Tsys_frm1.bsSkinButtonsBar1Sections0Items4Click(Sender: TObject);
begin
  inherited;
close;
end;

procedure Tsys_frm1.SpeedButton1Click(Sender: TObject);
var comp:Tcompany_frm;
begin
  inherited;
  comp:=tcompany_frm.Create(owner);
  comp.ShowModal;
  comp.Free;

end;

procedure Tsys_frm1.SpeedButton5Click(Sender: TObject);
begin
  inherited;
close;
end;
     
procedure Tsys_frm1.SpeedButton2Click(Sender: TObject);
 var gt:Tgtzl_frm ;
begin
  inherited;
    gt:=Tgtzl_frm.Create(owner);
    gt.ShowModal;
    gt.Free;
end;


procedure Tsys_frm1.SpeedButton4Click(Sender: TObject);

var hyd:Thyd_frm;
begin
  inherited;
  hyd:=Thyd_frm.Create(owner);
  hyd.ShowModal;
  hyd.Free;

end;

procedure Tsys_frm1.FormShow(Sender: TObject);
begin
  inherited;
Caption:=Caption+'----'+main_frm.title;
bsSkinStdLabel2.Caption:=Caption;
end;

procedure Tsys_frm1.SpeedButton6Click(Sender: TObject);
var yg :Tyg_frm;
begin
  inherited;
  yg:=Tyg_frm.Create(owner);
  yg.ShowModal;
  yg.Free;

end;

end.