export_f.pas

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

unit Export_F;

interface

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

type
  TF_Export = class(TForm)
    Memo1: TMemo;
    Panel1: TPanel;
    Bt_Close: TButton;
    Bt_Export: TButton;
    Bt_Result: TButton;
    E_SelectDB: TEdit;
    Bt_SelectDB: TButton;
    OD_SelectDB: TOpenDialog;
    procedure Bt_ExportClick(Sender: TObject);
    procedure Bt_CloseClick(Sender: TObject);
    procedure Bt_ResultClick(Sender: TObject);
    procedure Bt_SelectDBClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Export: TF_Export;

implementation

uses Export_DM, ExportResult_F;

{$R *.DFM}

procedure TF_Export.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();
	End;
    If Application.MessageBox('数据引出完毕，查看结果吗','系统提示',MB_YESNO) = ID_YES Then
	    F_ExportResult.Show();
end;

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

procedure TF_Export.Bt_ResultClick(Sender: TObject);
begin
	F_ExportResult.Show();
end;

procedure TF_Export.Bt_SelectDBClick(Sender: TObject);
begin
	If OD_SelectDB.Execute Then
    Begin
    	E_SelectDB.Text := OD_SelectDB.FileName;
        With DM_Export Do
        Begin
        	DBSource.Connected := false;
			DBSource.Params.Clear;
            DBSource.Params.Add('USER NAME=sysdba');
            DBSource.Params.Add('PASSWORD=masterkey');
            DBSource.Params.Add('SERVER NAME='+E_SelectDB.Text);
            Try
            	DBSource.Connected := true;
            Finally
				Bt_Result.Enabled := DBSource.Connected;
                Bt_Export.Enabled := DBSource.Connected;
            End;
        End;
    End;
end;

end.