商品销售管理系统文档(十)

商品销售管理系统文档(十) TSetupForm.FormCreate(Sender: TObject);
var TheBitmap: TBitmap;
begin
  inherited;
  self.Caption := application.Title + ' - 系统设置';
  TheBitmap := TBitmap.Create;
  TheBitmap.Height := application.icon.Height + 2;
  TheBitmap.Width := application.icon.Width + 2;
  TheBitmap.Canvas.Draw(0, 0, application.Icon);
  sb_about.Glyph := thebitmap;
  B_save := true;
end;

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
       

首页 上一页 7 8 9 10 11 12 13 下一页 尾页 10/16/16

商品销售管理系统文档(十)由毕业论文网（www.huoyuandh.com）会员上传。