| Kaf_Dağı | 18 Mart 2015 14:16 |
kaydedip kullanamayabilirsiniz fakat bir çok konuda örnek bulabilirsiniz
Kod:
unit kayitgrid;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,ramazan,DB, DBTables,bde, ExtCtrls, Buttons, ComCtrls, StrUtils, DBGrids, menus;
type
Tkayitgrid = class(TComponent)
private
FDRbGrid:TDBGrid;
Fregkey:String;
fg:TForm;
Panel1: TPanel;
Panel2: TPanel;
GR: TLabel;
FR: TLabel;
Panel3: TPanel;
SY: TComboBox;
SUTUN: TLabel;
SR: TLabel;
SF: TLabel;
PCL: TMemo;
Panel4: TPanel;
BASLIK: TLabel;
BR: TLabel;
BF: TLabel;
BY: TComboBox;
CP: TEdit;
Panel5: TPanel;
Button1: TButton;
fayarlakapali,fexceleaktarkapali:Boolean;
procedure Sayarlakapali(Value:Boolean);
procedure ***celeaktarkapali(Value:Boolean);
procedure sDRbGrid(Value:TDBGrid);
procedure Sregkey(Value:String);
procedure GRClick(Sender: TObject);
procedure FRClick(Sender: TObject);
procedure SRClick(Sender: TObject);
procedure SFClick(Sender: TObject);
procedure BRClick(Sender: TObject);
procedure BFClick(Sender: TObject);
{ Private declarations }
protected
procedure kaydetClick(Sender: TObject);
procedure AyarlaClick(Sender: TObject);
procedure AyarlasilClick(Sender: TObject);
procedure exceleaktarClick(Sender:TObject);
procedure regarastir;
{ Protected declarations }
public
constructor Create(aOwner: TComponent); override;
destructor Destroy; override;
procedure menuolustur;
{ Public declarations }
published
property DRbGrid:TDBGrid read FDRbGrid write sDRbGrid;
property Regkey:String read Fregkey write Sregkey;
property AYARLARKAPALI:Boolean READ fayarlakapali WRITE Sayarlakapali;
property EXCELLEAKTARKAPALI:Boolean READ fexceleaktarkapali WRITE ***celeaktarkapali;
{ Published declarations }
end;
procedure Register;
implementation
uses
Registry, ComObj;
procedure Register;
begin
RegisterComponents('Ramazan', [Tkayitgrid]);
end;
{ Tkayitgrid }
constructor Tkayitgrid.Create(aOwner: TComponent);
begin
inherited Create(aOwner);
Regkey:='SoftwareRamazan\'+TForm(aOwner).Name;
end;
destructor Tkayitgrid.Destroy;
begin
inherited Destroy;
end;
procedure Tkayitgrid.menuolustur;
var
XMenuItem : TMenuItem;
popup:TPopupMenu;
begin
if DRbGrid.PopupMenu<>nil then
begin
xMenuItem := TMenuItem.Create(DRbGrid.PopupMenu.Items); XMenuItem.Caption := '-'; DRbGrid.PopupMenu.Items.Add(XMenuItem);
if not AYARLARKAPALI then
begin
XMenuItem := TMenuItem.Create(DRbGrid.PopupMenu.Items); XMenuItem.Caption := 'Kaydet'; XMenuItem.OnClick :=kaydetClick ; DRbGrid.PopupMenu.Items.Add(XMenuItem);
XMenuItem := TMenuItem.Create(DRbGrid.PopupMenu.Items); XMenuItem.Caption := 'Ayarla'; XMenuItem.OnClick :=AyarlaClick ; DRbGrid.PopupMenu.Items.Add(XMenuItem);
xMenuItem := TMenuItem.Create(DRbGrid.PopupMenu.Items); XMenuItem.Caption := '-'; DRbGrid.PopupMenu.Items.Add(XMenuItem);
XMenuItem := TMenuItem.Create(DRbGrid.PopupMenu.Items); XMenuItem.Caption := 'Ayarları Sil'; XMenuItem.OnClick :=AyarlasilClick ; DRbGrid.PopupMenu.Items.Add(XMenuItem);
end;
if not EXCELLEAKTARKAPALI then
begin
XMenuItem := TMenuItem.Create(DRbGrid.PopupMenu.Items); XMenuItem.Caption := 'Excele Aktar'; XMenuItem.OnClick :=exceleaktarClick ; DRbGrid.PopupMenu.Items.Add(XMenuItem);
end;
end
else
begin
popup:= TPopUpMenu.Create(Self);
if not AYARLARKAPALI then
begin
XMenuItem := TMenuItem.Create(popup.Items); XMenuItem.Caption := 'Kaydet'; XMenuItem.OnClick :=kaydetClick ; Popup.Items.Add(XMenuItem);
XMenuItem := TMenuItem.Create(popup.Items); XMenuItem.Caption := 'Ayarla'; XMenuItem.OnClick :=AyarlaClick ; Popup.Items.Add(XMenuItem);
xMenuItem := TMenuItem.Create(Popup.Items); XMenuItem.Caption := '-'; Popup.Items.Add(XMenuItem);
XMenuItem := TMenuItem.Create(popup.Items); XMenuItem.Caption := 'Ayarları Sil'; XMenuItem.OnClick :=AyarlasilClick ; Popup.Items.Add(XMenuItem);
end;
if not EXCELLEAKTARKAPALI then
begin
XMenuItem := TMenuItem.Create(popup.Items); XMenuItem.Caption := 'Excele Aktar'; XMenuItem.OnClick :=exceleaktarClick ; Popup.Items.Add(XMenuItem);
end;
DRbGrid.PopupMenu:=popup;
end;
regarastir;
end;
procedure Tkayitgrid.sDRbGrid(Value: TDBGrid);
begin
FDRbGrid:=value;
end;
procedure Tkayitgrid.Sregkey(Value: String);
begin
Fregkey:=Value;
end;
function aligmenttostr(alig:TAlignment):string;
begin
if alig=taLeftJustify then Result:='Solda';
if alig=taRightJustify then Result:='Sagda';
if alig=taCenter then Result:='Ortada';
end;
function strtoaligment(yon:string):TAlignment;
begin
if yon='Solda' then Result:=taLeftJustify
else
if yon='Sagda'then Result:=taRightJustify
else
if yon='Ortada'then Result:=taCenter
else
Result:=taLeftJustify;
end;
function tml(x:integer):string;
begin
if Length(inttostr(x))=1 then
Result:='0'+inttostr(x)
else
Result:=inttostr(x)
end;
procedure Tkayitgrid.kaydetClick(Sender: TObject);
var r:TRegistry;
sd:string;
x:integer;
begin
r:=TRegistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
sd:=Regkey+''+DRbGrid.Name;
r.DeleteKey(sd);
r.OpenKey(sd,True);
r.WriteString('Color',ColorToString(DRbGrid.Color));
r.WriteString('FixedColor',ColorToString(DRbGrid.FixedColor));
r.WriteInteger('AlanSayısı',DRbGrid.Columns.Count-1);
for x:=0 to DRbGrid.Columns.Count-1 do
begin
r.OpenKey(sd+''+tml(x),True);
r.WriteString('Aligment',aligmenttostr(DRbGrid.Columns[x].Alignment));
r.WriteString('Color',ColorToString(DRbGrid.Columns[x].Color));
r.WriteString('Fieldname',DRbGrid.Columns[x].FieldName);
r.WriteString('FontName',DRbGrid.Columns[x].Font.Name);
r.WriteString('FontColor',ColorToString(DRbGrid.Columns[x].Font.Color));
r.WriteInteger('Fontsize',DRbGrid.Columns[x].Font.Size);
if DRbGrid.Columns[x].Font.Style=DRbGrid.Columns[x].Font.Style+[fsBold] then r.WriteBool('FontStylefsBold',True) else r.WriteBool('FontStylefsBold',False);
if DRbGrid.Columns[x].Font.Style=DRbGrid.Columns[x].Font.Style+[fsItalic] then r.WriteBool('FontStylefsItalic',True) else r.WriteBool('FontStylefsItalic',False);
if DRbGrid.Columns[x].Font.Style=DRbGrid.Columns[x].Font.Style+[fsUnderline] then r.WriteBool('FontStylefsUnderline',True)else r.WriteBool('FontStylefsUnderline',False);
if DRbGrid.Columns[x].Font.Style=DRbGrid.Columns[x].Font.Style+[fsStrikeOut] then r.WriteBool('FontStylefsStrikeOut',True)else r.WriteBool('FontStylefsStrikeOut',False);
r.WriteString('Picklist',DRbGrid.Columns[x].PickList.Text);
r.WriteBool('ReadOnly',DRbGrid.Columns[x].ReadOnly);
r.WriteString('TitleAligment',aligmenttostr(DRbGrid.Columns[x].Title.Alignment));
r.WriteString('TitleCaption',DRbGrid.Columns[x].Title.Caption);
r.WriteString('TitleColor',ColorToString(DRbGrid.Columns[x].Title.Color));
r.WriteString('TitleFontName',DRbGrid.Columns[x].Title.Font.Name);
r.WriteString('TitleFontColor',ColorToString(DRbGrid.Columns[x].Title.Font.Color));
r.WriteInteger('TitleFontsize',DRbGrid.Columns[x].Title.Font.Size);
if DRbGrid.Columns[x].Title.Font.Style=DRbGrid.Columns[x].Title.Font.Style+[fsBold] then r.WriteBool('TitleFontStylefsBold',True) else r.WriteBool('TitleFontStylefsBold',False);
if DRbGrid.Columns[x].Title.Font.Style=DRbGrid.Columns[x].Title.Font.Style+[fsItalic] then r.WriteBool('TitleFontStylefsItalic',True) else r.WriteBool('TitleFontStylefsItalic',False);
if DRbGrid.Columns[x].Title.Font.Style=DRbGrid.Columns[x].Title.Font.Style+[fsUnderline] then r.WriteBool('TitleFontStylefsUnderline',True)else r.WriteBool('TitleFontStylefsUnderline',False);
if DRbGrid.Columns[x].Title.Font.Style=DRbGrid.Columns[x].Title.Font.Style+[fsStrikeOut] then r.WriteBool('TitleFontStylefsStrikeOut',True)else r.WriteBool('TitleFontStylefsStrikeOut',False);
r.WriteBool('Visible',DRbGrid.Columns[x].Visible);
r.WriteInteger('Width',DRbGrid.Columns[x].Width);
end;
R.CloseKey;
R.Free;
end;
procedure Tkayitgrid.regarastir;
var
r:TRegistry;
sd:string;
x:integer;
begin
r:=TRegistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
sd:=Regkey+''+DRbGrid.Name;
if r.OpenKey(sd,False) then
begin
if r.ValueExists('AlanSayısı') then
begin
for x:=0 to r.ReadInteger('AlanSayısı') do
DRbGrid.Columns.Delete(0);
DRbGrid.Color:=StringToColor(r.ReadString('Color'));
DRbGrid.FixedColor:=StringToColor(r.ReadString('FixedColor'));
for x:=0 to r.ReadInteger('AlanSayısı') do
begin
if r.OpenKey(sd+''+tml(x),False)then
begin
DRbGrid.Columns.Add;
DRbGrid.Columns[x].Alignment:=strtoaligment(r.readString('Aligment'));
DRbGrid.Columns[x].Color:=StringToColor(r.readString('Color'));
DRbGrid.Columns[x].FieldName:=r.readString('Fieldname');
DRbGrid.Columns[x].Font.Name:=r.readString('FontName');
DRbGrid.Columns[x].Font.Color:=StringToColor(r.readString('FontColor'));
DRbGrid.Columns[x].Font.Size:=r.readInteger('Fontsize');
if r.readBool('FontStylefsBold') then DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style+[fsBold] else DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style-[fsBold];
if r.readBool('FontStylefsItalic') then DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style+[fsItalic] else DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style-[fsItalic];
if r.readBool('FontStylefsUnderline') then DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style+[fsUnderline] else DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style-[fsUnderline];
if r.readBool('FontStylefsStrikeOut') then DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style+[fsStrikeOut] else DRbGrid.Columns[x].Font.Style:=DRbGrid.Columns[x].Font.Style-[fsStrikeOut];
DRbGrid.Columns[x].PickList.Text:=r.readString('Picklist');
DRbGrid.Columns[x].ReadOnly:=r.readBool('ReadOnly');
DRbGrid.Columns[x].Title.Alignment:=strtoaligment(r.readString('TitleAligment'));
DRbGrid.Columns[x].Title.Caption:=r.readString('TitleCaption');
DRbGrid.Columns[x].Title.Color:=StringToColor(r.readString('TitleColor'));
DRbGrid.Columns[x].Title.Font.Name:=r.readString('TitleFontName');
DRbGrid.Columns[x].Title.Font.Color:=StringToColor(r.readString('TitleFontColor'));
DRbGrid.Columns[x].Title.Font.Size:=r.readInteger('TitleFontsize');
if r.readBool('TitleFontStylefsBold') then DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style+[fsBold] else DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style-[fsBold];
if r.readBool('TitleFontStylefsItalic') then DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style+[fsItalic] else DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style-[fsItalic];
if r.readBool('TitleFontStylefsUnderline') then DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style+[fsUnderline] else DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style-[fsUnderline];
if r.readBool('TitleFontStylefsStrikeOut') then DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style+[fsStrikeOut] else DRbGrid.Columns[x].Title.Font.Style:=DRbGrid.Columns[x].Title.Font.Style-[fsStrikeOut];
DRbGrid.Columns[x].Visible:=r.readBool('Visible');
DRbGrid.Columns[x].Width:=r.readInteger('Width');
end;
end;
end;
end;
R.CloseKey;
R.Free;
end;
procedure Tkayitgrid.AyarlaClick(Sender: TObject);
var
sa,xp:integer;
begin
sa:=Screen.Width;
xp:=DRbGrid.SelectedIndex;
if (DRbGrid.Columns[xp].Width*2)<(sa-30) then sa:=DRbGrid.Columns[xp].Width*2 else sa:=sa-30;
fg:=TForm.Create(Application);
with fg do
begin
BorderIcons:=[];
BorderStyle:=bsDialog;
Position:=poScreenCenter;
AutoSize:=True;
Width:=200;
ShowHint:=True;
Panel1:=TPanel.Create(fg);
with Panel1 do
begin
Parent:=fg;
Left := 408;
Top := 0;
Width := sa;
Height := 273;
TabOrder := 1 ;
end;
Panel2:=TPanel.Create(fg);
with Panel2 do
begin
Parent:=Panel1;
Left := 1;
Top := 1;
Width := sa-2;
Height := 28;
TabOrder := 0;
end;
gr:=TLabel.Create(fg);
with gr do
begin
Parent:=Panel2;
AutoSize:=False;
Left := 1;
Top := 1;
Width := sa-4;
Height := 13;
Alignment := taCenter;
Caption := 'GRID RENGI';
OnClick := GRClick;
Color:=DRbGrid.Color;
end;
fr:=TLabel.Create(fg);
with fr do
begin
Parent:=Panel2;
AutoSize:=False;
Left := 1;
Top := 14;
Width := sa-4;
Height := 13;
Alignment := taCenter;
Caption := 'FIXED RENGI';
OnClick := FRClick;
Color:=DRbGrid.FixedColor;
end;
Panel3:=TPanel.Create(fg);
with Panel3 do
begin
Parent:=Panel1;
Left := 1;
Top := 29;
Width := sa-2;
Height := 132;
TabOrder := 1;
end;
sutun:=TLabel.Create(fg);
with sutun do
begin
Parent:=Panel3;
AutoSize:=False;
Left := 1;
Top := 1 ;
Width := sa-4;
Height := 13;
Alignment := taCenter;
Caption := 'SUTUN';
end;
SR:=TLabel.Create(fg);
with SR do
begin
Parent:=Panel3;
AutoSize:=False;
Left := 1;
Top := 35;
Width := sa-4;
Height := 13;
Alignment := taCenter;
Caption := 'SUTUN RENGI';
OnClick := SRClick;
Color:=DRbGrid.Columns[xp].Color;
END;
SF:=TLabel.Create(fg);
with SF do
begin
Parent:=Panel3;
AutoSize:=False;
Left := 1;
Top := 48;
Width := sa-4;
Height := 13;
Alignment := taCenter;
Caption := 'SUTUN FONTU';
OnClick := SFClick;
Font:=DRbGrid.Columns[xp].Font;
end;
SY:=TComboBox.Create(fg);
with SY do
begin
Parent:=Panel3;
Left := 1;
Top := 14;
Width := sa-4;
Height := 21;
Style := csDropDownList;
ItemHeight := 13;
TabOrder := 0;
Items.Add('Sagda');
Items.Add('Solda');
Items.Add('Ortada');
ItemIndex:=Items.IndexOf(aligmenttostr(DRbGrid.Columns[xp].Alignment));
end;
PCL:=TMemo.Create(fg);
with PCL do
begin
Parent:=Panel3;
Left := 1;
Top := 61;
Width := sa-4;
Height := 70;
TabOrder := 1;
Hint:='Açılır Liste İçeriği';
Lines.Text:=DRbGrid.Columns[xp].PickList.Text;
ReadOnly:=DRbGrid.Columns[xp].ReadOnly;
end;
Panel4:=TPanel.Create(fg);
with Panel4 do
begin
Parent:=Panel1;
Left := 1;
Top := 161;
Width := sa-2;
Height := 83;
TabOrder := 2;
end;
BASLIK:=TLabel.Create(fg);
with BASLIK do
begin
Parent:=Panel4;
AutoSize:=False;
Left := 1;
Top := 1;
Width := sa-4;
Height := 13;
Alignment := taCenter;
Caption := 'BASLIK';
end;
br:=TLabel.Create(fg);
with br do
begin
Parent:=Panel4;
AutoSize:=False;
Left := 1;
Top := 35;
Width := sa-4;
Height := 13;
Alignment := taCenter;
Caption := 'BASLIK RENGI';
OnClick := BRClick;
Color:=DRbGrid.Columns[xp].Title.Color;
end;
bF:=TLabel.Create(fg);
with bF do
begin
Parent:=Panel4;
AutoSize:=False;
Left := 1;
Top := 48;
Width := sa-4;
Height := 13;
Alignment := taCenter;
Caption := 'BASLIK FONTU';
OnClick := BFClick;
Font:=DRbGrid.Columns[xp].Title.Font;
end;
bY:=TComboBox.Create(fg);
with bY do
begin
Parent:=Panel4;
Left := 1;
Top := 61;
Width := sa-4;
Height := 21;
Style := csDropDownList;
ItemHeight := 13;
TabOrder := 0;
Items.Add('Sagda');
Items.Add('Solda');
Items.Add('Ortada');
ItemIndex:=Items.IndexOf(aligmenttostr(DRbGrid.Columns[xp].Title.Alignment));
end;
CP:=TEdit.Create(fg);
with CP do
begin
Parent:=Panel4;
Left := 1;
Top := 14;
Width := sa-4;
Height := 21;
TabOrder := 1;
Text:=DRbGrid.Columns[xp].Title.Caption;
end;
Panel5:=TPanel.Create(fg);
with Panel5 do
begin
Parent:=Panel1;
Left := 1;
Top := 244;
Width := sa-2;
Height := 28;
TabOrder := 3;
end;
Button1:=TButton.Create(fg);
with Button1 do
begin
Parent:=Panel5;
Left := 4;
Top := 4;
Width := sa-10;
Height := 21;
Caption := 'TAMAM';
TabOrder := 0;
ModalResult:=mrOk;
end;
if ShowModal=mrOk then
begin
with DRbGrid do
begin
Color:=GR.Color;
FixedColor:=FR.Color;
Columns[xp].Color:=SR.Color;
Columns[xp].Font:=SF.Font;
Columns[xp].Alignment:=strtoaligment(SY.Text);
Columns[xp].PickList.Clear;
Columns[xp].PickList:=PCL.Lines;
Columns[xp].Title.Color:=br.Color;
Columns[xp].Title.Font:=bf.Font;
Columns[xp].Title.Alignment:=strtoaligment(BY.Text);
Columns[xp].Title.Caption:=cp.Text;
end;
close;
end;
end;
fg.Free;
end;
procedure Tkayitgrid.BFClick(Sender: TObject);
var xe:TFontDialog;
begin
xe:=TFontDialog.Create(Self);
xe.Font:=DRbGrid.Columns[DRbGrid.SelectedIndex].Title.Font;
if xe.Execute then
BF.Font:=xe.Font;
xe.Free;
end;
procedure Tkayitgrid.SFClick(Sender: TObject);
var xe:TFontDialog;
begin
xe:=TFontDialog.Create(Self);
xe.Font:=DRbGrid.Columns[DRbGrid.SelectedIndex].Font;
if xe.Execute then
SF.Font:=xe.Font;
xe.Free;
end;
procedure Tkayitgrid.BRClick(Sender: TObject);
var xe:TColorDialog;
begin
xe:=TColorDialog.Create(Self);
xe.Color:=DRbGrid.Columns[DRbGrid.SelectedIndex].Title.Color;
if xe.Execute then
BR.Color:=xe.Color;
xe.Free;
end;
procedure Tkayitgrid.SRClick(Sender: TObject);
var xe:TColorDialog;
begin
xe:=TColorDialog.Create(Self);
xe.Color:=DRbGrid.Columns[DRbGrid.SelectedIndex].Color;
if xe.Execute then
SR.Color:=xe.Color;
xe.Free;
end;
procedure Tkayitgrid.GRClick(Sender: TObject);
var xe:TColorDialog;
begin
xe:=TColorDialog.Create(Self);
xe.Color:=DRbGrid.Color;
if xe.Execute then
GR.Color:=xe.Color;
xe.Free;
end;
procedure Tkayitgrid.FRClick(Sender: TObject);
var xe:TColorDialog;
begin
xe:=TColorDialog.Create(Self);
xe.Color:=DRbGrid.FixedColor;
if xe.Execute then
FR.Color:=xe.Color;
xe.Free;
end;
procedure Tkayitgrid.AyarlasilClick(Sender: TObject);
var r:TRegistry;
sd:string;
begin
if MessageDlg('Ayarları Silmek İstediğinize Eminmisiniz?',mtWarning,mbOKCancel,0)=1 then
begin
r:=TRegistry.Create;
r.RootKey:=HKEY_CURRENT_USER;
sd:=Regkey+''+DRbGrid.Name;
r.DeleteKey(sd);
r.CloseKey;
r.Free;
end;
end;
procedure Tkayitgrid.exceleaktarClick(Sender: TObject);
var
exl,exs:variant;
dts:TDataSet;
x,x1,y:integer;
ss:boolean;
begin
if DRbGrid.DataSource.DataSet.Active then
begin
dts:=DRbGrid.DataSource.DataSet;
exl:=createoleobject('excel.application');
exl.workbooks.add();
exs:=exl.workbooks[1].worksheets[1];
dts.First;
y:=DRbGrid.Columns.Count-1;
x:=1;
// if mesajsor('Sutun Başına X Konulsunmu?') then
// ss:=true
// else
ss:=false;
for x1:=0 to y do
begin
exs.cells[x,x1+1]:=DRbGrid.Columns[x1].Title.Caption;
end;
while not dts.Eof do
begin
x:=x+1;
for x1:=0 to y do
begin
if ss then
exs.cells[x,x1+1]:='X'+DRbGrid.Columns[x1].Field.Text
else
exs.cells[x,x1+1]:=DRbGrid.Columns[x1].Field.Value;
end;
dts.Next;
end;
exl.visible:=true;
end
else
ShowMessage('Aktarılacak Veri Bulunamadı.');
end;
procedure Tkayitgrid.Sayarlakapali(Value: Boolean);
begin
fayarlakapali:=Value;
end;
procedure Tkayitgrid.***celeaktarkapali(Value: Boolean);
begin
fexceleaktarkapali:=Value;
end;
end.
|
