WORD转Sqlite数据库开发手记（2）

procedure TFormMain.FWordFileSelBtnClick(Sender: TObject);
begin
  {需要用户选择一个Word文件}
  if FWordFileOpenDialog.Execute then
  begin
    FWordFileNameEdit.Text := FWordFileOpenDialog.FileName;
  end;
end;

procedure TFormMain.FSqliteFileSelButtonClick(Sender: TObject);
begin
  {需要用户选择一个Sqlite数据库文件}
  if FSqliteSaveDialog.Execute then
  begin
    FSqliteFileNameEdit.Text := FSqliteSaveDialog.FileName; 
  end;
end;

procedure ShowWaitFrom(arg_runNotify: TNotifyEvent);
begin
  if g_waitFrm = nil then
  begin
    g_waitFrm := TfrmWait.Create(nil);
  end;
  g_waitFrm.m_clInfoLabel.Top := 17;
  g_waitFrm.m_clInfoLabel.Caption := '';
  g_waitFrm.ProgressBar1.Visible := false;
  g_waitFrm.fnRunEvent := arg_runNotify;
  g_waitFrm.OnShowForm();
end;

procedure TfrmWait.setInfo(const Value: string);
begin
  m_clInfoLabel.Caption := Value;
  Application.ProcessMessages;
end;

procedure OnSetWaitStep(arg_value:Integer);
begin
  if g_waitFrm <> nil then
  begin
    g_waitFrm.ProgressBar1.Position := arg_value; 
  end;
end;