Devart Forums

Code: Select all

procedure DM.CreateNewField;
begin
  MyTable.Fields.Remove(MyTableOperater);
  MyTable.FieldDefs.Add('OperaterID', ftInteger);
  MyTable.Fields.Add(MyTable.FieldByName('OperaterID'));
  
  MyTable.Open;
end;

Code: Select all

var
  FS: TFormatSettings;
begin
  FS:= TFormatSettings.Create;
  if FS.TimeSeparator = '.' then LiteConn.Options.TimeFormat:='hh.nn.ss';
  ...
end;

Code: Select all

procedure ImportDB;
var
MyZipFile: TZipFile;
DataStream: TMemoryStream;
MyByteData: TBytes;
begin
  if OpenDlg.Execute then
    begin
      DataStream:=TMemoryStream.Create;
      MyZipFile:=TZipFile.Create;
      try
        if MyZipFile.IsValid(OpenDlg.FileName) then
          begin
            MyZipFile.Open(OpenDlg.FileName, zmRead);
            if (MyZipFile.FileCount = 1) then
              begin
                MyZipFile.Read(0, MyByteData);
                DataStream.WriteBuffer(MyByteData[0], Length(MyByteData));
                //DM.QryDump.Options.HexBlob:=True;
                DM.QryDump.RestoreFromStream(DataStream);
              end;
            MyZipFile.Close;
          end;
      finally
        DataStream.Free;
        MyZipFile.Free;
      end;
    end;
end;

Code: Select all

USE mydb;

DROP TABLE IF EXISTS `mytable`;

CREATE TABLE `mytable` (
  `ID` tinyint(3) unsigned NOT NULL AUTO_INCREMENT,
  `Field1` tinyint(3) DEFAULT NULL,
  `Field2` tinyint(3) DEFAULT NULL,
  `Field3` tinyint(3) unsigned DEFAULT NULL,
  `AppID` tinyint(3) DEFAULT NULL,
  `Report` mediumblob,
  `Descr` varchar(80) DEFAULT NULL,
  `Operater` varchar(20) DEFAULT NULL,
  `LastChange` datetime DEFAULT NULL,
  `NoChange` tinyint(1) DEFAULT NULL,
  PRIMARY KEY (`ID`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;

INSERT INTO `mytable`(`ID`,`Field1`,`Field2`,`Field3`,`AppID`,`Report`,`Descr`,`Operater`,`LastChange`,`NoChange`) values (31,0,0,3,0,NULL,'Листа корисника у терминалу','admin',NULL,0);
INSERT INTO `mytable`(`ID`,`Field1`,`Field2`,`Field3`,`AppID`,`Report`,`Descr`,`Operater`,`LastChange`,`NoChange`) values (32,0,0,3,1,NULL,'Слике догађаја и запослених','admin',NULL,0);
INSERT INTO `mytable`(`ID`,`Field1`,`Field2`,`Field3`,`AppID`,`Report`,`Descr`,`Operater`,`LastChange`,`NoChange`) values (33,0,0,3,3,NULL,'Детаљни извештај са временима свих улазака/излазака','admin',NULL,1);
INSERT INTO `mytable`(`ID`,`Field1`,`Field2`,`Field3`,`AppID`,`Report`,`Descr`,`Operater`,`LastChange`,`NoChange`) values (34,1,1,3,3,NULL,'Детаљни извештај са почетком-крајем смене и ранијим одласцима','admin',NULL,1);
INSERT INTO `mytable`(`ID`,`Field1`,`Field2`,`Field3`,`AppID`,`Report`,`Descr`,`Operater`,`LastChange`,`NoChange`) values (35,2,2,3,3,NULL,'Стандардни извештај са временима по данима обрачунатих догађаја','admin',NULL,1);

UPDATE `mytable` SET LastChange = NOW();