sql_f.pas

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

unit SQL_F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, Db, DBTables, ComCtrls;

type
  TF_SQL = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button2: TButton;
    Button1: TButton;
    Memo1: TMemo;
    Q_New: TQuery;
    Tb_SQL: TTable;
    Tb_SQLF_TOPIC: TStringField;
    Tb_SQLF_SQL: TBlobField;
    Ds_SQL: TDataSource;
    Tb_SQLF_ID: TStringField;
    PC: TPageControl;
    TS_Select: TTabSheet;
    TS_Other: TTabSheet;
    DBG_SQL: TDBGrid;
    DBM_SQL: TDBMemo;
    DBGrid1: TDBGrid;
    Ds_Select: TDataSource;
    Panel3: TPanel;
    M_Select: TMemo;
    DBN: TDBNavigator;
    TS_Set: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    E_New: TEdit;
    E_Old: TEdit;
    Bt_Trans: TButton;
    DB_New: TDatabase;
    DB_Old: TDatabase;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Bt_OpenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_SQL: TF_SQL;

implementation


{$R *.DFM}



procedure TF_SQL.Button1Click(Sender: TObject);
begin
	Close();
end;


procedure TF_SQL.Button2Click(Sender: TObject);
Var
	V_SQL:String;
    I:Integer;
begin
	If Q_New.Active Then
    	Q_New.Active := False;
	If PC.ActivePage = Ts_Other Then
    Begin
		Tb_Sql.First();
    	Q_New.SQL.Clear();
		While Not Tb_Sql.EOF Do
    	Begin
            For I := 0 To DBM_SQL.Lines.Count - 1 Do
            Begin
                V_SQL := DBM_SQL.Lines[I];
                If Trim(V_SQL) = '' Then
                Begin
                    Q_New.ExecSQL();
                    Q_New.SQL.Clear();
                End
                Else
                Begin
                    Q_New.SQL.Add(V_SQL);
                End;
            End;
	        If Q_New.Text <> '' Then
    	    Begin
        	    Q_New.ExecSQL();
            	Q_New.SQL.Clear();
        	End;
            Tb_Sql.Next();
        End;
    End
    Else
    Begin
    	Q_New.SQL.Clear();
        Q_New.SQL.Add(M_Select.Text);
        Q_New.Open();
    End;
end;







procedure TF_SQL.Bt_OpenClick(Sender: TObject);
begin
//	DB_New.
end;

end.