Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Reported for Version 3.24 » View Incident Report |
Serious |
Reported By: Rolf Frei Reported On: 4/7/2003 For: Version 3.24 Build 1 |
unit FIncludeEditorMain; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, DBCtrls, DB, DBISAMTb, DBActns, StdActns, ActnList, ImgList, ComCtrls, RFComCtrls, StdCtrls, TB97Ctls, ExtCtrls, Mask; type TfrmMain = class(TForm) Panel2: TPanel; lblWeblink: TLabel; edtWebLink: TDBMemo; rfStatusBar1: TrfStatusBar; dsArtikel: TDataSource; tblArtikel: TDBISAMTable; tblArtikelPartNo: TStringField; tblArtikelWebLink: TMemoField; tblArtikelInfo: TMemoField; tblArtikelEnabled: TSmallintField; DBMemo1: TDBMemo; DBNavigator1: TDBNavigator; Panel3: TPanel; Label1: TLabel; DBEdit1: TDBEdit; procedure edtWebLinkKeyPress(Sender: TObject; var Key: Char); procedure edtWebLinkExit(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure tblArtikelAfterInsert(DataSet: TDataSet); procedure FormCreate(Sender: TObject); private procedure WebLinkValidate; { Private declarations } public { Public declarations } end; var frmMain: TfrmMain; implementation {$R *.DFM} procedure TfrmMain.edtWebLinkKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then Key := #0; end; procedure TfrmMain.edtWebLinkExit(Sender: TObject); begin WebLinkValidate; end; procedure TfrmMain.WebLinkValidate; var s: string; begin if dsArtikel.State in dsEditModes then begin s := tblArtikelWebLink.AsString; //RFMakeCorrectWebLink(s); if s <> tblArtikelWebLink.AsString then begin if s = '' then tblArtikelWebLink.Clear else tblArtikelWebLink.AsString := s; end; end; end; procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if tblArtikel.Active then tblArtikel.FlushBuffers; end; procedure TfrmMain.tblArtikelAfterInsert(DataSet: TDataSet); begin tblArtikelInfo.Clear; end; procedure TfrmMain.FormCreate(Sender: TObject); begin if not tblArtikel.Exists then tblArtikel.CreateTable; tblArtikel.Open; end; end.
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |