add_user_pas.pas

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

unit add_user_pas;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, DBGrids, RXCtrls, ExtCtrls, ImgList, ComCtrls;

type
  Tadd_user = class(TForm)
    Panel2: TPanel;
    Label4: TLabel;
    Panel1: TPanel;
    BitBtn2: TBitBtn;
    BitBtn5: TBitBtn;
    Edit3: TEdit;
    Edit2: TEdit;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox19: TCheckBox;
    CheckBox18: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox20: TCheckBox;
    CheckBox21: TCheckBox;
    CheckBox22: TCheckBox;
    CheckBox23: TCheckBox;
    CheckBox11: TCheckBox;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox19Click(Sender: TObject);
    procedure CheckBox20Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure CheckBox18Click(Sender: TObject);
    procedure CheckBox17Click(Sender: TObject);
    procedure CheckBox16Click(Sender: TObject);
    procedure CheckBox15Click(Sender: TObject);
    procedure CheckBox14Click(Sender: TObject);
    procedure CheckBox13Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure CheckBox21Click(Sender: TObject);
    procedure CheckBox22Click(Sender: TObject);
    procedure CheckBox23Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
  procedure onsee(s:string);
  function  onadd:string;
    { Public declarations }
  end;

var
  add_user: Tadd_user;
  s:string;

implementation
   uses user_pas, menu, dm_user_pas;
{$R *.DFM}

procedure Tadd_user.onsee(s: string);
var
  i: integer;
begin
if s='0' then
  begin
  with groupbox1 do
    begin
      for i:=0 to groupbox1.controlcount-1 do
        begin
          ((controls[i]) as Tcheckbox).checked:=false;
          controls[i].tag:=0;
        end;
    end;
  end
else
  begin
    for i:=0 to length(s)-1 do
    begin
       with groupbox1 do
       begin
         if strtoint(copy(s,i+1,1))=1 then
            ((controls[i]) as Tcheckbox).checked:=true
         else
            ((controls[i]) as Tcheckbox).checked:=false;
       end;
    end;
  end;
end;
function tadd_user.onadd:string;
var
  i: integer;
  s: string;
begin
  s:='';
  with groupbox1 do
    with groupbox1 do
  begin
    for i:=0 to (controlcount-1) do
      s:=s+inttostr(controls[i].tag);
  end;
 // showmessage(inttostr(i));
 //showmessage(s);
result:=user.encrypt(s);
end;

procedure Tadd_user.FormActivate(Sender: TObject);
begin
s:=label4.Caption;
//showmessage(s);
onsee(s);
label4.Visible:=false;
edit1.SetFocus;
if not checkbox1.Checked then
begin
checkbox2.Enabled:=false;
 checkbox5.Enabled:=false;
 checkbox3.Enabled:=false;
 checkbox4.Enabled:=false;

end;
if not checkbox6.Checked then
begin
CheckBox8.Enabled:=false;
 CheckBox9.enabled:=false;
 CheckBox10.enabled:=false;
 CheckBox7.enabled:=false;
 checkbox19.enabled:=false;
end;
if not checkbox18.Checked  then
begin
CheckBox16.enabled:=false;
CheckBox20.enabled:=false;
CheckBox17.enabled:=false;
end;
if not checkbox21.Checked then
begin
CheckBox11.enabled:=false;
CheckBox22.enabled:=false;
CheckBox23.enabled:=false;
end;
end;

procedure Tadd_user.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tadd_user.BitBtn5Click(Sender: TObject);
begin
if trim(edit1.text)<>'' then
begin     //if1
  if (trim(uppercase(edit1.text)))<>'ADMINISTRATOR'   THEN
   if (trim(edit2.text)=trim(edit3.text)) then
   begin     //if2
    with DM_user do
    begin
     if add_user.Caption='增加用戶資訊' then
     t_user.append;
     T_User.Edit;
     T_User.FieldByName('password').asstring:=edit2.text; //encrypt(edit2.Text);
     T_User.FieldByName('Username').asstring:=edit1.text;
     T_User.FieldByName('right').asstring:=onadd;
     //t_User.FieldByName('M_time').asdatetime:=now;
     t_User.Post;
     self.Close;
     end ;
   end
   else//if2
    begin
      Application.MessageBox('口令爲空，或兩次輸入的口令不一致！','消息',MB_ICONINFORMATION);
      edit2.SetFocus;
      exit;
    end//if2
    else
    begin
    Application.MessageBox(Pchar('不能增加管理員用戶('+edit1.Text+')，請重新選擇！'),'消息',MB_ICONINFORMATION);
    edit1.SetFocus ;
    exit;
    end;
   end
