frmgoodscate.pas

物流供应链管理系统

unit frmGoodsCate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, LCDBOperatTool, DBCtrls, Mask, DB, ADODB,
  Grids, DBGrids;

type
  TFormGoodsCate = class(TForm)
    LCDBOperatTool1: TLCDBOperatTool;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBMemo1: TDBMemo;
    ADOTGoodsCate: TADOTable;
    DSGoodsCate: TDataSource;
    DBGrid1: TDBGrid;
    ADOTGoodsCateId: TWideStringField;
    ADOTGoodsCateName: TWideStringField;
    ADOTGoodsCateRemark: TMemoField;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormGoodsCate: TFormGoodsCate;

implementation
uses untConfig;
{$R *.dfm}

procedure TFormGoodsCate.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
  Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TFormGoodsCate.FormCreate(Sender: TObject);
begin
  ADOTGoodsCate.ConnectionString := GetConnectionString;
  try
    ADOTGoodsCate.Open;
  except
    raise;
  end;
end;

end.