Как скопировать таблицу DBF в IB.

← →
goldenmax © (2004-10-18 10:10) [0]

Доброго времени суток. Ребята подскажите как скопировать таблицу DBF в таблицу IB. Если можно с примером плиз.

← →
Submarine (2004-10-18 10:13) [1]

На прямую незнаю, а через БДЕ лови :
bm : TBitMap;
min3:integer;

implementation

{$R *.DFM}
{$R bground.RES}

procedure TForm1.FormCreate(Sender: TObject);
VAR
ResStream : TResourceStream;
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
bm := TBitMap.Create;
ResStream := nil;
try
ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
bm.LoadFromStream(ResStream);
finally
ResStream.Free;
end;
Present:= Now-1/24;
DecodeDate(Present, Year, Month, Day);
qryPrihod.SQL[4]:="and timeval >"+"""+IntToStr(Month)+"/"+IntToStr(Day)+"/"+IntToStr(Year) +""";
qryPrihod.open;
rxLabel2.Caption:=IntToStr(qryPrihod.RecordCount);

end;

procedure TForm1.FormPaint(Sender: TObject);
var
x, y: integer;
begin
for x := 0 to form1.ClientWidth div bm.Width do
for y := 0 to form1.ClientHeight div bm.Height do
form1.Canvas.Draw(x * bm.Width, y * bm.Height, bm);

end;

procedure TForm1.RxSpeedButton2Click(Sender: TObject);
var x, ROW: integer;
begin
Screen.Cursor := crHourGlass;
// Перенос данных
if qryPLOGDATA_N.Active then qryPLOGDATA_N.Close;
qryPLOGDATA_N.Open;
x:= qryPrihod.RecordCount;
ROW:=1;
g1.show;
g1.MaxValue:=x;
g1.MinValue :=0;
qryPrihod.first;
WHILE (row<=x) do begin
qryPLOGDATA_N.insert;
qryPLOGDATA_NSHLEIF.Value:=qryPrihodshleif.value;
qryPLOGDATA_NTIMEVAL.Value:=qryPrihodtimeval.Value;
qryPLOGDATA_NHOZORGAN.Value:=qryPrihodhozorgan.Value;
qryPLOGDATA_NREMARK.Value:=qryPrihodremark.value;
g1.Progress:=row-3;
qryPLOGDATA_N.Post;
qryPrihod.Next;
INC(ROW);
end;
qryPLOGDATA_N.Close;
Screen.Cursor := crDefault;

end;

procedure TForm1.qryPLOGDATA_NAfterPost(DataSet: TDataSet);
var DS: TDBDataSet;
begin
DS := TDBDataSet(DataSet);
try
INCHELSUD.ApplyUpdates([DS]);
except
ShowMessage("Не удается сохранить изменения на сервере. "+
"Проверьте данные или обратитесь к администратору базы данных");
DS.CancelUpdates;
end;//try

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
rxLabel4.Caption:=Format("%2d : %2d",[Min3 div 60, Min3 mod 60 ]);
Dec(Min3);
if Min3<0 then begin
rxSpeedButton1.Click;
end;

end;

procedure TForm1.RxSpeedButton1Click(Sender: TObject);
var dd: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
ll, ln: string;
x, ROW: integer;
begin
dd:= Now-1/24;
DecodeDate(dd, Year, Month, Day);
ll:=IntToStr(Month)+"/"+IntToStr(Day)+"/"+IntToStr(Year);
DecodeTime(dd,Hour, Min, Sec, MSec);
ln:=IntToStr(Hour)+":"+IntToStr(Min)+":"+ IntToStr(Sec);
Screen.Cursor := crHourGlass;
if qryPrihod.Active then qryPrihod.Close;
// Перенос данных
qryPrihod.SQL[4]:="and timeval >"+"""+ll+" "+ln+""";
Screen.Cursor := crHourGlass;
qryPrihod.open;
// Перенос данных
if qryPLOGDATA_N.Active then qryPLOGDATA_N.Close;
qryPLOGDATA_N.Open;
x:= qryPrihod.RecordCount;
ROW:=1;
g1.show;
g1.MaxValue:=x;
g1.MinValue :=0;
qryPrihod.first;
WHILE (row<=x) do begin
qryPLOGDATA_N.insert;
qryPLOGDATA_NSHLEIF.Value:=qryPrihodshleif.value;
qryPLOGDATA_NTIMEVAL.Value:=qryPrihodtimeval.Value;
qryPLOGDATA_NHOZORGAN.Value:=qryPrihodhozorgan.Value;
qryPLOGDATA_NREMARK.Value:=qryPrihodremark.value;
g1.Progress:=row-3;
qryPLOGDATA_N.Post;
qryPrihod.Next;
INC(ROW);
end;
qryPLOGDATA_N.Close;
timer1.enabled:=true;
Min3:=60*60;

end;

procedure TForm1.FormActivate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;

end.

← →
Submarine (2004-10-18 10:15) [2]

Здесь qryPrihod -имя query из которой копируем, qryPLOGDATA_N -куда копируем.

← →
Ильш (2004-10-18 11:04) [3]

а IB Import конечно не судьба же найти да???

← →
Submarine (2004-10-18 15:02) [4]

> Ильш
Скажи, а он вообще из каких форматов может копировать ?
Или кинь ссылку, где есть описание.

> goldenmax © (18.10.04 10:10)
> Доброго времени суток. Ребята подскажите как скопировать
> таблицу DBF в таблицу IB. Если можно с примером плиз.

TBatchMove
Пример - одна строчка BatchMove.Execute

Как скопировать таблицу DBF в IB. Найти похожие ветки