主窗体unit
主窗体对象,
通过主窗体打开一个子窗体.
子窗体在implement里循环引用了主窗体unit,
子窗体做完事情后关闭, 想调用主窗体的close方法,让他关闭,可是没反应,主窗体关不掉,怎么办呀?
但调用他的其他方法就可以了,为什么呀?
什么代码？
unit OrderNewBookUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TntStdCtrls, Grids,
TntGrids, YxAdvSGrid,UpdateOrderUnit;
type
TOrderNewBookForm = class(TForm)
///////////////////////
procedure TOrderNewBookForm.updateTntButtonClick(Sender: TObject);
var
updateOrderForm:TupdateOrderForm;
begin
updateOrderForm:=TupdateOrderForm.Create(self);
updateOrderForm.YxAdvSGrid1:=YxAdvSGrid1;
updateOrderForm.FormStyle := fsMDIChild;
updateOrderForm.Show;
end;
///子窗体的代码:
unit UpdateOrderUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TntStdCtrls, ExtCtrls, TntExtCtrls,
YxAdvSGrid,unitDataType,UnitPublic,UnitConst
type
TupdateOrderForm = class(TForm)
var
updateOrderForm: TupdateOrderForm;
issuingData
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
