Доработки Rx

Модераторы: alexs, Модераторы

Re: Доработки Rx

Сообщение alexs » 25.05.2018 09:57:49

Вот с этим компонентом у меня как раз непонятки.
Я его перенесё их исходного RX - но сам не пользуюсь.
Как ты его используешь?
Метку языка добавил.
Аватара пользователя
alexs
долгожитель
 
Сообщения: 3643
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь

Re: Доработки Rx

Сообщение kit » 26.05.2018 07:39:07

Код: Выделить всё
with LoginDialog do begin
  Active := False;
  if not Login then Halt;
end;

procedure TKpForm.LoginDialogCheckUser(Sender: TObject; const UserName, Password: string; var AllowLogin: Boolean);
begin
  AllowLogin := False;
  with DM.ZStatement.ExecuteQuery('SELECT CAST(id AS Integer), name, password, CAST(level AS Integer) FROM users WHERE name = "' + UserName + '"') do
  if not(GetRow = -1) and ((TrimRight(GetString(3)) = '')
    or (IntToStr(GetCRC32Int(UserName + Password)) = TrimRight(GetString(3)))) then begin
      DM.UserId := GetInt(1);
      DM.LastU := GetInt(1);
      DM.UserName :=  Trim(GetString(2));
      DM.Password := GetString(3);
      DM.UserLevel := GetInt(4);
      AllowLogin := True;
  end else
    ShowPopup('Невірне ім`я або пароль!', idDialogShield);
end;
kit
постоялец
 
Сообщения: 136
Зарегистрирован: 29.09.2016 09:39:07

Re: Доработки Rx

Сообщение kit » 08.06.2018 17:54:21

Нужен експорт RxDBGrid в dbf. Есть что-то готовое или надо самому делать?
kit
постоялец
 
Сообщения: 136
Зарегистрирован: 29.09.2016 09:39:07

Re: Доработки Rx

Сообщение alexs » 09.06.2018 10:02:58

Мне кажется - ошибка в формулировании задачи :-)
Экспорт в DBF из набора данных, который подключен к RxDBGrid - так вернее.
Есть штатный пакет из FPC - DataExport. Он много чего умеет.
Аватара пользователя
alexs
долгожитель
 
Сообщения: 3643
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь

Re: Доработки Rx

Сообщение kit » 12.06.2018 09:26:06

Сделал проще:

procedure TBrowseForm.DataSetExportDbfExecute(Sender: TObject);
var
BM: TBookMark;
i: Byte;
begin
with DM, TDBF.Create(Self) do
try
BM := DBGrid.DataSource.DataSet.GetBookmark;
DBGrid.DataSource.DataSet.DisableControls;
FilePath := IniReadString(IniFileName, 'Main', 'DirDov', DirTemp);;
TableName := Caption + '.dbf';
KpForm.ShowPopup('Експорт ' + FilePath + TableName, idDialogInfo);
for i := 0 to DBGrid.Columns.Count - 1 do
with DBGrid.Columns.Items[i].Field do
FieldDefs.Add(FieldName, ftString, DataSize);
CreateTable;
Open;
while not(DBGrid.DataSource.DataSet.Eof) do begin
Append;
for i := 0 to DBGrid.Columns.Count - 1 do
Fields[i].AsString := UTF8ToCP866(DBGrid.DataSource.DataSet.FieldByName(DBGrid.Columns.Items[i].FieldName).AsString);
Post;
DBGrid.DataSource.DataSet.Next
end;
Close;
with DBGrid.DataSource.DataSet do
if BookmarkValid(BM) then
GotoBookmark(BM);
finally
DBGrid.DataSource.DataSet.EnableControls;
FreeBookmark(BM);
Free;
end;
end;
kit
постоялец
 
Сообщения: 136
Зарегистрирован: 29.09.2016 09:39:07

Пред.

Вернуться в RxLib

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

Рейтинг@Mail.ru
cron