delphi
delphi2003
然后读取出权限表procedure TForm8.DownPowerList;var sSQL:string; i:Integer;begin i:=1; with advstrngrd1 do begin Cells[0,0] := '共'; Cells[1,0] := '全选'; Cells[2,0] := '权限名称'; DefaultRowHeight := 20; {设缺省行高} RowHeights[0] := 20; {设表头第一行高} ColWidths[0] :=20; ColWidths[1] :=40; ColWidths[2] :=80; RowCount:=2; ColCount:=3; // advstrngrd1.AddCheckBox(1,0,False,False);end; sSQL:='select * from Power'; qry2.Close; qry2.SQL.Text:=sSQL; qry2.Open; if not qry2.IsEmpty then begin qry2.First; while not qry2.Eof do begin advstrngrd1.RowCount:=i+1; advstrngrd1.AddCheckBox(1,i,False,False); advstrngrd1.Cells[2,i]:=qry2.fieldbyname('PowerName').AsString; sPowerID[I]:=qry2.fieldbyname('ID').AsString; i:=i+1; qry2.Next; end; end;end;权限表格，我加入了多选功能，此控件为advstringgrid
读出当前员工的权限procedure TForm8.qry1AfterScroll(DataSet: TDataSet);VAR sSQL:string; i:Integer;beginIF not qry1.IsEmpty thenbegin sSQL:='select * from Mypower where UserID='''+qry1.fieldbyname('ID').AsString+''''; qry2.Close; qry2.SQL.Text:=sSQL; qry2.Open; qry2.First; for i:=1 to advstrngrd1.RowCount-1 do begin advstrngrd1.SetCheckBoxState(1,i,False); end; if not qry2.IsEmpty then begin while not qry2.Eof do begin advstrngrd1.SetCheckBoxState(1,qry2.fieldbyname('powerID').AsInteger,True); qry2.Next; end; // edt1.Text:=qry2.fieldbyname('departName').AsString; end; // mmo1.Text:=qry1.fieldbyname('DepartMemo').AsString;end;end;
界面如下3个重要的过程在下面，由于机器人判断我为重复经验所有其他的就不写了，照着部门页抄写就行了procedure TForm7.Add;var sSQL:string;begin// sSQL:='insert into login(UserID,UserName,UserNo,UserPW) values (' +''''+ edt2.Text+''','''+ edt5.Text+''','''+ edt3.Text+''','''+ edt4.Text+''') '; qry1.Close; qry1.SQL.Text:=sSQL; qry1.ExecSQL; btn1.Click; ShowMessage('新增成功');end;procedure TForm7.Delete;var sSQL:string;begin// sSQL:='delete from login WHERE ID='+ qry1.fieldbyname('ID').AsString; qry1.Close; qry1.SQL.Text:=sSQL; qry1.ExecSQL; btn1.Click; ShowMessage('删除成功');//end;procedure TForm7.Update;var sSQL:string;begin// sSQL:='update login set UserName=''' +EDT5.Text+''' WHERE ID='+ qry1.fieldbyname('ID').AsString; qry1.Close; qry1.SQL.Text:=sSQL; qry1.ExecSQL; btn1.Click; ShowMessage('修改成功');//end;
这节课重点为多选框的实现。。。。。。