transfer.~pas

来自「this is sample for traders」· ~PAS 代码 · 共 46 行

unit Transfer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DynamicSkinForm, DB, StdCtrls, Buttons, JvExControls,
  JvDBLookup, Grids, DBGrids, JvExDBGrids, JvDBGrid, JvDBUltimGrid,
  DBNumEdit, JvToolEdit, JvDBControls, JvExMask, DBCtrls, Mask,
  JvStaticText;

type
  TTransferForm = class(TForm)
    GroupBox1: TGroupBox;
    SplEdit: TJvDBComboEdit;
    Memo1: TMemo;
    GroupBox2: TGroupBox;
    SJNOEDIT: TDBEdit;
    SJDateEdit: TJvDBDateEdit;
    JvStaticText6: TJvStaticText;
    DBEdit2: TDBEdit;
    GroupBox3: TGroupBox;
    LineGrid: TJvDBUltimGrid;
    dbneQTY: TDBNumEdit;
    LkSat: TJvDBLookupCombo;
    btnSave: TBitBtn;
    btnCancel: TBitBtn;
    JvStaticText7: TJvStaticText;
    LineSource: TDataSource;
    PurcSplSource: TDataSource;
    dsPurc: TDataSource;
    dsSatItem: TDataSource;
    spDynamicSkinForm1: TspDynamicSkinForm;
  private
  public
  end;

var
  TransferForm: TTransferForm;

implementation

{$R *.dfm}

end.