Diễn đàn giao thông
 
Trang ChínhTrang Chính  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Thành viênThành viên  NhómNhóm  Đăng NhậpĐăng Nhập  
Đăng Nhập
Tên truy cập:
Mật khẩu:
Đăng nhập tự động mỗi khi truy cập: 
:: Quên mật khẩu
Top posters
Admin
 
xhung0602
 
sonmk2008
 
philipdn
 
TRANHOC2008
 
vinhtg
 
CIC.com
 
vu hien
 
moclantim
 
cd2k44
 
Latest topics
Statistics
Diễn Đàn hiện có 10069 thành viên
Chúng ta cùng chào mừng thành viên mới đăng ký: dinhngocson

Tổng số bài viết đã gửi vào diễn đàn là 18476 in 3406 subjects
Keywords
acitt full d600 cack toan ngang nova bravo crack alpha topo huong group win7 SANNEN2005 2017 thiet phan civil 2016 road geo5 duong hitosoft HHMAPS download
Social bookmarking
Social bookmarking Digg  Social bookmarking Delicious  Social bookmarking Reddit  Social bookmarking Stumbleupon  Social bookmarking Slashdot  Social bookmarking Yahoo  Social bookmarking Google  Social bookmarking Blinklist  Social bookmarking Blogmarks  Social bookmarking Technorati  

Bookmark and share the address of ZIZU on your social bookmarking website
LIÊN KẾT




TỔNG LƯỢT TRUY CẬP

Share | 
 

 DỰ TOÁN DT2000 CỦA CTY TIN HỌC SÀI GÒN

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
langthangtrennet
Thành viên chính thức
Thành viên chính thức


Tổng số bài gửi : 2
Ngày đăng ký : 24/08/2010

Bài gửiTiêu đề: DỰ TOÁN DT2000 CỦA CTY TIN HỌC SÀI GÒN   Tue Aug 24, 2010 11:34 pm

Xin Chào Các Anh trong diễn đàn, em có bản cài DT2000, Phiên bản mới nè.
đây là phần mềm dự toán rất hay, xuất ra tiến độ thi công qua project luôn.
giao diện đẹp và dễ sử dụng. Nay em up lên diễn đàn bản cài, Mong là có cao thủ nào ra tay
giúp đỡ sử dụng full luôn nghen. xin chào thân ái
link của em nó: mediafire.com ?ju58pimefi587dy
Về Đầu Trang Go down
Xem lý lịch thành viên
bongdemtrove1
Thành viên năng động
Thành viên năng động
avatar

Tổng số bài gửi : 159
Ngày đăng ký : 04/08/2010

Bài gửiTiêu đề: Re: DỰ TOÁN DT2000 CỦA CTY TIN HỌC SÀI GÒN   Tue Aug 24, 2010 11:36 pm

cái này là bản cài full hay chỉ là demo
Về Đầu Trang Go down
Xem lý lịch thành viên
linhctn
Thành viên năng động
Thành viên năng động


Tổng số bài gửi : 201
Ngày đăng ký : 15/04/2010

Bài gửiTiêu đề: Re: DỰ TOÁN DT2000 CỦA CTY TIN HỌC SÀI GÒN   Wed Aug 25, 2010 1:53 pm

không cài được thế mới đau. không biết có phải có khóa cứng khi cài không nữa
Về Đầu Trang Go down
Xem lý lịch thành viên
cuteo
Thành viên chính thức
Thành viên chính thức


Tổng số bài gửi : 11
Ngày đăng ký : 16/08/2010

Bài gửiTiêu đề: Re: DỰ TOÁN DT2000 CỦA CTY TIN HỌC SÀI GÒN   Wed Aug 25, 2010 2:32 pm

mình cài bình thường mà nhưng bản này là demo nên giới hạn nhiều lắm
Về Đầu Trang Go down
Xem lý lịch thành viên
dutoan2k8
Thành viên chính thức
Thành viên chính thức


Tổng số bài gửi : 14
Ngày đăng ký : 23/12/2009

