SQLite DataBase Format
HamingBirdのDataBase Record Format をSQLから切り出し・・・
FDQuery1.SQL.Text := 'CREATE TABLE QSOLog'
+ ' ('
+ ' ID INTEGER PRIMARY KEY,'
+ ' "DATETIME" DOUBLE,' // 2023/04/15 15:10:30 → 20230415151030
+ ' "CALL" WIDESTRING,'
+ ' "NAME" WIDESTRING,'
+ ' "FRQ" WIDESTRING,'
+ ' "FRQD" DOUBLE,' // 433,140MHz → 433140000
+ ' "MODE" WIDESTRING,'
+ ' "RX_RS" WIDESTRING,'
+ ' "TX_RS" WIDESTRING,'
+ ' "QSO_DAY" WIDESTRING,'
+ ' "QSO_TIME" WIDESTRING,'
+ ' "MY_QTH" WIDESTRING,'
+ ' "YOU_QTH" WIDESTRING,'
+ ' "MY_GL" WIDESTRING,'
+ ' "YOU_GL" WIDESTRING,'
+ ' "MY_JCC" WIDESTRING,'
+ ' "YOU_JCC" WIDESTRING,'
+ ' "TRANSCEIVER" WIDESTRING,'
+ ' "ANTENNA" WIDESTRING,'
+ ' "POWER" WIDESTRING,'
+ ' "MESSAGE1" WIDESTRING,'
+ ' "MESSAGE2" WIDESTRING,'
+ ' "MESSAGE3" WIDESTRING,'
+ ' "FLG0" WIDESTRING,' // JARL Status Flag (W,S,X・・・)
+ ' "FLG1" WIDESTRING,' // eQSL Status Flag
+ ' "FLG2" WIDESTRING,' // hQSL Status Flag
+ ' "FLG3" WIDESTRING,' // mQSL Status Flag
+ ' "FLG4" WIDESTRING,'
+ ' "FLG5" WIDESTRING,'
+ ' "FLG6" WIDESTRING,'
+ ' "FLG7" WIDESTRING,'
+ ' "FLG8" WIDESTRING,'
+ ' "FLG9" WIDESTRING,' // Heading Color (0:Normal、1:Blue、2:SkyBlue、3:Green、・・・)
+ ' "NOTE" TEXT'
+ ')';