updmod.~pas

存储过程脚本程序源码

unit uPDMod;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ImgList,shellapi, ExtCtrls, DB, ADODB,
  Buttons, Menus, ToolWin, Grids, DBGrids;

  const
  intTop=15;
  
type
  TfrmPDMod = class(TForm)
    items: TImageList;
    Panel1: TPanel;
    gbData: TGroupBox;
    lvType: TListView;
    Panel2: TPanel;
    gbPDContant: TGroupBox;
    mContent: TMemo;
    sbType: TSpeedButton;
    sbMothd: TSpeedButton;
    lvMothd: TListView;
    PopupMemo: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    CoolBar1: TCoolBar;
    ImageTool: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    Panel3: TPanel;
    Label1: TLabel;
    cboPDName: TComboBox;
    gbResult: TGroupBox;
    GridResult: TStringGrid;
    SDialog: TSaveDialog;
    ODialog: TOpenDialog;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    procedure lvTypeMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lvTypeDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure lvTypeDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure lvTypeMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure mContentDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure lvTypeMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sbTypeClick(Sender: TObject);
    procedure sbMothdClick(Sender: TObject);
    procedure lvMothdDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure lvMothdMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure lvMothdMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure lvMothdMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure cboPDNameChange(Sender: TObject);
    procedure mContentClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
  private
        procedure downs(btn:tspeedbutton);
  public

  end;

var
  frmPDMod: TfrmPDMod;

implementation

uses uMain, uPD;

{$R *.dfm}

var              //memo的行、列
        dx,dy,   index, col:integer;
        selectItem:tlistitem;
        itemIndex:integer;
        blnComplete:boolean;


procedure TfrmPDMod.lvTypeMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
    LvwItem:Tlistitem;
    i:integer;
    cursorpos:Tpoint;
begin
    getcursorpos(cursorpos);
    lvMothd.Hint:='';
    LvwItem:=lvType.getitemat(x,y);
    if lvwitem=nil then
    begin
        application.cancelhint;
        exit;
    end;
    if lvwitem.Index=0 then
    begin
     lvMothd.Hint:='Int型';
    end;
    if lvwitem.Index=1 then
    begin
     lvMothd.Hint:='BigInt型';
    end;
    if lvwitem.Index=2 then
    begin
     lvMothd.Hint:='Char型';
    end;
    if lvwitem.Index=3 then
    begin
     lvMothd.Hint:='VARCHAR型';
    end;
    if lvwitem.Index=4 then
    begin
     lvMothd.Hint:='DateTime型';
    end;
    if lvwitem.Index=5 then
    begin
     lvMothd.Hint:='Text型';
    end;
    if lvwitem.Index=6 then
    begin
     lvMothd.Hint:='Numeric型';
    end;
    if lvwitem.Index=7 then
    begin
     lvMothd.Hint:='Money型';
    end;
     itemIndex:=lvwitem.Index ;
    application.activatehint(cursorpos);

end;

procedure TfrmPDMod.lvTypeDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
PosPoint:TPoint;
begin
PosPoint.x:=x;
PosPoint.y:=Y;
//selectItem:= (Source As TListView).Selected ;
//itemIndex:= (Source As TListView).Selected.Index ;
(Source As TListView).Selected.SetPosition(PosPoint);

end;

procedure TfrmPDMod.lvTypeDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
        //accept:=Source is TlistView
end;

procedure TfrmPDMod.lvTypeMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if button=mbleft then
    begin
        with sender as TListview do
        begin
            if GetItemAt(x,y)<>nil then
            begindrag(false);
        end;
    end;
end;

procedure TfrmPDMod.mContentDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
var
        i,pos:integer;
        strInsert:string;
begin
accept:=Source is TlistView ;

if source = lvType then
begin
        pos:=0;
   if (itemIndex=0) and (not blnComplete) then
   begin
         mContent.SelText:=' int()';
         strInsert:=' int()';
         blnComplete:=true
   end;
   if (itemIndex=1) and (not blnComplete) then
   begin
         mContent.SelText:=' bigint()';
         strInsert:= ' bigint()';
         blnComplete:=true;
   end;
   if (itemIndex=2) and (not blnComplete) then
   begin
         mContent.SelText:=' char()';
         strInsert:= ' char()';
         blnComplete:=true;
   end;
   if (itemIndex=3) and (not blnComplete) then
   begin
         mContent.SelText:=' varchar()';
         strInsert:=     ' varchar()';
         blnComplete:=true
   end;
   if (itemIndex=5) and (not blnComplete) then
   begin
         mContent.SelText:=' Text()';
         strInsert:=      ' Text()';
         blnComplete:=true
   end;
   if (itemIndex=4) and (not blnComplete) then
   begin
         mContent.SelText:=' datetime()';
         strInsert:=       ' datetime()';
         blnComplete:=true;
   end;
   if (itemIndex=7) and (not blnComplete) then
   begin
         mContent.SelText:=' money()';
         strInsert:=       ' money()';
         blnComplete:=true;
   end;
   if (itemIndex=6) and (not blnComplete) then
   begin
         mContent.SelText:=' numeric()';
         strInsert:=       ' numeric()';
         blnComplete:=true;
   end;
   if blnComplete then
   begin
         for i:=0 to col-1 do
                  pos:=Pos+Length(mContent.lines[i])+2;
         pos:= index+pos+length(strInsert)-1;
         mContent.selstart:=Pos;
         mContent.SelLength:=0;
         mContent.SetFocus;
   end;
end else
        begin
                if (itemIndex=0) and (not blnComplete) then
                begin
                        mContent.SelText:='if    ';
                        mContent.Lines.insert(mContent.Lines.Count ,'begin');
                        mContent.Lines.insert(mContent.Lines.Count ,' ');
                        mContent.Lines.insert(mContent.Lines.Count ,'end');
                        blnComplete:=true;
                end;
                if (itemIndex=1) and (not blnComplete) then
                begin
                        mContent.SelText:='for    ';
                        mContent.Lines.insert(mContent.Lines.Count ,' ');
                        blnComplete:=true;
                end;
        end;
blnComplete:=false;
itemindex:=99999;
end;

procedure TfrmPDMod.lvTypeMouseUp(Sender: TObject; Button: TMouseButton;