u_neworder.pas

这是一个用条码录入的数据的进销存(只对成品）---做童装的

unit U_NewOrder;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_base, StdCtrls, Buttons, ExtCtrls, WinSkinData;

type
  TF_base1 = class(TF_base)
    pnl_operate: TPanel;
    btn_insert: TSpeedButton;
    btn_find: TSpeedButton;
    btn_save: TSpeedButton;
    btn_cancel: TSpeedButton;
    btn_delete: TSpeedButton;
    btn_edit: TSpeedButton;
    btn_refresh: TSpeedButton;
    btn_print: TSpeedButton;
    Check: TCheckBox;
    Panel1: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_base1: TF_base1;

implementation

{$R *.dfm}

end.