【delphi开源代码栏目提醒】：网学会员delphi开源代码为您提供cxxyunit.pas参考，解决您在cxxyunit.pas学习中工作中的难题，参考学习。
unit cxxyunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, ExtCtrls, StdCtrls, ToolWin,
ComCtrls;
type
Tcxxyfrm = class(TForm)
ToolBar1: TToolBar;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Panel1: TPanel;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
qry: TQuery;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
cxxyfrm: Tcxxyfrm;
implementation
uses cxcjxyunit;
{$R *.dfm}
procedure Tcxxyfrm.Button1Click(Sender: TObject);
begin
qry.edit;
qry.Append;
end;
procedure Tcxxyfrm.Button2Click(Sender: TObject);
begin
if application.MessageBox('确实要删除这条记录吗?','提示',mb_okcancel+mb_iconinformation)=id_ok then
with qry do
if isempty=false then
delete;
end;
procedure Tcxxyfrm.Button3Click(Sender: TObject);
begin
qry.edit;
qry.Post;
qry.close;
qry.Open;
end;
procedure Tcxxyfrm.Button4Click(Sender: TObject);
begin
close;
end;
procedure Tcxxyfrm.FormCreate(Sender: TObject);
begin
dbgrid1.readonly:=false;
with qry do
begin
close;
sql.Clear ;
sql.Add('select * from cxcj where kcmc=:name and cxxq=:time');
parambyname('name').asstring:=cxcjxyfrm.combobox1.text;
parambyname('time').asstring:=cxcjxyfrm.maskedit1.text;
open;
end;
end;
end.
上一篇：
cxrkd.pas
下一篇：
Function GetIp(IP) 获得ip asp
2013-9-1
