frmbsmb.pas

delphi+excel报表管理程序

unit frmbsmb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls,ComObj, OleCtnrs,IniFiles;

type
  TForm7 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

uses frmmain, frmljsz;

{$R *.dfm}

procedure TForm7.FormActivate(Sender: TObject);
var
i,j:integer;
begin
//更新报表类型列表
try
form1.ADOQuery1.Close;
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add('select * from template');
form1.ADOQuery1.Open;
i:=form1.ADOQuery1.RecordCount;
ComboBox1.Clear;
for j := 1 to i do
begin
form1.ADOQuery1.Close;
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add('select * from template');
form1.ADOQuery1.SQL.Add('where id=:a1');
form1.adoquery1.Parameters.ParamValues['a1']:=inttostr(j);
form1.ADOQuery1.Open;
if (form1.ADOQuery1.Fields.Fields[4].AsString='1') then
ComboBox1.Items.Add(form1.ADOQuery1.Fields.Fields[1].AsString);
end;
except;
end;
//更新报表类型列表结束
end;

procedure TForm7.Button1Click(Sender: TObject);
var
ExcelApp,sheet,range: Variant;
sbmb,sbbz:string;
MyIni:TIniFile;
begin
//初始化路径
MyIni:=Tinifile.create('.\lj.ini');
sbmb:=myini.ReadString('系统路径设置','系统路径','')+'\报表\识别模板\'+trim(ComboBox1.Text);
//sbbz:=myini.ReadString('系统路径设置','系统路径','')+'\报表\识别标志\'+trim('template01.bmp');
//确定插入标识图片的编号
form1.ADOQuery1.Close;
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add('select * from template');
form1.ADOQuery1.SQL.Add('where name=:a1');
form1.adoquery1.Parameters.ParamValues['a1']:=trim(ComboBox1.Text);
form1.ADOQuery1.Open;
sbbz:=myini.ReadString('系统路径设置','系统路径','')+'\报表\识别标志\'+trim('template')+form1.ADOQuery1.Fields.Fields[2].AsString+'.bmp';
//编号确定结束
//结束
//插入标识图片
ExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.Visible := True;
ExcelApp.Caption := '标识模板';
ExcelApp.WorkBooks.Open(sbmb);
sheet:= ExcelApp.workbooks[1].sheets[1];
range:=sheet.range[sheet.cells[1,1],sheet.cells[2,2]];//选定表格
range.select;
ExcelApp.activesheet.pictures.insert(sbbz).select;
//结束
//保存模板
ExcelApp.workbooks[1].save;
ExcelApp.workbooks[1].close;
ExcelApp.quit;
ExcelApp:=unassigned;
//结束
//改写数据库标志位
form1.ADOQuery1.Close;
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add('select * from template');
form1.ADOQuery1.SQL.Add('where name=:a1');
form1.adoquery1.Parameters.ParamValues['a1']:=trim(ComboBox1.Text);
form1.ADOQuery1.Open;
form1.ADOQuery1.Edit;
form1.adoquery1.FieldByName('flag').AsString:=trim('1');
form1.ADOQuery1.Post;
//结束
end;

procedure TForm7.ComboBox1Select(Sender: TObject);
var
sbmb,lujing,search,ysmb:string;
MyIni:TIniFile;
begin
//初始化路径
MyIni:=Tinifile.create('.\lj.ini');
sbmb:=myini.ReadString('系统路径设置','系统路径','')+'\报表\识别模板\'+trim(ComboBox1.Text);
lujing:=myini.ReadString('系统路径设置','系统路径','')+'\报表\识别模板\';
search:=filesearch(ComboBox1.Text,lujing);
ysmb:=myini.ReadString('系统路径设置','系统路径','')+'\报表\原始模板\'+trim(ComboBox1.Text);
//结束
if search='' then
        begin
        copyfile(pchar(ysmb),pchar(sbmb),false);
        end
else
        exit;
end;

end.