main.pas

仓库管理系统 仓库管理系统

unit Main;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  ActnList, ToolWin, ImgList,db,
  dbTables, Shellapi, jpeg, OleServer, Word97,Excel97, XPMenu;

type
  TMainForm = class(TForm)
    StatusBar1: TStatusBar;
    mmMainMenu: TMainMenu;
    imglMainMenu: TImageList;
    aclMainMenu: TActionList;
    aciFileExit: TAction;
    aciEditCut: TEditCut;
    aciEditCopy: TEditCopy;
    aciEditPaste: TEditPaste;
    aciWindowCascade: TWindowCascade;
    aciWindowTileHorizontal: TWindowTileHorizontal;
    aciWindowTileVertical: TWindowTileVertical;
    aciWindowMinimizeAll: TWindowMinimizeAll;
    aciWindowArrangeAll: TWindowArrange;
    aciHelpAbout: TAction;
    Timer1: TTimer;
    sys_top: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    ToolButton3: TToolButton;
    tbtnCut: TToolButton;
    tbtnCopy: TToolButton;
    tbtnPaste: TToolButton;
    ToolButton7: TToolButton;
    sys_manneger: TMenuItem;
    sys_cpwd: TMenuItem;
    N1: TMenuItem;
    sys_repass: TMenuItem;
    N5: TMenuItem;
    sys_exit: TMenuItem;
    hlp_top: TMenuItem;
    hlp_about: TMenuItem;
    hlp_topic: TMenuItem;
    mgood_top: TMenuItem;
    mgood_spec: TMenuItem;
    mgood_stoin: TMenuItem;
    mgood_stoout: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    mgood_check: TMenuItem;
    mgood_loss: TMenuItem;
    msale_top: TMenuItem;
    msale_style: TMenuItem;
    msale_month: TMenuItem;
    N17: TMenuItem;
    mdata_top: TMenuItem;
    mdata_recsend: TMenuItem;
    mdata_tran: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    hlp_internet: TMenuItem;
    N26: TMenuItem;
    mman_man: TMenuItem;
    sys_default: TMenuItem;
    N3: TMenuItem;
    sys_run: TMenuItem;
    N29: TMenuItem;
    m_assistant: TMenuItem;
    m_dress: TMenuItem;
    mman_top: TMenuItem;
    mman_search: TMenuItem;
    mman_change: TMenuItem;
    mrepair_update: TMenuItem;
    mgood_search: TMenuItem;
    mrepair_top: TMenuItem;
    sys_branch: TMenuItem;
    mgood_label: TMenuItem;
    mrepair_back: TMenuItem;
    N4: TMenuItem;
    mrepair_delsale: TMenuItem;
    Image1: TImage;
    msale_saler: TMenuItem;
    msale_in: TMenuItem;
    mgoods_find: TMenuItem;
    mgood_conver: TMenuItem;
    mrepair_delst: TMenuItem;
    mgood_fstoin: TMenuItem;
    mgood_fstoout: TMenuItem;
    N27: TMenuItem;
    mdata_deal: TMenuItem;
    mreair_start: TMenuItem;
    msale_time: TMenuItem;
    msale_detail: TMenuItem;
    mstore_top: TMenuItem;
    mass_sdress: TMenuItem;
    mstore_pdreport: TMenuItem;
    N7: TMenuItem;
    mgood_price: TMenuItem;
    N11: TMenuItem;
    mstore_set: TMenuItem;
    N13: TMenuItem;
    msale_set: TMenuItem;
    msale_front: TMenuItem;
    N12: TMenuItem;
    msale_saleno: TMenuItem;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    msale_extend: TMenuItem;
    XPMenu1: TXPMenu;
