procedure TF_1.Button1Click(Sender: TObject);
begin F_0.DataSource1.DataSet.Close ;
F_0.DCOMConnection1.Connected := False ;end;procedure TF_1.Button2Click(Sender: TObject);
begin F_0.DCOMConnection1.Connected := True ;
F_0.ClientDataSet1.Open ;end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin if Key <> #$D then
exit ;
Application.MessageBox( '抱歉,请检查语句的正确性!' , '提示' , MB_OK +
MB_ICONINFORMATION ) ;end;
begin F_0.DataSource1.DataSet.Close ;
F_0.DCOMConnection1.Connected := False ;end;procedure TF_1.Button2Click(Sender: TObject);
begin F_0.DCOMConnection1.Connected := True ;
F_0.ClientDataSet1.Open ;end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin if Key <> #$D then
exit ;
Application.MessageBox( '抱歉,请检查语句的正确性!' , '提示' , MB_OK +
MB_ICONINFORMATION ) ;end;
解决方案 »
- MSN交delphi程序员
- 用findfirst,findnext寻找文件问题.
- Dbgrid内输入浮点数为"12.23.12"时的错误如何处理?
- 请问把窗体都作成dll再根据需要调用有什么优点?有什么缺点?
- 怎么改变一个ADOCommand的执行语句阿
- 我想让输入密码时大小写都可以,应该用哪个函数处理???
- !#!还有人知道把小数转化为百分数的函数吗?
- 大家有没有做好的打印控件??
- 请问Ascii7编码的转换问题
- 从modal form中取数据问题?请各位行家看看我的代码错在哪?
- 各位朋友,谢谢上次的关心。我花了银子弄了个KV3000终于恢复了一个区的数据。来领分吧。
- 请问大家认为这次csdn出的程序员2001(borland版)怎么样
begin
F_0.DataSource1.DataSet.Close;
F_0.DCOMConnection1.Connected := False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
F_0.DCOMConnection1.Connected := True;
F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key<>#$D then
exit;
Application.MessageBox('抱歉,请检查语句的正确性!','提示',MB_OK+MB_ICONINFORMATION);
end;
:=两边各空一格。
;号前空一格。
procedure TfrmMain.btnShowOkClick(Sender: TObject);
begin
ShowMessage('OK');
end;procedure TfrmMain.edtShowBoxKeyPress(Sender: TObject; var Key: Char);
begin if Key <> #$D then
exit ;
Application.MessageBox(CHECKINPUT ,TILTLEHINT , MB_OK +
MB_ICONINFORMATION ) ;end;unit strResource;const
CHEKINPUT = '语句输入错误!';
TITLEHINT = '提示';
begin
F_0.DataSource1.DataSet.Close;
F_0.DCOMConnection1.Connected:=False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
F_0.DCOMConnection1.Connected:=True;
F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key<>#$D then
exit;
Application.MessageBox( '抱歉,请检查语句的正确性!' , '提示' , MB_OK +
MB_ICONINFORMATION ) ;
end;
begin
F_0.DataSource1.DataSet.Close;
F_0.DCOMConnection1.Connected := False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
F_0.DCOMConnection1.Connected := True;
F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key<>#$D then
exit;
Application.MessageBox('抱歉,请检查语句的正确性!','提示',MB_OK+MB_ICONINFORMATION);
end;
begin
if Key<>#$D then
MessageBox('请检查语句的正确性','语句出错',MB_OK+MB_ICONERROR);
end;
干吗文绉绉的? 余同。
begin
F_0.DataSource1.DataSet.Close;
F_0.DCOMConnection1.Connected := False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
F_0.DCOMConnection1.Connected := True;
F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key<>#$D then
exit;
Application.MessageBox('抱歉,请检查语句的正确性!','提示',MB_OK+MB_ICONINFORMATION);
end;
procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#$D then
MessageBox('请检查语句的正确性','语句出错',MB_OK+MB_ICONERROR);
end;
干吗文绉绉的? 余同。
begin
F_0.DataSource1.DataSet.Close;
F_0.DCOMConnection1.Connected := False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
F_0.DCOMConnection1.Connected := True;
F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key<>#$D then
exit;
Application.MessageBox('抱歉,请检查语句的正确性!','提示',MB_OK+MB_ICONINFORMATION);
end;
begin
F_0.DataSource1.DataSet.Close;
F_0.DCOMConnection1.Connected := False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
F_0.DCOMConnection1.Connected := True;
F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key <> #$D then |
exit ; |分界线
Application.MessageBox( '抱歉,请检查语句的正确性!' , '提示' , MB_OK +| MB_ICONINFORMATION ) ;
end;
begin
F_0.DataSource1.DataSet.Close;
F_0.DCOMConnection1.Connected := False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
F_0.DCOMConnection1.Connected := True;
F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key<>#$D then exit;
Application.MessageBox( '抱歉,请检查语句的正确性!' , '提示' , MB_OK +¦ MB_ICONINFORMATION ) ;
end;
begin
if 您的缩进<>两个空格 then
ShowMessage('您的写作风格不符合Delphi书写规范!这并不影响你的程序编译,但会影响阅读')
else
ShowMessage('请参见《Delphi程序书写规范》');
end;
所以用tab