unit setother;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;type
Tsetother_Form = class(TForm)
gzmc_edit: TLabeledEdit;
gzje_edit: TLabeledEdit;
cmdadd: TBitBtn;
cmddel: TBitBtn;
cmdmodi: TBitBtn;
cmdclose: TBitBtn;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure FormCreate(Sender: TObject);
private
procedure mynew;
{ Private declarations }
public
add:boolean;
{ Public declarations }
end;var
setother_Form: Tsetother_Form;implementation{$R *.dfm}procedure Tsetother_Form.FormCreate(Sender: TObject);
begin
mynew;
add:=False;
end;
end.procedure Tsetother_Form.mynew;
begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from gzdm order by gzdm');
ADOQuery1.open;
if ADOQuery1.RecordCount>0 then
begin
cmdadd.Enabled:=true;
cmdmodi.Enabled:=true;
cmddel.Enabled:=true;
cmdclose.Enabled:=true;
end
else
begin
cmdadd.Enabled:=true;
cmdmodi.Enabled:=False;
cmddel.Enabled:=False;
cmdclose.Enabled:=true;
end;
end;
end;
我自定义一个过程,为何有警告?????
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;type
Tsetother_Form = class(TForm)
gzmc_edit: TLabeledEdit;
gzje_edit: TLabeledEdit;
cmdadd: TBitBtn;
cmddel: TBitBtn;
cmdmodi: TBitBtn;
cmdclose: TBitBtn;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure FormCreate(Sender: TObject);
private
procedure mynew;
{ Private declarations }
public
add:boolean;
{ Public declarations }
end;var
setother_Form: Tsetother_Form;implementation{$R *.dfm}procedure Tsetother_Form.FormCreate(Sender: TObject);
begin
mynew;
add:=False;
end;
end.procedure Tsetother_Form.mynew;
begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from gzdm order by gzdm');
ADOQuery1.open;
if ADOQuery1.RecordCount>0 then
begin
cmdadd.Enabled:=true;
cmdmodi.Enabled:=true;
cmddel.Enabled:=true;
cmdclose.Enabled:=true;
end
else
begin
cmdadd.Enabled:=true;
cmdmodi.Enabled:=False;
cmddel.Enabled:=False;
cmdclose.Enabled:=true;
end;
end;
end;
我自定义一个过程,为何有警告?????
解决方案 »
- 分析下灰鸽子源码,为D版增加人气^_^
- 关于注册表操作的问题,非常郁闷,请大家看看!
- 有增强型的RichEdit控件吗给一个!
- help 机器启动后黑屏!!!!!!!!!!!!!11
- 这是怎么回事呀?(在线等候 急急!!)
- 十万火急 请教高手,在一个应用里怎么判断另一个应用程序 如果是打开了就关闭它否则做别的事情?
- 设置什么属性可使DBimage控件与所显示的图片内容的大小相同?
- 怎样才能用程序关闭超级解霸的探测器呀?????????
- inno setup 中不支持数组么?
- 如何管理文件夹的存储空间,高分求救!!!!!!
- ADOQuery内容改变后DBGrid无法刷新
- 有用TAPI 3.0做过呼叫中心的程序吗,有话请给个例子
end;
end;
多了一个end;
begin
mynew;
add:=False;
end;procedure Tsetother_Form.mynew;
begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from gzdm order by gzdm');
ADOQuery1.open;
if ADOQuery1.RecordCount>0 then
begin
cmdadd.Enabled:=true;
cmdmodi.Enabled:=true;
cmddel.Enabled:=true;
cmdclose.Enabled:=true;
end
else
begin
cmdadd.Enabled:=true;
cmdmodi.Enabled:=False;
cmddel.Enabled:=False;
cmdclose.Enabled:=true;
end;
end;end.//这个位置是整个程序结束的地方标志啊,你要把函数写到这个上边的
begin
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from gzdm order by gzdm');
ADOQuery1.open;
if ADOQuery1.RecordCount>0 then
begin
cmdadd.Enabled:=true;
cmdmodi.Enabled:=true;
cmddel.Enabled:=true;
cmdclose.Enabled:=true;
end
else
begin
cmdadd.Enabled:=true;
cmdmodi.Enabled:=False;
cmddel.Enabled:=False;
cmdclose.Enabled:=true;
end;
end;procedure Tsetother_Form.FormCreate(Sender: TObject);
begin
mynew;
add:=False;
end;end.现在编译看看如何呢?