frm_manage.pas

用于家庭养殖的财务进出

procedure Tfrm_gl.Button4Click(Sender: TObject);   //删除
begin
  if Application.Messagebox('确定要删除当前信息!','注意!',MB_OKCANCEL+ mb_iconexclamation)=IDOK then
  begin
    delrecord;
  end;
end;

procedure Tfrm_gl.DBGrid1CellClick(Column: TColumn);
begin
  id:=dm.ADOQuery8.fieldbyname('id').AsInteger;
///////////////////////////////////////////////
  EUserId.ReadOnly:=true;
  EUserPwd.ReadOnly:=true;
  epwd.ReadOnly:=true;
  Ename.ReadOnly:=true;
  Ecompany.ReadOnly:=true;
  CBLevel.Enabled:=false;
////////////////////////////////////////////////
  with dm.ADOQuery8 do
  begin
    euserid.Text:=fieldbyname('username').AsString;
    ename.Text:=fieldbyname('name').AsString;
    ecompany.Text:=fieldbyname('company').AsString;
    euserpwd.Text:='   ';
    epwd.Text:='   ';
    CBLevel.ItemIndex:=fieldbyname('user_group_id').AsInteger-1;
    {
    //////////20060426
    radiobutton1.Checked:=false;
    radiobutton2.Checked:=false;
    radiobutton3.Checked:=false;
    if fieldbyname('userlevelname').AsString=radiobutton1.Caption then
      radiobutton1.Checked:=true
    else if fieldbyname('userlevelname').AsString=radiobutton2.Caption then
      radiobutton2.Checked:=true
    else if fieldbyname('userlevelname').AsString=radiobutton3.Caption then
      radiobutton3.Checked:=true;
      }
  end;
end;

procedure Tfrm_gl.Button3Click(Sender: TObject);     //修改
var
  sqlstr:string;
begin
  if Application.Messagebox('确定要修改当前信息!','注意!',MB_OKCANCEL+ mb_iconexclamation)=IDOK then
  begin                             //2006-03
    //EUserId.ReadOnly:=false;
    EUserPwd.ReadOnly:=false;
    epwd.ReadOnly:=false;
    Ename.ReadOnly:=false;
    Ecompany.ReadOnly:=false;
    modify:=true;
    add:=false;
  end;
end;

procedure Tfrm_gl.FormActivate(Sender: TObject);
begin
  formcreate(sender);
end;

procedure Tfrm_gl.RadioButton1Click(Sender: TObject);
begin
/////////查询用户///////////
 // if radiobutton1.Checked then
    //userlevelname:='2';
end;

procedure Tfrm_gl.RadioButton2Click(Sender: TObject);
begin
//////////普通用户//////////
  //if radiobutton2.Checked then
   // userlevelname:='1';
end;

procedure Tfrm_gl.RadioButton3Click(Sender: TObject);
begin
////////////高级用户///////
  //if radiobutton3.Checked then
    //userlevelname:='0';
end;

procedure tfrm_gl.clearcomp;
var
  i:integer;
begin
  for i:=0 to self.ComponentCount-1 do     //控件清空
  begin
    if Self.Components[i] is Tcombobox then
      Tcombobox(Self.Components[i]).Text:='';
    if Self.Components[i] is Tedit then
      Tedit(Self.Components[i]).Text:='';
    if self.Components[i] is tradiobutton then
      tradiobutton(self.Components[i]).Checked:=false;
  end;
end;
procedure Tfrm_gl.Button5Click(Sender: TObject);
begin
  radiogroup1.ItemIndex:=-1;
  EdtUserGroup.Enabled:=true;
  Edtgroupcode.Enabled:=true;
  EdtUserGroup.Text:='';
  Edtgroupcode.Text:='';
  addusergroup:=true;
  radiogroup1.Enabled:=true;
 //Button6.Click;
end;

procedure Tfrm_gl.Button7Click(Sender: TObject);
begin
  EdtUserGroup.Enabled:=true;
  radiogroup1.Enabled:=true;
  Edtgroupcode.Enabled:=true;
  modifyusergroup:=true;
  //Button6.Click;
