rc_usertousergroup.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit RC_UserToUserGroup;

{
代码单元名称：通用权限分配工具改变用户组窗口
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者：王树润
时间：2001,1,30
}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  dbTables, db,
  StdCtrls, Buttons, DBCtrls, ADOdb;

type
  TRC_DfmUserToUserGroup = class(TForm)
    UserNameDBText: TDBText;
    Label1: TLabel;
    ConfirmButton: TButton;
    CloseButton: TButton;
    GroupBox1: TGroupBox;
    AddSpeedButton: TSpeedButton;
    DeleteSpeedButton: TSpeedButton;
    Label2: TLabel;
    Label3: TLabel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure CloseButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DeleteSpeedButtonClick(Sender: TObject);
    procedure AddSpeedButtonClick(Sender: TObject);
    procedure ConfirmButtonClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses RC_DataModule1;

{$R *.DFM}

//窗体--------------------------------------------------------------------------

procedure TRC_DfmUserToUserGroup.FormShow(Sender: TObject);
var
  SubString, UserGroupNumberString: string;
begin
  UserNameDBText.DataSource := RC_DfmDataModule1.UserDataSource;
  UserNameDBText.DataField := 'UserName';
  UserGroupNumberString := RC_DfmDataModule1.UserQuery.Fields[4].AsString;
  while pos(',', UserGroupNumberString) <> 0 do
  begin
    SubString := copy(UserGroupNumberString, 1, pos(',', UserGroupNumberString)
      - 1);
    ListBox1.Items.Add(SubString);
    UserGroupNumberString := copy(UserGroupNumberString, pos(',',
      UserGroupNumberString) + 1, 10);
  end;
  SubString := copy(UserGroupNumberString, 1, 10);
  if SubString <> '' then
    ListBox1.Items.Add(SubString);
  RC_DfmDataModule1.UserGroupQuery.DisableControls;
  RC_DfmDataModule1.UserGroupQuery.First;
  while not RC_DfmDataModule1.UserGroupQuery.Eof do
  begin
    ListBox2.Items.Add(RC_DfmDataModule1.UserGroupQuery.Fields[1].AsString);
    RC_DfmDataModule1.UserGroupQuery.Next;
  end;
  RC_DfmDataModule1.UserGroupQuery.First;
  RC_DfmDataModule1.UserGroupQuery.EnableControls;
end;

procedure TRC_DfmUserToUserGroup.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
end;

//按钮--------------------------------------------------------------------------

procedure TRC_DfmUserToUserGroup.CloseButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TRC_DfmUserToUserGroup.DeleteSpeedButtonClick(Sender: TObject);
begin
  if ListBox1.ItemIndex = -1 then
    Exit;
  ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

procedure TRC_DfmUserToUserGroup.AddSpeedButtonClick(Sender: TObject);
begin
  if ListBox2.ItemIndex = -1 then
    Exit;
  if ListBox1.Items.IndexOf(ListBox2.Items[ListBox2.ItemIndex]) = -1 then
    ListBox1.Items.Add(ListBox2.Items[ListBox2.ItemIndex]);
end;

procedure TRC_DfmUserToUserGroup.ConfirmButtonClick(Sender: TObject);
var
  i: integer;
  ModifyUserGroupNumberString: string;
begin
  for i := 0 to ListBox1.Items.Count - 1 do
    ModifyUserGroupNumberString := Trim(ModifyUserGroupNumberString +
      ListBox1.Items[i]) + ',';
  ModifyUserGroupNumberString := Trim(Copy(ModifyUserGroupNumberString, 1,
    Length(ModifyUserGroupNumberString) - 1));
  RC_DfmDataModule1.UserQuery.Edit;
  RC_DfmDataModule1.UserQuery.Fields[4].AsString :=
    Trim(ModifyUserGroupNumberString);
  RC_DfmDataModule1.UserQuery.Post;
  Close;
end;

end.