hmain_un.pas

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

unit hmain_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmbase_un, bsMessages, bsSkinData, BusinessSkinForm, ExtCtrls,
  Buttons, bsSkinCtrls, ComCtrls, bsSkinTabs, StdCtrls, bsSkinHint, DB,
  ADODB, RM_class;

type
  Thmain_frm = class(Tbase_frm)
    bsSkinButtonsBar1: TbsSkinButtonsBar;
    SpeedButton3: TSpeedButton;
    bsSkinHint1: TbsSkinHint;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    RMCompositeReport1: TRMCompositeReport;
    sp_sjxccount: TADOStoredProc;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    Image1: TImage;
    btn1: TSpeedButton;
    btn2: TSpeedButton;
    btn3: TSpeedButton;
    btn4: TSpeedButton;
    btn5: TSpeedButton;
    btn6: TSpeedButton;
    btn7: TSpeedButton;
    bsSkinTabSheet2: TbsSkinTabSheet;
    img1: TImage;
    btn8: TSpeedButton;
    btn9: TSpeedButton;
    btn10: TSpeedButton;
    btn11: TSpeedButton;
    btn12: TSpeedButton;
    btn13: TSpeedButton;
    bsSkinTabSheet3: TbsSkinTabSheet;
    img2: TImage;
    btn14: TSpeedButton;
    btn15: TSpeedButton;
    btn16: TSpeedButton;
    bsSkinTabSheet4: TbsSkinTabSheet;
    img3: TImage;
    btn17: TSpeedButton;
    btn18: TSpeedButton;
    btn19: TSpeedButton;
    btn20: TSpeedButton;
    btn21: TSpeedButton;
    btn22: TSpeedButton;
    btn23: TSpeedButton;
    btn24: TSpeedButton;
    bsSkinTabSheet9: TbsSkinTabSheet;
    img8: TImage;
    btn41: TSpeedButton;
    btn42: TSpeedButton;
    btn43: TSpeedButton;
    bsSkinTabSheet10: TbsSkinTabSheet;
    img9: TImage;
    btn44: TSpeedButton;
    btn45: TSpeedButton;
    btn46: TSpeedButton;
    btn47: TSpeedButton;
    btn48: TSpeedButton;
    btn49: TSpeedButton;
    btn50: TSpeedButton;
    bsSkinTabSheet5: TbsSkinTabSheet;
    SpeedButton1: TSpeedButton;
    btn_1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButtonsBar1Sections0Items0Click(Sender: TObject);
    procedure bsSkinButtonsBar1Sections0Items1Click(Sender: TObject);
    procedure bsSkinButtonsBar1Sections0Items2Click(Sender: TObject);
    procedure bsSkinButtonsBar1Sections0Items3Click(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
    procedure btn9Click(Sender: TObject);
    procedure btn14Click(Sender: TObject);
    procedure btn15Click(Sender: TObject);
    procedure btn13Click(Sender: TObject);
    procedure btn17Click(Sender: TObject);
    procedure btn18Click(Sender: TObject);
    procedure bsSkinButtonsBar1Sections0Items4Click(Sender: TObject);
    procedure bsSkinButtonsBar1Sections0Items6Click(Sender: TObject);
    procedure bsSkinTabSheet1Show(Sender: TObject);
    procedure bsSkinTabSheet6Show(Sender: TObject);
    procedure bsSkinTabSheet5Show(Sender: TObject);
    procedure bsSkinTabSheet4Show(Sender: TObject);
    procedure bsSkinTabSheet3Show(Sender: TObject);
    procedure bsSkinTabSheet2Show(Sender: TObject);
    procedure bsSkinButtonsBar1Sections2Click(Sender: TObject);
    procedure bsSkinButtonsBar1Sections1Items4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn16Click(Sender: TObject);
    procedure btn10Click(Sender: TObject);
    procedure btn11Click(Sender: TObject);
    procedure btn12Click(Sender: TObject);
    procedure btn41Click(Sender: TObject);
    procedure btn42Click(Sender: TObject);
    procedure btn24Click(Sender: TObject);
    procedure btn23Click(Sender: TObject);
    procedure btn44Click(Sender: TObject);
    procedure btn49Click(Sender: TObject);
    procedure btn46Click(Sender: TObject);
    procedure btn48Click(Sender: TObject);
    procedure btn45Click(Sender: TObject);
    procedure btn50Click(Sender: TObject);
    procedure btn_1Click(Sender: TObject);
    procedure btn47Click(Sender: TObject);
    procedure btn43Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    hrcid:string;  //窗体间传递变量的参数，
  end;

var
  hmain_frm: Thmain_frm;

implementation
uses   selfcount_un,dlreport_un,data_un,seltime_un,ppbs_un,sjtc_un,khlj_un,zbjfh_un,gzjfh_un,
khthsear_un,djyc_un,sgsj_un,sjxc_un,gtth_un,
shrxxid_un,shrcfid_un,sjrc_un,jbpz_un,sjxh_un,
sjcs_un,color_un,yg_un,main_un,hydzl_un,gtzl_un;
{$R *.dfm}

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

procedure Thmain_frm.bsSkinButtonsBar1Sections0Items0Click(
  Sender: TObject);
begin
  inherited;
bsSkinTabSheet1.show;
end;

procedure Thmain_frm.bsSkinButtonsBar1Sections0Items1Click(
  Sender: TObject);
begin
  inherited;
bsSkinTabSheet2.show;
end;

procedure Thmain_frm.bsSkinButtonsBar1Sections0Items2Click(
  Sender: TObject);
begin
  inherited;
bsSkinTabSheet3.show;
end;

procedure Thmain_frm.bsSkinButtonsBar1Sections0Items3Click(
  Sender: TObject);
begin
  inherited;
bsSkinTabSheet4.show;
end;

procedure Thmain_frm.FormClick(Sender: TObject);
begin
  inherited;
bsSkinTabSheet1.show;
end;

procedure Thmain_frm.btn1Click(Sender: TObject);
var color:Tcolor_frm  ;
begin
  inherited;
//showmessage('手机color设置')  ;
 color:=Tcolor_frm.Create(owner);
 color.ShowModal;
 color.Free;

end;
procedure Thmain_frm.btn2Click(Sender: TObject);
var sjcs:Tsjcs_frm;
begin
  inherited;
//showmessage('手机厂商设置')  ;
sjcs:=Tsjcs_frm.Create(owner);
sjcs.ShowModal;
sjcs.Free;
end;

procedure Thmain_frm.btn3Click(Sender: TObject);
var sjxh:Tsjxh_frm;
begin
  inherited;
  sjxh:=Tsjxh_frm.Create(owner);
  sjxh.ShowModal;
  sjxh.Free;
//showmessage('手机基本型号设置')  ;
end;

procedure Thmain_frm.btn4Click(Sender: TObject);
var jbpz:Tjbpz_frm;
begin
  inherited;
  jbpz:=Tjbpz_frm.Create(owner);
  jbpz.ShowModal;
  jbpz.Free;
//showmessage('手机基本配置设置')  ;
end;

procedure Thmain_frm.btn8Click(Sender: TObject);
var sjrc:Tsjrc_frm;
begin
  inherited;
sjrc:=Tsjrc_frm.Create(owner);
sjrc.ShowModal;
sjrc.Free;
//showmessage('手机入库设置')  ;
end;

procedure Thmain_frm.btn9Click(Sender: TObject);
var shrcfid:Tshrcfid_frm;
begin
  inherited;
  shrcfid:=Tshrcfid_frm.Create(owner);
  shrcfid.ShowModal;
  shrcfid.Free;
//showmessage('手机详细信息入库设置')  ;
end;

procedure Thmain_frm.btn14Click(Sender: TObject);
  VAR shrxxid:Tshrxxid_frm;
begin
  inherited;
  shrxxid:=Tshrxxid_frm.Create(owner);
  shrxxid.ShowModal;
  shrxxid.Free;
//showmessage('手机上柜设置')  ;
end;

procedure Thmain_frm.btn15Click(Sender: TObject);
var sjxc:Tsjxc_frm;
begin
  inherited;
  sjxc:=Tsjxc_frm.Create(owner);
  sjxc.ShowModal;
  sjxc.Free;
//showmessage('手机客户购货')  ;
end;

procedure Thmain_frm.btn13Click(Sender: TObject);
var zbjfh:Tzbjfh_frm;
begin
  inherited;
     zbjfh:=Tzbjfh_frm.Create(owner);
     zbjfh.ShowModal;
     zbjfh.Free;

//showmessage('质保机返回')  ;
end;

procedure Thmain_frm.btn17Click(Sender: TObject);
begin
  inherited;
showmessage('手机库存查询')  ;
end;

procedure Thmain_frm.btn18Click(Sender: TObject);
begin
  inherited;
showmessage('手机盘点设置')  ;
end;

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

procedure Thmain_frm.bsSkinButtonsBar1Sections0Items6Click(
  Sender: TObject);
begin
  inherited;
close;
end;

procedure Thmain_frm.bsSkinTabSheet1Show(Sender: TObject);
begin
  inherited;
bsSkinStdLabel1.Caption:='参数设置'
end;

procedure Thmain_frm.bsSkinTabSheet6Show(Sender: TObject);
begin
  inherited;
bsSkinStdLabel1.Caption:='报表打印' ;
end;

procedure Thmain_frm.bsSkinTabSheet5Show(Sender: TObject);
begin
  inherited;
bsSkinStdLabel1.Caption:='手机查询' ;
end;

procedure Thmain_frm.bsSkinTabSheet4Show(Sender: TObject);
begin
  inherited;
bsSkinStdLabel1.Caption:='库存盘点' ;
end;

procedure Thmain_frm.bsSkinTabSheet3Show(Sender: TObject);
begin
  inherited;
bsSkinStdLabel1.Caption:='销售管理' ;
end;

procedure Thmain_frm.bsSkinTabSheet2Show(Sender: TObject);
begin
  inherited;
bsSkinStdLabel1.Caption:='进货管理' ;
end;

procedure Thmain_frm.bsSkinButtonsBar1Sections2Click(Sender: TObject);
begin
  inherited;
close;
end;

procedure Thmain_frm.bsSkinButtonsBar1Sections1Items4Click(
  Sender: TObject);
begin
  inherited;
close;
end;

procedure Thmain_frm.btn5Click(Sender: TObject);
var yg :Tyg_frm;
begin
  inherited;
  yg:=Tyg_frm.Create(owner);
  yg.ShowModal;

  yg.Free;

end;

procedure Thmain_frm.btn7Click(Sender: TObject);
 var gt:Tgtzl_frm ;
begin
  inherited;
    gt:=Tgtzl_frm.Create(owner);
    gt.ShowModal;
    gt.Free;

end;

procedure Thmain_frm.btn6Click(Sender: TObject);
var hyd:Thyd_frm;
begin
  inherited;
  hyd:=Thyd_frm.Create(owner);
  hyd.ShowModal;
  hyd.Free;

end;

procedure Thmain_frm.btn16Click(Sender: TObject);
var gtth:Tgtth_frm;
begin
  inherited;
  gtth:=Tgtth_frm.Create(owner);
  gtth.ShowModal;
  gtth.Free;

// showmessage('柜台退货');
end;

procedure Thmain_frm.btn10Click(Sender: TObject);
var  sgsj:Tsgsj_frm;
begin
  inherited;

sgsj:=Tsgsj_frm.Create(owner);
sgsj.ShowModal;
sgsj.Free;
end;

procedure Thmain_frm.btn11Click(Sender: TObject);
var djyc:Tdjyc_frm;
begin
  inherited;
      djyc:=Tdjyc_frm.Create(owner);
      djyc.ShowModal;
      djyc.Free;
end;

procedure Thmain_frm.btn12Click(Sender: TObject);
var gzjfh:Tgzjfh_frm;
begin
  inherited;
  gzjfh:=Tgzjfh_frm.Create(owner);
  gzjfh.ShowModal;
  gzjfh.Free;
//厂家返回入库
end;

procedure Thmain_frm.btn41Click(Sender: TObject);
var khth:Tkhthsear_frm;
begin
  inherited;
  khth:=Tkhthsear_frm.Create(owner);
  khth.ShowModal;
  khth.Free;

end;

procedure Thmain_frm.btn42Click(Sender: TObject);
var khlh:Tkhlj_frm;
begin
  inherited;
  khlh:=Tkhlj_frm.Create(owner);
  khlh.ShowModal;
  khlh.Free;
  

end;

procedure Thmain_frm.btn24Click(Sender: TObject);
var sjtc:Tsjtc_frm;
begin
  inherited;
  sjtc:=Tsjtc_frm.Create(owner);
  sjtc.ShowModal;
  sjtc.Free;

end;

procedure Thmain_frm.btn23Click(Sender: TObject);
var ppbs:Tppbs_frm;
begin
  inherited;
        ppbs:=Tppbs_frm.Create(owner);
        ppbs.ShowModal;
        ppbs.Free;

end;

procedure Thmain_frm.btn44Click(Sender: TObject);
var seltime:Tseltime_frm;
begin
  inherited;
  seltime:=Tseltime_frm.Create(owner);
  seltime.ShowModal;
  seltime.Free;
end;


procedure Thmain_frm.btn49Click(Sender: TObject);
var seltime:Tseltime_frm;
begin
  inherited;
  seltime:=Tseltime_frm.Create(owner);
  seltime.bsSkinStdLabel2.Caption:='01';
  seltime.ShowModal;
  seltime.Free;

end;

procedure Thmain_frm.btn46Click(Sender: TObject);
var dlreport:Tdlreport_frm;
begin
  inherited;
  dlreport:=Tdlreport_frm.Create(owner);
  dlreport.bsSkinStdLabel1.Caption:='统计代理商手机代理的总表';
  dlreport.sear:=1;
  dlreport.ShowModal;
  dlreport.Free;
end;

procedure Thmain_frm.btn48Click(Sender: TObject);
var dlreport:Tdlreport_frm;
begin
  inherited;
  dlreport:=Tdlreport_frm.Create(owner);
  dlreport.bsSkinStdLabel1.Caption:='统计代理商手机代理按类型分类总表';
  dlreport.sear:=2;
  dlreport.ShowModal;
  dlreport.Free;

end;

procedure Thmain_frm.btn45Click(Sender: TObject);
var dlreport:Tdlreport_frm;
begin
  inherited;
  dlreport:=Tdlreport_frm.Create(owner);
  dlreport.bsSkinStdLabel1.Caption:='统计代理商手机代理明细表';
  dlreport.sear:=3;
  dlreport.ShowModal;
  dlreport.Free;

end;

procedure Thmain_frm.btn50Click(Sender: TObject);
var sjtj:Tselfcount_frm;
begin

  inherited;
sjtj:=Tselfcount_frm.Create(owner);
sjtj.bsSkinStdLabel1.Caption:='统计手机进销存总表';
sjtj.sear:=1;
sjtj.act:=1;
sjtj.ShowModal;
sjtj.Free;
end;

procedure Thmain_frm.btn_1Click(Sender: TObject);
var sjtj:Tselfcount_frm;
begin

  inherited;
sjtj:=Tselfcount_frm.Create(owner);
sjtj.bsSkinStdLabel1.Caption:='统计手机进销存分类总表';
sjtj.sear:=2;
sjtj.act:=1;
sjtj.ShowModal;
sjtj.Free;

end;

procedure Thmain_frm.btn47Click(Sender: TObject);
var sjtj:Tselfcount_frm;
begin

  inherited;
sjtj:=Tselfcount_frm.Create(owner);
sjtj.bsSkinStdLabel1.Caption:='统计手机进销存明细表';
sjtj.sear:=3;
sjtj.act:=1;
sjtj.ShowModal;
sjtj.Free;

end;

procedure Thmain_frm.btn43Click(Sender: TObject);
var sjtj:Tselfcount_frm;
begin

  inherited;
sjtj:=Tselfcount_frm.Create(owner);
sjtj.bsSkinStdLabel1.Caption:='统计时间段内手机进销存总表';
sjtj.sear:=1;
sjtj.act:=2;
sjtj.ShowModal;
sjtj.Free;

end;

procedure Thmain_frm.SpeedButton4Click(Sender: TObject);
var sjtj:Tselfcount_frm;
begin

  inherited;
sjtj:=Tselfcount_frm.Create(owner);
sjtj.bsSkinStdLabel1.Caption:='统计时间段内手机进销存分类总表';
sjtj.sear:=2;
sjtj.act:=2;
sjtj.ShowModal;
sjtj.Free;

end;

procedure Thmain_frm.SpeedButton5Click(Sender: TObject);
var sjtj:Tselfcount_frm;
begin

  inherited;
sjtj:=Tselfcount_frm.Create(owner);
sjtj.bsSkinStdLabel1.Caption:='统计时间段内手机进销存分类明细表';
sjtj.sear:=3;
sjtj.act:=2;
sjtj.ShowModal;
sjtj.Free;

end;

end.