ena数据库（ENA数据库的功能）

本篇文章给大家谈谈ena数据库，以及ENA数据库的功能对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、delphi7怎么把桌面的excel导入导出数据库
• 2、同交换机不同VLAN能通信吗，能的话怎么做到
• 3、浏览NCBI、ENA、DDBJ、BIGD这四个主要数据库,初步比较他们之间区别？
• 4、ENA code是什么意思

delphi7怎么把桌面的excel导入导出数据库

导入：

Excel2000, OleServer,ComObj, ExcelXP添加到上面的uses列表里面，添加对应的EXECEL控件。

ExcelApplication1: TExcelApplication;

ExcelWorkbook1: TExcelWorkbook;

ExcelWorksheet1: TExcelWorksheet;

然后在你 的事件里写下面代码。原来写的数据太多，删除了一些列的导入内容，你自己再调试一下就行了。

var

nu,barcode1,da,na,ena,com,spec:string;

ExcelApp,WorkBook: Olevariant;

ExcelRowCount,i :Integer;

begin

dbgrid2.Enabled:=false;

try

if SaveDialog1.Execute then

begin

ExcelApp := CreateOleObject('Excel.Application');

WorkBook := ExcelApp.WorkBooks.Open(savedialog1.FileName);

ExcelApp.Visible := false;

ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;

for i := 2 to excelrowcount + 1 do

begin

nu := excelapp.Cells[i,1].Value;

if trim(excelapp.cells[i,2].value)='' then

na:=' '

else begin

na:=excelapp.Cells[i,2].Value;

end;

if trim(excelapp.cells[i,3].value)='竖扒' then

ena:=' '

else

ena:= excelapp.Cells[i,3].Value;

if trim(excelapp.cells[i,4].value)='' then

com:=' '

else

com:= trim(excelapp.Cells[i,4].Value);

if trim(excelapp.cells[i,5].value)='' then

spec:=' '

else

spec:= excelapp.Cells[i,5].Value;

if ((excelapp.Cells[i,1].Value = '') and (ExcelApp.Cells[i,3].Value = '余渗昌')) then //指定excel档的第 i 行 ,第 1,2(看情况而定)行如果为空就退出,这样的设定,最好是你的档案力这两行//对应数据库中不能为空的喊激数据

exit

else

with data.product do

begin

close;

sql.clear;

