ufrm_user_1.pas

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

  treeview1.FullExpand;
end;

procedure Tfrm_user_1.FullCollapse1Click(Sender: TObject);
begin
  treeview1.Selected:=treeview1.Items.GetFirstNode;
  treeview1.FullCollapse;
end;

procedure Tfrm_user_1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  self.show_stus;
end;

procedure Tfrm_user_1.add_groupClick(Sender: TObject);
var currnode:Ttreenode;
begin
  if not self.cl_prichk('A') then
    begin
      messagedlg('你沒有使用此功能的權限',mtinformation,[mbok],0);
      exit;
    end;
  Application.CreateForm(Tfrm_user_group1, frm_user_group1);
  frm_user_group1.init('A','','');
  if frm_user_group1.ShowModal=mrok then
    begin
      currnode:=treeview1.Items.Add(nil,frm_user_group1.newcode+' '+frm_user_group1.newdesc);
      currnode.ImageIndex:=0;
      currnode.SelectedIndex:=2;
      treeview1.Selected:=currnode;
    end;
   try
     frm_user_group1.Release;
   except
     ;
   end;
end;

procedure Tfrm_user_1.edit_groupClick(Sender: TObject);
var currnode:Ttreenode;
    s,s1,s2:string;
begin
  if not self.cl_prichk('U') then
    begin
      messagedlg('你沒有使用此功能的權限',mtinformation,[mbok],0);
      exit;
    end;
  currnode:=treeview1.Selected;
  if (currnode=nil) or (currnode.Parent<>nil) then exit;
  s:=currnode.Text;
  s1:=trim(copy(s,1,pos(' ',s)-1));
  s2:=trim(copy(s,pos(' ',s),length(s)));
  Application.CreateForm(Tfrm_user_group1, frm_user_group1);
  frm_user_group1.init('U',s1,s2);
  if frm_user_group1.ShowModal=mrok then
    begin
      currnode.Text:=frm_user_group1.newcode+' '+frm_user_group1.newdesc;
      treeview1.Selected:=currnode;
    end;
   try
     frm_user_group1.Release;
   except
     ;
   end;
end;

procedure Tfrm_user_1.delete_groupClick(Sender: TObject);
var currnode:Ttreenode;
    l_sqlstr:string;
    s,s1,s2:string;
