【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：frm_PurView.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit frm_PurView;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls,MyRecord;
    
    type
      TFrmPurView = class(TForm)
        GBxPurview: TGroupBox;
        BtnSetPur: TButton;
        CBxUserName: TComboBox;
        LblUsermane: TLabel;
        CBxShellGoods: TCheckBox;
        CBxBuyGoods: TCheckBox;
        CBxUserManager: TCheckBox;
        procedure FormShow(Sender: TObject);
        procedure CBxUserNameChange(Sender: TObject);
        procedure BtnSetPurClick(Sender: TObject);
      private
        Up:UserPurview;
        procedure SetCheck(Const username:string);
        { Private declarations }
      public
        { Public declarations }
      end;
    
    implementation
    uses DM_Purview;
    {$R *.dfm}
    
    procedure TFrmPurView.FormShow(Sender: TObject);
    begin
      CBxUserName.Clear;
      with DMPurview.ADOQPur do
      begin
        Close;
        sql.Clear;
        Sql.Add('Select * from TB_Users');
        Open;
        While Not Eof do
        begin
          CbxUserName.Items.Add(FieldByname('UserName').AsString);
          next;
        end;
      end;
      CbxUserName.ItemIndex:=0;
      setCheck(CBxUsername.Text);
    end;
    
    procedure TFrmPurView.SetCheck(Const username:string);
    begin
      DMPurview.ShowPurView(UserName);
      UP:=DMPurview.GetUserPurview;
      CBxBuyGoods.Checked:=false;
      CBxShellGoods.Checked:=false;
      CBxUserManager.Checked:=false;
      if up.ShellGoods = 1 then
        CBxShellGoods.Checked:=true;
      if Up.BuyGoods = 1 then
        CBxBuyGoods.Checked:=True;
      if Up.UserManager = 1 then
        CBXUserManager.Checked:=true;
    end;
    
    
    procedure TFrmPurView.CBxUserNameChange(Sender: TObject);
    begin
      setCheck(CBxUsername.Text);
    end;
    
    procedure TFrmPurView.BtnSetPurClick(Sender: TObject);
    begin
      up.ShellGoods:=0;
      up.BuyGoods:=0;
      up.UserManager:=0;
      if CBxShellGoods.Checked then
        up.ShellGoods := 1;
      if CBxBuyGoods.Checked then
        Up.BuyGoods := 1;
      if CBXUserManager.Checked then
        Up.UserManager := 1;
      DMPurview.setPurview(CbxUserName.Text,Up);
    end;
    
    end.