unit113.pas

本系统是SQL SERVER的管理系统

flatcombobox1.ItemIndex:=0;
dbgrid1.hide;
epefbutton1.hide;
epefbutton2.hide;
epefbutton3.hide;
epefbutton4.hide;
end;

procedure TForm113.epEfButton1Click(Sender: TObject);
begin
  data.usestable.first;
epefbutton1.enabled:=false;
epefbutton2.enabled:=false;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
with data.usestable do
begin
f11.checked:=fieldbyname('f11').value;
f12.checked:=fieldbyname('f12').value;
f13.checked:=fieldbyname('f13').value;
f21.checked:=fieldbyname('f21').value;
f22.checked:=fieldbyname('f22').value;
f23.checked:=fieldbyname('f23').value;
d1.checked:=fieldbyname('d1').value;
d2.checked:=fieldbyname('d2').value;
s1.checked:=fieldbyname('s1').value;
s2.checked:=fieldbyname('s2').value;
g1.checked:=fieldbyname('g1').value;
g2.checked:=fieldbyname('g2').value;
i1.checked:=fieldbyname('i1').value;
i2.checked:=fieldbyname('i2').value;
i3.checked:=fieldbyname('i3').value;
i4.checked:=fieldbyname('i4').value;
h1.checked:=fieldbyname('h1').value;
h2.checked:=fieldbyname('h2').value;
end;
end;

procedure TForm113.epEfButton2Click(Sender: TObject);
begin
data.usestable.prior;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
if data.usestable.bof then
 begin
 epefbutton1.enabled:=false;
 epefbutton2.enabled:=false;
 end;
 with data.usestable do
begin
f11.checked:=fieldbyname('f11').value;
f12.checked:=fieldbyname('f12').value;
f13.checked:=fieldbyname('f13').value;
f21.checked:=fieldbyname('f21').value;
f22.checked:=fieldbyname('f22').value;
f23.checked:=fieldbyname('f23').value;
d1.checked:=fieldbyname('d1').value;
d2.checked:=fieldbyname('d2').value;
s1.checked:=fieldbyname('s1').value;
s2.checked:=fieldbyname('s2').value;
g1.checked:=fieldbyname('g1').value;
g2.checked:=fieldbyname('g2').value;
i1.checked:=fieldbyname('i1').value;
i2.checked:=fieldbyname('i2').value;
i3.checked:=fieldbyname('i3').value;
i4.checked:=fieldbyname('i4').value;
h1.checked:=fieldbyname('h1').value;
h2.checked:=fieldbyname('h2').value;
end;
end;

procedure TForm113.epEfButton3Click(Sender: TObject);
begin
 data.usestable.next;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=true;
epefbutton4.enabled:=true;
if data.usestable.eof then
begin
epefbutton3.enabled:=false;
epefbutton4.enabled:=false;
end;
 with data.usestable do
begin
f11.checked:=fieldbyname('f11').value;
f12.checked:=fieldbyname('f12').value;
f13.checked:=fieldbyname('f13').value;
f21.checked:=fieldbyname('f21').value;
f22.checked:=fieldbyname('f22').value;
f23.checked:=fieldbyname('f23').value;
d1.checked:=fieldbyname('d1').value;
d2.checked:=fieldbyname('d2').value;
s1.checked:=fieldbyname('s1').value;
s2.checked:=fieldbyname('s2').value;
g1.checked:=fieldbyname('g1').value;
g2.checked:=fieldbyname('g2').value;
i1.checked:=fieldbyname('i1').value;
i2.checked:=fieldbyname('i2').value;
i3.checked:=fieldbyname('i3').value;
i4.checked:=fieldbyname('i4').value;
h1.checked:=fieldbyname('h1').value;
h2.checked:=fieldbyname('h2').value;
end;
end;

procedure TForm113.epEfButton4Click(Sender: TObject);
begin
 data.usestable.last;
