لطفا ترفندهای برنامه نویسی خود را در این قسمت بنویسید .
از آقای حسنلو خواهش میکنم در صورت امکان یک Category به این مطلب اختصاص بدهند .
نمی دونم این بدرد می خوره یا نه ولی برای باز کردن اتوماتیک پایگاهها نوشتم
Function TDm.OpenDataBase:Boolean;
Var
I : Integer;
Ok : Boolean;
begin
Ok :=True;
For I :=0 To ComponentCount-1 Do
If Components[I].ClassType=TTable Then
Begin
Try
If TTable(FindComponent(Components[I].Name)).TableName<>'' Then
TTable(FindComponent(Components[I].Name)).Open;
Except
Ok :=False;
End;
End;
OpenDataBase:=Ok;
end;
اینو برای درست نوشتن تاریخ ایجاد کردم
Function TDm.CompleateDate(St:String):String;
Const
TYr ='1300';
TN ='00';
Var
Sy,Sm,Sd : String;
begin
CompleateDate:='';
If Not IsValidDate(St) Then
Exit;
SY:=Trim(Copy(St,1,Pos('/',St)-1));
Delete(St,1,Pos('/',St));
SM:=Trim(Copy(St,1,Pos('/',St)-1));
Delete(St,1,Pos('/',St));
SD:=St;
Sy:=Copy(TYr,1,4-Length(Sy))+SY;
SM:=Copy(TN,1,2-Length(SM))+SM;
SD:=Copy(TN,1,2-Length(SD))+SD;
CompleateDate:=Sy+'/'+SM+'/'+SD;
end;
وظیفه این تابع دریافت نام 1 پایگاه و بازگردادندن کلید بعدی یا مقدار اولیه می باشد
Function TDmF2.TellMeKey(InTable: TTable; InFld:String;Start:Integer):Integer;
begin
TTemp.Close;
TTemp.Filter:=InTable.Filter;
TTemp.Filtered:=InTable.Filtered;
TTemp.DatabaseName:=InTable.DatabaseName;
TTemp.TableName:=InTable.TableName;
TTemp.MasterSource:=Nil;
TTemp.MasterFields:='';
TTemp.MasterSource:=InTable.MasterSource;
TTemp.MasterFields:=InTable.MasterFields;
TTemp.Open;
TTemp.Last;
If TTemp.RecordCount=0 Then
TellMeKey:=Start
Else
TellMeKey:=TTemp.FieldByName(InFld).AsInteger+1;
TTemp.Close;
end;
http://www.geocities.com/b_yaghobi/tips/index.html
پاسخ با نقل قول