end;
procedure Tfrm_gl.usergroupshow;
begin
   with dm.ADOQuery9 do
   begin
     close;
     sql.Clear;
     sql.Add('select * from usergroup order by user_id asc');
     open;
     dbgrid2.Columns.Add;
     dbgrid2.Columns[0].Field:=fieldbyname('usergroupname');
     dbgrid2.Columns[0].Title.Caption:='用户组名';
     dbgrid2.Columns[0].Width:=50;
     dbgrid2.Columns.Add;
     dbgrid2.Columns[1].Field:=fieldbyname('usergroupcode');
     dbgrid2.Columns[1].Title.Caption:='用户组代码';
     dbgrid2.Columns[1].Width:=50;
     dbgrid2.Columns.Add;
     dbgrid2.Columns[2].Field:=fieldbyname('grouplevel');
     dbgrid2.Columns[2].Title.Caption:='用户组权限';
     dbgrid2.Columns[2].Width:=50;
   end;
end;
procedure Tfrm_gl.TabSheet2Show(Sender: TObject);
begin
  usergroupshow;
end;

procedure Tfrm_gl.Button6Click(Sender: TObject);
var
  sqlstr:string;
begin
  if (EdtUserGroup.Text='') or (Edtgroupcode.Text='') or (RadioGroup1.ItemIndex<0)  then
  begin
     showmessage('必填框不能为空！');
     exit;
  end;
  if modifyusergroup then
  begin
    sqlstr:='update usergroup set usergroupname=:user,usergroupcode=:usergroupcode,grouplevel=:grouplevel where user_id=:id';
    with dm.ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add(sqlstr);
      parameters[0].Value:=EdtUserGroup.Text;
      parameters[1].Value:=Edtgroupcode.Text;
      parameters[2].Value:=inttostr(RadioGroup1.ItemIndex);
      parameters[3].Value:=usergroupid;
      try
        execsql;
      except
        begin
          showmessage('修改记录失败!');
          exit;
        end;
      end;
    end;
    modifyusergroup:=false;
  end;
  if addusergroup  then
  begin
//////////////////判断用户是否存在/////////////////////////////////////////////
    with dm.ADOQuery2 do
    begin
      close;
      sql.Clear;
      sql.Add('select user_id from usergroup where usergroupname=:usergroupname');
      parameters[0].Value:=trim(EdtUserGroup.Text);
      open;
      while not eof do
      begin
        application.MessageBox('该用户组名已经存在!','信息提示',mb_ok);
        exit;
      end;
    end;
////////////////////////////////////////////////////////////////////////////////
    sqlstr:='insert into usergroup (usergroupname,usergroupcode,grouplevel) '+
          ' values(:usergroupname,:usergroupcode,:grouplevel)';

    with dm.ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add(sqlstr);
      parameters[0].Value:=EdtUserGroup.Text;
      parameters[1].Value:=Edtgroupcode.Text;
      parameters[2].Value:=inttostr(RadioGroup1.ItemIndex);
      try
        execsql;
      except
        begin
          showmessage('增加记录失败!');
          exit;
        end;
      end;
    end;
    addusergroup:=false;
  end;
  EdtUserGroup.Enabled:=false;
  Edtgroupcode.Enabled:=false;
  RadioGroup1.Enabled:=false;
  usergroupshow;
end;

procedure Tfrm_gl.Button8Click(Sender: TObject);
var
  sqlstr:string;
begin
  sqlstr:='delete from usergroup where user_id='+inttostr(usergroupid);
  with dm.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add(sqlstr);
    try
      execsql;
    except
    begin
      showmessage('删除记录失败!');
      exit;
    end;
    end;
  end;
  usergroupshow;
end;

procedure Tfrm_gl.DBGrid2CellClick(Column: TColumn);
begin
  usergroupid:=dm.ADOQuery9.fieldbyname('user_id').AsInteger;
  with dm.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from usergroup where user_id=:userid');
    parameters[0].Value:=usergroupid;
    open;
    EdtUserGroup.Text:=fieldbyname('usergroupname').AsString;
    Edtgroupcode.Text:=fieldbyname('usergroupcode').AsString;
    radiogroup1.ItemIndex:=fieldbyname('grouplevel').AsInteger;
  end;
  
end;

procedure Tfrm_gl.TabSheet1Show(Sender: TObject);
begin
  CBLevel.Items.Clear;

  with dm.ADOQuery3 do
  begin
    close;
    sql.Clear;
    //sql.Add('select usergroupname from usergroup asc user_id');
    sql.Add('select usergroupname from usergroup');
    open;
    first;
    while not eof do
    begin
       CBLevel.Items.Add(fieldbyname('usergroupname').AsString);
      //CBLevel.Items.Append(fieldbyname('usergroupname').AsString);
      next;
    end;
  end;
end;

end.