epefbutton1.enabled:=true;
epefbutton2.enabled:=true;
epefbutton3.enabled:=false;
epefbutton4.enabled:=false;
with data.usestable do
begin
f11.checked:=fieldbyname('f11').value;
f12.checked:=fieldbyname('f12').value;
f13.checked:=fieldbyname('f13').value;
f21.checked:=fieldbyname('f21').value;
f22.checked:=fieldbyname('f22').value;
f23.checked:=fieldbyname('f23').value;
d1.checked:=fieldbyname('d1').value;
d2.checked:=fieldbyname('d2').value;
s1.checked:=fieldbyname('s1').value;
s2.checked:=fieldbyname('s2').value;
g1.checked:=fieldbyname('g1').value;
g2.checked:=fieldbyname('g2').value;
i1.checked:=fieldbyname('i1').value;
i2.checked:=fieldbyname('i2').value;
i3.checked:=fieldbyname('i3').value;
i4.checked:=fieldbyname('i4').value;
h1.checked:=fieldbyname('h1').value;
h2.checked:=fieldbyname('h2').value;
end;
end;

procedure TForm113.epEfTrBtn1Click(Sender: TObject);
var i,ia:integer;
   a1:string;
begin
i:=0;
ia:=0;
if flatcombobox1.text='按用户类型设置' then
begin
if flatcombobox2.text='' then
begin
showmessage('请选择要设置有用户类型');
end
else
begin
if f13.Checked=false then
begin
with data.usesquery do
begin
close;
sql.clear;
sql.add('select * from uses');
sql.add('where f13=true');
prepare;
open;
first;
while not eof do
begin
if fieldbyname('usetype').asstring=flatcombobox2.text then
begin
ia:=ia+1;
end;
i:=i+1;
next;
end;
end;
end;
i:=i-ia;
if f13.Checked=true then
begin
i:=2;
end;
if i<=0 then
begin
showmessage('系统最少要保持有一位用户具有权限设置');
end
else
begin
with data.usestable do
begin
first;
while not eof do
begin
if fieldbyname('usetype').asstring=flatcombobox2.text then
begin
edit;
fieldbyname('f11').value:=f11.checked;
fieldbyname('f12').value:=f12.checked;
fieldbyname('f13').value:=f13.checked;
fieldbyname('f21').value:=f21.checked;
fieldbyname('f22').value:=f22.checked;
fieldbyname('f23').value:=f23.checked;
fieldbyname('d1').value:=d1.checked;
fieldbyname('d2').value:=d2.checked;
fieldbyname('s1').value:=s1.checked;
fieldbyname('s2').value:=s2.checked;
fieldbyname('g1').value:=g1.checked;
fieldbyname('g2').value:=g2.checked;
fieldbyname('i1').value:=i1.checked;
fieldbyname('i2').value:=i2.checked;
fieldbyname('i3').value:=i3.checked;
fieldbyname('i4').value:=i4.checked;
fieldbyname('h1').value:=h1.checked;
fieldbyname('h2').value:=h2.checked;
post;
end;
next;
end;
showmessage('保存完成，重新登陆才生效');
end;
{}
end;
end;
end;
if flatcombobox1.text='按用户单独设置' then
begin

if messagedlg('是否更改当前('+data.usestable.fieldbyname('usename').asstring+')记录用户的权限',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
if f13.Checked=false then
begin

with data.usesquery do
begin
close;
sql.clear;
sql.add('select * from uses');
sql.add('where f13=true');
prepare;
open;
first;
while not eof do
begin

i:=i+1;
next;
end;
end;
end;

if data.usesTable.fieldbyname('f13').value then
begin
i:=i-1;
end;
if f13.Checked=true then
begin
i:=2;
end;
if i<=0 then
begin
showmessage('系统最少要保持有一位用户具有权限设置');
end
else
begin
 with data.usestable do
 begin
edit;
fieldbyname('f11').value:=f11.checked;
fieldbyname('f12').value:=f12.checked;
fieldbyname('f13').value:=f13.checked;
fieldbyname('f21').value:=f21.checked;
fieldbyname('f22').value:=f22.checked;
fieldbyname('f23').value:=f23.checked;
fieldbyname('d1').value:=d1.checked;
fieldbyname('d2').value:=d2.checked;
fieldbyname('s1').value:=s1.checked;
fieldbyname('s2').value:=s2.checked;
fieldbyname('g1').value:=g1.checked;
fieldbyname('g2').value:=g2.checked;
fieldbyname('i1').value:=i1.checked;
fieldbyname('i2').value:=i2.checked;
fieldbyname('i3').value:=i3.checked;
fieldbyname('i4').value:=i4.checked;
fieldbyname('h1').value:=h1.checked;
fieldbyname('h2').value:=h2.checked;
post;
 end;
showmessage('保存完成，重新登陆才生效');
end;
 {}
end;
end;
end;




procedure TForm113.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 helpcarsale(key);
end;

end.