else
  begin
    Application.MessageBox('用戶名不能爲空！','消息',MB_ICONINFORMATION);
    edit1.SetFocus ;
    exit;
  end;
end;

procedure Tadd_user.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked=true then
 begin
 CheckBox2.Enabled:=true;
 CheckBox3.enabled:=true;
 CheckBox4.enabled:=true;
 CheckBox5.enabled:=true;
 CheckBox2.checked:=true;
 CheckBox3.checked :=true;
 CheckBox4.checked :=true;
 CheckBox5.checked :=true;
 end
 else
 begin
 checkbox2.Enabled:=false;
 checkbox5.Enabled:=false;
 checkbox3.Enabled:=false;
 checkbox4.Enabled:=false;
 checkbox2.checked:=false;
 checkbox5.checked:=false;
 checkbox3.checked:=false;
 checkbox4.checked:=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 Tadd_user.CheckBox6Click(Sender: TObject);
begin
if CheckBox6.Checked=true then
 begin
 CheckBox8.Enabled:=true;
 CheckBox9.enabled:=true;
 CheckBox10.enabled:=true;
 CheckBox7.enabled:=true;
 checkbox19.enabled:=true;
 CheckBox8.checked:=true;
 CheckBox9.checked:=true;
 CheckBox10.checked:=true;
 CheckBox7.checked:=true;
 checkbox19.checked:=true;

 end
 else
 begin
 checkbox8.Enabled:=false;
 checkbox9.Enabled:=false;
 checkbox10.Enabled:=false;
 checkbox7.Enabled:=false;
 checkbox19.enabled:=false;
 checkbox8.checked:=false;
 checkbox9.checked:=false;
 checkbox10.checked:=false;
 checkbox7.checked:=false;
 checkbox19.checked:=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 Tadd_user.CheckBox19Click(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 Tadd_user.CheckBox20Click(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 Tadd_user.CheckBox2Click(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 Tadd_user.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 Tadd_user.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 Tadd_user.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 Tadd_user.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 Tadd_user.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 Tadd_user.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 Tadd_user.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 Tadd_user.CheckBox18Click(Sender: TObject);
begin
if CheckBox18.Checked=true then
 begin
 //CheckBox12.Enabled:=true;
 //CheckBox13.enabled:=true;
 //CheckBox14.enabled:=true;
 //CheckBox15.enabled:=true;
 CheckBox16.Enabled:=true;
 CheckBox17.enabled:=true;
 CheckBox20.enabled:=true;
 CheckBox16.checked:=true;
 CheckBox17.checked:=true;
 CheckBox20.checked:=true;

 //CheckBox11.enabled:=true;
 end
 else
 begin
// CheckBox14.Enabled:=false;
 CheckBox16.enabled:=false;
 CheckBox20.enabled:=false;
 //CheckBox12.enabled:=false;
 //CheckBox15.Enabled:=false;
 CheckBox17.enabled:=false;
 CheckBox16.checked:=false;
 CheckBox20.checked:=false;
 //CheckBox12.checked:=false;
 //CheckBox15.checked:=false;
 CheckBox17.checked:=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 Tadd_user.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 Tadd_user.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 Tadd_user.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 Tadd_user.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 Tadd_user.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 Tadd_user.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 Tadd_user.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 Tadd_user.CheckBox21Click(Sender: TObject);
begin
if checkbox21.Checked then
begin
 CheckBox11.Enabled:=true;
 CheckBox22.enabled:=true;
 CheckBox23.enabled:=true;
 CheckBox11.checked:=true;
 CheckBox22.checked:=true;
 CheckBox23.checked:=true;
 end
else
 begin
 CheckBox11.enabled:=false;
 CheckBox22.Enabled:=false;
 CheckBox23.enabled:=false;
 CheckBox11.checked:=false;
 CheckBox22.checked:=false;
 CheckBox23.checked:=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 Tadd_user.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 Tadd_user.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 Tadd_user.FormShow(Sender: TObject);
begin
if (screen.Height<600) and( screen.Width<800) then
  begin
  scaled:=true;
  height:=255;//round(height*longint(screen.height)*96 / 600/screen.pixelsperinch);
  width :=560;//round( width *longint(screen.width)*96 / 800/screen.pixelsperinch);
  left:=45;//round((screen.Width-Width)/2);
  top:=150;//round((screen.height-self.height)/2);
  //ScaleControls(screen.width, 800);
  //ScaleControls(96,screen.pixelsperinch);
  end
else
begin
height:=257;
width:=558;
end;

end;

procedure Tadd_user.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;

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

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

procedure Tadd_user.FormClose(Sender: TObject; var Action: TCloseAction);
var s:string;
begin
user.DBGrid2DblClick(self);
end;

procedure Tadd_user.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
BitBtn5Click(self);

end;

end.