u_global_setting.pas

学员管理的软件

myfile.WriteBool('form_setting','xp',checkbox1.Checked);
myfile.Writeinteger('form_setting','auto_size',autosize_form.ItemIndex);
myfile.WriteBool('form_setting','grid_linecolor',checkbox2.Checked);
myfile.WriteBool('form_setting','showhardwareinfo',checkbox1.Checked);
//grid print setting
myfile.WriteInteger('grid_print','left_margine',spinedit1.Value);
myfile.WriteInteger('grid_print','right_margine',spinedit2.Value);
myfile.WriteInteger('grid_print','top_margine',spinedit3.Value);
myfile.WriteInteger('grid_print','buttom_margine',spinedit4.Value);
myfile.WriteString('grid_print','print_pos',trim(combobox1.Text));
myfile.WriteString('grid_print','font_name',trim(combobox2.Text));
myfile.WriteInteger('grid_print','font_size',spinedit5.Value);
myfile.WriteInteger('grid_print','horz',spinedit7.Value);
myfile.WriteInteger('grid_print','vert',spinedit6.Value);
//database setting
myfile.WriteInteger('database_setting','tip_backup',radiogroup1.ItemIndex);
myfile.WriteBool('datebase_setting','dbgrid_canwrite',checkbox6.Checked);
myfile.WriteBool('database_setting','grid_blank',checkbox18.Checked);
//other setting
myfile.WriteBool('other_setting','auto_saveall',checkbox3.Checked);
myfile.WriteBool('other_setting','ontop',checkbox5.Checked);
myfile.WriteBool('other_setting','auto_show_keybroad',checkbox13.Checked);
myfile.WriteBool('other_setting','disable_altf4',checkbox14.Checked);
myfile.WriteBool('other_setting','disable_alttab',checkbox15.Checked);
myfile.WriteBool('other_setting','disable_ctrlaltdel',checkbox16.Checked);
myfile.WriteBool('other_setting','opensound',checkbox17.Checked);
myfile.WriteBool('other_setting','pmd',checkbox12.Checked);
myfile.WriteInteger('other_setting','tip_order',tip_order.ItemIndex);
myfile.WriteBool('other_setting','showfont',checkbox10.Checked);
myfile.WriteInteger('other_setting','xp',radiogroup4.ItemIndex);
if checkbox8.Checked then
begin
myfile1:=Tinifile.Create(extractfilepath(application.ExeName)+'tip.ini');
myfile1.WriteBool('tip','show',true);
myfile1.Free;
end
else
begin
myfile1:=Tinifile.Create(extractfilepath(application.ExeName)+'tip.ini');
myfile1.WriteBool('tip','show',true);
myfile1.Free;
end;
global.blnopensound:=checkbox17.Checked;
//seriret and permission set
myfile.WriteInteger('permission','en_decode',en_decode_set.ItemIndex);
messagedlg('已经成功进行了配置',mtinformation,[mbok],0);
close;
case en_decode_set.ItemIndex of
0:
;
1:
begin
ss:=encode(global.userpass);
myfile.WriteString('user','password','a'+ss);
end;
2:
;
3:
;
end;
myfile.Free;
end;

procedure TF_setting.BitBtn3Click(Sender: TObject);
var
s:string;
begin
case del_.ItemIndex of
0:
s:='delete from 用户作答表';
1:
s:='delete from 试题表';
2:
s:='delete from 试题表 where datediff(day,录入时间,getdate())>30';
3:
s:='delete from 试题表 where datediff(day,录入时间,getdate())>365';
end;
if messagedlg('确实要'+del_.Items[del_.itemindex]+'？',mtwarning,[mbyes,mbno],0)=mryes then
begin
with main.DataModule2 do
begin
  aq1.Close;
  aq1.SQL.Clear;
  aq1.SQL.Add(s);
  aq1.ExecSQL;
  messagedlg('删除成功！',mtinformation,[mbok],0);
end;
end;
end;

procedure TF_setting.FormActivate(Sender: TObject);
var
i:integer;
s1,s2,s3,s4,s5:char;
val:string;
begin
if ( (keystr[1]='') and (keystr[2]='') and (keystr[3]='') and (keystr[4]='') and (keystr[5]='') ) then
exit;
for i:=1 to 5 do
hotkeyid[i]:=globaladdatom(pchar('MyHostKey'+inttostr(i)))-$C000;
for i:=1 to 5 do
begin
if pos('SHIFT',keystr[i])>=0 THEN
registerhotkey(handle,hotkeyid[i],mod_shift,ord(keystr[i][length(keystr[i])-1]))
else if pos('ALT',keystr[i])>=0 then
registerhotkey(handle,hotkeyid[i],mod_alt,ord(keystr[i][length(keystr[i])-1]))
else if pos('CTRL',keystr[i])>=0 then
registerhotkey(handle,hotkeyid[i],mod_control,ord(keystr[i][length(keystr[i])-1]))
else
registerhotkey(handle,hotkeyid[i],0,ord(keystr[i][length(keystr[i])-1]));
end;

