- 博客(1)
- 资源 (1)
- 收藏
- 关注
原创 数据封装在vc中的应用
数据封装在vc中的应用1.前言 在vc的应用程序中,经常要涉及到数据库的操作。如果是很简单的应用,vc还算应付的过去,而对于稍微复杂一点的数据应用,vc开发出来的应用程序就需要编写大量操作数据库的代码,这些代码重复率高,操作com类型的数据,很容易出错。虽然VC6和VC7中有开发数据库应用的向导,它把数据表封装成类,但这些向导只能在文档类型的应用中采用,如果有多个表,并且有
2003-08-29 07:15:00 1036 1
sony srp-x351 232控制程序
sony 351的控制程序
procedure TForm1.btnExeClick(Sender: TObject);
begin
SwitchInput(cmbInput.Text[1]);
end;
procedure TForm1.btnSoundUpClick(Sender: TObject);
begin
IncSound();
end;
procedure TForm1.btnSoundDownClick(Sender: TObject);
begin
DecSound();
end;
procedure TForm1.btnMuteOnClick(Sender: TObject);
begin
MuteON();
end;
procedure TForm1.btnMuteOffClick(Sender: TObject);
begin
MuteOFF();
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if mscomm1.PortOpen then
begin
mscomm1.PortOpen:=false;
end;
end;
procedure TForm1.MSComm1Comm(Sender: TObject);
begin
case mscomm1.CommEvent of
comEvReceive: bzw := true;
end;
end;
procedure TForm1.btnStopClick(Sender: TObject);
begin
StopChangeSound();
end;
procedure TForm1.SwitchInput(pi_char: Char);
var
senddata:array of byte;
begin
Log('SwitchInput');
Setlength(senddata,4);
senddata[0]:=$11; //要发送的数据
senddata[1]:=$80;
senddata[3]:=$B1;
case pi_char of
'A':
senddata[2]:=$20;
'B':
senddata[2]:=$21;
'C':
senddata[2]:=$22;
'D':
senddata[2]:=$23;
end;
OutputToCom(senddata);
end;
2009-06-25
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人