yhqx.~pas

仓库管理信息系统

unit yhqx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGridEh, DBCtrls, Mask,adodb,db,
  ToolWin, ComCtrls, Buttons, DBCtrlsEh, DBLookupEh;

type
  Tyhqxfrm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBNavigator1: TDBNavigator;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    Panel2: TPanel;
    dblk_dq: TDBLookupComboboxEh;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Label5: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
  private
    rec:tbookmark;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yhqxfrm: Tyhqxfrm;

implementation
uses data;
{$R *.dfm}

procedure Tyhqxfrm.FormCreate(Sender: TObject);
begin
dm.yhads.Close;
dm.yhads.Open;
dm.cdqxads.Close;
dm.cdqxads.CommandText:='select * from 菜单权限 order by 菜单分类id, 菜单id';
dm.cdqxads.Open;
dm.cdads.Close;
dm.cdads.Open;
dm.cdflads.Close;
dm.cdflads.Open;
end;

procedure Tyhqxfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if dm.yhads.State in [dsinsert,dsedit] then
  if MessageDlg('记录未保存，要保存吗?', mtConfirmation,
    [mbYes, mbNo], 0) = mrYes then
    begin
    dm.yhads.Post;
    end
  else
    dm.yhads.Cancel;
action:=cafree;
yhqxfrm:=nil;
end;

procedure Tyhqxfrm.CheckBox1Click(Sender: TObject);
begin
if (dm.yhads.FieldByName('用户ID').Value='') or
  (dm.yhads.FieldByName('用户Id').IsNull) then
  abort;
if dblk_dq.Keyvalue<>null then
begin
rec:=dm.cdqxads.GetBookmark;
dm.adocn.Execute('update 菜单权限 set 权限='+
  booltostr(CheckBox1.Checked)+
  ' where 用户id='+''''+
  dm.yhads.FieldByName('用户ID').Value+''''+
  ' and 菜单分类id='+''''+
  dblk_dq.KeyValue+'''');
dm.cdqxads.Close;
dm.cdqxads.Open;
dm.cdqxads.GotoBookmark(rec);
end;
end;

procedure Tyhqxfrm.CheckBox2Click(Sender: TObject);
begin
if (dm.yhads.FieldByName('用户ID').Value='') or
  (dm.yhads.FieldByName('用户Id').IsNull) then
  abort;
dm.adocn.Execute('update 菜单权限 set 权限='+
  booltostr(CheckBox2.Checked)+
  ' where 用户id='+''''+
  dm.yhads.FieldByName('用户ID').Value+'''');
dm.cdqxads.Close;
dm.cdqxads.Open;
end;

end.