user_pas.pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

end
else
begin
height:=377;
width:=566;
end;
end;

procedure Tuser.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=vk_return then
//edit2.SetFocus ;
end;

procedure Tuser.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
//if key=vk_return then
//edit3.SetFocus ;
end;

procedure Tuser.FormActivate(Sender: TObject);
begin
{ scaled:=true;
  height:=round(height*longint(screen.height)*96 / 600/screen.pixelsperinch);
  width :=round(width *longint(screen.width)*96 / 800/screen.pixelsperinch);
  ScaleControls(screen.width, 800);
  ScaleControls(96,screen.pixelsperinch);
   }
//self.Height:=461;
//self.Width:=664;
//self.Top:=mainform.Height-mainform.clientheight+mainform.ToolBar2.Height+round((mainform.ClientHeight-mainform.ToolBar2.Height-mainform.StatusBar.Height-self.Height)/2);
//self.Left:=round((mainform.Width-self.Width)/2);
end;

procedure Tuser.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
user :=nil;
end;

procedure Tuser.DBGrid2DblClick(Sender: TObject);
var s:string;
ss:string;
begin
check_true(true);
BitBtn1.Enabled :=true;
BitBtn2.Enabled :=true;
s:=DM_user.T_user.fieldbyname('right').asstring;
s:=decrypt(s);
onsee(s);
//edit1.text:=DM_user.T_user.fieldbyname('username').asstring;
//edit2.text:=ss;//decrypt(ss);
//edit3.text:=ss;//decrypt(ss);
check_true(false);
end;

procedure Tuser.DBGrid2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
 s:string;
begin
check_true(true);
BitBtn1.Enabled :=true;
BitBtn2.Enabled :=true;
s:=DM_user.T_user.fieldbyname('right').asstring;
s:=decrypt(s);
onsee(s);
//edit1.text:=DM_user.T_user.fieldbyname('username').asstring;
s:=DM_user.T_user.fieldbyname('password').asstring;
//edit2.text:=s;//decrypt(s);
//edit3.text:=s;//decrypt(s);
check_true(false);
end;


procedure Tuser.CheckBox1Click(Sender: TObject);
begin
{if CheckBox1.Checked=true then
 begin
 CheckBox2.Enabled:=true;
 CheckBox3.enabled:=true;
 CheckBox4.enabled:=true;
 CheckBox5.enabled:=true;
 end
 else
 begin
 checkbox2.Enabled:=false;
 checkbox5.Enabled:=false;
 checkbox3.Enabled:=false;
 checkbox4.Enabled:=false;
 end;
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end; }

end;

procedure Tuser.CheckBox7Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;
end;

procedure Tuser.CheckBox13Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;
end;

procedure Tuser.CheckBox20Click(Sender: TObject);
begin
{if checkbox20.Checked then
begin
 CheckBox21.Enabled:=true;
 CheckBox22.enabled:=true;
 CheckBox23.enabled:=true;
end
else
 begin
 CheckBox21.enabled:=false;
 CheckBox22.Enabled:=false;
 CheckBox23.enabled:=false;
 end;
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;
 }
end;

procedure Tuser.CheckBox3Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.CheckBox5Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;


end;

procedure Tuser.CheckBox4Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.CheckBox8Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.CheckBox9Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.CheckBox10Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.CheckBox11Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.CheckBox14Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.CheckBox16Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.CheckBox18Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.CheckBox12Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;


end;

procedure Tuser.CheckBox15Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.CheckBox17Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.CheckBox19Click(Sender: TObject);
begin
{if CheckBox19.Checked=true then
 begin
 CheckBox12.Enabled:=true;
 CheckBox13.enabled:=true;
 CheckBox14.enabled:=true;
 CheckBox15.enabled:=true;
 CheckBox16.Enabled:=true;
 CheckBox17.enabled:=true;
 CheckBox18.enabled:=true;
 CheckBox11.enabled:=true;

 end
 else
 begin
 CheckBox14.Enabled:=false;
 CheckBox16.enabled:=false;
 CheckBox18.enabled:=false;
 CheckBox12.enabled:=false;
 CheckBox15.Enabled:=false;
 CheckBox17.enabled:=false;
 CheckBox11.enabled:=false;
 CheckBox13.enabled:=false;
end;

with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;
 }
end;

procedure Tuser.CheckBox6Click(Sender: TObject);
begin
{if CheckBox6.Checked=true then
 begin
 CheckBox8.Enabled:=true;
 CheckBox9.enabled:=true;
 CheckBox10.enabled:=true;
 CheckBox7.enabled:=true;
 end
 else
 begin
 checkbox8.Enabled:=false;
 checkbox9.Enabled:=false;
 checkbox10.Enabled:=false;
 checkbox7.Enabled:=false;
 end;

with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;
  }
end;

procedure Tuser.CheckBox21Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.CheckBox23Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.CheckBox22Click(Sender: TObject);
begin
with sender as Tcheckbox do
begin
  if (sender as Tcheckbox).checked=true then
    (sender as Tcheckbox).Tag:=1
  else
    (sender as Tcheckbox).Tag:=0;
end;

end;

procedure Tuser.DBGrid2ColEnter(Sender: TObject);
var s:string;
ss:string;
begin
check_true(true);
BitBtn1.Enabled :=true;
BitBtn2.Enabled :=true;
s:=DM_user.T_user.fieldbyname('right').asstring;
s:=decrypt(s);
onsee(s);
//edit1.text:=DM_user.T_user.fieldbyname('username').asstring;
ss:=DM_user.T_user.fieldbyname('password').asstring;
//edit2.text:=ss;//decrypt(ss);
//edit3.text:=ss;//decrypt(ss);
check_true(false);
end;


procedure Tuser.BitBtn9Click(Sender: TObject);
var s:string;
begin
dm_user.t_user.open;
 if dm_user.t_user.FieldByName ('username').asstring='Administrator' then 
 begin 
 Application.MessageBox('不能修改管理員資訊！','消息',MB_ICONINFORMATION);
 exit;
 end;
add_user:=tadd_user.Create(self);
with dm_user.T_user do 
begin 
s:=fieldbyname('right').asstring;
s:=decrypt(s);
add_user.Edit1.Text:=fieldbyname('username').asstring;
add_user.edit2.Text:=fieldbyname('password').asstring;
add_user.edit3.Text:=fieldbyname('password').asstring;
add_user.label4.Caption:=s;
end;
add_user.Caption:='修改用戶資訊';
add_user.ShowModal ;
add_user.free;
end;

procedure Tuser.Button1Click(Sender: TObject);
begin
Application.MessageBox(Pchar('width='+inttostr(self.width)+'--'+'height='+inttostr(self.height)+'--'+'left='+inttostr(self.left)+'--top='+inttostr(self.top)),'消息',MB_ICONINFORMATION);
end;

end.