//    procedure aciFileExitExecute(Sender: TObject);  2000/12/09
//    procedure mmiMPIndentClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure fun_manClick(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure sys_cpwdClick(Sender: TObject);
    procedure sys_repassClick(Sender: TObject);
    procedure sys_exitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sys_mannegerClick(Sender: TObject);
    procedure hlp_aboutClick(Sender: TObject);
    procedure mman_manClick(Sender: TObject);
    procedure m_dressClick(Sender: TObject);
    procedure mman_searchClick(Sender: TObject);
    procedure mman_changeClick(Sender: TObject);
    procedure mrepair_updateClick(Sender: TObject);
    procedure mgood_specClick(Sender: TObject);
    procedure mgood_stoinClick(Sender: TObject);
    procedure mgood_searchClick(Sender: TObject);
    procedure mgood_stooutClick(Sender: TObject);
    procedure mgood_checkClick(Sender: TObject);
    procedure mgood_lossClick(Sender: TObject);
    procedure hlp_internetClick(Sender: TObject);
    procedure sys_defaultClick(Sender: TObject);
    procedure sys_branchClick(Sender: TObject);
    procedure mgood_labelClick(Sender: TObject);
    procedure msale_styleClick(Sender: TObject);
    procedure msale_salerClick(Sender: TObject);
    procedure msale_inClick(Sender: TObject);
    procedure msale_monthClick(Sender: TObject);
    procedure sys_runClick(Sender: TObject);
    procedure mgoods_findClick(Sender: TObject);
    procedure mrepair_backClick(Sender: TObject);
    procedure mrepair_delsaleClick(Sender: TObject);
    procedure mgood_converClick(Sender: TObject);
    procedure mrepair_delstClick(Sender: TObject);
    procedure mgood_fstoinClick(Sender: TObject);
    procedure mgood_fstooutClick(Sender: TObject);
    procedure mdata_dealClick(Sender: TObject);
    procedure mreair_startClick(Sender: TObject);
    procedure mdata_recsendClick(Sender: TObject);
    procedure msale_timeClick(Sender: TObject);
    procedure msale_detailClick(Sender: TObject);
    procedure mdata_receiveClick(Sender: TObject);
    procedure mdata_tranClick(Sender: TObject);
    procedure mass_sdressClick(Sender: TObject);
    procedure mstore_pdreportClick(Sender: TObject);
    procedure mgood_priceClick(Sender: TObject);
    procedure mstore_setClick(Sender: TObject);
    procedure msale_setClick(Sender: TObject);
    procedure msale_frontClick(Sender: TObject);
    procedure msale_salenoClick(Sender: TObject);
    procedure msale_extendClick(Sender: TObject);
//    procedure FormCreate(Sender: TObject);
//    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    FClientInstance : TFarProc;
    FPrevClientProc : TFarProc;
    procedure ClientWndProc(var Message: TMessage);
    procedure FindMenuItems(Item: TMenuItem);//Node: TTreeNode;
    procedure AppQuit(Sender: TObject);
    procedure AppDocumentChange(Sender: TObject);
    procedure DocNew(Sender: TObject);
    procedure DocOpen(Sender: TObject);
    procedure DocClose(Sender: TObject);
  public
    { Public declarations }
//    execl:Texecl;
//    fst:string;
  end;

var
  MainForm: TMainForm;
  fst:string;
//  g_vuname:string;

implementation

{$R *.DFM}

uses 
  dbmRainbowMis, chHeadUnit, dfm_password, dfmstin, dfmtfind, dfmstout,
  dfmstyle, dfm_shop, dfm_team, dfm_manrec,
  dfm_imdata, dfm_imkddata,dfm_repass,
  dfm_syspwd, about, f_dress, f_findman, f_manchange, f_update,
  f_specenter, f_storein, f_stosearch, f_manoeuvre, f_stocheck, f_loss,
  f_default, f_branch, f_label, f_xsfx, dfm_saler, dfm_money, dfm_smonth,
  dfm_tray, dfm_sware, dfm_bavre, dfm_del, dfm_check, dfm_loop,
  dfm_delstohst, dfm_sstoin, dfm_sstoout, dfm_receive, dfm_start, Main_F,
  dfm_time, dfm_saledetail, dfm_transpara, dfm_dresslis, dfm_creatbd,
  dfm_price, dfm_stoset, dfm_saleset, dfm_ssaleno, dfm_extend;

{var
  WordObject : TWordObject;}

procedure Tmainform.FindMenuItems( Item: TMenuItem); //Node: TTreeNode;
var
//  str:String;
  nCnt,las: Integer;
  dv:string;
