⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main_un.pas

📁 手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
unit main_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,registry, Menus, bsSkinCtrls, BusinessSkinForm, bsSkinData,
  ExtCtrls, mytray_un,IniFiles, Buttons, ActnList,ShellAPI;

type
  Tmain_frm = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Image1: TImage;
    N7: TMenuItem;
    r1: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    s1: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    v1: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    b1: TMenuItem;
    N27: TMenuItem;
    N31: TMenuItem;
    w1: TMenuItem;
    N37: TMenuItem;
    N40: TMenuItem;
    N28: TMenuItem;
    N44: TMenuItem;
    N38: TMenuItem;
    d1: TMenuItem;
    N45: TMenuItem;
    N17: TMenuItem;
    N39: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N51: TMenuItem;
    N56: TMenuItem;
    N60: TMenuItem;
    N2: TMenuItem;
    N6: TMenuItem;
    N42: TMenuItem;
    N61: TMenuItem;
    N43: TMenuItem;
    bsSkinMainMenuBar1: TbsSkinMainMenuBar;
    N50: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N66: TMenuItem;
    N68: TMenuItem;
    N18: TMenuItem;
    N41: TMenuItem;
    N49: TMenuItem;
    N55: TMenuItem;
    N59: TMenuItem;
    N65: TMenuItem;
    N67: TMenuItem;
    N52: TMenuItem;
    procedure N5Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure r1Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure s1Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure v1Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure b1Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N53Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N65Click(Sender: TObject);
    procedure N67Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
  private
    { Private declarations }
  public
  title:string;
    { Public declarations }
  end;

var
  main_frm: Tmain_frm;

implementation
 uses sjnofollow_un,reg_un,fjlr_un,sjlr1_un,dlfjreport_un,fjreport_un,about_un,change_un,login_un,golb,yfsacount_un,seltime_un,selfcount_un,dlreport_un,khhj_un,fjdlpz_un,fjdlth_un, bjsj_un,dltj_un,dlpz_un,dllh_un,sjrcduo_un,fjxc_un,glfj_un,fjcs_un,fjrc_un,skin_un,sys_un,hmain_un,yg_un,data_un,hydzl_un,company_un,gtzl_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;
{$R *.dfm}

procedure Tmain_frm.N5Click(Sender: TObject);
begin
close;
end;

procedure Tmain_frm.N4Click(Sender: TObject);
var skin:Tskin;
begin
skin:=Tskin.Create(owner);
skin.ShowModal;
skin.Free;
end;

procedure Tmain_frm.FormCreate(Sender: TObject);
VAR
 reg:tregistry;
 skin_s:string;
begin

 reg:=tregistry.Create;
 reg.RootKey:=hkey_local_machine;
 reg.OpenKey('\software\microsoft\windows\bl_soft',true);
 if  reg.ValueExists('skin') then
  begin
   skin_s:=reg.ReadString('skin');
  end
 else
  begin
   reg.WriteString('skin',ExtractFilePath(Application.ExeName)+'skin\lime\skin.ini');
   skin_s:=ExtractFilePath(Application.ExeName)+'skin\lime\skin.ini';
  end;
bsCompressedStoredSkin1.LoadFromIniFile(skin_s);
bsSkinData1.LoadCompressedStoredSkin(bsCompressedStoredSkin1);

end;

procedure Tmain_frm.SpeedButton1Click(Sender: TObject);
var sysfrm:Tsys_frm1;
begin
//ShowMessage('系统设置');
sysfrm:=Tsys_frm1.Create(Owner);
sysfrm.ShowModal;
sysfrm.Free;

end;

procedure Tmain_frm.SpeedButton2Click(Sender: TObject);
begin
ShowMessage('手机异常维护');
end;

procedure Tmain_frm.SpeedButton3Click(Sender: TObject);
var hmain:Thmain_frm ;
begin
ShowMessage('手机进销存');
hmain:=Thmain_frm.Create(owner);
hmain.ShowModal;
hmain.Free;
end;

procedure Tmain_frm.SpeedButton4Click(Sender: TObject);
var fjxc: Tfjxc_frm;
begin
fjxc:= Tfjxc_frm.Create(owner);
fjxc.ShowModal;
fjxc.Free;
end;