begin
  if not self.cl_prichk('D') then
    begin
      messagedlg('你沒有使用此功能的權限',mtinformation,[mbok],0);
      exit;
    end;
    currnode:=treeview1.Selected;
    s:=currnode.Text;
    s1:=trim(copy(s,1,pos(' ',s)-1));
    s2:=trim(copy(s,pos(' ',s),length(s)));
    if (currnode=nil)or (currnode.Parent<>nil) then exit;
    if messagedlg('確定要刪除'+s1+'嗎？',MTINFORMATION,[MBOK,MBCANCEL],0)=MROK THEN
       BEGIN
         ado_pub1.Close;
         ado_pub1.SQL.Clear;
         l_sqlstr:='DELETE FROM ZC_FILE WHERE ZC01='''+S1+'''';
         ado_pub1.sql.Add(l_sqlstr);
         ado_pub1.ExecSQL;
         currnode.Free;
       END;
end;

procedure Tfrm_user_1.N7Click(Sender: TObject);
begin
  self.init;
  treeview1.Selected:=treeview1.Items.GetFirstNode;
end;

procedure Tfrm_user_1.FormCreate(Sender: TObject);
begin
  ado_pub1.DatabaseName:=dm.connection.DatabaseName;
  ado_pub2.DatabaseName:=dm.connection.DatabaseName;
  md_file.DatabaseName:=dm.connection.DatabaseName;
  au_init('MPS_USER');
  self.init;
//  md_file.CacheSize:=1000;
end;

procedure Tfrm_user_1.add_userClick(Sender: TObject);
var currnode,newnode:Ttreenode;
    s,s1,s2:string;
begin
  if not self.cl_prichk('1') then
    begin
      messagedlg('你沒有使用此功能的權限',mtinformation,[mbok],0);
      exit;
    end;
  currnode:=treeview1.Selected;
  if (currnode=nil) then exit;
  if currnode.Parent<>nil then
    currnode:=currnode.Parent;
  s:=currnode.Text;
  s1:=trim(copy(s,1,pos(' ',s)-1));
  s2:=trim(copy(s,pos(' ',s),length(s)));
  Application.CreateForm(Tfrm_user_maintain, frm_user_maintain);
  frm_user_maintain.init('A','','',s1);
  if frm_user_maintain.ShowModal=mrok then
    begin
      newnode:=treeview1.Items.AddChild(currnode,frm_user_maintain.g_newcode+' '+frm_user_maintain.g_newdesc);
      newnode.ImageIndex:=1;
      newnode.SelectedIndex:=3;
      treeview1.Selected:=newnode;
    end;
   try
     frm_user_maintain.Release;
   except
     ;
   end;

end;

procedure Tfrm_user_1.edit_userClick(Sender: TObject);
var currnode:Ttreenode;
    parentnode:Ttreenode;
    sp,sp1,sp2:string;
    s,s1,s2:string;
begin
  if not self.cl_prichk('2') then
    begin
      messagedlg('你沒有使用此功能的權限',mtinformation,[mbok],0);
      exit;
    end;
  currnode:=treeview1.Selected;
  parentnode:=currnode.Parent;
  if (currnode=nil) or (currnode.Parent=nil) then exit;
  s:=currnode.Text;
  s1:=trim(copy(s,1,pos(' ',s)-1));
  s2:=trim(copy(s,pos(' ',s),length(s)));
  sp:=parentnode.Text;
  sp1:=trim(copy(sp,1,pos(' ',sp)-1));
  sp2:=trim(copy(sp,pos(' ',sp),length(sp)));
  Application.CreateForm(Tfrm_user_maintain, frm_user_maintain);
  frm_user_maintain.init('U',s1,s2,sp1);
  if frm_user_maintain.ShowModal=mrok then
    begin
      currnode.Text:=frm_user_maintain.g_newcode+' '+frm_user_maintain.g_newdesc;
      treeview1.Selected:=currnode;
    end;
   try
     frm_user_maintain.Release;
   except
     ;
   end;
end;

procedure Tfrm_user_1.delete_userClick(Sender: TObject);
var currnode:Ttreenode;
    l_sqlstr:string;
    s,s1,s2:string;
begin
  if not self.cl_prichk('3') then
    begin
      messagedlg('你沒有使用此功能的權限',mtinformation,[mbok],0);
      exit;
    end;
    currnode:=treeview1.Selected;
    s:=currnode.Text;
    s1:=trim(copy(s,1,pos(' ',s)-1));
    s2:=trim(copy(s,pos(' ',s),length(s)));
    if (currnode=nil)or (currnode.Parent=nil) then exit;
    if messagedlg('確定要刪除'+s1+'嗎？',MTINFORMATION,[MBOK,MBCANCEL],0)=MROK THEN
       BEGIN
         ado_pub1.Close;
         ado_pub1.SQL.Clear;
         l_sqlstr:='DELETE FROM ZD_FILE WHERE ZD01='''+S1+'''';
         ado_pub1.sql.Add(l_sqlstr);
         ado_pub1.ExecSQL;
         currnode.Free;
       END;
end;

procedure Tfrm_user_1.edit_authorizationClick(Sender: TObject);
var p_permission:string;
begin
  if not self.cl_prichk('5') then
    begin
      messagedlg('你沒有使用此功能的權限',mtinformation,[mbok],0);
      exit;
    end;
  //g_md02:=md_file.fieldbyname('MD02').AsString;
  //p_permission:=md_file.fieldbyname('MD03').AsString;
  g_md02:=md_file.fieldbyname('ZE02').AsString;
  p_permission:=md_file.fieldbyname('ZE03').AsString;
  if g_md02='' then exit;
  Application.CreateForm(Tfrm_authorization, frm_authorization);
  frm_authorization.ini('U',g_md01,g_md02,p_permission);
  if frm_authorization.ShowModal=mrok then
    begin
     md_file.Close;
     md_file.Open;
    end;
  try
    frm_authorization.Release;
  except
    ;
  end;
end;

procedure Tfrm_user_1.assign_authorizationClick(Sender: TObject);
begin
  if not self.cl_prichk('4') then
    begin
      messagedlg('你沒有使用此功能的權限',mtinformation,[mbok],0);
      exit;
    end;
  if g_md01='' then exit;
  Application.CreateForm(Tfrm_authorization, frm_authorization);
  frm_authorization.ini('A',g_md01,'','');
  if frm_authorization.ShowModal=mrok then
    begin
     md_file.Close;
     md_file.Open;
    end;
  try
    frm_authorization.Release;
  except
    ;
  end;
end;

procedure Tfrm_user_1.delete_authorizationClick(Sender: TObject);
begin
  if not self.cl_prichk('6') then
    begin
      messagedlg('你沒有使用此功能的權限',mtinformation,[mbok],0);
      exit;
    end;
  if md_file.Bof and md_file.Eof then exit;
  if messagedlg('確定要刪除:'+md_file.FieldByName('ZE02').AsString+'記錄嗎？',mtinformation,[mbyes,mbcancel],0)=mryes then
     md_file.Delete;
end;

procedure Tfrm_user_1.A1Click(Sender: TObject);
begin
  self.add_groupClick(nil); 
end;

procedure Tfrm_user_1.U2Click(Sender: TObject);
begin
  self.edit_groupClick(nil);
end;

procedure Tfrm_user_1.D1Click(Sender: TObject);
begin
  self.delete_groupClick(nil); 
end;

procedure Tfrm_user_1.A2Click(Sender: TObject);
begin
  self.add_userClick(nil); 
end;

procedure Tfrm_user_1.U3Click(Sender: TObject);
begin
  self.edit_userClick(nil); 
end;

procedure Tfrm_user_1.D2Click(Sender: TObject);
begin
  self.delete_userClick(nil); 
end;

procedure Tfrm_user_1.A3Click(Sender: TObject);
begin
  self.assign_authorizationClick(nil); 
end;

procedure Tfrm_user_1.U4Click(Sender: TObject);
begin
  self.edit_authorizationClick(nil); 
end;

procedure Tfrm_user_1.D3Click(Sender: TObject);
begin
  self.delete_authorizationClick(nil); 
end;

procedure Tfrm_user_1.Addgroup1Click(Sender: TObject);
begin
  self.add_groupClick(nil); 
end;

procedure Tfrm_user_1.Editgroup1Click(Sender: TObject);
begin
  self.edit_groupClick(nil); 
end;

procedure Tfrm_user_1.Deletegroup1Click(Sender: TObject);
begin
  self.delete_groupClick(nil); 
end;

procedure Tfrm_user_1.Adduser1Click(Sender: TObject);
begin
  self.add_userClick(nil); 
end;

procedure Tfrm_user_1.Edituser1Click(Sender: TObject);
begin
  self.edit_userClick(nil); 
end;

procedure Tfrm_user_1.Deleteuser1Click(Sender: TObject);
begin
  self.delete_userClick(nil); 
end;

procedure Tfrm_user_1.Assignauthorization1Click(Sender: TObject);
begin
  self.assign_authorizationClick(nil);
end;

procedure Tfrm_user_1.Editauthorization1Click(Sender: TObject);
begin
  self.edit_authorizationClick(nil); 
end;

procedure Tfrm_user_1.Deleteauthorization1Click(Sender: TObject);
begin
  self.delete_authorizationClick(nil); 
end;

procedure Tfrm_user_1.DBGrid1DblClick(Sender: TObject);
begin
  self.edit_authorizationClick(nil); 
end;

procedure Tfrm_user_1.TreeView1DblClick(Sender: TObject);
var currnode:Ttreenode;
begin
  currnode:=treeview1.Selected;
  if currnode=nil then exit;
  if currnode.Parent =nil then
    //self.edit_groupClick(nil)
  else
    self.edit_userClick(nil); 
end;

procedure Tfrm_user_1.Tb_exitClick(Sender: TObject);
begin
  close;
end;

end.