exportfee_f.pas

县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值

unit ExportFee_F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, ExtCtrls;

type
  TF_ExportFee = class(TForm)
    Memo1: TMemo;
    Panel1: TPanel;
    Bt_Close: TButton;
    Bt_Export: TButton;
    Bt_Result: TButton;
    Bt_ExportDirect: TButton;
    procedure Bt_ExportClick(Sender: TObject);
    procedure Bt_CloseClick(Sender: TObject);
    procedure Bt_ResultClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Bt_ExportDirectClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_ExportFee: TF_ExportFee;

implementation

uses Export_DM, ExportResult_F,ShellApi, CommFee;

{$R *.DFM}

procedure TF_ExportFee.Bt_ExportClick(Sender: TObject);
begin
    With DM_Export Do
    Begin
        Sp_TransferProvide.Prepare;
        Sp_TransferProvide.ExecProc;
        Sp_TransferProvide.UnPrepare;

        Ext_Transfer.Refresh();
        Q_Delete.SQL.Clear;
        Q_Delete.SQL.Add('Delete From Transfer.DB');
        Q_Delete.ExecSQL();
        BM_Transfer.Execute();

        Ext_House.Refresh();
        Q_Delete.SQL.Clear;
        Q_Delete.SQL.Add('Delete From House.DB');
        Q_Delete.ExecSQL();
        BM_House.Execute();

        Ext_Transfer_Fee.Refresh();
        Q_Delete.SQL.Clear;
        Q_Delete.SQL.Add('Delete From Transfer_Fee.DB');
        Q_Delete.ExecSQL();
        BM_Transfer_Fee.Execute();

        Ext_Fee.Refresh();
        Q_Delete.SQL.Clear;
        Q_Delete.SQL.Add('Delete From Fee.DB');
        Q_Delete.ExecSQL();
        BM_Fee.Execute();
	End;
    If Application.MessageBox('数据引出完毕，查看结果吗','系统提示',MB_YESNO) = ID_YES Then
	    MyCreateForm(TF_ExportResult, TForm(F_ExportResult));
end;

procedure TF_ExportFee.Bt_CloseClick(Sender: TObject);
begin
	Close();
end;

procedure TF_ExportFee.Bt_ResultClick(Sender: TObject);
begin
	MyCreateForm(TF_ExportResult, TForm(F_ExportResult));
end;

procedure TF_ExportFee.FormShow(Sender: TObject);
begin
	With DM_Export Do
    Begin
		Ext_Transfer.Open();
		Ext_House.Open();
		Ext_Transfer_Fee.Open();
        Ext_Fee.Open();
    End;
end;

procedure TF_ExportFee.Bt_ExportDirectClick(Sender: TObject);
begin
	ShellExecute(Handle, nil,'\Mis\Export',Nil ,nil,SW_SHOWNORMAL);
end;

procedure TF_ExportFee.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
	DM_Export.DBDest.Connected := false;
    MyReleaseForm(TForm(F_ExportFee));
end;

end.