key1:=ord(keystr[1][length(keystr[1])-1]);
key2:=ord(keystr[2][length(keystr[2])-1]);
key3:=ord(keystr[3][length(keystr[3])-1]);
key4:=ord(keystr[4][length(keystr[4])-1]);
key5:=ord(keystr[5][length(keystr[5])-1]);

reg:=Tregistry.Create;
reg.RootKey:=hkey_local_machine;
reg.OpenKey('software\microsoft\windows\currentversion\run',true);
val:=reg.ReadString('project1');
systemparametersinfo(spi_screensaverrunning,1,@temp,0);

end;

procedure TF_setting.BitBtn4Click(Sender: TObject);
var
str:string;
i,j:integer;
count:integer;
s,s1:string;
begin
case radiogroup3.ItemIndex of
0:
begin
str:='select 知识点,count(''知识点'') as num from 试题表 group by 知识点';
with main.DataModule2 do
begin
  //清除知识点表信息
  aq1.Close;
  aq1.SQL.Clear;
  aq1.SQL.add('update 知识点表 set 总出题次数=0');
  aq1.ExecSQL;
  aq1.Close;
  aq1.SQL.Clear;
  aq1.SQL.add(str);
  aq1.Open;
  if aq1.RecordCount>1000 then
  begin
    messagedlg('你的知识点数目超过1000条，本软件已经不支持！',mterror,[mbok],0);
    exit;
  end;
  while not aq1.Eof do
  begin
    aq2.Close;
    aq2.SQL.Clear;
    aq2.SQL.Add('select * from 知识点表 where id='+inttostr(aq1.FieldValues['知识点']));
    aq2.Open;
    if (aq2.FieldValues['总出题次数']<>aq1.FieldValues['num']) then
    begin
      if messagedlg('发现数据不一致性，是否修正？',mtinformation,[mbyes,mbno],0)=mryes then
      begin
        aq3.Close;
        aq3.SQL.Clear;
        aq3.SQL.Add('update 知识点表 set 总出题次数='+inttostr(aq1.FieldValues['num'])+' where id='+inttostr(aq1.FieldValues['知识点']));
        aq3.ExecSQL;
        if messagedlg('已经修正这一不一致性，是否继续检查？',mtinformation,[mbyes,mbno],0)=mrno then exit;
      end;
    end;
    aq1.Next;
  end;
  messagedlg('检查完毕，已经更正了所有的数据不一致性！',mtinformation,[mbok],0);