sql.Add('select * from twoven where number='''+nu+'''');

open;

if recordcount=1 then begin

if MessageBox(handle,'此记录已存在，是否覆盖原记录？','提示',MB_IconQuestion+MB_YesNo)=IDYES then

BEGIN

Delete;

sql.Clear;

sql.add('insert into twoven(number,name,ename,wf_comp,wf_spec)');

sql.add(' values(:number,:name,:ename,:wf_comp,:wf_spec)');

Parameters.ParamByName('number').Value :=trim(nu);//excel档的第一列插入到aa表的 a 栏位;

Parameters.ParamByName('name').Value := trim(na);//excel档的第二列插入到aa表的 b 栏位;

Parameters.ParamByName('ename').Value := trim(ena);//excel档的第一列插入到aa表的 a 栏位;

Parameters.ParamByName('wf_comp').Value := trim(com);//excel档的第一列插入到aa表的 a 栏位;

Parameters.ParamByName('wf_spec').Value := trim(spec);//excel档的第二列插入到aa表的 b 栏位;

execsql;

END;

end;=

end;

showmessage('数据导入成功！');

WorkBook.Close;

ExcelApp.Quit;

ExcelApp := Unassigned;

WorkBook := Unassigned;

ExcelWorkBook1.Close(false);

ExcelApplication1.Disconnect;

ExcelApplication1.Quit;

Screen.Cursor:=crDefault;

end;

导出：

uses Excel2000, OleServer,ComObj, ExcelXP;

var

i,j:Integer;

da,na,ena,com,spec:string;

begin

i:=1;

with data.product do begin

sql.Clear;

sql.Add('select * from twoven where printquantity = 1 order by number');

data.product.Active:=true;

end;

dbgrid2.Enabled:=false;

try

if SaveDialog1.Execute then

begin

ExcelApplication1.Connect;

excelapplication1.Workbooks.Add(null,0);

ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks[1]);

ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.Sheets[1] as _WorkSheet);

ExcelWorkSheet1.Cells.Item[1,1]:='布号';

ExcelWorkSheet1.Cells.Item[1,2]:='品名';

ExcelWorkSheet1.Cells.Item[1,3]:='英文名称';

ExcelWorkSheet1.Cells.Item[1,4]:='成份';

ExcelWorkSheet1.Cells.Item[1,5]:='规格';

data.product.First;

while not data.product.Eof do begin

if dbgrid2.DataSource.DataSet.FieldValues['enterdate']=null then

da:=datetimetostr(date())

else

da:=datetimetostr(dbgrid2.DataSource.DataSet.fieldvalues['enterdate']);

if dbgrid2.DataSource.DataSet.FieldValues['ename']=null then

ena:=' '

else

ena:=trim(dbgrid2.DataSource.DataSet.fieldvalues['ename']);

if dbgrid2.DataSource.DataSet.FieldValues['name']=null then

na:=' '

else

na:=trim(dbgrid2.DataSource.DataSet.fieldvalues['name']);

if dbgrid2.DataSource.DataSet.FieldValues['wf_comp']=null then

com:=' '

else

com:=trim(dbgrid2.DataSource.DataSet.fieldvalues['wf_comp']);

if dbgrid2.DataSource.DataSet.FieldValues['wf_spec']=null then

spec:=' '

else

spec:=trim(dbgrid2.DataSource.DataSet.fieldvalues['wf_spec']);

i:=i+1;

ExcelWorkSheet1.Cells.Item[i,1]:=dbgrid2.DataSource.DataSet.fieldvalues['number'];

ExcelWorkSheet1.Cells.Item[i,2]:=na;

ExcelWorkSheet1.Cells.Item[i,3]:=ena;

ExcelWorkSheet1.Cells.Item[i,4]:=com;

ExcelWorkSheet1.Cells.Item[i,5]:=spec;

data.product.next;

end;

showmessage('数据导出成功！');

ExcelWorkBook1.SaveCopyAs(SaveDialog1.FileName);

ExcelWorkBook1.Close(false);

ExcelApplication1.Disconnect;

ExcelApplication1.Quit;

Screen.Cursor:=crDefault;

同交换机不同VLAN能通信吗，能的话怎么做到

同一交换机的不同Vlan能不能通信，主要要看你的交换机是二层的还是三层的。二层的没办法，三层的可以配置Vlan间的路由，是可以通信的察卜。

配置vlan的命令，思科的：

ena

vlan da 进入vlan数据库,也可以在全局模式创建vlan

vlan 10 创建vlan10

exit

config t

interface ran f0/0 - 6 进入端口f0/州没喊册野0到6

access vlan 10 把这几个端口加入到vlan10

浏览NCBI、ENA、DDBJ、BIGD这四个主要数据库,初步比较他们之间区别？

浏览嗯，F B C E N D D D B的四个数隐伏据库，初步比较他们之间的区别，他们之间的区别是很大的，因为他们数据库之前的设置，不要说你走游携握了之后的话要注意他们神庆自己的。

[img]

ENA code是什么意思

ENA code是商品条形码，亦称通用商品条形码，由国际物品编码协会制定，通用于世界各地，是目前国际上使用最广泛地一种商品条形码。

我国目前在国内推行使用地也是这种商品条形码。ean商品条形码分为ean－13（标准版）和ean－8（缩短版）两种。

条形码的应用运则侍：

零售业是条形码应用最为成熟的领域。EAN商品条形码为零售业应用条形码进行销售奠定了基础。目前大多数在超市中出售的商品都使用了EAN条形码，在销售时，用扫描器扫描EAN条形码，POS系统从数据库中查找到相应的名称、价格等信息。

并对客户所购买的商品进行统计，这大大加快收银的速度和准确性，同时各种销售数据还可作旁吵为商场和供虚商进货、供货的参考数据。

由于销售信息能够及时准确地被统计出来，所以商家在经营过程中可以准确地掌握各种商品的流通信息，可以大大地减少了库存，最大限度地利用资盯型金．从而提高商家的效益和竞争能力。

关于ena数据库和ENA数据库的功能的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。