u_iband.pas

来自「此系统是一个专门为一个童装行业客户做的。。“产品”进销存系统」· PAS 代码 · 共 51 行

unit U_IBand;

interface

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

type
  TF_IBand = class(TF_set_base)
    Ado_QueryBrandno: TStringField;
    Ado_QueryBrandname: TStringField;
    Label1: TLabel;
    EBrandNO: TDBEdit;
    Label2: TLabel;
    EBrandname: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    procedure btn_insertClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_IBand: TF_IBand;

implementation

uses U_DM, U_Function;

{$R *.dfm}

procedure TF_IBand.btn_insertClick(Sender: TObject);
begin
  EBrandNo.SetFocus;
  inherited;

end;

procedure TF_IBand.FormCreate(Sender: TObject);
begin
  inherited;
  Opensql(Ado_query,'Select * from IBrand');
end;

end.