u_base_group.pas

来自「这是一个用条码录入的数据的进销存(只对成品）---做童装的」· PAS 代码 · 共 51 行

unit U_Base_Group;

interface

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

type
  TF_Base_Group = class(TF_set_base)
    Ado_QueryGroupNO: TStringField;
    Ado_QueryGroupName: TStringField;
    Label1: TLabel;
    EGroupno: TDBEdit;
    Label2: TLabel;
    EGroupname: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btn_insertClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Base_Group: TF_Base_Group;

implementation

uses U_DM, U_Function;

{$R *.dfm}

procedure TF_Base_Group.FormCreate(Sender: TObject);
begin
  inherited;
Opensql(Ado_Query,'Select * from IGroup');
end;

procedure TF_Base_Group.btn_insertClick(Sender: TObject);
begin
  EGroupno.SetFocus;
  inherited;
//
end;

end.