sellorderstatus.pas

来自「三层ERP系统 (SQL)」· PAS 代码 · 共 67 行

unit SellOrderStatus;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BillStatus, DB, DBClient, ActnList, Grids, DBGridEh, StdCtrls,
  Mask, wwdbedit, ExtCtrls, DBCtrlsEh, DBCtrls, MSNPopUp;

type
  TfrmSellOrderStatus = class(TfrmbillStatus)
    CDSdetailfid: TAutoIncField;
    CDSdetailfsn: TIntegerField;
    CDSdetailfresid: TIntegerField;
    CDSdetailfpqty: TBCDField;
    CDSdetailfqty: TBCDField;
    CDSdetailfoutqty: TBCDField;
    CDSdetailfbackqty: TBCDField;
    CDSdetailfunitprice: TBCDField;
    CDSdetailfcode: TWideStringField;
    CDSdetailfname: TWideStringField;
    CDSdetailfspec: TWideStringField;
    CDSdetailfunitname: TWideStringField;
    CDSdetailfrefprice: TBCDField;
    CDSdetailfamount: TFloatField;
    Label7: TLabel;
    wwDBEdit4: TwwDBEdit;
    Label8: TLabel;
    wwDBEdit2: TwwDBEdit;
    Label11: TLabel;
    wwDBEdit6: TwwDBEdit;
    wwDBEdit9: TwwDBEdit;
    Label14: TLabel;
    Label18: TLabel;
    DBMemo3: TDBMemo;
    Label13: TLabel;
    Label12: TLabel;
    wwDBEdit7: TwwDBEdit;
    Label10: TLabel;
    wwDBEdit3: TwwDBEdit;
    wwDBEdit5: TwwDBEdit;
    wwDBEdit8: TwwDBEdit;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSellOrderStatus: TfrmSellOrderStatus;

implementation

{$R *.dfm}

procedure TfrmSellOrderStatus.FormDestroy(Sender: TObject);
begin
  inherited;
  frmSellOrderStatus:=nil;
end;

procedure TfrmSellOrderStatus.FormCreate(Sender: TObject);
begin
  inherited;
  FormCaption:='綪扳虫