📄 delphi编程 --- zy_602磁卡读写器测试程序.htm
字号:
Label1: TLabel<BR> Left =
12<BR> Top =
28<BR> Width =
26<BR> Height =
13<BR> Caption = '端口'<BR>
end<BR> object CB_com:
TComboBox<BR> Left =
40<BR> Top =
24<BR> Width =
69<BR> Height =
21<BR> Style =
csDropDownList<BR> ImeName =
'王码五笔型输入法86版'<BR> ItemHeight =
13<BR> ItemIndex =
0<BR> TabOrder =
0<BR> Text =
'COM1'<BR> Items.Strings =
(<BR>
'COM1'<BR>
'COM2'<BR>
'COM3'<BR>
'COM4')<BR> end<BR> object Button1:
TButton<BR> Left =
120<BR> Top =
20<BR> Width =
57<BR> Height =
25<BR> Caption =
'启动'<BR> TabOrder =
1<BR> OnClick =
Button1Click<BR> end<BR> object
Button2: TButton<BR> Left =
188<BR> Top =
20<BR> Width =
57<BR> Height =
25<BR> Caption =
'关闭'<BR> Enabled =
False<BR> TabOrder =
2<BR> OnClick =
Button2Click<BR> end<BR> end<BR> object
GroupBox2: TGroupBox<BR> Left = 4<BR>
Top = 72<BR> Width = 257<BR> Height =
61<BR> Caption = '操作命令'<BR> TabOrder =
1<BR> object Button3:
TButton<BR> Left =
8<BR> Top =
24<BR> Width =
75<BR> Height =
25<BR> Caption =
'读取磁卡'<BR> Enabled =
False<BR> TabOrder =
0<BR> OnClick =
Button3Click<BR> end<BR> object
Button4: TButton<BR> Left =
88<BR> Top =
24<BR> Width =
75<BR> Height =
25<BR> Caption =
'写入磁卡'<BR> Enabled =
False<BR> TabOrder =
1<BR> OnClick =
Button4Click<BR> end<BR> object
Button5: TButton<BR> Left =
168<BR> Top =
24<BR> Width =
75<BR> Height =
25<BR> Caption =
'卡机复位'<BR> Enabled =
False<BR> TabOrder =
2<BR> OnClick =
Button5Click<BR> end<BR> end<BR> object
GroupBox3: TGroupBox<BR> Left = 4<BR>
Top = 144<BR> Width = 261<BR> Height =
53<BR> Caption = '读卡内容'<BR> TabOrder =
2<BR> object R_txt:
TEdit<BR> Left =
8<BR> Top =
20<BR> Width =
245<BR> Height =
21<BR> ImeName =
'王码五笔型输入法86版'<BR> TabOrder =
0<BR> end<BR> end<BR> object GroupBox4:
TGroupBox<BR> Left = 4<BR> Top =
208<BR> Width = 261<BR> Height =
53<BR> Caption = '写卡内容'<BR> TabOrder =
3<BR> object W_txt:
TEdit<BR> Left =
8<BR> Top =
20<BR> Width =
245<BR> Height =
21<BR> ImeName =
'王码五笔型输入法86版'<BR> TabOrder =
0<BR> end<BR> end<BR> object AX_Comm:
TMSComm<BR> Left = 132<BR> Top =
64<BR> Width = 32<BR> Height =
32<BR> OnComm = AX_CommComm<BR>
ControlData = {<BR>
2143341208000000ED030000ED03000001568A64000006000000010000040000<BR>
00020000802500000000080000000000000000003F00000001000000}<BR>
end<BR>end</P></SPAN><BR><BR>
<TABLE cellPadding=0 cellSpacing=0 width="97%">
<TBODY>
<TR>
<TD align=right>
<TABLE>
<TBODY>
<TR>
<TD>来源：<SPAN id=SourceLabel></SPAN><BR>阅读：<SPAN
id=HitsLabel>690</SPAN> 次<BR>日期：<SPAN
id=TimeLabel>2005-3-22</SPAN><BR>录入：<SPAN
id=MemberNameLabel><A
href="http://61.130.50.195/memberProfile.aspx?id=2"
target=_blank>cwj</A></SPAN><BR><BR></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD align=right>【 <A href="http://61.130.50.195/remark.aspx?ID=376"
target=_blank>评论</A> 】 【 <A
href="http://61.130.50.195/mail.aspx?ID=376" target=_blank>推荐</A> 】
【 <A href="javascript:doPrint()">打印</A> 】 【 字体：<A
href="javascript:ContentSize(16)">大</A> <A
href="javascript:ContentSize(14)">中</A> <A
href="javascript:ContentSize(12)">小</A> 】 </TD></TR></TBODY></TABLE>
<TABLE align=center width="97%">
<TBODY>
<TR>
<TD>上一篇：<A
href="http://61.130.50.195/show.aspx?id=347&cid=23">在delphi7中利用mscomm控件编程</A><BR>下一篇：<A
href="http://61.130.50.195/show.aspx?id=388&cid=23">在Delphi程序中操作注册表</A>
</TD></TR></TBODY></TABLE></TD></TR>
<TBODY id=printHide name="printHide">
<TR>
<TD class=summary-title> >> 相关新闻 </TD></TR>
<TR class=tdbg vAlign=top>
<TD
style="PADDING-BOTTOM: 5px; PADDING-LEFT: 2px; PADDING-RIGHT: 2px; PADDING-TOP: 5px">
</TD></TR>
<TR>
<TD align=middle class=summary-title>发表评论 </TD>
<TR>
<FORM action=remark.aspx?id=376 method=post name=remarkForm
onsubmit="return checkRemark();">
<TD class=tdbg>
<TABLE border=0 cellPadding=5 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD>
<SCRIPT>
function checkRemark()
{
var form=document.all.remarkForm;
if (form.body.value=="")
{ alert("请填写评论内容");
form.body.focus();
return false;
}
if (form.username.value=="")
{ alert("请填写姓名");
form.username.focus();
return false;
}
if (form.body.value.length>200)
{ alert("评论内容不可以超过200字");
form.body.focus();
return false;
}
if (form.username.value.length>10)
{ alert("姓名不可以超过10个字");
form.username.focus();
return false;
}
form.submit.disabled=true;
return true;
}
function showLen(obj)
{
document.all.bodyLen.innerText=obj.value.length;
}
</SCRIPT>
<INPUT CHECKED name=face type=radio value=1><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face1.gif"> <INPUT name=face
type=radio value=2><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face2.gif"> <INPUT name=face
type=radio value=3><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face3.gif"> <INPUT name=face
type=radio value=4><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face4.gif"> <INPUT name=face
type=radio value=5><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face5.gif"> <INPUT name=face
type=radio value=6><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face6.gif"> <INPUT name=face
type=radio value=7><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face7.gif"> <INPUT name=face
type=radio value=8><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face8.gif"> <INPUT name=face
type=radio value=9><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face9.gif"><BR><INPUT
name=face type=radio value=10><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face10.gif"> <INPUT
name=face type=radio value=11><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face11.gif"> <INPUT
name=face type=radio value=12><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face12.gif"> <INPUT
name=face type=radio value=13><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face13.gif"> <INPUT
name=face type=radio value=14><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face14.gif"> <INPUT
name=face type=radio value=15><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face15.gif"> <INPUT
name=face type=radio value=16><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face16.gif"> <INPUT
name=face type=radio value=17><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face17.gif"> <INPUT
name=face type=radio value=18><IMG
src="Delphi编程 --- ZY_602磁卡读写器测试程序.files/face18.gif"><BR>点评： <TEXTAREA cols=40 name=body onkeydown=showLen(this) onkeyup=showLen(this) rows=4></TEXTAREA>
字数<SPAN id=bodyLen>0</SPAN> <BR>姓名： <INPUT maxLength=15
name=username size=10> <INPUT name=submit type=submit value=" 发 表 ">
<BR><BR><INPUT id=clientDate name=clientDate type=hidden>
<SCRIPT language=javascript> d=new Date();document.all.clientDate.value=d.getYear()+","+d.getMonth()+","+d.getDate()+","+ d.getHours() +","+ d.getMinutes() +","+ d.getSeconds();</SCRIPT>
</TD>
<TD width=350>
<UL
style="LINE-HEIGHT: 150%; LIST-STYLE: square; MARGIN-LEFT: 1em"><LI>尊重网上道德，遵守中华人民共和国的各项有关法律法规
<LI>承担一切因您的行为而直接或间接导致的民事或刑事法律责任
<LI>本站管理人员有权保留或删除其管辖留言中的任意内容
<LI>本站有权在网站内转载或引用您的评论
<LI>参与本评论即表明您已经阅读并接受上述条款
</LI></UL></TD></TR></TBODY></TABLE></TD></FORM></TR></TBODY></TABLE></DIV>
<TABLE align=center cellPadding=0 cellSpacing=0 class=twidth>
<TBODY>
<TR>
<TD height=20></TD></TR>
<TR>
<TD class=footline></TD></TR>
<TR align=middle height=60 style="LINE-HEIGHT: 130%">
<TD>网站简介 - 广告服务 - 网站地图 - 帮助信息 - 联系方式<BR><A
href="http://www.miibeian.gov.cn/"
target=_blank>浙ICP备05037601号</A><BR>Copyright © Delphi书屋 Powered by <A
href="http://www.9seek.com/news/show.aspx?id=566&cid=11" target=_blank
title="----------------------------------------- << 动网新闻.Net（Asp.net + C#） --------------------- Version: 3.0 free version For personal and non-commercial use! --------------------- ----------------------------------------- <<">DvNews
3.0</A> </TD></TR></TBODY></TABLE></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -