【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:Deletestock.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit Deletestock;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Buttons, ExtCtrls, DBCtrls, Mask;
type
TDeletestockFrm = class(TForm)
Deletestock_DBNavigator: TDBNavigator;
DeleteStockOk_BitBtn: TBitBtn;
DeleteStockReturn_BitBtn: TBitBtn;
Deletestock_DataSource: TDataSource;
Deletestock_Table: TTable;
Stock_GroupBox: TGroupBox;
FeederID_Label: TLabel;
FeederName_Label: TLabel;
ProductID_Label: TLabel;
ProductName_Label: TLabel;
Spec_Label: TLabel;
unit_Label: TLabel;
Quantity_Label: TLabel;
StockDate_Label: TLabel;
UnitPrice_Label: TLabel;
GroupBox3: TGroupBox;
StockRemark_DBEdit: TDBEdit;
FeederID_DBEdit: TDBEdit;
FeederName_DBEdit: TDBEdit;
ProductID_DBEdit: TDBEdit;
ProductName_DBEdit: TDBEdit;
Spec_DBEdit: TDBEdit;
unit_DBEdit: TDBEdit;
Quantity_DBEdit: TDBEdit;
UnitPrice_DBEdit: TDBEdit;
StockDate_DBEdit: TDBEdit;
procedure DeleteStockReturn_BitBtnClick(Sender: TObject);
procedure DeleteStockOk_BitBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DeletestockFrm: TDeletestockFrm;
implementation
{$R *.dfm}
procedure TDeletestockFrm.DeleteStockReturn_BitBtnClick(Sender: TObject);
begin
DeletestockFrm.hide;
end;
procedure TDeletestockFrm.DeleteStockOk_BitBtnClick(Sender: TObject);
var i:integer;
begin
with Deletestock_Table do
begin
if recordcount=0 then
begin
messagebox(DeletestockFrm.handle,'数据库为空!','警告',mb_ok+mb_iconwarning);
end
else
begin
delete;
update;
for i:=1 to recordcount do
begin
//-------更新进货数据库------
edit;
fieldvalues['stockID']:=inttostr(i);
post;
update;
end;
end;
end;
end;
procedure TDeletestockFrm.FormShow(Sender: TObject);
begin
Deletestock_Table.active:=False;
Deletestock_Table.active:=True;
end;
end.
上一篇:
frmFileSystemSettings.frm
下一篇:
科研管理杂志简介