在Labelmx中文字有一个“设置小数点后几位”,设置成0就可以了。
选中文字,在右侧属性栏点击“文字特殊处理”,在d出的对话框中选择“设置小数点后位数为0”。
还有一种根本的解决方法,在excel中设置,选中这一列,修改单元格类型为文本。
我听说过这个软件,找下菜单中的,SQL查询和编辑向导,需要写一条SQL语句或者通过向导生成语名,还要先问下你的软件供应商数据库中的商品资料是哪张表,条码或编码是表中的哪个字段,才能写出一条select语句,或是用向导生成Label Matrix32导入数据库方法:查看数据库方法: 工具栏上点击“数据网格”。
1、 数据库格式为“文本文件”:
1) 几个变量建立几个数据库文本,如分别建立“姓名”“编号”2个文本文件;
2) 姓名: 导入数据文本“姓名”;
3) 编号: 导入数据文本“编号”;
4) 打印选择“全部”,则“姓名”与“编号”将一一对应打印出来。
2、数据库格式为“EXCEL”:
1)在EXCEL中建立“姓名”与“编号”,存储格式为“*.CSV”;
2)导入EXCEL数据库,选择对应的字段;
3)打印选择“全部”,则“姓名”与“编号”将一一对应打印出来。
打印
数据库内有多个数据,若你想打印其中的连续某几个即从第5条记录到第10记录:
1、选择“打印”
2、选择“页 / 标签”;
3、“从”输入“5”;
4、“到”输入“10”。
打印中的“打印范围”意思:
1、全部————把处于当前状态打开的所有内容进行打印;
2、页————把当前内容打印N次;
3、标签————如果是链接数据库的,可选择从第M条打印到第N条记录;
uses OleServer,Excel2000,shellapi,comobj
procedure TReport_Frm.S_openClick(Sender: TObject)
var
filename:string
xl,ExcelApp,WorkBook,Sheet: oleVariant
x,y:integer
begin
inherited
OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName)+'报表管理'
OpenDialog1.Execute
filename:=OpenDialog1.FileName
if length(filename)=0 then
begin
Mymessagebox(' 无选择历史统计文件地存储位置,非能导入历史统计文件地数据! ',1,2)
exit
end
try
ExcelApp := CreateOleObject('Excel.Application')
WorkBook:=CreateOleobject('Excel.Sheet')
ExcelApp.WorkBooks.Open(filename)
ExcelApp.WorkSheets[1].Activate
except
Mymessagebox(' 您地机器里未安装Microsoft Excel无该文件,非能导入Excel报表! ',1,2)
exit
end
if ExcelApp.Cells[1,1].Value='流量表' then
begin
label1.Caption:=ExcelApp.Cells[2,1].Value
sa_grid.RowCount:=30
for y:=1 to sa_grid.RowCount-1 do
begin
for x:=1 to 7 do
begin
sa_grid.Cells[x,y]:=ExcelApp.Cells[y+3,x].Value
end
end
end else begin
Mymessagebox(' 该Excel文件非就为本系统项目导出地统计文件,非能导入本系统项目! ',1,2)
exit
end
WorkBook.Close
ExcelApp.Quit
end
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)