sysw00_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

  ActRestore.Enabled:=ASuper;
  ActCompress.Enabled:=ASuper;
  ActRights.Enabled:=ASuper;
  ActLog.Enabled:=ASuper;
  ActSetup.Enabled:=ASuper;
  ActOptions.Enabled:=ASuper;
  ActAlter.Enabled:=ASuper;
  PopupMenu2.Items.Clear;
  PopupMenu3.Items.Clear;
  ActBack.Enabled:=False;
  ActForward.Enabled:=False;
  ToolBar1.Refresh;
  ToolBar2.Refresh;

  //设置界面信息
  SetInterface;
  dxDBGrid1.LoadFromRegistry(ARegPath);

  ActReg.Visible:=ADemoFlag;
  N1.Visible:=ADemoFlag;
  LoadTreeItem;
  if qrySys500B.RecordCount<=25 then TreeView1.FullExpand;

  try
    ListView1.ViewStyle:=TViewStyle(ReadReg('ListViewStyle',2));
    case ListView1.ViewStyle of
      vsIcon:ActLarge.Execute;
      vsSmallIcon:ActSmall.Execute;
      vsList:ActList.Execute;
      vsReport:ActDetail.Execute;
    end;
  except
  end;

  if ReadReg('ListViewColumns0',2)<>0 then
    ListView1.Columns[0].Width:=ReadReg('ListViewColumns0',2);
  if ReadReg('ListViewColumns1',2)<>0 then
    ListView1.Columns[1].Width:=ReadReg('ListViewColumns1',2);
  if ReadReg('ListViewColumns2',2)<>0 then
    ListView1.Columns[2].Width:=ReadReg('ListViewColumns2',2);
  if ReadReg('ListViewColumns3',2)<>0 then
    ListView1.Columns[3].Width:=ReadReg('ListViewColumns3',2);
end;

procedure TSysW00_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  WriteReg('ListViewStyle',Integer(ListView1.ViewStyle),2);
  WriteReg('ListViewColumns0',ListView1.Columns[0].Width,2);
  WriteReg('ListViewColumns1',ListView1.Columns[1].Width,2);
  WriteReg('ListViewColumns2',ListView1.Columns[2].Width,2);
  WriteReg('ListViewColumns3',ListView1.Columns[3].Width,2);
  dxDBGrid1.SaveToRegistry(ARegPath);
  if AUpdateMain then
  begin
    Action := caFree;
    DeleteMe(ExtractFilePath(Paramstr(0))+'_deleteme.bat');
    Exit;
  end;
  Action := caFree;
end;

procedure TSysW00_01Form.ActNewExecute(Sender: TObject);
begin
//新建帐套(&N)...
  try
    Screen.Cursor:=crHourGlass;
    SYSDM.Timer1.Enabled:=False;
    AStartTime:=GetTickCount;
    Sys000_01Form:=TSys000_01Form.Create(Application);
    ShowRunTime;  //显示程序执行时间
    Screen.Cursor:=crDefault;
    if Sys000_01Form.ShowModal=1 then
    begin
      ShowMsg('UMS10000258');  //帐套建立完成，请重新登录系统
      AIsExit:=True;
      ActExit.Execute;
    end;
  finally
    SYSDM.Timer1.Enabled:=True;
    Screen.Cursor:=crDefault;
  end;
end;

procedure TSysW00_01Form.ActManagerExecute(Sender: TObject);
begin
//帐套管理(&M)...
  Screen.Cursor:=crHourGlass;
  AStartTime:=GetTickCount;
  Sys100_01Form:=TSys100_01Form.Create(Application);
  ShowRunTime;  //显示程序执行时间
  Screen.Cursor:=crDefault;
  Sys100_01Form.ShowModal;
end;

procedure TSysW00_01Form.ActLonginExecute(Sender: TObject);
begin
//更换操作员(&U)...
  ReLogin;
end;

procedure TSysW00_01Form.ActBackupExecute(Sender: TObject);
begin
//数据备份(&B)...
  Screen.Cursor:=crHourGlass;
  AStartTime:=GetTickCount;
  Sys400_01Form:=TSys400_01Form.Create(Application);
  ShowRunTime;  //显示程序执行时间
  Screen.Cursor:=crDefault;
  Sys400_01Form.ShowModal;
