【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“DeleteSell.pas”一文,供大家参考学习!
unit DeleteSell;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, Buttons, ExtCtrls;
type
TDeleteSellFrm = class(TForm)
DeleteSell_DBNavigator: TDBNavigator;
DeleteSellOk_BitBtn: TBitBtn;
DeleteSellCancel_BitBtn: TBitBtn;
DeleteSell_DataSource: TDataSource;
DeleteSell_Table: TTable;
Sell_GroupBox: TGroupBox;
CustomerID_Label: TLabel;
CustomerName_Label: TLabel;
ProductID_Label: TLabel;
ProductName_Label: TLabel;
Spec_Label: TLabel;
unit_Label: TLabel;
Quantity_Label: TLabel;
SellDate_Label: TLabel;
UnitPrice_Label: TLabel;
Discount_Label: TLabel;
SellRemark_GroupBox: TGroupBox;
SellRemark_DBEdit: TDBEdit;
CustomerID_DBEdit: TDBEdit;
CustomerName_DBEdit: TDBEdit;
ProductID_DBEdit: TDBEdit;
ProductName_DBEdit: TDBEdit;
Spec_DBEdit: TDBEdit;
unit_DBEdit: TDBEdit;
Quantity_DBEdit: TDBEdit;
UnitPrice_DBEdit: TDBEdit;
SellDate_DBEdit: TDBEdit;
Discount_DBEdit: TDBEdit;
procedure DeleteSellCancel_BitBtnClick(Sender: TObject);
procedure DeleteSellOk_BitBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DeleteSellFrm: TDeleteSellFrm;
implementation
{$R *.dfm}
procedure TDeleteSellFrm.DeleteSellCancel_BitBtnClick(Sender: TObject);
begin
DeleteSellFrm.hide;
end;
procedure TDeleteSellFrm.DeleteSellOk_BitBtnClick(Sender: TObject);
var i:integer;
begin
with DeleteSell_Table do
begin
if recordcount=0 then
begin
messagebox(DeleteSellFrm.handle,'数据库为空!','警告',mb_ok+mb_iconwarning);
end
else
begin
delete;
update;
for i:=1 to recordcount do
begin
//-------更新销售数据库------
edit;
fieldvalues['SellID']:=inttostr(i);
post;
update;
end;
end;
end;
end;
procedure TDeleteSellFrm.FormShow(Sender: TObject);
begin
DeleteSell_Table.active:=False;
DeleteSell_Table.active:=True;
end;
end.
上一篇:
frmFilePath.frm
下一篇:
美术教学中网络信息论文