frmgoodscatemanage.pas

来自「非常地全面完整的物流供应链管理系统 包含全部的需求文档」· PAS 代码 · 共 60 行

unit frmGoodsCateManage;

interface

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

type
  TFormGoodsCate = class(TForm)
    LCDBOperatTool1: TLCDBOperatTool;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdtId: TDBEdit;
    DBEdtName: TDBEdit;
    DBMemo1: TDBMemo;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    SocketConGoodsCate: TSocketConnection;
    cdsGoodsCate: TClientDataSet;
    DSGoodsCate: TDataSource;
    cdsGoodsCateId: TWideStringField;
    cdsGoodsCateName: TWideStringField;
    cdsGoodsCateRemark: TMemoField;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(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
  SetSocketConnectionConnect(SocketConGoodsCate);
end;

procedure TFormGoodsCate.FormDestroy(Sender: TObject);
begin
  SocketConGoodsCate.Close;
end;

end.