procedure Tmain_frm.FormShow(Sender: TObject);
 var IniFile1: TIniFile;
s:string;
i:integer;
begin
for i:=0 to ComponentCount-1 do
begin
if Components[i] is  TMenuItem then
        TMenuItem(Components[i]).Enabled:=False;
end;
for i:=0 to ComponentCount-1 do
begin
if Components[i] is  TMenuItem then
  if Components[i].Tag=1 then
        TMenuItem(Components[i]).Enabled:=True;
end;

 n53.Enabled:=True;
 n54.Enabled:=False;

IniFile1 := TIniFile.Create (ExtractFilePath (Application.ExeName) + 'info.ini');    //创建一个INI文件
s:=inifile1.ReadString('company','data',s);
IniFile1.free;
main_frm.Caption:=main_frm.Caption+'----'+s;
title:=s;


end;

procedure Tmain_frm.N19Click(Sender: TObject);
var sjcs:Tsjcs_frm;
begin

//showmessage('手机厂商设置')  ;
sjcs:=Tsjcs_frm.Create(owner);
sjcs.ShowModal;
sjcs.Free;

end;

procedure Tmain_frm.N8Click(Sender: TObject);
var sjxh:Tsjxh_frm;
begin

  sjxh:=Tsjxh_frm.Create(owner);
  sjxh.ShowModal;
  sjxh.Free;

end;

procedure Tmain_frm.N9Click(Sender: TObject);
var jbpz:Tjbpz_frm;
begin

  jbpz:=Tjbpz_frm.Create(owner);
  jbpz.ShowModal;
  jbpz.Free;

end;

procedure Tmain_frm.r1Click(Sender: TObject);
var color:Tcolor_frm  ;
begin

//showmessage('手机color设置')  ;
 color:=Tcolor_frm.Create(owner);
 color.ShowModal;
 color.Free;

end;

procedure Tmain_frm.N10Click(Sender: TObject);
var yg :Tyg_frm;
begin

  yg:=Tyg_frm.Create(owner);
  yg.ShowModal;
  yg.Free;

end;

procedure Tmain_frm.N12Click(Sender: TObject);
var hyd:Thyd_frm;
begin

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

end;

procedure Tmain_frm.N11Click(Sender: TObject);
 var gt:Tgtzl_frm ;
begin

    gt:=Tgtzl_frm.Create(owner);
    gt.ShowModal;
    gt.Free;

end;

procedure Tmain_frm.N7Click(Sender: TObject);
var comp:Tcompany_frm;
begin

  comp:=tcompany_frm.Create(owner);
  comp.ShowModal;
  comp.Free;

end;

procedure Tmain_frm.s1Click(Sender: TObject);
 // VAR shrxxid:Tshrxxid_frm;
 var dllh:Tdllh_frm;
begin
dllh:=Tdllh_frm.Create(owner);
dllh.ShowModal;
dllh.Free;

 // shrxxid:=Tshrxxid_frm.Create(owner);
 // shrxxid.ShowModal;
 // shrxxid.Free;

end;

procedure Tmain_frm.N17Click(Sender: TObject);
var dltj:Tdltj_frm    ;
begin
  inherited;
  dltj:=Tdltj_frm.Create(owner);
  dltj.ShowModal;
  dltj.Free;

end;

procedure Tmain_frm.N13Click(Sender: TObject);
var sjxc:Tsjxc_frm;
begin

  sjxc:=Tsjxc_frm.Create(owner);
  sjxc.ShowModal;
  sjxc.Free;

end;

procedure Tmain_frm.v1Click(Sender: TObject);
var sjtc:Tsjtc_frm;
begin

  sjtc:=Tsjtc_frm.Create(owner);
  sjtc.ShowModal;
  sjtc.Free;

end;

procedure Tmain_frm.N20Click(Sender: TObject);
var ppbs:Tppbs_frm;
begin

        ppbs:=Tppbs_frm.Create(owner);
        ppbs.ShowModal;
        ppbs.Free;

end;
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -