【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-DeleteProduct.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit DeleteProduct;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, StdCtrls, Buttons, DB, DBTables, Mask;
type
TDeleteProductFrm = class(TForm)
DeleteProduct_Table: TTable;
DeleteProduct_DataSource: TDataSource;
DeleteProductOk_BitBtn: TBitBtn;
DeleteProductCancel_BitBtn: TBitBtn;
DeleteProduct_DBNavigator: TDBNavigator;
Product_GroupBox: TGroupBox;
ProductName_Label: TLabel;
Spec_Label: TLabel;
Unit_Label: TLabel;
ProductRemark_GroupBox: TGroupBox;
ProductRemark_DBEdit: TDBEdit;
ProductName_DBEdit: TDBEdit;
Spec_DBEdit: TDBEdit;
Unit_DBEdit: TDBEdit;
procedure DeleteProductCancel_BitBtnClick(Sender: TObject);
procedure DeleteProductOk_BitBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DeleteProductFrm: TDeleteProductFrm;
implementation
{$R *.dfm}
procedure TDeleteProductFrm.DeleteProductCancel_BitBtnClick(Sender: TObject);
begin
DeleteProductFrm.hide;
end;
procedure TDeleteProductFrm.DeleteProductOk_BitBtnClick(Sender: TObject);
var i:integer;
begin
with DeleteProduct_Table do
begin
if recordcount=0 then
begin
messagebox(DeleteProductFrm.handle,'数据库为空!','警告',mb_ok+mb_iconwarning);
end
else
begin
delete;
update;
for i:=1 to recordcount do
begin
//-------更新商品数据库------
edit;
fieldvalues['ProductID']:=inttostr(i);
post;
update;
end;
end;
end;
end;
procedure TDeleteProductFrm.FormShow(Sender: TObject);
begin
DeleteProduct_Table.active:=False;
DeleteProduct_Table.active:=True;
end;
end.
上一篇:
frmFileInfo.frm
下一篇:
心力衰竭的中医证素及常见证型