u_warehouse.pas

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

unit U_WareHouse;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_Set_Base, DB, ADODB, WinSkinData, Buttons, Grids, DBGridEh,
  ExtCtrls, WinSkinStore, StdCtrls, DBCtrls, Mask;

type
  TF_WareHouse = class(TF_set_base)
    Ado_QueryWarehouseNo: TStringField;
    Ado_QueryWarehouseName: TStringField;
    Ado_QueryWarehouseAdd: TStringField;
    Ado_QueryManager: TStringField;
    Ado_QueryTel: TStringField;
    Ado_QueryMemo: TStringField;
    Label1: TLabel;
    EWarehouseNO: TDBEdit;
    Label2: TLabel;
    EWarehouseName: TDBEdit;
    Label3: TLabel;
    EWarehouseadd: TDBEdit;
    Label4: TLabel;
    EWarehouseman: TDBEdit;
    Label5: TLabel;
    EWarehouseTel: TDBEdit;
    Label6: TLabel;
    EWarehousememo: TDBMemo;
    procedure btn_insertClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_WareHouse: TF_WareHouse;

implementation

uses U_DM, U_Function;

{$R *.dfm}

procedure TF_WareHouse.btn_insertClick(Sender: TObject);
begin
EWarehouseNO.SetFocus;
  inherited;

end;

procedure TF_WareHouse.FormCreate(Sender: TObject);
begin
  inherited;
Height:=383;
Width:=604;
Opensql(Ado_query,'Select * from Iwarehouse');
end;

end.