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

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

商品销售管理系统文档(十一)    CPXSGL := CPXSGL + '\DATA\'
        else
          CPXSGL := CPXSGL + 'DATA\';
      end;
      if rb_auto.Checked then
        S_autosave := '1'
      else
        S_autosave := '0';
      S_savedays := trim(e_backupdays.text);
    end;
    messagedlg('系统设置数据信息保存完毕！', mtwarning, [mbok], 0);
    MainForm.Caption := Application.Title + ' - ' + S_name + '【' + CPXSGL + '】';
    B_save := true;
finally
    Reg.CloseKey;
    Reg.Free;
end;
self.Close;
end;

procedure TSetupForm.FormShow(Sender: TObject);
var
reg: TRegistry;
begin
inherited;
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);
    E_allname.text := reg.ReadString('Coname');
    e_name.text := reg.ReadString('Username');
    E_tel.text := reg.ReadString('Cotel');
    E_address.text := reg.ReadString('Address');
    LE_datapath.Text := reg.ReadString('DataPath');
    if LE_datapath.Text = '' then LE_datapath.Text := '【系统默认】';
    if reg.Readstring('autosave') = '1' then
      rb_auto.Checked := true
    else
      rb_user.Checked := true;
    e_backupdays.text := Reg.readString('savedays');
    if trim(e_backupdays.text) = '' then
      e_backupdays.text := '10';
    Reg.CloseKey;
finally
    Reg.CloseKey;
    Reg.Free;
end;
sb_save.Enabled := false;

end;

procedure TSetupForm.SB_selectpathClick(Sender: TObject);
begin
Application.CreateForm(TSelectDir, SelectDir);
SelectDir.DriveComboBox1.Text := ExtractFileDrive(LE_datapath.Text);
if (FileExists(LE_datapath.Text)) then
SelectDir.DirectoryListBox1.Directory := LE_datapath.Text;
if (SelectDir.ShowModal = mrOK) then
LE_datapath.Text := SelectDir.DirectoryListBox1.Directory; //Frm_select_dir.Label2.Caption;
SelectDir.free;
end;

procedure TSetupForm.SB_aboutClick(Sender: TObject);
begin
Application.CreateForm(TAboutForm, AboutForm);
AboutForm.showmodal;
AboutForm.free;
end;

procedure TSetupForm.e_allnameChange(Sender: TObject);
begin
sb_save.Enabled := true;
end;

procedure TSetupForm.e_allnameKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = 13) or (key = 40) then { 判断是按执行键}

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

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