Bài gửiTiêu đề: Re: DỰ TOÁN DT2000 CỦA CTY TIN HỌC SÀI GÒN   Sat Oct 02, 2010 12:45 pm

PARAMETER soluong
LOCAL n_n, chuoi, i, j
LOCAL sokhoa1, sokhoa2, sokhoa3, sokhoa4, sokhoa5, sokhoa6, sokhoa7
LOCAL tongso, disksize, serial
LOCAL mdirsys, mf_exe, mf_vxd, msobyte
LOCAL r_serial, luuclip, dem
IF .NOT. FILE(pc_localdat+"XD.DAT")
IF datnotfound=.F.
= thongbaox("Kh“ng tm thãy file : "+pc_localdat+"XD.DAT")
datnotfound = .T.
ENDIF
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
RETURN
ENDIF
n_n = FOPEN(pc_localdat+"XD.DAT", 0)
IF n_n=-1
IF datcanotopen=.F.
= thongbaox("Kh“ng mö ­Ÿøc file : "+pc_localdat+"XD.DAT", 48, "Th“ng b o lši")
datcanotopen = .T.
ENDIF
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
RETURN
ENDIF
LOCAL lcdoc
= FSEEK(n_n, 10000, 0)
lcdoc = FREAD(n_n, 1)
DO CASE
CASE lcdoc<>"a" .AND. lcdoc<>"b" .AND. lcdoc<>"y"
datchange = .T.
= FCLOSE(n_n)
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
= thongbaox("File XD.DAT ­á b« thay ­™i !", 48, "Th“ng b o")
DO trhoa IN tinh_kl
RETURN
CASE lcdoc=="a"
datchange = .T.
= FCLOSE(n_n)
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
= thongbaox("File XD.DAT ­ang s¦ džng cœa phiˆn bàn 5.09 trö v‹ trŸôc ! "+CHR(13)+"Phiˆn bàn hi¬n nay l… 6.08 "+CHR(13)+"Xin liˆn lâc vôi C“ng Ty Tin H”c S…i G•n ­Ž ­Ÿøc nƒng cãp."+CHR(13)+" 174, V’ Th« S u . Q.3 ,Tp.HCM ®T : 9 325 360")
RETURN
CASE lcdoc=="b"
datchange = .T.
= FCLOSE(n_n)
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
= thongbaox("File XD.DAT ­ang s¦ džng cœa phiˆn bàn 5.10 trö v‹ trŸôc ! "+CHR(13)+"Phiˆn bàn hi¬n nay l… 6.08 "+CHR(13)+"Xin liˆn lâc vôi C“ng Ty Tin H”c S…i G•n ­Ž ­Ÿøc nƒng cãp. "+CHR(13)+" 174, V’ Th« S u . Q.3 ,Tp.HCM ®T : 9 325 360")
RETURN
ENDCASE
= FSEEK(n_n, 0, 0)
chuoi = FGETS(n_n)
IF LEN(chuoi)=50
= FSEEK(n_n, 0, 0)
p_donvi = ALLTRIM(FGETS(n_n))
p_nguoi = ALLTRIM(FGETS(n_n))
p_diachi = ALLTRIM(FGETS(n_n))
p_dienthoai = ALLTRIM(FGETS(n_n))
chuoi = FGETS(n_n)
ENDIF
sokhoa4 = MOD(VAL(SUBSTR(chuoi, 8, 2)), 10)
sokhoa5 = MOD(VAL(SUBSTR(chuoi, 11, 2)), 10)
sokhoa1 = MOD(VAL(SUBSTR(chuoi, 14, 2)), 10)
chuoi = FGETS(n_n)
sokhoa2 = MOD(VAL(SUBSTR(chuoi, 8, 2)), 10)
sokhoa3 = MOD(VAL(SUBSTR(chuoi, 11, 2)), 10)
sokhoa7 = MOD(VAL(SUBSTR(chuoi, 14, 2)), 10)
chuoi = FGETS(n_n)
sokhoa6 = VAL(SUBSTR(chuoi, 8, 1))
= FSEEK(n_n, 0, 0)
xyz_dem = 0
FOR i = 1 TO 8000
xyz_dem = xyz_dem+ASC(FREAD(n_n, 1))
ENDFOR
xyz_dem = CHR(MOD(xyz_dem, 233))
= FSEEK(n_n, 8000+sokhoa5*81+sokhoa6*7+3, 0)
IF FREAD(n_n, 1)<>xyz_dem
= FSEEK(n_n, 8000+sokhoa7*81+sokhoa2*7+3, 0)
IF FREAD(n_n, 1)<>xyz_dem
IF datchange=.F.
= thongbaox("File XD.DAT ­á b« thay ­™i !", 48, "Th“ng b o")
DO trhoa IN tinh_kl
datchange = .T.
ENDIF
ELSE
IF datchange=.F.
= thongbaox("File XD.DAT ­ang s¦ džng cœa phiˆn bàn DT2000 kh“ng c¢ 'Ti‰n ­› thi c“ng' "+CHR(13)+"Xin liˆn lâc vôi C“ng Ty Tin H”c S…i G•n "+CHR(13)+" 174, V’ Th« S u . Q.3 ,Tp.HCM ®T : 9 325 360")
datchange = .T.
ENDIF
ENDIF
= FCLOSE(n_n)
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
RETURN
ENDIF
= FSEEK(n_n, 0, 0)
xyz_dem = 0
FOR i = 1 TO 8000
DO CASE
CASE MOD(i, 5)=1
xyz_dem = xyz_dem+ASC(FREAD(n_n, 1))*3
CASE MOD(i, 5)=2
xyz_dem = xyz_dem+ASC(FREAD(n_n, 1))*5
CASE MOD(i, 5)=3
xyz_dem = xyz_dem+ASC(FREAD(n_n, 1))*7
CASE MOD(i, 5)=4
xyz_dem = xyz_dem+ASC(FREAD(n_n, 1))*19
CASE MOD(i, 5)=0
xyz_dem = xyz_dem+ASC(FREAD(n_n, 1))*31
ENDCASE
ENDFOR
xyz_dem = CHR(MOD(xyz_dem, 189))
= FSEEK(n_n, 9000+sokhoa1*3+sokhoa5*15+9, 0)
IF FREAD(n_n, 1)<>xyz_dem
= FSEEK(n_n, 9000+sokhoa4*3+sokhoa7*15+9, 0)
IF FREAD(n_n, 1)<>xyz_dem
IF datchange=.F.
= thongbaox("File XD.DAT ­á b« thay ­™i !", 48, "Th“ng b o")
DO trhoa IN tinh_kl
datchange = .T.
ENDIF
ELSE
IF datchange=.F.
= thongbaox("File XD.DAT ­ang s¦ džng cœa phiˆn bàn DT2000 kh“ng c¢ 'Ti‰n ­› thi c“ng' "+CHR(13)+"Xin liˆn lâc vôi C“ng Ty Tin H”c S…i G•n "+CHR(13)+" 174, V’ Th« S u . Q.3 ,Tp.HCM ®T : 9 325 360")
datchange = .T.
ENDIF
ENDIF
= FCLOSE(n_n)
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
RETURN
ENDIF
= FSEEK(n_n, 1000+sokhoa6*133+sokhoa7*21+7, 0)
chuoi = FREAD(n_n, 15)
sodangky = ""
FOR i = 1 TO LEN(chuoi)
DO CASE
CASE MOD(i, 4)=1
sodangky = sodangky+CHR(ASC(SUBSTR(chuoi, i, 1))-(sokhoa1+sokhoa4*11+3))
CASE MOD(i, 4)=2
sodangky = sodangky+CHR(ASC(SUBSTR(chuoi, i, 1))-(-sokhoa5-sokhoa6))
CASE MOD(i, 4)=3
sodangky = sodangky+CHR(ASC(SUBSTR(chuoi, i, 1))-(sokhoa3+sokhoa7*10+4))
CASE MOD(i, 4)=0
sodangky = sodangky+CHR(ASC(SUBSTR(chuoi, i, 1))-(-sokhoa1-sokhoa3*2))
ENDCASE
ENDFOR
= FSEEK(n_n, 3000+sokhoa6*150+sokhoa7*27+33, 0)
msobyte = ASC(FREAD(n_n, 1))-65
chuoi = FREAD(n_n, msobyte)
disksize = ""
FOR i = 1 TO LEN(chuoi)
DO CASE
CASE MOD(i, 5)=1
disksize = disksize+CHR(ASC(SUBSTR(chuoi, i, 1))-(sokhoa1+sokhoa4*16+1))
CASE MOD(i, 5)=2
disksize = disksize+CHR(ASC(SUBSTR(chuoi, i, 1))-(-sokhoa2-sokhoa5*2))
CASE MOD(i, 5)=3
disksize = disksize+CHR(ASC(SUBSTR(chuoi, i, 1))-(sokhoa3+sokhoa6*17+4))
CASE MOD(i, 5)=4
disksize = disksize+CHR(ASC(SUBSTR(chuoi, i, 1))-(sokhoa7+sokhoa5*5+3))
CASE MOD(i, 5)=0
disksize = disksize+CHR(ASC(SUBSTR(chuoi, i, 1))-(-sokhoa1-sokhoa3*2))
ENDCASE
ENDFOR
= FSEEK(n_n, 5000+sokhoa3*47+sokhoa5*7+sokhoa2+17, 0)
msobyte = ASC(FREAD(n_n, 1))-65
chuoi = FREAD(n_n, msobyte)
serial = ""
FOR i = 1 TO LEN(chuoi)
DO CASE
CASE MOD(i, 5)=1
serial = serial+CHR(ASC(SUBSTR(chuoi, i, 1))-(sokhoa1+sokhoa3*3+5))
CASE MOD(i, 5)=2
serial = serial+CHR(ASC(SUBSTR(chuoi, i, 1))-(-sokhoa6-sokhoa7*2))
CASE MOD(i, 5)=3
serial = serial+CHR(ASC(SUBSTR(chuoi, i, 1))-(sokhoa3+sokhoa5*3+3))
CASE MOD(i, 5)=4
serial = serial+CHR(ASC(SUBSTR(chuoi, i, 1))-(-sokhoa4-sokhoa7))
CASE MOD(i, 5)=0
serial = serial+CHR(ASC(SUBSTR(chuoi, i, 1))-(sokhoa4+sokhoa5*3+4))
ENDCASE
ENDFOR
= FCLOSE(n_n)
DO CASE
CASE soluong=1
IF disksize==ALLTRIM(SYS(2020))
x_finame = 1+RAND()*99
ELSE
x_finame = 1+RAND()*99
ENDIF
CASE soluong=2
DO CASE
CASE UPPER(OS())="WINDOWS 4.00" .OR. UPPER(OS())="WINDOWS 4.10" .OR. UPPER(OS())="WINDOWS 4.90"
mdirsys = LOWER(GETENV("windir"))+"\system"
mf_exe = mdirsys+"qfchx.exe"
CASE UPPER(OS())="WINDOWS 6.01" .OR. UPPER(OS())="WINDOWS 6.00" .OR. UPPER(OS())="WINDOWS 5.00" .OR. UPPER(OS())="WINDOWS 5.01" .OR. UPPER(OS())="WINDOWS 5.02"
mdirsys = LOWER(GETENV("windir"))+"\system32"
mf_exe = mdirsys+"qffchx.exe"
OTHERWISE
WAIT WINDOW "Loi 1 khong xac dinh !"
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
RETURN
ENDCASE
mf_vxd = mdirsys+"wdsmna.vxd"
SET COMPATIBLE DB4
LOCAL llcheck
llcheck = .T.
DO CASE
CASE UPPER(OS())="WINDOWS 4.00" .OR. UPPER(OS())="WINDOWS 4.10" .OR. UPPER(OS())="WINDOWS 4.90"
IF FSIZE(mf_exe)<>352256 .OR. FSIZE(mf_vxd)<>9918
llcheck = .F.
ENDIF
CASE UPPER(OS())="WINDOWS 6.01" .OR. UPPER(OS())="WINDOWS 6.00" .OR. UPPER(OS())="WINDOWS 5.00" .OR. UPPER(OS())="WINDOWS 5.01" .OR. UPPER(OS())="WINDOWS 5.02"
IF FSIZE(mf_exe)<>223744 .OR. FSIZE(mf_vxd)<>9918
llcheck = .F.
ENDIF
OTHERWISE
llcheck = .F.
ENDCASE
SET COMPATIBLE FOXPLUS
IF llcheck=.F.
WAIT WINDOW "Loi 1 khong xac dinh "
DO trhoa IN tinh_kl
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
RETURN
ENDIF
nn = FOPEN(mf_exe, 10)
m.dem = 0
FOR i = 1 TO 1024
DO CASE
CASE MOD(i, 5)=1
m.dem = m.dem+ASC(FREAD(nn, 1))*3
CASE MOD(i, 5)=2
m.dem = m.dem+ASC(FREAD(nn, 1))*5
CASE MOD(i, 5)=3
m.dem = m.dem+ASC(FREAD(nn, 1))*7
CASE MOD(i, 5)=4
m.dem = m.dem+ASC(FREAD(nn, 1))*19
CASE MOD(i, 5)=0
m.dem = m.dem+ASC(FREAD(nn, 1))*31
ENDCASE
ENDFOR
llcheck = .T.
DO CASE
CASE UPPER(OS())="WINDOWS 4.00" .OR. UPPER(OS())="WINDOWS 4.10" .OR. UPPER(OS())="WINDOWS 4.90"
IF m.dem<>205822
llcheck = .F.
ENDIF
CASE UPPER(OS())="WINDOWS 6.01" .OR. UPPER(OS())="WINDOWS 6.00" .OR. UPPER(OS())="WINDOWS 5.00" .OR. UPPER(OS())="WINDOWS 5.01" .OR. UPPER(OS())="WINDOWS 5.02"
IF m.dem<>202048
llcheck = .F.
ENDIF
OTHERWISE
llcheck = .F.
ENDCASE
IF llcheck=.F.
= FCLOSE(nn)
WAIT WINDOW "Loi 21 khong xac dinh !"
DO trhoa IN tinh_kl
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
RETURN
ENDIF
llcheck = .T.
DO CASE
CASE UPPER(OS())="WINDOWS 4.00" .OR. UPPER(OS())="WINDOWS 4.10" .OR. UPPER(OS())="WINDOWS 4.90"
= FSEEK(nn, 301110, 0)
IF FREAD(nn, 5)<>"vvxcv"
llcheck = .F.
ENDIF
CASE UPPER(OS())="WINDOWS 6.01" .OR. UPPER(OS())="WINDOWS 6.00" .OR. UPPER(OS())="WINDOWS 5.00" .OR. UPPER(OS())="WINDOWS 5.01" .OR. UPPER(OS())="WINDOWS 5.02"
= FSEEK(nn, 185054, 0)
IF FREAD(nn, 7)<>"String1"
llcheck = .F.
ENDIF
OTHERWISE
llcheck = .F.
ENDCASE
IF llcheck=.F.
= FCLOSE(nn)
WAIT WINDOW "Loi 22 khong xac dinh !"
DO trhoa IN tinh_kl
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
RETURN
ENDIF
DO CASE
CASE UPPER(OS())="WINDOWS 4.00" .OR. UPPER(OS())="WINDOWS 4.10" .OR. UPPER(OS())="WINDOWS 4.90"
= FSEEK(nn, 173392, 0)
CASE UPPER(OS())="WINDOWS 6.01" .OR. UPPER(OS())="WINDOWS 6.00" .OR. UPPER(OS())="WINDOWS 5.00" .OR. UPPER(OS())="WINDOWS 5.01" .OR. UPPER(OS())="WINDOWS 5.02"
= FSEEK(nn, 184000, 0)
ENDCASE
m.dem = 0
FOR i = 1 TO 5000
DO CASE
CASE MOD(i, 5)=1
m.dem = m.dem+ASC(FREAD(nn, 1))*3
CASE MOD(i, 5)=2
m.dem = m.dem+ASC(FREAD(nn, 1))*5
CASE MOD(i, 5)=3
m.dem = m.dem+ASC(FREAD(nn, 1))*7
CASE MOD(i, 5)=4
m.dem = m.dem+ASC(FREAD(nn, 1))*19
CASE MOD(i, 5)=0
m.dem = m.dem+ASC(FREAD(nn, 1))*31
ENDCASE
ENDFOR
llcheck = .T.
DO CASE
CASE UPPER(OS())="WINDOWS 4.00" .OR. UPPER(OS())="WINDOWS 4.10" .OR. UPPER(OS())="WINDOWS 4.90"
IF m.dem<>8000286
llcheck = .F.
ENDIF
CASE UPPER(OS())="WINDOWS 6.01" .OR. UPPER(OS())="WINDOWS 6.00" .OR. UPPER(OS())="WINDOWS 5.00" .OR. UPPER(OS())="WINDOWS 5.01" .OR. UPPER(OS())="WINDOWS 5.02"
IF m.dem<>4991975
llcheck = .F.
ENDIF
ENDCASE
IF llcheck=.F.
= FCLOSE(nn)
WAIT WINDOW "Loi 23 khong xac dinh !"
DO trhoa IN tinh_kl
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
RETURN
ENDIF
= FCLOSE(nn)
nn = FOPEN(mf_vxd, 10)
= FSEEK(nn, 4684, 0)
IF FREAD(nn, 5)<>"IOCTL"
= FCLOSE(nn)
WAIT WINDOW "Loi 31 khong xac dinh !"
DO trhoa IN tinh_kl
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
RETURN
ENDIF
= FSEEK(nn, 0, 0)
m.dem = 0
DO WHILE .NOT. FEOF(nn)
m.dem = m.dem+ASC(FREAD(nn, 1))
ENDDO
IF m.dem<>680429
= FCLOSE(nn)
WAIT WINDOW "Loi 32 khong xac dinh !"
DO trhoa IN tinh_kl
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
RETURN
ENDIF
= FCLOSE(nn)
luuclip = _CLIPTEXT
DO CASE
CASE UPPER(OS())="WINDOWS 4.00" .OR. UPPER(OS())="WINDOWS 4.10" .OR. UPPER(OS())="WINDOWS 4.90"
lenh = "run /n "+mf_exe+" Button1 Edit2 ComboBox3"
CASE UPPER(OS())="WINDOWS 6.01" .OR. UPPER(OS())="WINDOWS 6.00" .OR. UPPER(OS())="WINDOWS 5.00" .OR. UPPER(OS())="WINDOWS 5.01" .OR. UPPER(OS())="WINDOWS 5.02"
lenh = "run /n "+mf_exe+" String1 Edit2"
ENDCASE
&lenh
r_serial = TRIM(_CLIPTEXT)
_CLIPTEXT = luuclip
IF r_serial==serial
x_finame = 10+RAND()*89
b_filecta = 1+RAND()*99
ELSE
x_finame = 500+RAND()*350
b_filecta = 400+RAND()*350
ENDIF
ENDCASE
RETURN
ENDPROC
**
PROCEDURE trhoa
CLEAR ALL
FOR jj = 1 TO 200000000
= INKEY(1000)
ENDFOR
RETURN
ENDPROC
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: DỰ TOÁN DT2000 CỦA CTY TIN HỌC SÀI GÒN   

Về Đầu Trang Go down
 
DỰ TOÁN DT2000 CỦA CTY TIN HỌC SÀI GÒN
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
ZIZU :: DOWNLOAD & UPLOAD PHẦN MỀN CHUYÊN NGÀNH :: Soft tiện ích-
Chuyển đến