updmod.~pas

存储过程脚本程序源码

  Shift: TShiftState; X, Y: Integer);
begin
    if button=mbleft then
    begin
        blnComplete:=false;
    end;
end;

procedure TfrmPDMod.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        action:= cafree;
end;

procedure TfrmPDMod.FormDestroy(Sender: TObject);
begin
        frmPDMod:=nil;
end;

procedure TfrmPDMod.FormCreate(Sender: TObject);
var
        qryTmp:tadoquery;
begin
        cboPDName.Items.Clear;
        mContent.Lines.Clear;
        sbType.Top :=intTop;
        sbType.Left:=1;
        sbType.Align:=alTop;
        sbMothd.Align :=alTop;
        lvMothd.Visible:=true;
        lvMothd.Align :=alClient;
        lvType.Visible:=false;
        try
                qryTmp:=tadoquery.Create(nil);
                qryTmp.Connection := frmpd.connOBJ;
                qryTmp.Close;
                qryTmp.SQL.Clear;
               // qryTmp.SQL.Text :='SELECT name FROM SYSOBJECTS WHERE XTYPE=''P'' AND NAME not LIKE ''dt%''';
               // qryTmp.open;
               // qryTmp.First;
               // while not qryTmp.Eof do
               // begin
               //         cboPDName.Items.Add(qryTmp.Fields[0].AsString );
               //         qryTmp.Next;
               // end;
                gbPDContant.Align := alclient;
        finally
                qryTmp.Free;
        end;
end;

procedure TfrmPDMod.sbTypeClick(Sender: TObject);
begin
        //lvMothd.Top := sbType.Top +sbType.Height ;
        //lvMothd.Left := 1;
        //lvMothd.Height := gbData.Height -sbType.Height ;
        downs(sbType);
        lvType.Align :=alclient;
        lvType.Visible:=true;
        lvMothd.Visible :=false;
end;

procedure TfrmPDMod.sbMothdClick(Sender: TObject);
begin
        downs(sbMothd);
        lvMothd.Visible:=true;
        lvMothd.Align :=alClient;
        lvType.Visible:=false;
end;

procedure TfrmPDMod.downs(btn:tspeedbutton);
var
 btns:tspeedbutton;
begin
btns:=btn;
 if btns=sbType then
begin
  if sbMothd.Align = albottom then
     exit;
  downs(sbMothd);
  btns.Align :=altop;
         end;
 if (btns=sbMothd) then
    if (btns.Align =albottom) then
    begin
       sbType.Align :=altop;
       btns.Align :=altop
    end else
        btns.Align :=albottom
end;
procedure TfrmPDMod.lvMothdDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
        PosPoint:TPoint;
begin
        PosPoint.x:=x;
        PosPoint.y:=Y;
        (Source As TListView).Selected.SetPosition(PosPoint);
end;

procedure TfrmPDMod.lvMothdMouseDown(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.lvMothdMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    if button=mbleft then
    begin
        blnComplete:=false;
    end;
end;

procedure TfrmPDMod.lvMothdMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
    LvwItem:Tlistitem;
    i:integer;
    cursorpos:Tpoint;
begin
    getcursorpos(cursorpos);
    LvwItem:=lvMothd.getitemat(x,y);
    if lvwitem=nil then
    begin
        exit;
    end;
    if lvwitem.Index=0 then
    begin
     itemIndex:=0;
    end;
    if lvwitem.Index=1 then
    begin
     itemIndex:=1;
    end;
end;

procedure TfrmPDMod.cboPDNameChange(Sender: TObject);
var
        qryTmp:tadoquery;
begin
        try
                qryTmp:=tadoquery.Create(nil);
                qryTmp.Connection := frmPD.connOBJ;
                qryTmp.Close;
                qryTmp.SQL.Clear;
                qryTmp.SQL.Text :='sp_helptext '+cboPDName.Text;
                qryTmp.open ;
                mContent.Lines.Clear;
                qryTmp.First;
                while not qryTmp.Eof do
                begin
                        mContent.Lines.Add (qryTmp.Fieldbyname('text').AsString);
                        qryTmp.Next;
                end;
        finally
                qryTmp.Free;
        end;
end;

procedure TfrmPDMod.mContentClick(Sender: TObject);
var
  a:tpoint;
begin
  a:=mContent.CaretPos ;
  index :=a.x ;
  col :=a.y ;
end;

procedure TfrmPDMod.N1Click(Sender: TObject);
var
        qryTmp:tadoquery;
        RowNum,ColNum:integer;
begin
    try
        qryTmp:= tadoquery.Create(nil);
        qryTmp.Connection := frmPD.connOBJ ;
        qryTmp.SQL.Text := mContent.SelText;
        try
                qryTmp.Open;
                gbPDContant.Align := altop;
                gbPDContant.Height:= 240;
                gbResult.Visible:= true;
                gbResult.Align:= alclient;
                gridResult.RowCount := qryTmp.RecordCount+1 ;
                gridResult.ColCount := qryTmp.FieldCount+1;
                gridResult.ColWidths[0]:=20;  
                for RowNum :=0 to gridResult.RowCount do
                begin
                        for ColNum :=0 to GridResult.ColCount-2 do
                        begin
                                if RowNum=0 then
                                begin
                                        gridResult.Cells[ColNum+1,RowNum]:= qryTmp.Fields[ColNum].FieldName ;
                                end else
                                        begin
                                                if ColNum= 0 then
                                                begin
                                                        gridResult.Cells[ColNum,RowNum]:= inttostr(qryTmp.RecNo  );
                                                end else
                                                        gridResult.Cells[ColNum+1,RowNum]:= qryTmp.Fields[ColNum].AsString ;
                                        end;

                        end;
                        if RowNum>0 then
                                qryTmp.Next;
                end;
        except
                try
                        qryTmp.ExecSQL;
                        messagedlg('执行成功!',mtWarning,[mbOk],0);
                except
                        messagedlg('操作执行失败,请检查要执行的SQL语句是否符合语法',mtWarning,[mbOk],0);
                end;
        end;
    finally
        qryTmp.Free;

    end;
end;

procedure TfrmPDMod.ToolButton4Click(Sender: TObject);
var
        qryTmp:tadoquery;
begin
try
    //try
        qryTmp:= tadoquery.Create(nil);
        qryTmp.Connection :=frmPD.connOBJ;
        qryTmp.Close;
        qryTmp.SQL.Clear;
        qryTmp.SQL.text:=mContent.Text ;
        qryTmp.ExecSQL;
        application.MessageBox('脚本生成成功','提示',mb_ok);
        frmPDMod.ModalResult := mrOK;        
    //except
    //    application.MessageBox('脚本生成失败','提示',mb_ok);
    //end;
finally
        qryTmp.Free;
end;
end;

procedure TfrmPDMod.ToolButton3Click(Sender: TObject);
begin
        SDialog.Filter:='文本文件|*.txt|SQL文件|*.sql|';
        if SDialog.Execute then
                mContent.Lines.SaveToFile(SDialog.FileName+'.sql' );
end;

procedure TfrmPDMod.ToolButton2Click(Sender: TObject);
begin
        ODialog.Filter:='文本文件|*.txt|SQL文件|*.sql|';
        if ODialog.Execute then
        begin
                mContent.Lines.Clear;
                mContent.Lines.LoadFromFile(ODialog.FileName);
        end;
end;

procedure TfrmPDMod.ToolButton10Click(Sender: TObject);
begin
        self.Close;
end;

end.