end;

procedure TSysW00_01Form.ActBackExecute(Sender: TObject);
var
  NewItem:TMenuItem;
  I:integer;
begin
//后退(&B)
  NewItem:=TMenuItem.Create(Self);
  NewItem.Caption:=LastNode.Text;
  PopupMenu3.Items.Insert(0,NewItem);
  VisibleMenuItem(PopupMenu3);
  ActForward.Enabled:=PopupMenu3.Items.Count>0;
  LastNode:=nil;
  for I:=0 to TreeView1.Items.Count-1 do
  begin
    if TreeView1.Items.Item[I].Text=PopupMenu2.Items.Items[0].Caption then
    begin
      TreeView1.Items.Item[I].Selected:=True;
      LastNode:=TreeView1.Items.Item[I];
      Break;
    end;
  end;
  PopupMenu2.Items.Delete(0);
  VisibleMenuItem(PopupMenu2);
  ActBack.Enabled:=PopupMenu2.Items.Count>0;
end;

procedure TSysW00_01Form.ActForwardExecute(Sender: TObject);
var
  NewItem:TMenuItem;
  I:integer;
begin
//前进(&F)
  NewItem:=TMenuItem.Create(Self);
  NewItem.Caption:=LastNode.Text;
  PopupMenu2.Items.Insert(0,NewItem);
  VisibleMenuItem(PopupMenu2);
  ActBack.Enabled:=PopupMenu2.Items.Count>0;
  LastNode:=nil;
  for I:=0 to TreeView1.Items.Count-1 do
  begin
    if TreeView1.Items.Item[I].Text=PopupMenu3.Items.Items[0].Caption then
    begin
      TreeView1.Items.Item[I].Selected:=True;
      LastNode:=TreeView1.Items.Item[I];
      Break;
    end;
  end;
  PopupMenu3.Items.Delete(0);
  VisibleMenuItem(PopupMenu3);
  ActForward.Enabled:=PopupMenu3.Items.Count>0;
end;

procedure TSysW00_01Form.ActUpExecute(Sender: TObject);
begin
//向上一级(&U)
  if TreeView1.Selected.Parent=nil then Exit;
  TreeView1.Selected.Parent.Selected:=True;
end;

procedure TSysW00_01Form.ActToolExecute(Sender: TObject);
begin
//工具栏(&T)
  mmiTool.Checked:=not mmiTool.Checked;
  CoolBar1.Bands[2].Visible:=mmiTool.Checked;
end;

procedure TSysW00_01Form.ActSateExecute(Sender: TObject);
begin
//状态栏(&S)
  mmiSate.Checked:=not mmiSate.Checked;
  ErpMainForm.StatusBar1.Visible:=mmiSate.Checked;
end;

procedure TSysW00_01Form.ActModuleExecute(Sender: TObject);
begin
//模块夹(&O)
  mmiModule.Checked:=not mmiModule.Checked;
  Panel2.Visible:=mmiModule.Checked;
end;

procedure TSysW00_01Form.ActLargeExecute(Sender: TObject);
begin
//大图标(&G)
  ActLarge.Checked:=True;
  ListView1.ViewStyle:=vsIcon;
end;

procedure TSysW00_01Form.ActSmallExecute(Sender: TObject);
begin
//小图标(&M)
  ActSmall.Checked:=True;
  ListView1.ViewStyle:=vsSmallIcon;
end;

procedure TSysW00_01Form.ActListExecute(Sender: TObject);
begin
//列表(&L)
  ActList.Checked:=True;
  ListView1.ViewStyle:=vsList;
end;

procedure TSysW00_01Form.ActDetailExecute(Sender: TObject);
begin
//详细资料(&D)
  ActDetail.Checked:=True;
  ListView1.ViewStyle:=vsReport;
end;

procedure TSysW00_01Form.ActRightsExecute(Sender: TObject);
begin
//用户权限管理(&U)...
  Screen.Cursor:=crHourGlass;
  AStartTime:=GetTickCount;
  Sys500_01Form:=TSys500_01Form.Create(Application);
  ShowRunTime;  //显示程序执行时间
  Screen.Cursor:=crDefault;
  Sys500_01Form.ShowModal;
end;

