非常郁闷!同样的代码为什么数据不能刷新！！求救高手！！

这个FORM和我程序中另一个基本一致  但是这段代码中MEMO1和MEMO2、edit1的刷新就是不行！！ 救命啊高手！！
unit find1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, StdCtrls, ComCtrls;type
  TForm3 = class(TForm)
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query2: TQuery;
    Memo1: TMemo;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Edit1: TEdit;
    Button7: TButton;
    Memo2: TMemo;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Query1AfterScroll(DataSet: TDataSet);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
    Flag:Integer;    //0代表浏览，1代表新增，2代表修改
  end;var
  Form3: TForm3;
const
  plan_task = 0;
  unplan_task = 1;
  implementationuses  QU1, find2, share;
{$R *.DFM}procedure TForm3.FormShow(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM ZHAOWEI.BZGZ where taskid = ''' + '1' +''' and workdate = ''' + DateToStr(now) + ''' ');
  Query1.Open;
  flag := 0;
end;procedure TForm3.Query1AfterScroll(DataSet: TDataSet);
begin
  self.DateTimePicker1.DateTime := Query1.FieldByName('workdate').AsDateTime;
  memo1.Text := Query1.FieldByName('workdata').AsString;
  memo2.Text := Query1.FieldByName('people').AsString;
  Edit1.Text := Query1.FieldByName('manincharge').AsString;
end;
{procedure TForm2.FormShow(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM ZHAOWEI.BZGZ where NN = ''' + Form1.Query1.FieldByName('BH').AsString+'''and taskid =''' + '0'+'''   ');
  Query1.Open;
  flag := 0;
end;procedure TForm2.Query1AfterScroll(DataSet: TDataSet);
begin
  self.DateTimePicker1.DateTime := Query1.FieldByName('workdate').AsDateTime;
  memo1.Text := Query1.FieldByName('workdata').AsString;
  memo2.Text := Query1.FieldByName('people').AsString;
  Edit1.Text := Query1.FieldByName('manincharge').AsString;
end;}
procedure TForm3.Button1Click(Sender: TObject);
begin
 Self.DateTimePicker1.DateTime := now;
 memo1.Text := '';
 memo2.Text := '';
  Edit1.Text := '';
  DBGrid1.Enabled :=False;
  Edit1.Enabled := True;
  memo1.Enabled := True;
  memo2.Enabled := True;
  DateTimePicker1.Enabled := True;
  Button1.Enabled := False;
  Button2.Enabled := False;
  Button3.Enabled := False;
  Button4.Enabled := True;
  Button5.Enabled := True;
  Button7.Enabled := False;
  Flag := 1;
end;procedure TForm3.Button4Click(Sender: TObject);
var
  Sql:String;
begin
  begin
    if Trim(Edit1.Text) = '' then
  begin
    Application.MessageBox('小组负责人不得为空','提醒',mb_ok);
    Exit;
  end;  if Trim(Memo1.Text) = '' then
  begin
    Application.MessageBox('工作内容不得为空','提醒',mb_ok);
    Exit;
  end;  if Trim(Memo2.Text) = '' then
  begin
    Application.MessageBox('工作人员不得为空','提醒',mb_ok);
    Exit;
  end;  //Query2.Close;
  //Query2.SQL.Clear;
  //Query2.SQL.Add('select * from ZW.QU order by NN DESC');
  //Query2.Open;  //tmp := Query2.FieldByName('NN').AsInteger;
  //Inc(tmp);
  if Flag = 1 then
  begin     begin
     Sql := 'Insert into ZHAOWEI.BZGZ(NN,workdate,banzu,workdata,people,manincharge,taskid) values(''' + 'unplantask' + ''','''+  DateToStr(Self.DateTimePicker1.Date) +  ''',''' + Trim(share.userId) + ''',''' + Trim(Memo1.Text) + ''',''' + Trim(Memo2.Text) + ''',''' + Trim(Edit1.Text) + ''',''' + '1' + ''')' ;
     Query2.Close;
     Query2.SQL.Clear;
     Query2.SQL.Add(Sql);
     Query2.ExecSQL;
     end  end;   
  if Flag = 2 then
  begin //showmessage('update ZW.BZ set workdate = ''' + DateToStr(Self.DateTimePicker1.Date) + ''', car = ''' + Trim(Edit1.Text) +  ''' where  banzu = '+ (Query1.FieldByName('banzu').AsString))  ;
    if Trim(Query1.FieldByName('banzu').AsString) = share.userId  then
    begin
    Sql := 'update ZHAOWEI.BZGZ set workdate = ''' + DateToStr(Self.DateTimePicker1.Date) + ''',workdata=''' + Trim(Memo1.Text) + ''',people=''' + Trim(Memo2.Text) + ''',manincharge='''+ Trim(Edit1.Text)+''' where  No = ' + IntToStr(Query1.FieldByName('No').AsInteger );
    Query2.Close;
    Query2.SQL.Clear;
    Query2.SQL.Add(Sql);
    Query2.ExecSQL;
    end
    else  Application.MessageBox('班组选择错误','提醒',mb_ok);
  end;
    Query1.Close;
  Query1.Open;  Edit1.Enabled := False;
  memo1.Enabled := False;
  DateTimePicker1.Enabled := False;  memo2.Enabled := False;
  Button1.Enabled := True;
  Button2.Enabled := True;
  Button3.Enabled := True;
  Button4.Enabled := False;
  Button5.Enabled := False;
  DBGrid1.Enabled := True;  Button7.Enabled := True;
  if Flag = 2 then
    DBGrid1.Enabled := True;  Flag := 0;
end;
end;procedure TForm3.Button5Click(Sender: TObject);
begin  Edit1.Enabled := False;
  memo1.Enabled := False;
  DateTimePicker1.Enabled := False;
  memo2.Enabled := False;
  self.DateTimePicker1.DateTime := Query1.FieldByName('workdate').AsDateTime;
 // if Query1.FieldByName('workdata').AsString = '' then
 // begin
  //memo1.Text :='';
 // end;
 // else
//  begin
 // Query1.FieldByName('workdata').AsString;
 // end;
 //memo2.Text := Query1.FieldByName('peopele').AsString;  Edit1.Text := Query1.FieldByName('manincharge').AsString;
  Button1.Enabled := True;
  Button2.Enabled := True;
  Button3.Enabled := True;
  Button4.Enabled := False;
  Button5.Enabled := False;  Button7.Enabled := True;
  DBGrid1.Enabled :=True;  if Flag = 2 then
    DBGrid1.Enabled := True;  Flag := 0;
end;procedure TForm3.Button2Click(Sender: TObject);
begin
   if Trim(Query1.FieldByName('banzu').AsString) = share.userId  then
   begin
   Edit1.Enabled := True;   DateTimePicker1.Enabled := True;
   Flag := 2;
   DBGrid1.Enabled := False;
   Memo1.Enabled := True;
   Memo2.Enabled := True;   Button1.Enabled := False;
   Button2.Enabled := False;
   Button3.Enabled := False;
   Button4.Enabled := True;
   Button5.Enabled := True;   Button7.Enabled := False;
   end
   else   Application.MessageBox('班组选择错误','提醒',mb_ok);end;
procedure TForm3.Button3Click(Sender: TObject);
begin if Trim(Query1.FieldByName('banzu').AsString) = share.userId  then
  begin
 if Application.MessageBox('是否真的删除？','提醒',mb_yesno)  = 6 then
  begin
    Query2.Close;
    Query2.SQL.Clear;
    Query2.SQL.Add('delete from ZHAOWEI.BZGZ where  No = ' + IntToStr(Query1.FieldByName('No').AsInteger));
    Query2.ExecSQL;
    Query1.Close;
    Query1.Open;
  end
  end
 else  Application.MessageBox('班组选择错误','提醒',mb_ok);
end;procedure TForm3.Button6Click(Sender: TObject);
begin
  Form4.ShowModal;
end;procedure TForm3.Button7Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM ZHAOWEI.BZGZ where taskid = ''' + '1'+''' and workdate = ''' + DateToStr(now) + ''' ');
  Query1.Open;
end;end.