procedure TSetupForm.SB_saveClick(Sender: TObject);
var
reg: TRegistry;
begin
B_save := false;
if messagedlg('确定要保存以上所有资料吗？', mtconfirmation, [mbyes, mbno], 0) = mrno then
begin
B_save := true;
exit;
end;
if trim(e_allname.Text) = '' then
begin
messagedlg('公司名称不能为空，请检查后重新输入。', mtwarning, [mbok], 0);
e_allname.SetFocus;
exit;
end;
if trim(e_name.Text) = '' then
begin
messagedlg('负责人姓名不能为空，请检查后重新输入。', mtwarning, [mbok], 0);
e_name.SetFocus;
exit;
end;
if (not DirectoryExists(trim(LE_datapath.Text))) and (trim(LE_datapath.Text) <> '【系统默认】') then
begin
messagedlg('指定数据库目录不存在，请检查后重新输入。', mtwarning, [mbok], 0);
LE_datapath.SetFocus;
exit;
end;
reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if (Reg.OpenKey(S_RegTree, False)) = False then
begin
Reg.CreateKey(S_RegTree);
end;
Reg.OpenKey(S_RegTree, True);
//读取窗体控件中的公司基本信息到注册表中
Reg.WriteString('username', trim(E_name.text));
Reg.WriteString('coname', trim(E_allname.text));
Reg.WriteString('cotel', trim(E_tel.text));
Reg.WriteString('address', trim(E_address.text));
Reg.WriteString('DataPath', trim(LE_datapath.text));
if rb_auto.Checked then
reg.Writestring('autosave', '1')
else
reg.writestring('autosave', '0');
Reg.WriteString('savedays', trim(e_backupdays.text));
Reg.CloseKey;
sb_save.Enabled := false;
with MainForm do
begin
S_name := trim(E_allname.text);
S_username := trim(E_name.text);
S_cotel := trim(E_tel.text);
S_address := trim(E_address.text);
CPXSGL := trim(le_datapath.Text);
if CPXSGL = '【系统默认】' then
begin
CPXSGL := ExtractFileDir(Application.ExeName);
if (StrLen(PChar(CPXSGL)) <> 3) then
