umain.pas

小型企业物品管理系统,DELPHI源码+ACCESS数据库

unit Umain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzSplit, RzPanel, ExtCtrls, RzGroupBar, RzButton, RzPathBar,
  RzSndMsg, Buttons, RzSpnEdt, RzCommon, RzBHints, StdCtrls, RzLabel,
  DBSumLst, IdBaseComponent, IdComponent, IdTCPServer, RpDefine, RpBase,
  RpSystem, Menus, RzLaunch, RzTray, RzStatus, ActnList, DB, ADODB, ImgList,
  RzForms, BusinessSkinForm;

type
  TFmain = class(TForm)
    RzStatusBar1: TRzStatusBar;
    RzGroupBar1: TRzGroupBar;
    RzGroup1: TRzGroup;
    RzGroup2: TRzGroup;
    RzGroup3: TRzGroup;
    RzGroup5: TRzGroup;
    RzGroup6: TRzGroup;
    RzGroup7: TRzGroup;
    RzBalloonHints1: TRzBalloonHints;
    RzTrayIcon1: TRzTrayIcon;
    pm1: TPopupMenu;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    RzPanel1: TRzPanel;
    RzPanel2: TRzPanel;
    RzClockStatus1: TRzClockStatus;
    Timer1: TTimer;
    qryinfo: TADOQuery;
    qryinfosiCorp: TStringField;
    qryinfosiZip: TStringField;
    qryinfosiAddr: TStringField;
    qryinfosiTel: TStringField;
    qryinfosiFax: TStringField;
    qryinfosiMan: TStringField;
    qryinfosiMail: TStringField;
    qryinfosiURL: TStringField;
    qryinfosiSN: TStringField;
    dssysinfo: TDataSource;
    ilLarge: TImageList;
    RzGroup4: TRzGroup;
    RzGroup8: TRzGroup;
    spcsh: TADOStoredProc;
    il1: TImageList;
    RzToolbar1: TRzToolbar;
    lbl1: TLabel;
    procedure RzGroup1Items0Click(Sender: TObject);
    procedure RzGroup1Items1Click(Sender: TObject);
    procedure RzGroup6Items1Click(Sender: TObject);
    procedure RzGroup2Items1Click(Sender: TObject);
    procedure RzGroup3Items0Click(Sender: TObject);
    procedure RzGroup5Items0Click(Sender: TObject);
    procedure RzGroup5Items1Click(Sender: TObject);
    procedure RzGroup5Items2Click(Sender: TObject);
    procedure RzGroup5Items3Click(Sender: TObject);
    procedure RzGroup1Items2Click(Sender: TObject);
    procedure RzGroup2Items0Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure RzGroup1Items3Click(Sender: TObject);
    procedure RzGroup3Items1Click(Sender: TObject);
    procedure RzGroup7Items0Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure img1Click(Sender: TObject);
    procedure img3Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure RzGroup4Items0Click(Sender: TObject);
    procedure RzGroup8Items1Click(Sender: TObject);
    procedure RzGroup8Items0Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzGroup5Items5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fmain: TFmain;

implementation

uses Udep, Uempty, Uclass, Udate, Ubuy, Usell, Usysrz, Usyssz, Urctx,
  Uxgmm, Urktj, Uxttsck, Uwpbxx, Ucktjxx, Usysoption, Ukcxx, Uwell, Ulogin,
  Uljdate, Uxxts, upost, Usrfsz;

{$R *.dfm}

procedure TFmain.RzGroup1Items0Click(Sender: TObject);
begin
  fdep.ShowModal;
end;

procedure tFmain.RzGroup2items1click(sender:tobject);
begin
  Frktj.ShowModal;
end;

procedure tFmain.RzGroup3items0click(sender:tobject);
begin
  Fsell.ShowModal;
end;


procedure TFmain.RzGroup1Items1Click(Sender: TObject);
begin
  fempty.showmodal;
end;

procedure TFmain.RzGroup6Items1Click(Sender: TObject);
begin
  if MessageDlg('真的要退出该系统吗？',mtCustom,[mbYes,mbno],0)=idyes then begin
    fdate.qryuser.Edit;
    fdate.qryuseremlogin.value:=False;
    try fdate.qryuser.Post;
    except
    fdate.qryuser.Cancel;
    end;
    close;
  end
  else
    Exit;
end;

procedure TFmain.RzGroup5Items0Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('您不是管理员！，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
    MessageBeep(0);
  if MessageDlg('您真的要进行系统初始化操作吗？进行此操作将有以下危险：'+ #13#10#13#10 + '1、数据库中的信息记录将会全部删除掉！;' +
      #13#10 + '2. 并且不能够进行恢复！;',mtError,[mbYes,mbno],0)=idyes then begin
     with spcsh do begin
      Close;
      ExecProc;
     end;
     showmessage(spcsh.Parameters.parambyname('@msg').Value);
  end
  else
    Exit;
 end;

procedure TFmain.RzGroup5Items1Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('您不是管理员！，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  fsysoption.ShowModal;
end;

procedure TFmain.RzGroup5Items2Click(Sender: TObject);
begin
  fxgyhm.showmodal;
end;

procedure TFmain.RzGroup5Items3Click(Sender: TObject);
begin
  fxgmm.ShowModal;
end;

procedure TFmain.RzGroup1Items2Click(Sender: TObject);
begin
  Fclass.ShowModal;
end;

procedure TFmain.RzGroup2Items0Click(Sender: TObject);
begin
  Fbuy.ShowModal;
end;

procedure TFmain.N30Click(Sender: TObject);
begin
   if MessageDlg('真的要退出该系统吗？',mtInformation,[mbYes,mbno],0)=idyes then
    close
  else
    Exit;
end;

procedure TFmain.RzGroup1Items3Click(Sender: TObject);
begin
  fwpbxx.showmodal;
end;

procedure TFmain.RzGroup3Items1Click(Sender: TObject);
begin
  fcktjxx.ShowModal;
end;

procedure TFmain.RzGroup7Items0Click(Sender: TObject);
begin
  fkcxx.showmodal;
end;

procedure TFmain.FormShow(Sender: TObject);
begin
    fLogin.ShowModal;
    if urid<>1 then
      lbl1.Caption:='当前用户为['+''+yhname+''+']为普通用户！'
    else
      lbl1.Caption:='当前用户为['+''+yhname+''+']为系统管理员';
end;

procedure TFmain.tmr1Timer(Sender: TObject);
  var j,i:Integer;
begin
    fdate.qryview_eabsh.Close;
    fdate.qryview_eabsh.Open;
    fdate.qryview_eabsh.First;
    i:=0;
    for j:=0 to fdate.qryview_eabsh.RecordCount do begin
      if fdate.qryview_eabsheabit.Value=True then
        i:=i+1;
      fdate.qryview_eabsh.Next;
    end;
    if i>0 then begin
      if MessageDlg('当前有['''+inttostr(i)+''']条!库存信息低于您设置的最低量!',mtInformation,[mbYes,mbno],0)=idyes then
        Fsysoption.ShowModal
      else
        Exit;
    end
    else
      Exit;
    Timer1.Enabled:=False;
end;

procedure TFmain.Timer1Timer(Sender: TObject);
 var j,i:Integer;
begin
    fdate.qryview_eabsh.Close;
    fdate.qryview_eabsh.Open;
    fdate.qryview_eabsh.First;
    i:=0;
    for j:=0 to fdate.qryview_eabsh.RecordCount do begin
      if fdate.qryview_eabsheabit.Value=True then
        i:=i+1;
      fdate.qryview_eabsh.Next;
    end;
    if i>0 then begin
      messagebeep(0);
      fxxts.lbl1.caption:='当前有['+''+inttostr(i)+''+']条物品！库存信息低于您设置的最低库存量！是否浏览？';
      fxxts.Show;
    end
    else
      timer1.Enabled:=False;
end;

procedure TFmain.img1Click(Sender: TObject);
begin
   if MessageDlg('真的要退出该系统吗？',mtCustom,[mbYes,mbno],0)=idyes then
    close
  else
    Exit;
end;

procedure TFmain.img3Click(Sender: TObject);
begin
  messagebeep(0);
  if MessageDlg('真的要退出该系统吗？',mtInformation,[mbYes,mbno],0)=idyes then
    close
  else
    Exit;
end;

procedure TFmain.N29Click(Sender: TObject);
begin
    RzTrayIcon1.RestoreApp;    
end;

procedure TFmain.N31Click(Sender: TObject);
begin
   {  :::启动屏幕保护:::
执行下列语句开始Windows屏幕保护程序 }
SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0);
end;

procedure TFmain.RzGroup4Items0Click(Sender: TObject);
begin
  fsysinfo.ShowModal;
end;

procedure TFmain.RzGroup8Items1Click(Sender: TObject);
begin
  Fsyssz.ShowModal;//出库统计分析
end;

procedure TFmain.RzGroup8Items0Click(Sender: TObject);
begin
  Fpost.ShowModal;  
end;

procedure TFmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 try fdate.qryuser.Edit;
    fdate.qryuseremlogin.value:=False;
    fdate.qryuser.Post;
 except
   fdate.qryuser.Cancel;
 end;
end;

procedure TFmain.RzGroup5Items5Click(Sender: TObject);
begin
  Fsrfsz.show;
end;

end.