VIDEO 2 — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м |
||
| (не показано 12 промежуточных версий этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | VIDEO_2 - это программа из справочника [[R266]] | + | [[VIDEO_2]] - это программа из справочника [[R266]] |
| − | + | Скопировать файл 0001гггг.DBF из \\DESKTOP-U722OCJ\Base в TempPath | |
| − | Скопировать файл 0001гггг.DBF из \\DESKTOP-U722OCJ\Base в TempPath | + | = Текст = |
| − | + | ||
| − | = Текст | + | |
| − | + | ||
local year, myarch, temp_path, fld, _, file_name, sql, tbl, key, ip | local year, myarch, temp_path, fld, _, file_name, sql, tbl, key, ip | ||
| Строка 12: | Строка 9: | ||
endif | endif | ||
| − | year := Year( Date() ) | + | year := Year( [[Date]]() ) |
file_name := "0001" + year + ".dbf" | file_name := "0001" + year + ".dbf" | ||
| − | temp_path := Nice_Path( ExpandUNCFileName( TempPath ) ) | + | temp_path := [[Nice_Path]]( [[ExpandUNCFileName]]( TempPath ) ) |
myarch := temp_path + 'myarch' | myarch := temp_path + 'myarch' | ||
| − | RunProcess( [winrar a -dh -ep ] + myarch + [ \\DESKTOP-U722OCJ\Base\] + file_name ) | + | [[RunProcess]]( [winrar a -dh -ep ] + myarch + [ \\DESKTOP-U722OCJ\Base\] + file_name ) |
| − | RunProcess( [winrar x -y ] + myarch + [ ] + temp_path ) | + | [[RunProcess]]( [winrar x -y ] + myarch + [ ] + temp_path ) |
fld := ' _1,D,4; _2,C,5; _3,N,6' | fld := ' _1,D,4; _2,C,5; _3,N,6' | ||
try | try | ||
| − | _ := CreateTmpFile( fld, '_', ~IsFreeDel := true ) | + | _ := [[CreateTmpFile]]( fld, '_', ~IsFreeDel := true ) |
| − | sql := [ Select "DATE", "TIME", "COUNT" From "] + file_name + [" Where DATE between '] + SqlDate( ip[1] ) + [' and '] + SqlDate( ip[2] )+ [' ] | + | sql := [ Select "DATE", "TIME", "COUNT" From "] + file_name + [" Where DATE between '] + [[SqlDate]]( ip[1] ) + [' and '] + [[SqlDate]]( ip[2] )+ [' ] |
| − | SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _1, _2, _3 ) ] + sql, temp_path ) | + | [[SimpleSql]]( [ Insert into ] + [[TmpFilePath]]( _ ) + [( _1, _2, _3 ) ] + sql, temp_path ) |
| − | ( _ )->( DbGoTop() ) | + | ( _ )->( [[DbGoTop]]() ) |
tbl := { { 'Title', 'Видеосчетчик' }, { 'ShowType', 2 } } | tbl := { { 'Title', 'Видеосчетчик' }, { 'ShowType', 2 } } | ||
| Строка 37: | Строка 34: | ||
key := { { { 'KeyName', 'F6' } }, { { 'KeyName', 'F8' } } } | key := { { { 'KeyName', 'F6' } }, { { 'KeyName', 'F8' } } } | ||
| − | MyGrid( _, tbl, fld, key, ~Modal := true ) | + | [[MyGrid]]( _, tbl, fld, key, ~Modal := true ) |
finally | finally | ||
| − | CloseTable( _ ) | + | [[CloseTable]]( _ ) |
end | end | ||
| Строка 48: | Строка 45: | ||
// Скопировать файл 0001гггг.DBF из \\DESKTOP-U722OCJ\Base в TempPath | // Скопировать файл 0001гггг.DBF из \\DESKTOP-U722OCJ\Base в TempPath | ||
| + | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| − | |||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Текущая версия на 10:22, 21 июля 2017
VIDEO_2 - это программа из справочника R266
Скопировать файл 0001гггг.DBF из \\DESKTOP-U722OCJ\Base в TempPath
Текст
local year, myarch, temp_path, fld, _, file_name, sql, tbl, key, ip ip := InputPeriod( true ) if Empty( ip ) return endif year := Year( Date() ) file_name := "0001" + year + ".dbf" temp_path := Nice_Path( ExpandUNCFileName( TempPath ) ) myarch := temp_path + 'myarch' RunProcess( [winrar a -dh -ep ] + myarch + [ \\DESKTOP-U722OCJ\Base\] + file_name ) RunProcess( [winrar x -y ] + myarch + [ ] + temp_path ) fld := ' _1,D,4; _2,C,5; _3,N,6' try _ := CreateTmpFile( fld, '_', ~IsFreeDel := true ) sql := [ Select "DATE", "TIME", "COUNT" From "] + file_name + [" Where DATE between '] + SqlDate( ip[1] ) + [' and '] + SqlDate( ip[2] )+ [' ] SimpleSql( [ Insert into ] + TmpFilePath( _ ) + [( _1, _2, _3 ) ] + sql, temp_path ) ( _ )->( DbGoTop() ) tbl := { { 'Title', 'Видеосчетчик' }, { 'ShowType', 2 } } fld := { ; { { 'FldName', '_1' }, { 'FldTitl', 'Дата', 'PreBlk', false } }, ; { { 'FldName', '_2' }, { 'FldTitl', 'Время', 'PreBlk', false } }, ; { { 'FldName', '_3' }, { 'FldTitl', 'Количество', 'PreBlk', false } } ; } key := { { { 'KeyName', 'F6' } }, { { 'KeyName', 'F8' } } } MyGrid( _, tbl, fld, key, ~Modal := true ) finally CloseTable( _ ) end // _1 - дата // _2 - время // _3 - количество // Скопировать файл 0001гггг.DBF из \\DESKTOP-U722OCJ\Base в TempPath
