【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-bjglunit.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit bjglunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls, ComCtrls, ToolWin, DB, ADODB,
DBTables;
type
Tbjgl = class(TForm)
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Panel1: TPanel;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
qry: TQuery;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure DBGrid1ColExit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
bjgl: Tbjgl;
implementation
uses jbsrunit;
{$R *.dfm}
procedure Tbjgl.Button4Click(Sender: TObject);
begin
close;
end;
procedure Tbjgl.Button1Click(Sender: TObject);
begin
qry.edit;
qry.Append;
end;
procedure Tbjgl.Button2Click(Sender: TObject);
begin
if application.MessageBox('确实要删除这条记录吗?','提示',mb_okcancel+mb_iconinformation)=id_ok then
with qry do
if isempty=false then
delete;
end;
procedure Tbjgl.Button3Click(Sender: TObject);
begin
qry.edit;
qry.Post;
qry.close;
qry.Open;
end;
procedure Tbjgl.DBGrid1ColExit(Sender: TObject);
begin
qry.Edit;
dbgrid1.Fields[4].Text:=jbsrtemp.combobox1.text;
end;
end.