umain.~pas

商场销售信息系统只要用于小商场的销售管理

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinData, BusinessSkinForm, Menus, bsSkinCtrls, bsMessages,
  ExtCtrls, Buttons, bsSkinHint;

type
  TfrmMain = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsSkinMainMenuBar1: TbsSkinMainMenuBar;
    bsSkinMainMenu1: TbsSkinMainMenu;
    x1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    bsMessage: TbsSkinMessage;
    g1: TMenuItem;
    N17: TMenuItem;
    xpulse1: TMenuItem;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    bsCompressedStoredSkin2: TbsCompressedStoredSkin;
    Bsstatus: TbsSkinStatusPanel;
    g2: TMenuItem;
    N11: TMenuItem;
    t1: TMenuItem;
    N18: TMenuItem;
    bsSkinPanel1: TbsSkinPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    bsSkinHint1: TbsSkinHint;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Image1: TImage;
    procedure N5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N6Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure xpulse1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure g2Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N15Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure t1Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }

  end;

var
  frmMain: TfrmMain;

implementation
uses upublic,comobj,uSplb,uSpgg,uabout, UPassword, UXsd, Uuser, UGt,shellapi,
  Ureport, UFenLei, Uday;
{$R *.dfm}

//商品类别窗口
procedure TfrmMain.N5Click(Sender: TObject);
begin
if userinfoa.Level>0 then
begin
  if not assigned(frmsplb) then
    frmsplb:=Tfrmsplb.create(self);
  frmsplb.Show;
end else
  bsmessage.MessageDlg('对不起,您没有这个权限!',mtWarning,[mbOK],0);
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
xpulse1.Checked:=true;
bsBusinessSkinForm1.WindowState:=wsMaximized;
bsSkinData1.CompressedStoredSkin:=bsCompressedStoredSkin2;
apppath:=extractfilepath(application.ExeName);
Bsstatus.Caption:='  '+UserInfoA.UserName+ ' 您好!,欢迎使用商场销售信息系统.      现在时间是: '+datetimetostr(now);

//initData;
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if conn.state=1 then conn.close;
conn:=unassigned;
application.Terminate;
end;

//商品规格
procedure TfrmMain.N6Click(Sender: TObject);
begin
if userinfoa.Level>1 then
begin
  if not assigned(frmspgg) then
    frmspgg:=Tfrmspgg.create(self);
  frmspgg.Show;
end else
  bsmessage.MessageDlg('对不起,您没有这个权限!',mtWarning,[mbOK],0);
end;

procedure TfrmMain.N16Click(Sender: TObject);
begin
if not assigned(frmAbout) then
  frmAbout:=TfrmAbout.create(self);
frmAbout.Show;
end;

procedure TfrmMain.N17Click(Sender: TObject);
begin
n17.Checked:=true;
bsSkinData1.CompressedStoredSkin:=bsCompressedStoredSkin1;


end;

procedure TfrmMain.xpulse1Click(Sender: TObject);
begin
xpulse1.Checked:=true;
bsSkinData1.CompressedStoredSkin:=bsCompressedStoredSkin2;
end;

procedure TfrmMain.N1Click(Sender: TObject);
begin
if not assigned(frmChangePassword) then
   frmChangePassword:=TfrmChangePassword.Create(self);

   frmChangePassword.show;

end;

procedure TfrmMain.N8Click(Sender: TObject);
begin

if  userinfoa.Level=0 then
begin
  if not assigned(frmXsd) then
    frmXsd:=TfrmXsd.Create(self);
  frmXsd.Show;
end else
  bsmessage.MessageDlg('对不起,您不是营业员!',mtWarning,[mbOK],0);
end;

procedure TfrmMain.N3Click(Sender: TObject);
begin
if userinfoa.Level >1 then
begin
  if not assigned(frmuser) then
    frmuser:=Tfrmuser.create(self);
  frmuser.Show;
end
else
  bsmessage.MessageDlg('对不起,您没有这个权限!',mtWarning,[mbOK],0);
end;

procedure TfrmMain.g2Click(Sender: TObject);
begin
if userinfoa.Level>0 then
begin
if not assigned(frmGt) then
  frmGt:=TfrmGt.create(self);
  frmGt.Show;
end
else
  bsmessage.MessageDlg('对不起,您没有这个权限!',mtWarning,[mbOK],0);
end;

//退出系统
procedure TfrmMain.N13Click(Sender: TObject);
begin
close;

end;

procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if frmmain.MDIChildCount>0 then
begin
  canclose:=false;
  exit;
end;
if bsmessage.MessageDlg('真的要退出销售系统?',mtWarning,mbOKCancel,0)=idok then
  CanClose:=true
else
  CanClose:=false;

end;

procedure TfrmMain.N15Click(Sender: TObject);
begin
if fileexists(Apppath+'help\help.chm') then
  shellexecute(handle,'open',pchar(apppath+'help\help.chm'),nil,nil,1)
else
  bsMessage.MessageDlg('找不到帮助文件！',mtWarning,[mbOK],0);
end;

procedure TfrmMain.N10Click(Sender: TObject);
begin
if userinfoa.Level>0 then
begin
  if not assigned(frmReport) then
    frmReport:=TfrmReport.create(self);
  frmReport.show;
end
else
  bsmessage.MessageDlg('对不起,您没有这个权限!',mtWarning,[mbOK],0);

end;

procedure TfrmMain.t1Click(Sender: TObject);
begin
if userinfoa.Level>0 then
begin
  if not assigned(frmDay) then
    frmDay:=TfrmDay.create(self);
    frmDay.show;
end
else
  bsmessage.MessageDlg('对不起,您没有这个权限!',mtWarning,[mbOK],0);
end;

procedure TfrmMain.N18Click(Sender: TObject);
begin
if userinfoa.Level>0 then
begin
  if not assigned(frmFenlei) then
    frmFenlei:=TfrmFenlei.create(self);
    frmFenlei.show;
end
else
  bsmessage.MessageDlg('对不起,您没有这个权限!',mtWarning,[mbOK],0);
end;


end.