uexp.~pas

青年文明号管理系统

unit Uexp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, StdCtrls, Buttons, dxExEdtr, dxDBTLCl,
  dxGrClms, dxDBCtrl, dxDBGrid, dxTL, dxCntner, XPMenu;

type
  Texp1 = class(TForm)
    BitBtn1: TBitBtn;
    DBGridEh1: TDBGridEh;
    BitBtn4: TBitBtn;
    XPMenu1: TXPMenu;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  exp1: Texp1;

implementation

uses Udm, u_vardef,DBGridEhImpExp;

{$R *.dfm}

procedure Texp1.FormShow(Sender: TObject);
begin
dm.v_sbb.Open;
dm.t_sbb_in.Open;
dm.jtqk_exp.Open;
end;

procedure Texp1.BitBtn1Click(Sender: TObject);
var
vexp:string;
begin
if  (Application.MessageBox(Pchar('确定导出？'),'提示',MB_YESNO+MB_ICONQUESTION))=ID_Yes then
begin
    vexp:=gdir+'\doc\exp.wmh';
    try
    dm.v_sbb.SaveToFile(vexp);
    showmsg('成功导出申报单位情况');
    except
    on E: Exception do
    showmsg('导出失败申报单位'+e.Message);
    end;

    vexp:=gdir+'\doc\exp_jtqk.wmh';
    try
    dm.jtqk_exp.SaveToFile(vexp);
    showmsg('成功导出成员信息');
    except
    on E: Exception do
    showmsg('导出失败成员信息'+e.Message);
    end;
end;
//SaveDBGridEhToExportFile(TDBGridEhExportAsText,DBGridEh1,vexp,true);
end;

procedure Texp1.BitBtn2Click(Sender: TObject);
var
vexp:string;
begin
vexp:=gdir+'\doc\exp.wmh';
try
dm.t_sbb_in.Edit;
dm.t_sbb_in.LoadFromFile(vexp);
showmsg('成功导入');
except
on E: Exception do
showmsg('导入失败'+e.Message);
end;

end;

procedure Texp1.BitBtn4Click(Sender: TObject);
begin
close;
end;

end.