frmdatamanagebase.pas

物流供应链管理系统

unit frmDataManageBase;

interface

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

type
  TFormDataManageBase = class(TForm)
    LCDBOperatTool1: TLCDBOperatTool;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdtId: TDBEdit;
    DBEdtName: TDBEdit;
    DBMemoRemark: TDBMemo;
    DBGrid1: TDBGrid;
    ADOCon: TADOConnection;
    ADOTable: TADOTable;
    DataSource: TDataSource;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormDataManageBase: TFormDataManageBase;

implementation
uses untConfig;
{$R *.dfm}

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

procedure TFormDataManageBase.FormCreate(Sender: TObject);
begin
  ADOCon.Close;
  ADOCon.ConnectionString := GetConnectionString;
  try
    ADOCon.Open;
    ADOTable.Open;
  except
    raise Exception.Create('数据库表打开错误！');
  end;
end;

procedure TFormDataManageBase.FormDestroy(Sender: TObject);
begin
  ADOCon.Close;
end;

end.