procedure TSysW00_01Form.ActPassExecute(Sender: TObject);
begin
//更改登录密码(&C)...
  Screen.Cursor:=crHourGlass;
  AStartTime:=GetTickCount;
  Sys600_01Form:=TSys600_01Form.Create(Application);
  ShowRunTime;  //显示程序执行时间
  Screen.Cursor:=crDefault;
  Sys600_01Form.ShowModal;
end;

procedure TSysW00_01Form.ActLogExecute(Sender: TObject);
begin
//上机日志明细(&L)...
  Screen.Cursor:=crHourGlass;
  AStartTime:=GetTickCount;
  Sys300_01Form:=TSys300_01Form.Create(Application);
  ShowRunTime;  //显示程序执行时间
  Screen.Cursor:=crDefault;
  Sys300_01Form.ShowModal;
end;

procedure TSysW00_01Form.ActSetupExecute(Sender: TObject);
begin
//模块安装设置(&S)...
  Screen.Cursor:=crHourGlass;
  AStartTime:=GetTickCount;
  Sys800_01Form:=TSys800_01Form.Create(Application);
  ShowRunTime;  //显示程序执行时间
  Screen.Cursor:=crDefault;
  if Sys800_01Form.ShowModal=1 then Application.Terminate;
end;

procedure TSysW00_01Form.ActRegExecute(Sender: TObject);
begin
//软件注册(&R)...
  Screen.Cursor:=crHourGlass;
  AStartTime:=GetTickCount;
  HwRegisterForm:=THwRegisterForm.Create(Application);
  ShowRunTime;  //显示程序执行时间
  Screen.Cursor:=crDefault;
  HwRegisterForm.ShowModal;
  ActReg.Visible:=ADemoFlag;
  N1.Visible:=ADemoFlag;
end;

procedure TSysW00_01Form.ActContentsExecute(Sender: TObject);
begin
//帮助主题(&H)
  Application.HelpCommand(HELP_FINDER,0);
end;

procedure TSysW00_01Form.ActAboutExecute(Sender: TObject);
begin
//关于皓晖(&A)...
  WelcomeForm:=TWelcomeForm.Create(Application);
  WelcomeForm.AFlag:=True;
  WelcomeForm.ShowModal;
end;

procedure TSysW00_01Form.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  NewItem:TMenuItem;
begin
  ComboBox1.Text:=TreeView1.Selected.Text;
  ActUp.Enabled:=TreeView1.Selected.Parent<>nil;
  AModule:=copy(qrySys500BS500D_001.AsString,1,3);

  //操作历史记录
  if LastNode=nil then Exit;
  NewItem:=TMenuItem.Create(Self);
  NewItem.Caption:=LastNode.Text;
  PopupMenu2.Items.Insert(0,NewItem);
  VisibleMenuItem(PopupMenu2);
  ActBack.Enabled:=PopupMenu2.Items.Count>0;
  if LastNode<>Node then LastNode:=Node;
end;

procedure TSysW00_01Form.Splitter1CanResize(Sender: TObject;
  var NewSize: Integer; var Accept: Boolean);
begin
  Accept:=NewSize>120;
end;

procedure TSysW00_01Form.tlbViewClick(Sender: TObject);
var
  I:integer;
begin
  for I:=0 to PopupMenu1.Items.Count-1 do
  begin
    if PopupMenu1.Items.Items[I].Checked then
    begin
      if I+1>PopupMenu1.Items.Count-1 then
        PopupMenu1.Items.Items[0].Click
      else
        PopupMenu1.Items.Items[I+1].Click;
      Break;
    end;
  end;
end;

procedure TSysW00_01Form.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  ColumnToSort := Column.Index;
  (Sender as TCustomListView).AlphaSort;
end;

procedure TSysW00_01Form.ListView1Compare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
var
  ix: Integer;
begin
  if ColumnToSort = 0 then
    Compare := CompareText(Item1.Caption,Item2.Caption)
  else begin
   ix := ColumnToSort - 1;
   Compare := CompareText(Item1.SubItems[ix],Item2.SubItems[ix]);
  end;
end;

procedure TSysW00_01Form.spbGoToClick(Sender: TObject);
var
  I:Integer;
  AFLAG:string;
  FLAG1:boolean;
  APRGM:string;
begin