frmxzmb.~pas

delphi+excel报表管理程序

unit frmxzmb;

interface

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

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses frmmain;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var
blank,sbmb:string;
MyIni:TIniFile;
begin
MyIni:=Tinifile.create('.\lj.ini');
blank:=myini.ReadString('系统路径设置','系统路径','')+'\报表\识别模板\blank.xls';
sbmb:=myini.ReadString('系统路径设置','系统路径','')+'\报表\原始模板\'+trim(edit2.Text)+'.xls';
//改写数据库
form1.ADOQuery1.Close;
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add('select * from template');
form1.ADOQuery1.Open;
form1.ADOQuery1.Insert;
form1.adoquery1.FieldByName('id').AsString:=inttostr(form1.ADOQuery1.RecordCount+1);
form1.adoquery1.FieldByName('name').AsString:=trim(edit2.Text);
form1.adoquery1.FieldByName('number').AsString:=trim(edit1.Text);
form1.adoquery1.FieldByName('flag').AsString:=trim('0');
form1.adoquery1.FieldByName('flag2').AsString:=trim('1');
form1.adoquery1.Open;
form1.adoquery1.UpdateBatch;
//改写数据库结束
end;

end.