end;
end;
1:
begin
str:='select distinct 所属题库 from 试题表';
with main.DataModule2 do
begin
  aq1.Close;
  aq1.SQL.Clear;
  aq1.SQL.Add(str);
  aq1.Open;
  while not aq1.Eof do
  begin
    str:='select * from 题库表 where id='+inttostr(aq1.FieldValues['所属题库']);
    aq2.Close;
    aq2.SQL.Clear;
    aq2.SQL.Add(str);
    aq2.Open;
    if aq2.Eof then
    begin
      if messagedlg('发现不一致现象，是否更正？',mtinformation,[mbyes,mbno],0)=mryes then
      begin
        aq3.Close;
        aq3.SQL.Clear;
        s:=inputbox('请输入题库名','请输入ID号为'+inttostr(aq1.FieldValues['所属题库'])+'的题库名称:','');
        aq3.SQL.Add('insert into 题库表 values('+inttostr(aq1.FieldValues['所属题库'])+','''+s+''')');
        aq3.ExecSQL;
        if messagedlg('已经更正了这一不一致性，是否继续？',mtinformation,[mbyes,mbno],0)=mrno then exit;

      end;
    end;
    aq1.Next;
  end;//end of while
end;//end of with
messagedlg('更正完毕！',mtinformation,[mbok],0);
end;
2:
begin
str:='select distinct 所属试卷 from 试题表';
with main.DataModule2 do
begin
  aq1.Close;
  aq1.SQL.Clear;
  aq1.SQL.Add(str);
  aq1.Open;
  while not aq1.Eof do
  begin
    str:='select * from 试卷表 where 试卷号='+inttostr(aq1.FieldValues['所属试卷']);
    aq2.Close;
    aq2.SQL.Clear;
    aq2.SQL.Add(str);
    aq2.Open;
    if aq2.Eof then
    begin
      if messagedlg('发现不一致现象，是否更正？',mtinformation,[mbyes,mbno],0)=mryes then
      begin
        aq3.Close;
        aq3.SQL.Clear;
        s:=inputbox('请输入试卷名','请输入ID号为'+inttostr(aq1.FieldValues['所属试卷'])+'的试卷名称:    ','');
        s1:=inputbox('请输入出卷人','请输入ID号为'+inttostr(aq1.FieldValues['所属试卷'])+'的试卷出卷人:     ','');
        aq3.SQL.Add('insert into 试卷表 values('+inttostr(aq1.FieldValues['所属试卷'])+','''+s+''',+'''+s1+''')');
        aq3.ExecSQL;
        if messagedlg('已经更正了这一不一致性，是否继续？',mtinformation,[mbyes,mbno],0)=mrno then exit;
      end;
    end;
    aq1.Next;
  end;//end of while
end;//end of with
messagedlg('更正完毕！',mtinformation,[mbok],0);
end;
3:
begin
str:='select distinct 题型 from 试题表';
with main.DataModule2 do
begin
  aq1.Close;
  aq1.SQL.Clear;
  aq1.SQL.Add(str);
  aq1.Open;
  while not aq1.Eof do
  begin
    str:='select * from 题型表 where id='+inttostr(aq1.FieldValues['题型']);
    aq2.Close;
    aq2.SQL.Clear;
    aq2.SQL.Add(str);
    aq2.Open;
    if aq2.Eof then
    begin
      if messagedlg('发现不一致现象，是否更正？',mtinformation,[mbyes,mbno],0)=mryes then
      begin
        aq3.Close;
        aq3.SQL.Clear;
        s:=inputbox('请输入题型名','请输入ID号为'+inttostr(aq1.FieldValues['题型'])+'的题型名称:','');
        aq3.SQL.Add('insert into 题型表 values('+inttostr(aq1.FieldValues['题型'])+','''+s+''')');
        aq3.ExecSQL;
        if messagedlg('已经更正了这一不一致性，是否继续？',mtinformation,[mbyes,mbno],0)=mrno then exit;

      end;
    end;
    aq1.Next;
  end;//end of while
end;//end of with
messagedlg('更正完毕！',mtinformation,[mbok],0);
end;
end;

end;


procedure TF_setting.BitBtn5Click(Sender: TObject);
begin
submain.Form1.N14.ShortCut:=hotkey1.HotKey;
submain.Form1.N6.ShortCut:=hotkey2.HotKey;
submain.Form1.N2.ShortCut:=hotkey3.HotKey;
submain.Form1.N25.ShortCut:=hotkey4.HotKey;
submain.Form1.N76.ShortCut:=hotkey5.HotKey;
messagedlg('热键设置生效，不过只使用本软件的启动',mtinformation,[mbok],0);
end;

procedure TF_setting.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
panel1.Visible:=true;
disk_infos_refresh;
end
else
panel1.Visible:=false;
end;

procedure TF_setting.SpeedButton1Click(Sender: TObject);
begin
if FontDialog1.Execute then
label17.Font:=FontDialog1.Font;
end;

procedure TF_setting.SpeedButton2Click(Sender: TObject);
begin
if colordialog1.Execute then
label17.Font.Color:=colordialog1.Color;
end;

procedure TF_setting.SpeedButton3Click(Sender: TObject);
begin
label17.Font.Size:=8;
label17.Font.Color:=clblack;
label17.Font.Style:=[];
label17.Color:=clbtnface;
end;

procedure TF_setting.SpeedButton4Click(Sender: TObject);
begin
if FontDialog1.Execute then
label20.Font:=FontDialog1.Font;

end;

procedure TF_setting.SpeedButton5Click(Sender: TObject);
begin
if colordialog1.Execute then
label20.Font.Color:=colordialog1.Color;
end;

procedure TF_setting.SpeedButton6Click(Sender: TObject);
begin
label20.Font.Size:=8;
label20.Font.Color:=clblack;
label20.Font.Style:=[];
label20.Color:=clbtnface;
end;

procedure TF_setting.SpeedButton7Click(Sender: TObject);
begin
if colordialog1.Execute then
label17.Color:=colordialog1.Color;
end;

procedure TF_setting.SpeedButton8Click(Sender: TObject);
begin
if colordialog1.Execute then
label20.Color:=colordialog1.Color;
end;

procedure TF_setting.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to selitems.Items.Count -1 do
  selitems.Checked[i]:=TRUE;
end;

procedure TF_setting.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=0 to selitems.Items.Count -1 do
selitems.Checked[i]:=true;
CheckListBox1.Checked[0]:=true;
CheckListBox1.Checked[1]:=true;
CheckListBox1.Checked[2]:=true;
CheckListBox1.Checked[3]:=true;
CheckListBox1.Checked[4]:=true;
CheckListBox1.Checked[17]:=true;

end;

procedure TF_setting.selitemsClick(Sender: TObject);
begin
if not selitems.Checked[0] then
begin
  messagedlg('试题号是索引，必须选择',mtinformation,[mbok],0);
  selitems.Checked[0]:=true;
end;
end;

procedure TF_setting.Timer1Timer(Sender: TObject);
begin
if timer_isenable then
hardware_info.Perform(EM_SCROLL,SB_LINEDOWN,0);
end;

procedure TF_setting.hardware_infoDblClick(Sender: TObject);
begin
timer_isenable:=not timer_isenable;
end;

procedure TF_setting.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to checklistbox1.Items.Count -1 do
 checklistbox1.Checked[i]:=TRUE;
end;

procedure TF_setting.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=3 then
groupbox15.Visible:=true
else
groupbox15.Visible:=false;
end;

procedure TF_setting.howmanydayKeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0','1','2','3','4','5','6','7','8','9'] then
else
key:=#0;
end;
end.