Hi,
I have a DBGrid(name = DBGrid1) and a panel(name = Panel1), all are inside a panel(name = pnlMain).
In Panel1 I put several TDBEdit.
AlwaysShowEditor in DBGrid1.Option set to true.
Whenever I am changing cell focus to another, It caused flicker in Panel1.
Anybody know how to eliminate the...
let just say we have a List with this Items:
Index Item String
----- -----------
0 Item1
1 Item1
2 Item2
3 Item3
4 Item3
5 Item3
We have 6 items here.
Index #5 is the first we have in the iteration.
According to your code, index #4 and #3 will be...
Here it is,
I decided to use this code (after some experiment)
function ChangeColor(AColor: TColor; Lighten: boolean): TColor;
var
r,g,b: extended;
aRGBCol: integer;
begin
aRGBCol:= ColorToRGB(AColor);
r := GetRValue(aRGBCol);
g := GetGValue(aRGBCol);
b := GetBValue(aRGBCol);
if...
Hi,
We all know about system color in Delphi:
clBtnFace and clBtnShadow.
clBtnShadow is always darker than clBtnFace.
clBtnShadow is generated by Windows automatically when we change the clBtnFace (through display properties in windows control panel)
Is there any function or API function to...
thanks Jim/jbenson001,
I guess by selecting each table is the only solution I can afford right now.
And by creating stored procedure making it more effective and the maintenance will be a lot easier (if more tables added to relationship).
I keep wondering why I haven't think about it.
A star for...
thanks Jim,
Yes, that is what I am doing now.
here is the code:
begin tran
delete from TableA where AId = '001'
rollback tran
It will generate error if the record has been used (and the application trap it and display message).
But I don't think this is a good solution, considering the locking...
haha, thanks DNG.
Here is what I am trying to do exactly.
I am trying to delete one record in TableA (AId = 001),
but It has been used as foreign key in other tables (more than one table).
If the record has been used in other tables, the record is not supposed to be deleted.
And the application...
Hi,
Is there a way to find out that a record has been used as foreign key in other tables (without using SELECT syntax)?
example:
- TableA
AId AName
------ ---------
001 Anonymous1
002 Anonymous2
- TableB
BId BName AId
------ --------- ------...
thanks for the response.
I have already tried to copy the fbclient.dll to windows\system32 (I am using Windows XP Pro) and rename it into gds32.dll. The connection went perfectly.
Tried to create simple app using IBTable, and it works.
But I don't know if there's any issues using Interbase...
Hi,
Recently, I am trying to use Firebird 1.5.2 and Delphi 7 for my new database application project.
Can I use Interbase Express vcl on firebird database?
thanks in advance,
Indra Gunawan
Is It DB controls you are using?
Then try this:
if (Self.ActiveControl is TDBEdit) then
ShowMessage('Name is '+ (Self.ActiveControl as TDBEdit).DataField);
thanks a lot...
All this time I kept wondering what happenned to my IE.
So that is it.. I used to be blind but know I can see..
Thank you so much, I really appreciate that..
A star for you (I would like to give you more, but..)
cheers,
Indra Gunawan
Hi, I'm desperately need help..
Whenever I browse to www.google.com using IE, it show like this:
Index of /
Name Last modified Size Description
--------------------------------------------------------------------------------
Parent Directory 05-Sep-2004 16:24...
i think the alignment of subitems is depent on the alignment of the columnsheader.
so i guess setting the columnheaders alignment to center will make the subitems to be in center also.
maybe this code could help:
daydifference = DateDiff("d", datevalue1, datevalue2)
hour = DatePart("h", datevalue1)
If daydifference <= 1 Then
If hour >= 23 Or hour <= 2 Then
IsValid = True
If hour = 2 And min > 0 Then
IsValid = False
End If
Else...
I guess, EXEC(@SqlStr2) is used because you are using table with random number on the back of table name, to avoid same table table name every time that stored proc is executed.
If you use #TempTable, you don't need to add random number into that table name. The name of that temporary table is...
I give you this select query, from this you can create derived table or temporary table, anyway you want..
nothing fancy, but it works
select A.OrderNo, A.CostingDate,
case when B.LastCostingDate is null then
(select min(Table2.TranDate) from Table2
where Table2.OrderNo = A.OrderNo...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.