begin
  dv:=trim(item.Name) ;
    if dmrainbowmis.tbltmenu.Locate('cmenuname',dv,[loPartialKey]) then
    begin
      if pos(vgro+'0',dmRainbowMIS.tbltmenu.fieldbyname('climit').asstring)>0 then
        item.Enabled :=false
      else
        item.Enabled :=true;
      if trim(dmrainbowmis.tbltmenu['cmenuind'])='2' then
        item.Visible :=false;        
    end;
  for nCnt := 0 to Item.Count - 1 do
  begin
     FindMenuItems(Item.Items[nCnt]);
  end;
{    dv:=trim(item.Name) ;
    if dmrainbowmis.tbltmenu.Locate('cmenuname',dv,[loPartialKey]) then
    begin
      las:=pos(vgro+'0',dmRainbowMIS.tbltmenu.fieldbyname('climit').asstring);
      if las=0 then
        item.Enabled :=true;
      if las=1 then
        item.Enabled :=false;
      if trim(dmrainbowmis.tbltmenu['cmenuind'])='2' then
        item.Visible :=false;
    end;
    for nCnt := 0 to Item.Count - 1 do
    begin
      FindMenuItems(Item.Items[nCnt]);
    end; }
end;


procedure TMainForm.FormShow(Sender: TObject);
begin
  StatusBar1.Panels[1].Text :='现在用户:'+ g_uInfo.fuserid+'  '+g_uInfo.fusername;
  dmRainbowMIS.tbltmenu.indexfieldnames:='cmenuname';
  if g_uInfo.fuserid<>'system' then
    FindMenuItems(mmMainMenu.Items);
  dmRainbowMIS.tbltmenu.active:=false;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  fst := ExtractFilePath(Application.ExeName);
  dmRainbowMIS.tbltmenu.active:=true;
  dmRainbowMIS.Atbltray.Active := true;
  image1.Picture.LoadFromFile(fst+'images\oemlogo.bmp');
  FClientInstance := MakeObjectInstance(ClientWndProc);
  FPrevClientProc := Pointer(GetWindowLong(ClientHandle,
                             GWL_WNDPROC));
  SetWindowLong(ClientHandle,
                GWL_WNDPROC, LongInt(FClientInstance));
  chHeadUnit.entertray(mainform,dmRainbowMIS.Atbltray) ;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  statusbar1.Panels [2].Text :=timetostr(time());
end;

procedure TMainForm.sys_cpwdClick(Sender: TObject);
begin
  If  Application.FindComponent('dfmsyspwd')=Nil Then
    dfmsyspwd:=Tdfmsyspwd.Create(Application);
  dfmsyspwd.Show;
end;

procedure TMainForm.fun_manClick(Sender: TObject);
begin
  If  Application.FindComponent('dfmmanrec')=Nil Then
    dfmmanrec:=Tdfmmanrec.Create(Application);
  dfmmanrec.Show;
end;

procedure TMainForm.ToolButton5Click(Sender: TObject);
begin
  SendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0);
end;

procedure TMainForm.ToolButton1Click(Sender: TObject);
begin
{  if not Assigned(WordObject) then
  begin
    WordObject := TWordObject.Create;
    with WordObject do begin
      Caption := 'Delphi is RAD!';
      Visible := True;
      OnQuit := AppQuit;
      OnDocumentChange := AppDocumentChange;
      OnNewDocument := DocNew;
      OnOpenDocument := DocOpen;
      OnCloseDocument := DocClose;
    end;
  end;}    //2001-12-17
end;

procedure TMainForm.AppDocumentChange(Sender: TObject);
begin
//  Memo1.Lines.Add('Document changed');
//  TypeTextButton.Enabled := WordObject.Application.Documents.Count > 0;
end;

procedure TMainForm.AppQuit(Sender: TObject);
begin

end;

procedure TMainForm.DocNew(Sender: TObject);
begin

end;

procedure TMainForm.DocOpen(Sender: TObject);
begin

end;

procedure TMainForm.DocClose(Sender: TObject);
begin

end;


procedure TMainForm.ToolButton2Click(Sender: TObject);
begin
//  winexec(pchar(myexecl),sw_show);
//  Excel := TExcel.Create(Self);
{  if not Assigned(ExcelObject) then
  begin
    ExcelObject := TExcelObject.Create;
    with ExcelObject do begin
      Caption := 'Delphi is RAD!';
      Visible := True;}
{      OnQuit := AppQuit;
      OnDocumentChange := AppDocumentChange;
      OnNewDocument := DocNew;
      OnOpenDocument := DocOpen;
      OnCloseDocument := DocClose; }
//    end;
{    LaunchButton.Enabled := False;
    CloseButton.Enabled := True;
    NewDocButton.Enabled := True; }
//  end;
end;


procedure TMainForm.sys_repassClick(Sender: TObject);
var
  I:integer;
begin
  if Application.MessageBox('你想要关闭所有的窗口，重新登录吗？',