DONGSHENG6/软件升级/update_sql_readme.pas

unit update_sql_readme;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, Grids, DBGrids, ExtCtrls, DBCtrls,IniFiles,
  StdCtrls, Mask, dxExEdtr, dxTL, dxDBCtrl, dxDBGrid, dxCntner, bsSkinCtrls;

type
  Tfrmupdatesql = class(TForm)
    ADOConnection1: TADOConnection;
    t_sql1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    DBMemo1: TDBMemo;
    t_readme1: TDataSource;
    DBGrid2: TDBGrid;
    Panel2: TPanel;
    DBMemo2: TDBMemo;
    Panel3: TPanel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBNavigator1: TDBNavigator;
    Panel4: TPanel;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    DBNavigator2: TDBNavigator;
    t_sql: TADOQuery;
    t_readme: TADOQuery;
    Button1: TButton;
    t_view_update: TADOQuery;
    t_view_update1: TDataSource;
    TabSheet3: TTabSheet;
    DBGrid3: TDBGrid;
    Panel5: TPanel;
    DBMemo3: TDBMemo;
    Panel6: TPanel;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    DBNavigator3: TDBNavigator;
    Button2: TButton;
    Panel7: TPanel;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridColumn;
    dxDBGrid1Column2: TdxDBGridColumn;
    bsSkinPanel1: TbsSkinPanel;
    Edit1: TEdit;
    Label4: TLabel;
    Label6: TLabel;
    Edit2: TEdit;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    Label7: TLabel;
    Edit3: TEdit;
    Panel8: TPanel;
    GroupBox1: TGroupBox;
    DBMemo4: TDBMemo;
    procedure t_sqlBeforeInsert(DataSet: TDataSet);
    procedure t_sqlAfterInsert(DataSet: TDataSet);
    procedure ADOConnection1BeforeConnect(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmupdatesql: Tfrmupdatesql;
  banben,shunxu:integer;

implementation

uses u_update;

{$R *.dfm}

procedure Tfrmupdatesql.t_sqlBeforeInsert(DataSet: TDataSet);
begin
  banben:=t_sql.fieldbyname('<27>汾<EFBFBD><E6B1BE>').AsInteger;
  shunxu:=t_sql.fieldbyname('˳<><CBB3>').AsInteger;
end;

procedure Tfrmupdatesql.t_sqlAfterInsert(DataSet: TDataSet);
begin
  t_sql['<27>汾<EFBFBD><E6B1BE>']:=banben;
  t_sql['˳<><CBB3>']:=shunxu+1;
end;

procedure Tfrmupdatesql.ADOConnection1BeforeConnect(Sender: TObject);
begin
  ADOConnection1.ConnectionString:='FILE NAME='+ExtractFilePath(ParamStr(0))+'sql.udl';
end;

procedure Tfrmupdatesql.FormShow(Sender: TObject);
var
  str:string;
  table:Tadoquery;
begin
      table:=Tadoquery.Create(application);
  
    table.Connection:=frmsoftupdate.db;
    table.SQL.text:='select top 1 <20>汾<EFBFBD><E6B1BE> from t_sys_soft order by <20>汾<EFBFBD><E6B1BE> desc';
    table.open;
  str:=table.fieldbyname('<27>汾<EFBFBD><E6B1BE>').AsString;
  str:=StringReplace(str,'.','',[rfReplaceAll]);
  t_sql.close;
  t_sql.sql.Clear;
  t_sql.sql.add('select * from t_sql where <20>汾<EFBFBD><E6B1BE>>='+str+' order by <20>汾<EFBFBD><E6B1BE>,˳<><CBB3> ');
  t_sql.open;
  t_readme.open;
  t_view_update.Open;
end;

procedure Tfrmupdatesql.Button1Click(Sender: TObject);
var
  table:Tadoquery;
  inifile1:Tinifile;
  str:string;
  j,i:integer;
  if_add:boolean;
  TempStr,Stemp:TStringlist;
begin
//  frmsoftupdate.Memo1.Lines.Clear;
  frmsoftupdate.Memo1.Lines.Add('<27><>ʼִ<CABC><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+DateTimeToStr(NOW));

{
  try
    frmsoftupdate.db.Connected:=true;
  except
    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
    frmsoftupdate.Memo1.Lines.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD>');
  end;
 }
     TempStr:=TStringList.Create;
     Stemp:=TStringList.Create;
  try
      {
    table:=Tadoquery.Create(application);
    table.Connection:=frmsoftupdate.db;
    table.SQL.text:='select <20>汾<EFBFBD><E6B1BE>,<2C>汾1,<2C>汾2,<2C>汾3 from t_sys_soft';
    table.open;

    j:=strtoint(table.fieldbyname('<27>汾1').asstring+table.fieldbyname('<27>汾2').asstring+table.fieldbyname('<27>汾3').asstring);
    frmsoftupdate.Memo1.Lines.Add('<27><>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD>汾<EFBFBD><E6B1BE>:'+table.fieldbyname('<27>汾1').asstring+table.fieldbyname('<27>汾2').asstring+table.fieldbyname('<27>汾3').asstring);
       }
    if frmsoftupdate.Edit5.Text<>'' then begin
      frmsoftupdate.Memo1.Lines.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>汾<EFBFBD><E6B1BE>:'+frmsoftupdate.Edit5.Text);
    end;  

    try
      frmsoftupdate.Memo1.Lines.Add('ִ<>а汾<D0B0><E6B1BE>'+t_sql.FieldByName('<27>汾<EFBFBD><E6B1BE>').AsString+'˳<><CBB3>'+t_sql.FieldByName('<27>汾<EFBFBD><E6B1BE>').AsString+'<27><>');
      TempStr.Text:=t_sql.fieldbyname('ִ<><D6B4>').asstring;

    for i:=0 to TempStr.Count-1 do begin
      if (TRIM(UpperCase(TempStr[i]))<>'GO')  then
        stemp.add(TempStr[i])
      else begin
        if (Stemp.Text)<>'' then begin
          frmsoftupdate.p_update.close;
           frmsoftupdate.p_update.Parameters.ParamByName('@sSQL').value:=Stemp.Text;
            frmsoftupdate.p_update.Parameters.ParamByName('@pi_Result').value:=0;
            frmsoftupdate.p_update.Parameters.ParamByName('@ps_Message').value:='';
          frmsoftupdate.p_update.ExecProc;
          stemp.Clear;
        end;

      end;

    end;

            if (Stemp.Text)<>'' then begin
          frmsoftupdate.p_update.close;
           frmsoftupdate.p_update.Parameters.ParamByName('@sSQL').value:=Stemp.Text;
            frmsoftupdate.p_update.Parameters.ParamByName('@pi_Result').value:=0;
            frmsoftupdate.p_update.Parameters.ParamByName('@ps_Message').value:='';           
          frmsoftupdate.p_update.ExecProc;
          stemp.Clear;
        end;

    except
      frmsoftupdate.Memo1.Lines.Add('ִ<>а汾<D0B0><E6B1BE>'+t_sql.FieldByName('<27>汾<EFBFBD><E6B1BE>').AsString+'˳<><CBB3>'+t_sql.FieldByName('<27>汾<EFBFBD><E6B1BE>').AsString+'ʱ<><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
       ;
    end;



    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϣ<EFBFBD>');
    frmsoftupdate.Memo1.Lines.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ʱ<><CAB1>'+DateTimeToStr(Now));
    FreeAndNil(TempStr);
    FreeAndNil(Stemp);
//    close;
  except
    showmessage('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
    frmsoftupdate.Memo1.Lines.Add('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>,ʱ<><CAB1>'+DateTimeToStr(Now));
    FreeAndNil(TempStr);
    FreeAndNil(Stemp);
  end;
//  frmsoftupdate.Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+FormatDateTime('YYYYMMDDHHNNSS',NOW)+'.txt');
end;

procedure Tfrmupdatesql.Button2Click(Sender: TObject);
var
  table:Tadoquery;
  inifile1:Tinifile;
  str:string;
  j,i:integer;
  if_add:boolean;
begin
//  frmsoftupdate.Memo1.Lines.Clear;
  frmsoftupdate.Memo1.Lines.Add('<27><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD>VIEW'+DateTimeToStr(NOW));

  try


//    try


      frmsoftupdate.t_update.Close;
      frmsoftupdate.Memo1.Lines.Add('ִ<>а汾<D0B0><E6B1BE>'+'˳<><CBB3>'+t_view_update.FieldByName('˳<><CBB3>').AsString+'<27><>');
      frmsoftupdate.p_update.Parameters.ParamByName('SQLStr').value:=t_view_update.fieldbyname('ִ<><D6B4>').asstring;
      frmsoftupdate.p_update.ExecProc;


//    except
//      frmsoftupdate.Memo1.Lines.Add('ִ<>а汾<D0B0><E6B1BE>'+'˳<><CBB3>'+t_view_update.FieldByName('˳<><CBB3>').AsString+'ʱ<><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
       ;
//    end;



    showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϣ<EFBFBD>');
    frmsoftupdate.Memo1.Lines.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ʱ<><CAB1>'+DateTimeToStr(Now));
//    close;

  except
    showmessage('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
    frmsoftupdate.Memo1.Lines.Add('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>,ʱ<><CAB1>'+DateTimeToStr(Now));
  end;

//  frmsoftupdate.Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+FormatDateTime('YYYYMMDDHHNNSS',NOW)+'.txt');
end;

procedure Tfrmupdatesql.bsSkinSpeedButton2Click(Sender: TObject);
begin
  t_sql.close;
  t_sql.sql.Clear;
  t_sql.sql.add('select * from t_sql order by <20>汾<EFBFBD><E6B1BE>,˳<><CBB3> ');
  t_sql.open;
end;

procedure Tfrmupdatesql.bsSkinSpeedButton1Click(Sender: TObject);
begin
  t_sql.close;
  t_sql.sql.Clear;
  t_sql.sql.add('select * from t_sql where 1=1 ');
  if Edit1.Text<>'' then begin
    t_sql.sql.add(' and <20>汾<EFBFBD><E6B1BE>='+Edit1.Text);
  end;
  if Edit2.Text<>'' then begin
    t_sql.sql.add(' and ִ<><D6B4> like ''%'+Edit2.Text+'%''');
  end;
  if Edit3.Text<>'' then begin
    t_sql.sql.add(' and ִ<><D6B4> like ''%'+Edit3.Text+'%''');
  end;
  t_sql.sql.add(' order by <20>汾<EFBFBD><E6B1BE>,˳<><CBB3> ');
  t_sql.open;
  
end;

end.