u_main.pas

这是一个用条码录入的数据的进销存(只对成品）---做童装的

unit U_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,inifiles, WinSkinData, StdCtrls, ExtCtrls, ComCtrls, Buttons,
  ToolWin, Menus, ImgList;

type
  TF_main = class(TForm)
    Sinfo: TStatusBar;
    Panel1: TPanel;
    Panel2: TPanel;
    TreeView1: TTreeView;
    Panel3: TPanel;
    Label1: TLabel;
    Panel4: TPanel;
    SpeedButton3: TSpeedButton;
    mainmenu: TMainMenu;
    N_A: TMenuItem;
    N_B: TMenuItem;
    N_C: TMenuItem;
    N_D: TMenuItem;
    N_E: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N11: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    ImageList4: TImageList;
    N1: TMenuItem;
    ToolBar1: TToolBar;
    N2: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure TreeView1Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure TreeView1Collapsing(Sender: TObject; Node: TTreeNode;
      var AllowCollapse: Boolean);
    procedure N7Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
  vFuncs: variant; //存储用户功能列表
  procedure setFuncs;
  function FindFuncs(const aFunc: string): boolean;

    { Public declarations }
  end;

var
  F_main: TF_main;

implementation

uses U_Function, U_Dbsetting, U_DM, U_Login, U_Base_Group, U_IBand,
  U_IItem, U_WareHouse, U_Product, U_Customer, U_UserManage,
  U_EditPassword, U_OperatLog_query, U_OperateLog, U_Order, U_InWareHouse,
  U_JDSetting;

{$R *.dfm}
//查找功能项是否存在 保存用户功能
function TF_main.FindFuncs(const aFunc: string): boolean;
var
  i: integer;
  bFunc: string;
begin
  Result := False;
  if (varIsArray(vFuncs)) then
  begin
    for i := varArrayLowBound(vfuncs, 1) to varArrayHighBound(vfuncs, 1) do
    begin
      bFunc := vFuncs[i];
      if bFunc = aFunc then
      begin
        result := true;
        exit;
      end;
    end;
  end;
end;

procedure TF_main.FormCreate(Sender: TObject);
begin
//Companryinfo.Caption:= Thecompanry.Projectname;
Self.caption:=Thecompanry.ZH_Companryname;
Sinfo.Panels.Items[0].Text:=CopyRight;
Sinfo.Panels.Items[2].Text :=Username;
Sinfo.Panels.Items[4].Text :=Datetimetostr(now);
setFuncs;
end;

procedure TF_main.setFuncs;
var
  vn_node, vn_node1, vn_node2, vn_node3: TTreenode;
  i, i1, i2: integer;
  vs_caption: string;
begin
  with Self do
  Begin
//    if Userpower <> '1' then
  //    N19.Visible:= false;
    vn_node := treeview1.Items.add(treeview1.topitem, TheCompanry.Projectname);
    vn_node.ImageIndex := 0;
    vn_node.StateIndex := -1;
    vn_node.SelectedIndex := 1;
    for i := 0 to 4 do
    begin
      vs_caption := mainmenu.items[i].caption;
      vn_node1 := treeview1.items.addchild(vn_node, vs_caption);
      vn_node1.ImageIndex := 0;
      vn_node1.StateIndex := -1;
      vn_node1.SelectedIndex := 1;
      for i1 := 0 to mainmenu.Items[i].count - 1 do
      begin
        vs_caption := mainmenu.items[i].items[i1].caption;
 //       if not FindFuncs(vs_caption) then
//        begin
//          mainmenu.items[i].items[i1].visible := false;
//          continue;
//        end;
        vn_node2 := treeview1.Items.AddChild(vn_node1, vs_caption);
        vn_node2.ImageIndex := 0;
        vn_node2.StateIndex := -1;
        vn_node2.SelectedIndex := 1;
        for i2 := 0 to mainmenu.items[i].items[i1].count - 1 do
        begin
          vs_caption := mainmenu.items[i].items[i1].items[i2].Caption;
         // if not FindFuncs(vs_caption) then
//          begin
//            mainmenu.items[i].items[i1].items[i2].visible := false;
//            continue;
//          end;
          vn_node3 := treeview1.items.addchild(vn_node2, vs_caption);
          vn_node3.ImageIndex := 0;
          vn_node3.StateIndex := -1;
          vn_node3.SelectedIndex := 1;
        end;
      end;
    end;
  end;
  treeview1.Items[0].Expanded:=True;
end;  

procedure TF_main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Application.MessageBox('请确认是否退出本系统', '提示信息', mb_iconinformation + mb_YesNo) = id_no then
    CanClose:=False;
end;

procedure TF_main.TreeView1Click(Sender: TObject);
var
  i1, i2, i3: integer;
  ii, ii1, ii2: integer;
  v_caption: string;
  if_find: boolean;
begin
if treeview1.selected=nil then
exit;
  if_find := false;
  i1 := -1; i2 := -1; i3 := -1;
  v_caption := treeview1.selected.Text;
  for ii := 0 to 4 do
  begin
    if if_find = true then
      continue;
    for ii1 := 0 to mainmenu.items[ii].count - 1 do
    begin
      if if_find = true then
        continue;
      for ii2 := 0 to mainmenu.items[ii].items[ii1].count - 1 do
      begin
        if v_caption = mainmenu.items[ii].items[ii1].items[ii2].Caption then
        begin
          i3 := ii2;
          i2 := ii1;
          i1 := ii;
          if_find := true;
          continue;
        end;
      end;
      if v_caption = mainmenu.items[ii].items[ii1].Caption then
      begin
        i2 := ii1;
        i1 := ii;
        if_find := true;
        continue;
      end;
    end;
  end;
  if if_find = true then
  begin
    if i3 <> -1 then
      MainMenu.items[i1].items[i2].items[i3].click
    else
      MainMenu.Items[i1].items[i2].click;
  end;
end;

procedure TF_main.N6Click(Sender: TObject);
var F_Base_Group:TF_Base_Group;
begin
  F_Base_Group:=TF_Base_Group.Create(self);
  F_Base_Group.Show;
end;

procedure TF_main.TreeView1Collapsing(Sender: TObject; Node: TTreeNode;
  var AllowCollapse: Boolean);
begin
if Treeview1.Selected.Text=TheCompanry.Projectname then 
AllowCollapse:=False;
end;

procedure TF_main.N7Click(Sender: TObject);
var F_IBand:TF_IBand;
begin
  F_IBand:=TF_IBand.Create(self);
  F_IBand.Show;
end;

procedure TF_main.N10Click(Sender: TObject);
var F_Iitem:TF_Iitem;
begin
  F_Iitem:=TF_Iitem.create(Self);
  F_Iitem.show;
end;

procedure TF_main.N27Click(Sender: TObject);
var F_WareHouse:TF_WareHouse;
begin
  F_WareHouse:=TF_WareHouse.Create(Self);
  F_WareHouse.Show; 
end;

procedure TF_main.SpeedButton3Click(Sender: TObject);
begin
Panel1.Visible:=False;
end;

procedure TF_main.N1Click(Sender: TObject);
begin
if Panel1.Visible then exit;
Panel1.Visible:=True;
end;

procedure TF_main.N9Click(Sender: TObject);
var F_Product:TF_Product;
begin
  F_Product:=TF_Product.create(Self);
  F_Product.show;
end;

procedure TF_main.N8Click(Sender: TObject);
var F_Customer:TF_Customer;
begin
F_Customer:=TF_Customer.create(Self);
F_Customer.show;
end;

procedure TF_main.N19Click(Sender: TObject);
var F_UserManage:TF_UserManage;
begin
  F_UserManage:=tF_UserManage.create(self);
  F_UserManage.show;
end;

procedure TF_main.N20Click(Sender: TObject);
var F_EditPassword:TF_EditPassword;
begin
 F_EditPassword:=TF_EditPassword.create(Self);
 F_EditPassword.showmodal;
 F_EditPassword.free;
end;

procedure TF_main.N23Click(Sender: TObject);
//var F_operatelog_query:TF_operatelog_query;
   var F_operatelog:TF_operatelog;
begin
 //F_operatelog_query:=TF_operatelog_query.create(Self);
 F_operatelog:=TF_operatelog.create(Self);

 F_operatelog.Show;

 // F_operatelog_query.show;
end;

procedure TF_main.N18Click(Sender: TObject);
var F_order:TF_order;
begin
  F_Order:=TF_Order.create(Self);
  F_Order.show;
end;

procedure TF_main.FormShow(Sender: TObject);
begin
Panel1.Visible:=False;
end;

procedure TF_main.N12Click(Sender: TObject);
var F_InWarehouse:TF_InWarehouse;
begin
 F_InWarehouse:=TF_InWarehouse.create(Self);
 F_InWarehouse.show;
end;

procedure TF_main.N2Click(Sender: TObject);
var F_JDsetting:TF_JDsetting;
begin
 F_JDsetting:=TF_JDsetting.create(Self);
 F_JDsetting.show;

end;

end.